مشکل این کد چیه؟ [بایگانی]

evilboy

چهارشنبه 13 دی 1385, 21:53 عصر

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyB Then
Call KewlButtons5_Click
End If
End Sub

ممنون

zerobit-ltd

چهارشنبه 13 دی 1385, 22:15 عصر

هیچ مشکلی نداره.
شاید مشکل از داخل KewlButtons5_Click باشه.

sjj

پنج شنبه 14 دی 1385, 03:41 صبح

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyB Then
Call KewlButtons5_Click
End If
End Sub

ممنون

شما اشکالتون چیه ؟ من که مشکلی نمی بینم.

evilboy

پنج شنبه 14 دی 1385, 10:13 صبح

آخه کار نمی کنه
من یک دکمه دارم مثلا برای بازگشت به نام KewlButtons5_Click
من اونو با صفحه کلید فراخوانی کردم

Neeloofar

پنج شنبه 14 دی 1385, 12:01 عصر

سلام
باید خصوصیت KeyPreview فرم مربوط را به True تغییر بدید. درست میشه!
یا در Form_Load این عبارت رو اضافه کنید:

Private Sub Form_Load()
Me.KeyPreview = True
End Sub