Dear para Master Excel,
Saya ada kode VBA sebagai berikut:
Private Sub cmdTARL_Click()
'masih eror
Dim oLbl(1, 4) As Control, oTxt(1, 4) As Control 'ganti control dengan
msforms.label atau msforms.textbox jika object ada di worksheet
Dim sKet As String, s1 As String, s2 As String, sfile1 As String, sfile2 As
String, sJari As String, sSisi As String, sSisiTeks As String
Dim lSisi As Long, lNo As Long
Set oLbl(0, 0) = lblL1: Set oLbl(0, 1) = lblL2: Set oLbl(0, 2) = lblL3: Set
oLbl(0, 3) = lblL4: Set oLbl(0, 4) = lblL5
Set oLbl(1, 0) = lblR1: Set oLbl(1, 1) = lblR2: Set oLbl(1, 2) = lblR3: Set
oLbl(1, 3) = lblR4: Set oLbl(1, 4) = lblR5
Set oTxt(0, 0) = txtL1: Set oTxt(0, 1) = txtL2: Set oTxt(0, 2) = txtL3: Set
oTxt(0, 3) = txtL4: Set oTxt(0, 4) = txtL5
Set oTxt(1, 0) = txtR1: Set oTxt(1, 1) = txtR2: Set oTxt(1, 2) = txtR3: Set
oTxt(1, 3) = txtR4: Set oTxt(1, 4) = txtR5
sKet = "Turuan dari Tented Arch menuju Ulnar Loop. Pada tangan %s1, tampak
seperti belahan rambut ikal memiliki arah alur ke%s2. Hampir/sudah memiliki
Core maupun Delta, tetapi hampir tidak ada jarak antara Core dan Delta."
sfile1 = "C:\Tipe Jari\TA-%s1L1.jpg"
sfile2 = "C:\Tipe Jari\TA-%s1L2.jpg"
If LenB(lblFolder.Caption) <> 0 Then
lblNamaJari.Caption = "Tented Arch with Ulnar Loop"
sJari = lblJari.Caption
lNo = CLng(Mid$(sJari, 2, 1)) - 1
If Left$(sJari, 1) = "R" Then
lSisi = 1
sSisi = Left$(sJari, 1)
s1 = "kiri"
s2 = "kanan"
Else
lSisi = 0
sSisi = vbNullString
s1 = "kiri"
s2 = "kanan"
End If
lblKeterangan.Caption = Replace$(Replace$(sKet, "%s1", s1), "%s2", s2)
imgC1.Picture = LoadPicture(vbNullString)
imgC1.Picture = LoadPicture(Replace$(sfile1, "%s1", sSisi))
imgC2.Picture = LoadPicture(vbNullString)
imgC2.Picture = LoadPicture(Replace$(sfile2, "%s1", sSisi))
oLbl(lSisi, lNo).Caption = "TA-RL"
oTxt(lSisi, lNo).Text = 0
oTxt(lSisi, lNo).SetFocus
Else
MsgBox ("Tentukan Folder Terlebih Dahulu")
End If
End Sub
Yg berwarna biru adalah kode yg bermasalah (kebalik), yg warna hijau adalah
kondisi.
Ada 2 jenis gambar di C:\Tipe Jari\, yaitu TA-L.jpg dan TA-RL.jpg
Yg saya harapkan,
Jika Left$(sJari, 1) = "R" maka pasang imgC1.Picture dan imgC2.Picture dengan
file
C:\Tipe Jari\TA-L1.jpg dan C:\Tipe Jari\TA-L2.jpg
Jika Left$(sJari, 1) = "L" maka pasangimgC1.Picture dan imgC2.Picture dengan
file
C:\Tipe Jari\TA-RL1.jpg dan C:\Tipe Jari\TA-RL2.jpg
Saya sudah coba balik sSisinya yg vbNullString pindah keatas dan sebaliknya,
tapi malah error
Mohon bantuannya pada rekan-rekan Master Excel, atas bantuannya saya ucapkan
terimakasih
Wassalam,
