+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : إنشاء مشروع لمدرسة لتحفيظ القرأن الكريم (/showthread.php?tid=1398)
إنشاء مشروع لمدرسة لتحفيظ القرأن الكريم - essabar - 30-12-13
لسلام عليكم ورحمة الله تعالى و بركاتة ,
إخواني هدا أول طلب لي بالمنتدى , أنا مقيم بفرنسا ومبتدئ بالبرمجة ,والأن أعكف على إنشاء مشروع لمدرسة لتحفيظ القرأن وواجهتني مشكلة صغيرة تكمن في table التلميد وبالخصوص في صورة التلميد ’, بحيت أنجح في رفع صورة التلميد وأعمل لها save لكن عندما أريد عرضها في picbox يظهر الرابط في textbox ولا تضهر الصورة في picbox
[صورة مرفقة: ?GctNTA] وللمزيد من المعلومات المرجو الإستفسار دون تردد شكرا
الكو الدي استعملته .
كود ارفع الصورة
Private Sub btnLoadPic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoadPic.Click
Dim OFD As New OpenFileDialog
With OFD
.Filter = "AllFiles|*.*|BitMap|*.bmp|JPG|*.jpg"
.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyPictures
.Title = "جلب صورة الموظف"
.ShowDialog()
End With
TextBox6.Text = OFD.FileName
PicBox1.Image = Image.FromFile(OFD.
كود اعرض الصورة وكدا المعلزمات الأخرى
conn.Open()
Dim dataadapter1 As New OleDbDataAdapter(sql, conn)
dataadapter1.Fill(dataset1, "enfant")
TextBox1.DataBindings.Add("text", dataset1, "enfant.num")
TextBox2.DataBindings.Add("text", dataset1, "enfant.nom")
TextBox3.DataBindings.Add("text", dataset1, "enfant.prenom")
TextBox4.DataBindings.Add("text", dataset1, "enfant.datedenaissance")
' Me.dtp.Text = Today.ToString
TextBox5.DataBindings.Add("text", dataset1, "enfant.classep")
TextBox6.DataBindings.Add("text", dataset1, "enfant.classeamcf")
TextBox7.DataBindings.Add("text", dataset1, "enfant.photo")
conn.Close()
RE: طلب عاجل الله يرضى عنكم - مالكـ - 31-12-13
PHP كود :
Dim ofd As New OpenFileDialog
ofd.Filter = "Images files|*.jpg;*.gif;*.png;*.bmp|All files|*.*"
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.PictureBox1.Image = Image.FromFile(ofd.FileName)
Me.TextBox1.Text = ofd.FileName
End If
RE: طلب عاجل الله يرضى عنكم - essabar - 31-12-13
(31-12-13, 12:51 AM)مالكـ كتب :السلام عليكم أخي العزيزPHP كود :
Dim ofd As New OpenFileDialog
ofd.Filter = "Images files|*.jpg;*.gif;*.png;*.bmp|All files|*.*"
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.PictureBox1.Image = Image.FromFile(ofd.FileName)
Me.TextBox1.Text = ofd.FileName
End If
شكرا لك على الرد السريع
لكن أخي المشكلة دائما قائمة بحيت أريد ان أعرض الصورة داخلpicturebox وهده الصورة موجودة أصلا في قاعدة البيانات على هدا الشكل ..C:\Users\amina\Pictures\DIVERS\2013-03-31 17.07.20.jpg وليس البحت عليها
شكرا أخي مالك
RE: طلب عاجل الله يرضى عنكم - علاء الدين - 15-07-14
اتمنى ان يفيدك هذا الكود
[b]
Private Sub PictureBox1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.DoubleClick
If PictureBox1.Image Is Nothing Then Exit Sub
Dim filePath = Application.StartupPath + "\a.jpg"
If File.Exists(filePath) Then File.Delete(filePath)
PictureBox1.Image.Save(filePath)
Process.Start(filePath)
End Sub
RE: طلب عاجل الله يرضى عنكم - kslawy - 16-07-14
السلام عليكم ورحمة الله وبركاته
بما أن مسار الصورة في الــ Textbox الأخير اللي اسمو (TextBox7) ، إضغط عليه بالماوس (دبل كليك) ستفتح نافذة الكود وضع الكود التالي :
PHP كود :
Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
If TextBox7.Text <> "" Then
' التحقق من وجود مسار الملف بالجهاز
If IO.File.Exists(TextBox7.Text) = True Then
' حفظ امتداد الملف في متغير نصي للمقارنة
Dim Ext As String = IO.Path.GetExtension(TextBox7.Text)
' التحقق من أن مسار الملف المعروض ملف صور وليس ملفا آخر
If Ext = ".jpg" OrElse Ext = ".gif" OrElse Ext = ".png" Then
' عرض الصورة
PictureBox1.Image = Image.FromFile(TextBox7.Text)
Else
' تفريغ أداة الصور
PictureBox1.Image = Nothing
End If
End If
End If
End Sub