دکمه میانبر [بایگانی]

alix58

یک شنبه 15 مهر 1386, 23:45 عصر

باسلام؛
من میخواهم برای برنامه خودم یک دکمه میانبر بسازم،طوری که مثل ماشین حساب wın بشه در هر کجا برنامه رو فراخوانی کرد.مثلا با استفاده از دکمه f9 برنامه لود بشه و فرم اصلی نمایش داده بشه،میخواهم این رو داخل برنامه بنویسم که همیشه کار کنه اگر کسی میتونه مشکل من رو حل کنه خواهش میکنم منو راهنمائی کنه

اوبالیت به بو

چهارشنبه 02 آبان 1386, 14:22 عصر

باید تو تک تک فرمات یه منو بزاری که بهش بگی که با زدن کلید F9 اول فرم اصلیتو نشون بده بعد برنامه ماشین حساب رو نشون بده.باید تو Menu Editor کلید میانبر رو انتخاب کنی.

Mbt925

چهارشنبه 02 آبان 1386, 16:16 عصر

وقتی روی یه فایل Exe کلیک راست می کنین و از صفحه Propeties به سربرگ Shortcut میرین ، می تونین توی فیلد Shortcut Keys یه میانبر براش تعریف کنین که با زدن اون کلیدها ، فایل Exe مربوطه اجرا بشه.

حالا ما با کد این کارو می کنیم :
(این نمونه Shortcut هم ایجاد می کنه.)

Set B = CreateObject("wscript.shell")
Set c = B.CreateShortcut(ShortcutAddress) + ".lnk")
c.TargetPath = TargetAddress
c.WindowStyle = 1
C.Hotkey = "CTRL+SHIFT+F"
c.IconLocation = TargetAddress + ", 0"
c.Description = FileDescription
c.WorkingDirectory = TargetPath
c.Save

اوبالیت به بو

چهارشنبه 02 آبان 1386, 21:43 عصر

البته کد بالا کارت رو خیلی راحت تر میکنه.و بهتر از کد بالا استفاده کنی.

majjjj

پنج شنبه 03 آبان 1386, 12:13 عصر

Public Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer

این هم جواب میده