[alsalamoni]

(07-02-20, 01:11 AM)محمدالزند كتب :

(07-02-20, 12:48 AM)alsalamoni كتب :

(06-02-20, 11:23 AM)محمدالزند كتب : برضه مش شغال لاسف

(07-02-20, 12:26 AM)محمدالزند كتب : مش لاقي حل

اعمل مشروع صغير جديد وارفقه

كود :

If pbox.Image IsNot Nothing Then
   Dim SaveFileAs As New SaveFileDialog
   SaveFileAs.Title = "Save File As"
   SaveFileAs.Filter = "Image Files (JPEG)|*.jpg;*.jpeg"
   If SaveFileAs.ShowDialog() = DialogResult.OK Then
       pbox.Image.Save(SaveFileAs.FileName, Imaging.ImageFormat.Jpeg)
   End If
End If

---

لمن تقول مش شغال،
اكيد تقصد انه لو يحفظ ولم تظهر رسالة خطا

---

كود :

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
       If pbox.Image IsNot Nothing Then
           Dim SaveFileAs As New SaveFileDialog
           SaveFileAs.Title = "Save File As"
           SaveFileAs.Filter = "Image Files (JPEG)|*.jpg;*.jpeg"
           If SaveFileAs.ShowDialog() = DialogResult.OK Then
               pbox.Image.Save(SaveFileAs.FileName, Imaging.ImageFormat.Jpeg)
           End If
       End If

---

لو امكن تيم فيو  
1521318123
الباص i r 4 d 22       بدون مسافات

---

كود :

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 x() As Byte
       x = pbox("image1")
       Dim y As Object = ("image1")
       Dim ms As New MemoryStream()
       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
   End Sub

هذا الكود للتجربة فقط

كود :

Dim cmd As New SqlCommand("Select [image1] From [PC] WHERE [code]=@code", Cnn)
cmd.Parameters.AddWithValue("@code", 10562)
If Cnn.State <> ConnectionState.Open Then Cnn.Open()
Dim obj As Object = cmd.ExecuteScalar
Cnn.Close()

If Not IsDBNull(obj) Then
    Dim stream As New IO.MemoryStream(CType(obj, Byte()))
    Dim img As Image = Image.FromStream(stream)

    Dim SaveFileAs As New SaveFileDialog
    SaveFileAs.Title = "Save File As"
    SaveFileAs.Filter = "Image Files (JPEG)|*.jpg;*.jpeg"
    If SaveFileAs.ShowDialog() = DialogResult.OK Then
        img.Save(SaveFileAs.FileName, Imaging.ImageFormat.Jpeg)
    End If
End If

انتظر الرد