Excel Forum

Code: Select all

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim imagePath As String
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Intern_info")
    
    With Me.ListBox1
        Me.TextBox1.Value = .List(.ListIndex, 0)
        Me.TextBox2.Value = .List(.ListIndex, 1)
        Me.TextBox3.Value = .List(.ListIndex, 2)
        Me.TextBox4.Value = .List(.ListIndex, 3)
        Me.TextBox5.Value = .List(.ListIndex, 4)
        Me.TextBox6.Value = .List(.ListIndex, 5)
        Me.TextBox7.Value = .List(.ListIndex, 6)
        Me.TextBox8.Value = .List(.ListIndex, 7)
        
        imagePath = ws.Cells(.ListIndex + 1, 9).Value
        
    
        If Dir(imagePath) <> "" Then
            Me.Image1.Picture = LoadPicture(imagePath)
            Me.Image1.PictureSizeMode = fmPictureSizeModeStretch
        Else
            MsgBox "Cannot select image: " & imagePath, vbExclamation
            Me.Image1.Picture = LoadPicture("") ' ถ้าไม่มีรูปภาพ ให้เคลียร์ภาพใน Image1
        End If
    End With
    
  
    Me.cmdUpdate.Enabled = True
End Sub