هنگامی که از ویرایگر منو در ویژوال بیسیک استفاده می کنید می توانید یک کلید میانبر یا سریع کننده به هر کدام از آنها اختصاص دهید . این بخش نحوه تغییر دادن این کلید ها را در زمان اجرا را در یک برنامه کاربردی مورد بررسی قرار می دهد.
1- پروژه جدیدی را در ویژوال بیسیک آغاز کنید . بطور پیش فرض Form1 ایجاد می شود.
2- کد زیر را به قسمت معرفیهای عمومی فرم اضافه کنید :
Option Explicit
Dim ShortCut as String * 1
3- از منوی Tools روی گزینه Menu Editor کلیک کنید تا یک منوی ساده ایجاد شود . در محل Caoption کلمه : File& و در محل مربوط به نام mnuFile را وارد و روی Ok کلیک کنید تا یک ساختار منویی ایجاد شود . سپس به حالت طراحی ویژوال بیسیک برگردید.
4- کد زیر را در رویداد Load مربوط به Form1 وارد کنید.
Private Sub Form_Load()
Command1.Caption = "Change ShortCut"
KeyPreview = True
End Sub
5- کد زیر را هم در رویداد KeyDown فرم اضافه نمایید :
Private Sub Form_KeyDown (KeyCode As Integer , Shift As Integer)
If Shift And 2 <> 2 Then Exit Sub
If Keycode = Asc(ShortCut) Then
mnuFile_Click
End If
End Sub
6- کد زیر را در رویداد Click منوی mnuFile وارد کنید :
Private Sub mnuFile_Click()
MsgBox "Menu Was Selected"
End Sub
7- کنترلی از نوع Command Button به فرم اضافه کنید . Command1 بطور پیش فرض ایجاد می شود . خصوصیت Caption آنرا به Change Item تنظیم نمایید.
8- کد زیر را به رویداد Click این دکمه اضافه کنید :
Private Sub Command1_Click()
ShortCut = "E"
mnuFile.Caption = "Fill" & "&" & LCase$(ShortCut)
End Sub
با فشاردادن کلید F5 برنامه را اجرا کنید . به منوی بالای فرم توجه کنید . گزینه منو File"" می باشد که زیر حرف F آن خط کشیده شده است . حرف F ، کلید دستیابی به منوی مزبور می باشد . روی دکمه کلیک کنید . گزینه منوی به File تغییر داده می شود منتهی این بار زیر حرف e آن خط کشیده شده است . کلید ترکیبی Ctrl + E را روی ضفحه فشار دهید . یک کادر پیغام باز می شود که مضمون آن به این صورت است : Menu Was Selected
