Rekan2 Accesser mohon pencerahannya,
Saya buat sebuah listbox yg isinya hanya "CODE" Dan sebuah Image pada form. Saya mengharapkan setiap kali saya klik data/code yg ada di listbox tsb gambarnya munculkan di Imange.
Tsb codingnya :
Private Sub List10_Click()
Dim path As String
On Error GoTo HideMe
path = "C:\IMAGES"
Me![Image5].Picture = path & "\" & Me.List10.ItemData(Me.List10.ListIndex) & ".jpg"
GoTo nol
HideMe:
Me![Image5].Picture = ""
nol:
End Sub
Kesalahannya ada dimana ???
Terima kasih, Salam Accessers
BambangMahfudin
__._,_.___
SPAM IS PROHIBITED
MARKETPLACE
.
__,_._,___
No comments:
Post a Comment