چند سئوال از Vb دارم...

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

1) چگونه می توان یک شاخه از ویندوز را با کلیک بر روی یک باتم باز کرد؟
2)چگونه میتوان با کلیک بر روی یک گزینه یک فایل را اجرا کرد؟
3)چگونه می توان با رفتن موس روی یک گزینه یک صدا اجرا شود (منظورم افکت صوتی است) ؟

با تشکر از همه دوستان

جواب سوال 1:
(استفاده از یک تابع API)
این قسمت رو در یک ماژول Paste کنین:

کد:

---

Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
    lpOperation As String, ByVal lpFile As String, ByVal _
    lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Public Const SW_SHOWNORMAL = 1

---

و این قسمت رو در فرمتون یا همون جایی که می خواین یک فولدر رو با مسیر Directory باز کنین:

کد:

---

ShellExecute 0, "Open", Directory, vbNullString, vbNullString , SW_SHOWNORMAL

---

----------------------------------------------------------------------------------------------------------------------
جواب سوال 2:
اگه منظورتون از گزینه، OptionButton یا CommandButton ه، کافیه توی رویداد کلیک اون تایپ کنین: (ProgramName اسم برنامه ایه که مسیر Default ویندوزه و یا آدرس کامل برنامه ایه که می خواین اجراش کنین)

کد:

---

Shell ProgramName, vbNormalFocus

---

مثلا برای اجرای ماشین حساب ویندوز کافیه دستور زیر رو تایپ کنین:

کد:

---

Shell "calc.exe", vbNormalFocus

---

----------------------------------------------------------------------------------------------------------------------
جواب سوال 3:
(استفاده از یک تابع API)
این قسمت رو در یک ماژول Paste کنین:

کد:

---

Declare Function sndPlaySound Lib "winmm.dll" _
        Alias "sndPlaySoundA" (ByVal lpszSoundName _
        As String, ByVal uFlags As Long) As Long

---

و در رویداد MouseOver گزینه موردنظرتون دستور زیر رو تایپ کنین:(SoundFilePath مسیر کامل یه فایل با فرمت Wav هست)

کد:

---

sndPlaySound SoundFilePath

---

با سلام دوست عزیز
ممنون از خانم که جوابتون را بصورت کامل دادن ولی شما نباید برای اینکه جوابتون رو بگیرین بگید اگر جواب بدین براتون بازی فکر بکرم را می فرستم
ممنون

نقل قول:

---

نوشته شده توسط تکنیک برتر

با سلام دوست عزیز
ممنون از خانم که جوابتون را بصورت کامل دادن ولی شما نباید برای اینکه جوابتون رو بگیرین بگید اگر جواب بدین براتون بازی فکر بکرم را می فرستم
ممنون

---

البته ناگفته نماند اگه من جواب دادم فقط بخاطر این بود که جواب هر سه تا سوال رو می تونستم بدم، وگرنه هیچ احتیاجی به قرار دادن جایزه نبود و من هم اصلا احتیاجی به اون ندارم.

اولا دستت درد نکنه که کامل جوابم رو داده بودی حالا اگه دوست داشتی ای میلی چیزی بزار تا برات بازی فکر و بکر رو بفرستم اگه نخواستی ام لا مانع
البته چند تا سوال دیگه هم داشتم اگه بلد بودی جواب بده

1) چگونه می توان با کلیک بر روی علامت ضرب در گوشه پنجره ، برنامه به System Tray برود؟
2) با توجه به سوال 3 قبلی چگونه می توان با رفتن موس روی فرم فایل در حال اجرا قطع شود؟

پیشا پیش از شما دوستان عزیز تشکر می کنم

اول حواب سوال دومتون:
این رو در یک ماجول Paste کنین و از توابع TrayAdd، TrayModifyو TrayDelete برای کار با System Tray استفاده کنین:

کد:

---

Option Explicit

'[Tray Constants]
Const NIF_MESSAGE    As Long = &H1    'Message
Const NIF_ICON      As Long = &H2    'Icon
Const NIF_TIP        As Long = &H4    'TooTipText
Const NIM_ADD        As Long = &H0    'Add to tray
Const NIM_MODIFY    As Long = &H1    'Modify
Const NIM_DELETE    As Long = &H2    'Delete From Tray

'[Type NotifyIconData For Tray Icon]
Private Type NOTIFYICONDATA
    cbSize As Long
    hwnd As Long
    uId As Long
    uFlags As Long
    uCallBackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type

'[Return Events]
Public Enum TrayRetunEventEnum
    MouseMove = &H200      'On Mousemove
    LeftUp = &H202          'Left Button Mouse Up
    LeftDown = &H201        'Left Button MouseDown
    LeftDbClick = &H203    'Left Button Double Click
    RightUp = &H205        'Right Button Up
    RightDown = &H204      'Right Button Down
    RightDbClick = &H206    'Right Button Double Click
    MiddleUp = &H208        'Middle Button Up
    MiddleDown = &H207      'Middle Button Down
    MiddleDbClick = &H209  'Middle Button Double Click
End Enum

'[Modify Items]
Public Enum ModifyItemEnum
    ToolTip = 1            'Modify ToolTip
    Icon = 2                'Modify Icon
End Enum

'[API]
Private TrayIcon As NOTIFYICONDATA
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

'[Add to Tray]
Public Sub TrayAdd(hwnd As Long, Icon As Picture, _
                    ToolTip As String, ReturnCallEvent As TrayRetunEventEnum)
    With TrayIcon
        .cbSize = Len(TrayIcon)
        .hwnd = hwnd
        .uId = vbNull
        .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
        .uCallBackMessage = ReturnCallEvent
        .hIcon = Icon
        .szTip = ToolTip & vbNullChar
    End With
    Shell_NotifyIcon NIM_ADD, TrayIcon
End Sub

'[Remove From tray]
Public Sub TrayDelete()
    Shell_NotifyIcon NIM_DELETE, TrayIcon
End Sub

'[Modify the tray]
Public Sub TrayModify(Item As ModifyItemEnum, vNewValue As Variant)
    Select Case Item
        Case ToolTip
            TrayIcon.szTip = vNewValue & vbNullChar
        Case Icon
            TrayIcon.hIcon = vNewValue
    End Select
    Shell_NotifyIcon NIM_MODIFY, TrayIcon
End Sub

---

در مورد سوال اول، برای این کار نباید از تابع Shell استفاده کنین. توضیحات بیشتر رو بعدا براتون می ذارم...

با سلام ممنون خانم جوابتون را داد دوست گلم اگر بگردی پیدا می شه من یه نمونه گزاشته بودم ممنون

دستت درد نکنه که جوابارو سریع برام می فرستی ولی این دفعه مثل اینکه یه جورایی جوابها رو اشتباه دادی
حالا کاری نداریم اگه جوابهای جدید رو پیدا کردی لطف کن و بنویس و در ضمن یه توضیحی هم راجع به این نوشته های بالا و توابعی که گفتی بده

من با همین کد تا بحال سه چهار تا برنامه نوشتم که فرم اصلی اونا رو در موقع لازم به System Tray می فرستم.
برای فرستادن فرم به سیستم تری، از TrayAdd استفاده کن. بهتره اون رو توی Sub Main بذاری، فرمی رو که می خوای بفرستی به تری لود کنی و خاصیت Visible اون رو False کنی.
برای تغییر Tooltip یا Icon اون فرمی که فرستادی به تری، از TrayModify استفاده کن.
در پایان اجرای برنامه برای برداشتن آیکون برنامه از سیستم تری، از TrayDelete استفاده کن.

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

چه طوری درایوهای شبکه رو به برنامه معرفی کنیم