با انتخاب عكس بايد ايكن فرم عوض بشه ولي اجرا نميشه
Printable View
با انتخاب عكس بايد ايكن فرم عوض بشه ولي اجرا نميشه
کد:Private Sub Form_Load()
Dim Item As ListItem
Set Item = ListView1.ListItems.Add(, , , 1)
Set Item = ListView1.ListItems.Add(, , , 2)
Set Item = ListView1.ListItems.Add(, , , 3)
End Sub
Private Sub ListView1_Click()
Select Case ListView1.SelectedItem.Index
Case 1
Form1.Icon = LoadPicture(App.Path & "\Image\1.ico")
Case 2
Form1.Icon = LoadPicture(App.Path & "\Image\2.ico")
Case 3
Form1.Icon = LoadPicture(App.Path & "\Image\3.ico")
End Select
End Sub
شما بايد از خصوصيت Index. استفاده کنی، و به جای a,b,c از 1،2،3 که ميشه:نقل قول:
کد:Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Select Case Item.Index
Case 1: Form1.Icon = LoadPicture(App.Path & "\Image\" & "1.ico")
Case 2: Form1.Icon = LoadPicture(App.Path & "\Image\" & "2.ico")
Case 3: Form1.Icon = LoadPicture(App.Path & "\Image\" & "3.ico")
End Select
End Sub
دستتون طلا