تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إنشاء مشروع لمدرسة لتحفيظ القرأن الكريم
#1
Rainbow 
لسلام عليكم ورحمة الله تعالى و بركاتة ,
إخواني هدا أول طلب لي بالمنتدى , أنا مقيم بفرنسا ومبتدئ بالبرمجة ,والأن أعكف على إنشاء مشروع لمدرسة لتحفيظ القرأن وواجهتني مشكلة صغيرة تكمن في 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()

الرد }}}}
تم الشكر بواسطة:
#2
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 
الرد }}}}
تم الشكر بواسطة: essabar
#3
(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 وليس البحت عليها
شكرا أخي مالك
الرد }}}}
تم الشكر بواسطة:
#4
اتمنى ان يفيدك هذا الكود

[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
[/b]
قل إني نهيت أن أعبد الذين تدعون من دون الله
لما جاءني البينات من ربي وأمرت أن أسلم لرب العالمين
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم ورحمة الله وبركاته

بما أن مسار الصورة في الــ Textbox الأخير اللي اسمو (TextBox7) ، إضغط عليه بالماوس (دبل كليك) ستفتح نافذة الكود وضع الكود التالي :

PHP كود :
Private Sub TextBox7_TextChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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 
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشروع صغير لبيانات الموظفين ارجو التعديل علية a.baomar 5 169 23-05-17, 04:58 AM
آخر رد: a.baomar
  ممكن طريقة عمل راديو اذاعات القرآن الكريم عن طريق aassa 5 89 20-05-17, 12:49 AM
آخر رد: alma2
  [سؤال] ممكن مسساعدة في تصدير مشروع بقاعدة بيانات MySql & vb.net2013 فراس الغزي 1 59 19-05-17, 12:45 PM
آخر رد: Adrees
  سؤال فى مشروع شئون عاملين salah mansour 12 208 05-05-17, 12:42 AM
آخر رد: salah mansour
Information [سؤال] السلام عليكم أخواني انا اوس من العراق مبرمج مبتدء وانا اقوم الأن بأنشاء اول مشروع لي اوس باسم عبد الحميد 3 115 29-04-17, 02:06 AM
آخر رد: اوس باسم عبد الحميد
  كود لاستطيع نقل مشروع فجول دوت نت مع قاعدة البيانات اكسس الى اى جهاز اخر a.baomar 2 100 11-04-17, 11:27 PM
آخر رد: abdualla
  ممكن مشروع فيه تقنية الرسم مع opengl samira20 0 128 25-03-17, 07:13 PM
آخر رد: samira20
  [VB.NET] اريد منكم افكار لمشروع تخرج (" مراقبة او متابعة مشروع التخرج ") وشكراا" Mohamed_Libya 2 173 11-03-17, 08:21 PM
آخر رد: Mohamed_Libya
  [سؤال] مقبل على مشروع موظفين بشبكة داخليه عزوز هزازي 4 181 05-03-17, 03:34 AM
آخر رد: عزوز هزازي
  [VB.NET] مشكلة عند اجراء عملية الحفظ في مشروع للبنك Asmaa adel 1 146 01-03-17, 11:43 PM
آخر رد: Asmaa adel

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم