سؤال در مورد فوکوس

[Hassan2500]

سلام
وقتی روی کامند کلیک میکنم فوکوس به اول تکست میپره میخوام با کلیک روی کامند فوکوس هر جا بود از جاش تکون نخوره

Private Sub Command1_Click()
Option1 = Empty = False
Text1 = Text1 & " "
If Right(Text1, 1) = " " Then Text1 = Left(Text1, Len(Text1) - 1)
Option1 = Empty = True
End Sub

[محسن واژدی]

سلام
کد زیر را بررسی کنید:
Private Sub Command1_Click()
Dim iTS%, iTSL%
iTS% = Text1.SelStart
iTSL% = Text1.SelLength

Option1 = Empty = False

Text1 = Text1 & " "

If Right(Text1, 1) = " " Then
Text1 = Left(Text1, Len(Text1) - 1)
End If

Option1 = Empty = True

Text1.SetFocus
Text1.SelStart = iTS%
Text1.SelLength = iTSL%
End Sub

موفق باشید