29-10-17, 10:20 PM
PHP كود :
Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged
Dim path As String = "D:\photo\\"
Dim fn As String = path & "\" & TextBox1.Text & ".png"
PictureBox1.Image = Nothing
Dim pngfn As String = fn
If IO.File.Exists(pngfn) Then PictureBox1.Image = Image.FromFile(pngfn)
End Sub
