سلام دوست عزیز من تکه کد ها رو خدمتت توضیح میدم خودتون الهام بگیرین
Dim a As Integer
a = Asc(TextBox1.Text)
MessageBox.Show(a)
با تکه کد بالا شماره اسکی دکمه صفحه کلید برات نمایش داده میشه که به نوعی کد اسکی * رو و یا هر کلیدی که لازم داشتین رو بهتون نمایش میده
If Asc(e.KeyChar) = 42 Then
a = Me.TextBox1.Text
a = a.Replace("*", "")
a = a.ToString + "000"
Me.TextBox1.Text = ""
Me.Timer1.Enabled = True
End If
با کد بالا و تکه کد پایین سه صفر به تکس باکس اضافه میشه
Me.Timer1.Enabled = False
Me.TextBox1.Text = ""
Me.TextBox1.Text = a
در تایمر با این تکه کد باعث وقفه میشیم تا * پاک بشه
90.jpg