نقل قول:کد:Private Sub List1_Click()
Dim Fso, Extension
Set Fso = CreateObject("Scripting.FileSystemObject")
If List1.Selected(List1.ListIndex) Then
Extension = Fso.GetExtensionName(List1.Text)
Text1.Text = Extension
End If
End Sub
Printable View
نقل قول:کد:Private Sub List1_Click()
Dim Fso, Extension
Set Fso = CreateObject("Scripting.FileSystemObject")
If List1.Selected(List1.ListIndex) Then
Extension = Fso.GetExtensionName(List1.Text)
Text1.Text = Extension
End If
End Sub
اين كد را كه گزاشتيد من نتونستم باهاش كار كنم يعني ارور ميده (type mismatche)نقل قول:
در ضمن مولتي سلكت رو ميتونيد يك جوري بنويسيد كه تو دو ليست نشون بده يكي نام و ديگري ادرس(من نتونستم)
کدی که نوشتم درسته ؛ کدوم خط رو ارور میگیرهنقل قول:
خط list2.additem filename رو type mismatche ميگيره
MultiSelect CommonDialog :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
مرسي كاركرد عالي بود