View Full Version : سوال در مورد key down
vb.amir
دوشنبه 10 دی 1386, 01:42 صبح
با سلام خدمت دوستان عزیز:بوس:
من در خواصیت key down فرم می خوام که وقتی مثلا نوشتی ali یه msgbox بده
یعنی وقتی به ترتیب تایپ کردی ali یه پیغام بده:متفکر:
sinpin
دوشنبه 10 دی 1386, 09:50 صبح
با سلام خدمت دوستان عزیز:بوس:
من در خواصیت key down فرم می خوام که وقتی مثلا نوشتی ali یه msgbox بده
یعنی وقتی به ترتیب تایپ کردی ali یه پیغام بده:متفکر:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Me.Tag = Me.Tag + LCase(Chr(KeyCode))
If InStr(Me.Tag, "ali") <> 0 Then
MsgBox "ok"
Me.Tag = ""
End If
End Sub
vb.amir
دوشنبه 10 دی 1386, 12:03 عصر
دوست عزیز از لطف شما ممنون
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.