การใช้ OpenFileDialog
Private Sub cmdSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSearch.Click
End Sub
Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
End Sub
Private Sub cmdSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSearch.Click
OpenFileDialog1.Filter = "Image (*.jpeg;*.gif;*.bmp;*.png)*.jpg;*.gif;*.bmp;*.png)"
OpenFileDialog1.FileName = ""
OpenFileDialog1.ShowDialog()
If currentfile <> Nothing ThenpicAsset.Image =
Image.FromFile(currentfile)
End If
End Sub
Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
If e.Cancel = True Then Exit Sub
currentfile = OpenFileDialog1.FileName
End Sub
ความคิดเห็น