Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim FilePath As String = TextBox1.Text
PictureBox1.Image = Icon.ExtractAssociatedIcon(FilePath).ToBitmap
End Sub


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim FilePath As String = TextBox1.Text
PictureBox1.Image = Icon.ExtractAssociatedIcon(FilePath).ToBitmap
End Sub



被折叠的 条评论
为什么被折叠?