[العزابي]

أالأكواد مع PictureBox 



كود التكبير ضعه في بوتون 

 

كود :

PictureBox1.Width += 40%

       PictureBox1.Height += 40%

كود التصغير 

كود :

PictureBox1.Width -= 40%
       PictureBox1.Height -= 40%

كود تكبير الصورة في فورم مستقل 
 

كود :

 Pict.PictureBox1.Image = PictureBox1.Image


       Pict.ShowDialog()

كود الحفظ .. وضع بوتون حفظ + واحد تكست بوكس لجلب رابط الصورة


ضع في البوتون الكود التالي 

كود :

 Dim op As New OpenFileDialog

       With op

           .Title = "اختار صورة"

           .Filter = "Jpg(*.jpg)|*.jpg|Bmp(*.bmp)|*.bmp|Png(*.png)|*.png|Gif(*.gif)|*.gif"

           .ShowDialog()

       End With

       If op.FileName = Nothing Then

           Exit Sub

       Else

           FileName = op.FileName

           TextBox1.Text = IO.Path.GetFileName(FileName)

       End If

كود التكست بوكس
 

كود :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

       Try


           If TextBox1.Text.Length > 0 Then


               PictureBox1.Image = Image.FromFile(Application.StartupPath & "\pic\" & TextBox1.Text)


           Else


               PictureBox1.Image = Nothing


           End If


       Catch ex As Exception


       End Try

   End Sub

لاتنسى وضع مجلد بإسم pic داخل مجلدات برنامجك تحديداً داخل Debug


------------------------------------

طيب عرفنا اللحين كيف جلب الصوره ووضعها في مجلد بدلاً من القاعدة تخفيفاً عليها .. الأن كيف نحفظ رابط

الصورة بحكم أنه رابط نصي ونوع الحقل عادي حقل نصي


لديك الخيارت في الحفظ وأتركها لك


لاتنسى قبل الحفظ
 

كود :

 Try
               My.Computer.FileSystem.CopyFile(FileName, Application.StartupPath & "\pic\" & IO.Path.GetFileName(FileName), True) 'حتى اذا كانت الصورة موجودة مسبقا يتم الحفظ فوقها
               PictureBox1.Image = Image.FromFile(Application.StartupPath & "\pic\" & TextBox1.Text)
           Catch ex As Exception
           End Try

تحياتي