22-12-22, 01:18 AM
(22-12-22, 12:11 AM)سعود كتب :PHP كود :
Private Sub ListBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseClick
If e.Button = MouseButtons.Left Then
Dim fname As String = IO.Path.GetTempFileName
IO.File.WriteAllBytes(fname, My.Resources.ResourceManager.GetObject(ListBox1.Text))
Process.Start(fname)
End If
End Sub
جزاك الله كل الخير والسعادة أخى..

