آدرس دهي به اجزاء Listbox

[mehdiyg]

سلام دوستان
چجوريميتونم يه سري اسامي رو وارد listbox كنم و به هر كدومشون آدرس باز شدن يه سند word رو بدم مثلا با كليك كردن اسم document1 از داخل listbox فايل word واقع در آدرس
c:\document.doc باز بشه

[Iron_Fist]

بيا

دكلريشن ( بريز تو جنرال فرمت )

کد:

Private Const SW_SHOWNORMAL = 1
Private 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

خود برنامه ( تو رويداد كليك ليستت اين رو بزار )

کد:

If List1.Selected(0) = True Then
  ShellExecute Me.hwnd, "open", "document.doc", vbNullString, "C:\", SW_SHOWNORMAL
End If

[esmaeily-hosein]

با select case نوشته بشه بهتره