PDA

View Full Version : استفاده از کلیدهای تابعی F1,F2,...



vbstar
چهارشنبه 19 آذر 1382, 11:13 صبح
برای اینکه مثلاً کلید F2 عملیات ذخیره را در یک فرم انجام دهد ، بطوری که در تمامی حالات اینکار انجام پذیرد چه باید کرد ؟

روش زیر فقط برای حالتی امکان پذیر است ، که فوکوس شما بر روی همین فیلد باشد.
ولی من بدنبال حالتی هستم که در هر صورتی که کرسر فوکوس داشته باشد ، با فشردن کلید F2 عملیات مربوطه انجام گیرد.


Private Sub Note_KeyUp(KeyCode As Integer, Shift As Integer)
'F2 Key
If KeyCode = vbKeyF2 Then
Call Func_frmCargo.Save_Rec
End If
End Sub

Vbstar

کم حوصله
چهارشنبه 19 آذر 1382, 11:42 صبح
خوب کاری نداره که
در قسمت فرم لود اینو بنویس


Private sub form_load
me.keypreview=true
end sub

بعد در قسمت فرم کی دون ان را بخوان


Private sub form_keydown
If KeyCode = vbKeyF2 Then
Call Func_frmCargo.Save_Rec
End If
end sub


به همین راحتی . به همین خوشمزگی . ( پودر کیک رشد :mrgreen: )

کم حوصله
چهارشنبه 19 آذر 1382, 11:47 صبح
راستی بگم این چه کار میکنه
با true کردن خاصیت keypreview باعث می شوید که هر کلید فشرده شده قبل از اینکه در شئی مورد نظر خوانده شود در فرم خوانده شود
یعنی شما می توانید در فرم خود آن کلید را کنترل کرده و عملیات خاصی را که دوست دارید انجام بدید :mrgreen: :mrgreen:

جالب بود نه ! خوب پس تا بعد ! ( ای کی یو سان :mrgreen: )

vbstar
چهارشنبه 19 آذر 1382, 17:08 عصر
کم حوصله از جوابی که دادی مرسی ولی هنوز چکش نکردم ، ببینم خودش هست یا نه :!: :?:

ساران سافت
چهارشنبه 19 آذر 1382, 17:23 عصر
خودشه . جواب می ده. :mrgreen:

کم حوصله
چهارشنبه 19 آذر 1382, 22:39 عصر
:shock: :shock:
دستتون درد نکنه یعنی فکر کردید ما همین طوری کشکی یک چیزی پروندیم ؟؟؟

vbstar
جمعه 21 آذر 1382, 11:35 صبح
کم حوصله ، دمت گرم .
:D :D :D :D :D :D