PDA

View Full Version : سوال: function key


hooman59
سه شنبه 18 آبان 1389, 16:37 عصر
سلام دوستان
من يك application دارم طراحي مي كنم و در يكي از form ها ميخواهم كه وقتي كه يك commanbuttonكليك ميشود مثل اين باشد كه روي keyboardمثلا" F3 زده شده باشد .ممنون از كمك شما
returnx
سه شنبه 18 آبان 1389, 17:03 عصر
یکم بیشتر توضیح بدید سوال خیلی نامفهوم بود...
hooman59
سه شنبه 18 آبان 1389, 17:11 عصر
منظورم اينه كه بجاي اينكه روي keyboardمثلا" ّF3 رو بزنم روي يك button توي فرمم كليك كنم و اين كار انجام بشه
mohsen_archi
سه شنبه 18 آبان 1389, 17:30 عصر
با استفاده از کد زیر میتونی چنین کاری رو انجام بدی



SendKeys "f3"
hooman59
سه شنبه 18 آبان 1389, 17:55 عصر
دوست عزيز

()Private Sub Command1_Click
SendKeys "f3"
End Sub

را براي command button در آن فرم اضافه كردم ولي كار نكرد ممكنه بيشتر توضيح بدين
ممنون
mohsen_archi
سه شنبه 18 آبان 1389, 20:34 عصر
کد رو اصلاح کردم، از کد زیر استفاده کن



Private Sub Command1_Click()
SendKeys "{F3}"
End Sub


برای تست این کد KeyPreview فرمت رو برابر True قرار بده و کد زیر رو بذار



Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF3 Then MsgBox "F3"
End Sub
hooman59
سه شنبه 18 آبان 1389, 22:06 عصر
دوست عزيز Mohsen-archi
خيلي ممنون مشكلم حل شد اول error 424 داد ولي درست شد