بحاول انزل صورة من picture box
بمعني حفظ الصورة علي الجهاز بمسار معين
مش لاقيلها حل :(
بمعني حفظ الصورة علي الجهاز بمسار معين
مش لاقيلها حل :(
كود :
Dim temp As New DataTable
If Convert.ToBoolean(GetValueFromRegistry("WindowsOrSqlServer")) = True Then
Cnn = New SqlConnection(CnnString)
ElseIf Convert.ToBoolean(GetValueFromRegistry("WindowsOrSqlServer")) = False Then
Cnn = New SqlConnection(CnnString1)
End If
Cmd = New SqlCommand
Cmd.CommandText = "Select image1 From PC"
Cmd.CommandType = CommandType.Text
Cmd.Connection = Cnn
Dim ms As New MemoryStream("image1")
Dim x() As Byte
pbox.Image = Image.FromStream(ms)
ms.Dispose()
ofd.FileName = ""
ofd.Filter = "Image Files (JPEG,GIF,BMP,PNG,ICO)|*.jpg;*.jpeg;*.gif;*.bmp;*.png;*ico"
Dim SaveFileAs As New SaveFileDialog
SaveFileAs.Title = "Save File As"
SaveFileAs.FileName = ""
SaveFileAs.Filter = "Image Files (JPEG,GIF,BMP,PNG,ICO)|*.jpg;*.jpeg;*.gif;*.bmp;*.png;*ico"
If SaveFileAs.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
pbox.Image.Save(SaveFileAs.FileName, Imaging.ImageFormat.Jpeg)
End If