سلام دوست عزیز با SPLIT میشه این کار رو انجام داد ...
یک عدد بعد از مقدار اعشار رو میگیره و بهت توی لیبل نشون میده .Dim txtدر مورد سوال دومت هم از خاصیت های کیبود استفاده کنید مثلا
txt = Split(Text1, "/")(1)
txt = Left(txt, 1)
Label1 = txt
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
Text1.SetFocus
End If
End Sub
پاسخ با نقل قول
