Snasui Excel Forum

Code: Select all

Private Sub ComboBox2_Change()
    CommandButton5.Enabled = True
    CommandButton6.Enabled = False
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    TextBox4.Text = ""
    TextBox5.Text = ""
    TextBox6.Text = ""
    TextBox7.Text = ""
    TextBox21.Text = ""
    TextBox22.Text = ""
    TextBox23.Text = ""
    TextBox24.Text = ""
    TextBox25.Text = ""
    TextBox26.Text = ""
    TextBox27.Text = ""
    TextBox28.Text = ""
    TextBox29.Text = ""
    TextBox30.Text = ""
    TextBox31.Text = ""
End Sub

Code: Select all

Private Sub CommandButton5_Click()
fileOpenName = Application.GetOpenFilename(fileFilter:="All Files (*.*), *.*")
End Sub

Code: Select all

Private Sub TextBox7_Change()
    If TextBox7.Text <> "" Then
        myPicture = "C:\Documents and Settings\Administrator\My Documents\My Pictures\Picture\" & TextBox7 & ".gif"     'พอเจอข้อมูลแล้วให้เปิด Foder นี้ ชื่อไฟล์ตาม TextBox18
        Image3.Picture = LoadPicture(myPicture)  ' แล้วจึงโหลดรูปลง imgBox
    Else
        Image3.Picture = LoadPicture("")
    End If
End Sub

Code: Select all

Private Sub CommandButton5_Click()
    ChDrive "C:"
    ChDir "C:\Documents and Settings\Administrator\My Documents\My Pictures\Picture"
    fileOpenName = Application.GetOpenFilename(fileFilter:="All Files (*.*), *.*")
    TextBox18.Text = fileOpenName
End Sub

Code: Select all

Private Sub CommandButton5_Click()
    ChDrive "C:"
    ChDir "C:\Documents and Settings\Administrator\My Documents\My Pictures\Picture"
    fileOpenName = Application.GetOpenFilename(fileFilter:="All Files (*.*), *.*")
    TextBox18.Text = Mid(fileOpenName, InStr(fileOpenName, "Pic-"), 255)
End Sub