PDA

View Full Version : انجام به ترتیب کارها



xrezax
یک شنبه 17 مرداد 1389, 09:02 صبح
بچه ها من 5 تا تکست دارم می خوام وقتی دارم اطلاعات وارد کنم و از tab استفاده کنم نشانه گر موس به تکست بعدی بره.
چکار کنم

vbhamed
یک شنبه 17 مرداد 1389, 09:24 صبح
سلام

Left, Top تكستهاي بعدي كه معلومه
با تابع SetCursorPos مي توني ماوس رو به هر جايي ببري
ولي حالا چرا ماوس ؟، معمولا مكان نما رو مي برن


Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Sub Form_Load()

Dim x&, y&

Show
DoEvents

x = (Text2.Left + Me.Left) \ 15 + 50
y = (Text2.Top + Me.Top) \ 15 + 50

SetCursorPos x, y

End Sub

Pr0grammer
یک شنبه 17 مرداد 1389, 10:44 صبح
اگر منظورتون اینه که فوکوس به ترتیب روی این Text ها قرار بگیره، باید TabIndex مربوط به اون ها رو به ترتیب 0 تا 4 قرار بدید...


ولي حالا چرا ماوس ؟، معمولا مكان نما رو مي برن
موافقم...