تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مطلوب التعديل على نموذج البحث
#21
إقتباس :وأنا لازلت أبحث عن الطريقة التي تهمش الصورة تماما مثلها مثل التكست بوكس
ممكن تعمل دالة لهذا الامر او ممكن تستخدم try  دون معالجة الخطا.
الرد }}}
تم الشكر بواسطة: elgokr , ZaerAllail
#22
PHP كود :
Imports System.IO

Public Class Form1
    Dim str 
As String "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
 
   Dim con As OleDb.OleDbConnection
    Dim da 
As OleDb.OleDbDataAdapter
    Dim cm 
As OleDb.OleDbCommandBuilder
    Dim dt 
As DataTable
    Dim ms 
As MemoryStream Nothing
    Private Sub gd
(Optional ByVal p As Integer Nothing)
 
       For Each h As Control In Me.Controls
            h
.DataBindings.Clear()
 
       Next
        con 
= New OleDb.OleDbConnection(str)
 
       da = New OleDb.OleDbDataAdapter("select * from tb"con)
 
       cm = New OleDb.OleDbCommandBuilder(da)
 
       dt = New DataTable
        da
.Fill(dt)
 
       tname.DataBindings.Add("text"dt"tname")
 
       dob.DataBindings.Add("text"dt"dob"True)
 
       pic.DataBindings.Add("image"dt"pic"True)
 
       If IsNothing(pThen
            BindingContext
(dt).Position 0
        Else
            BindingContext
(dt).Position p
        End 
If
 
   End Sub
    Private Sub Form1_Load
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        gd
()
 
   End Sub

    Private Sub Btn_Add_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Btn_Add.Click
        Dim row 
As DataRow dt.NewRow
        row
(1) = tname.Text
        row
(2) = CDate(dob.Text).ToShortDateString
        If IsNothing
(ms) = False Then
            row
(3) = ms.ToArray
        End 
If
 
       dt.Rows.Add(row)
 
   da.Update(dt)
            ms Nothing

        gd
()

 
       BindingContext(dt).Position dt.Rows.Count 1
    End Sub
    Private Sub Button1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        Try
            Dim i 
As Integer BindingContext(dt).Position
            Dim row 
As DataRow dt.Rows(BindingContext(dt).Position)
 
           row.BeginEdit()
 
           row(1) = tname.Text
            row
(2) = CDate(dob.Text).ToShortDateString
            If IsNothing
(ms) = False Then
                row
(3) = ms.ToArray
            End 
If
 
           row.EndEdit()
 
           da.Update(dt)
            ms Nothing

            gd
(i)
 
       Catch ex As Exception
        End 
Try

 
   End Sub
    Private Sub Button2_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
        dt
.Rows(BindingContext(dt).Position).Delete()
 
       da.Update(dt)
 
       gd()
 
       Me.Refresh()
 
   End Sub
    Private Sub Button3_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button3.Click
        For r 
As Integer 0 To dt.Rows.Count 1
            Dim tn 
As String dt(r)("tname").ToString
            Dim d 
As Date dt(r)("dob")
 
           If tn tname.Text Or CDate(dob.Text).ToShortDateString Then
                BindingContext
(dt).Position r
            End 
If
 
       Next
    End Sub
    Private Sub pic_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles pic.Click
        Dim o 
As New OpenFileDialog
        If o
.ShowDialog Windows.Forms.DialogResult.OK Then
            pic
.Image Image.FromFile(o.FileName)
 
           ms = New MemoryStream
            pic
.Image.Save(mspic.Image.RawFormat)
 
       End If
 
   End Sub
    Private Sub Button4_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button4.Click
        BindingContext
(dt).Position 0
    End Sub
    Private Sub Button5_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button5.Click
        BindingContext
(dt).Position BindingContext(dt).Count 1
    End Sub
    Private Sub Button7_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button7.Click
        BindingContext
(dt).Position -= 1
    End Sub
    Private Sub Button6_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button6.Click
        BindingContext
(dt).Position += 1
    End Sub
    Private Sub Button8_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button8.Click
        gd
()
 
   End Sub
End 
Class 
ما رايك بهذا المثال حيث يتم تعريف ميموري ستريم عمومي ويتم التعامل معه فقط عند اضافة صورة عبر حدث Click الخاص بمربع الصورة نفسها.

المشروع


الملفات المرفقة
.zip   JustMakeIt.zip (الحجم : 41.37 ك ب / التحميلات : 25)
الرد }}}
#23
بعد الحفظ اكتب السطر التالي:
            ms = Nothing
الرد }}}
تم الشكر بواسطة: ZaerAllail
#24
(30-06-18, 03:29 AM)سعود كتب :
PHP كود :
Imports System.IO

Public Class Form1
    Dim str 
As String "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
 
   Dim con As OleDb.OleDbConnection
    Dim da 
As OleDb.OleDbDataAdapter
    Dim cm 
As OleDb.OleDbCommandBuilder
    Dim dt 
As DataTable
    Dim ms 
As MemoryStream Nothing
    Private Sub gd
(Optional ByVal p As Integer Nothing)
 
       For Each h As Control In Me.Controls
            h
.DataBindings.Clear()
 
       Next
        con 
= New OleDb.OleDbConnection(str)
 
       da = New OleDb.OleDbDataAdapter("select * from tb"con)
 
       cm = New OleDb.OleDbCommandBuilder(da)
 
       dt = New DataTable
        da
.Fill(dt)
 
       tname.DataBindings.Add("text"dt"tname")
 
       dob.DataBindings.Add("text"dt"dob"True)
 
       pic.DataBindings.Add("image"dt"pic"True)
 
       If IsNothing(pThen
            BindingContext
(dt).Position 0
        Else
            BindingContext
(dt).Position p
        End 
If
 
   End Sub
    Private Sub Form1_Load
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        gd
()
 
   End Sub

    Private Sub Btn_Add_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Btn_Add.Click
        Dim row 
As DataRow dt.NewRow
        row
(1) = tname.Text
        row
(2) = CDate(dob.Text).ToShortDateString
        If IsNothing
(ms) = False Then
            row
(3) = ms.ToArray
        End 
If
 
       dt.Rows.Add(row)
 
   da.Update(dt)
            ms Nothing

        gd
()

 
       BindingContext(dt).Position dt.Rows.Count 1
    End Sub
    Private Sub Button1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        Try
            Dim i 
As Integer BindingContext(dt).Position
            Dim row 
As DataRow dt.Rows(BindingContext(dt).Position)
 
           row.BeginEdit()
 
           row(1) = tname.Text
            row
(2) = CDate(dob.Text).ToShortDateString
            If IsNothing
(ms) = False Then
                row
(3) = ms.ToArray
            End 
If
 
           row.EndEdit()
 
           da.Update(dt)
            ms Nothing

            gd
(i)
 
       Catch ex As Exception
        End 
Try

 
   End Sub
    Private Sub Button2_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
        dt
.Rows(BindingContext(dt).Position).Delete()
 
       da.Update(dt)
 
       gd()
 
       Me.Refresh()
 
   End Sub
    Private Sub Button3_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button3.Click
        For r 
As Integer 0 To dt.Rows.Count 1
            Dim tn 
As String dt(r)("tname").ToString
            Dim d 
As Date dt(r)("dob")
 
           If tn tname.Text Or CDate(dob.Text).ToShortDateString Then
                BindingContext
(dt).Position r
            End 
If
 
       Next
    End Sub
    Private Sub pic_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles pic.Click
        Dim o 
As New OpenFileDialog
        If o
.ShowDialog Windows.Forms.DialogResult.OK Then
            pic
.Image Image.FromFile(o.FileName)
 
           ms = New MemoryStream
            pic
.Image.Save(mspic.Image.RawFormat)
 
       End If
 
   End Sub
    Private Sub Button4_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button4.Click
        BindingContext
(dt).Position 0
    End Sub
    Private Sub Button5_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button5.Click
        BindingContext
(dt).Position BindingContext(dt).Count 1
    End Sub
    Private Sub Button7_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button7.Click
        BindingContext
(dt).Position -= 1
    End Sub
    Private Sub Button6_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button6.Click
        BindingContext
(dt).Position += 1
    End Sub
    Private Sub Button8_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button8.Click
        gd
()
 
   End Sub
End 
Class 
ما رايك بهذا المثال حيث يتم تعريف ميموري ستريم عمومي ويتم التعامل معه فقط عند اضافة صورة عبر حدث Click الخاص بمربع الصورة نفسها.

المشروع

مثال أكثر من رائع أخ سعود بارك الله فيك 
هذا النموذج يعالج خطأ حفظ الصورة بطريقة جدا ذكية بالإضافة لما فيه من إضافات أخرى جميلة 
زادك الله علم ومعرفة يا غالي ويعطيك الف عافيه 

تحياتي لك
الرد }}}
تم الشكر بواسطة: سعود , elgokr
#25
إقتباس :هذا النموذج يعالج خطأ حفظ الصورة بطريقة جدا ذكية
هل افهم من هذا انك وجدت الحل؟
الرد }}}
تم الشكر بواسطة: ZaerAllail , elgokr
#26
(30-06-18, 03:38 PM)سعود كتب :
إقتباس :هذا النموذج يعالج خطأ حفظ الصورة بطريقة جدا ذكية
هل افهم من هذا انك وجدت الحل؟

بكل تأكيد هو أجمل الحلول بلا شك 
إضافة لأنه يلغي خيار إضافة الصورة ويجعله مرتبط بحدث كليك للصورة نفسها 
فقط تضاف خلفيه للصورة بصورة توضح عبارة أضف صورة أو من هذا القبيل ويصبح أجمل  وهذا حل ذكي !

بارك الله فيك سعود !
الرد }}}
تم الشكر بواسطة: سعود
#27


الملفات المرفقة
.zip   JustMakeIt.zip (الحجم : 77.21 ك ب / التحميلات : 19)
الرد }}}
تم الشكر بواسطة: ZaerAllail , ZaerAllail , elgokr
#28
(30-06-18, 05:47 PM)سعود كتب :

الأمثلة المضافة لهذا الموضوع ستضيف للكثير إضافات متنوعه 
من الحفظ والتعديل وطرق البحث والسابق والتالي والأول والأخير والصور وطرق مختلفة للتعامل مع قاعدة البيانات والتحكم بها وعرضها وغيرها وهذا هو الجميل 

شكرا لك ولكل من زادنا بإضافة في هذا الموضوع أخ سعود بارك الله فيك !
الرد }}}
تم الشكر بواسطة: سعود , elgokr
#29

اهم جزئية هي الضغط 


الملفات المرفقة
.zip   JustMakeIt.zip (الحجم : 80.5 ك ب / التحميلات : 24)
الرد }}}
تم الشكر بواسطة: ZaerAllail , elgokr
#30
(30-06-18, 07:11 PM)سعود كتب :

اهم جزئية هي الضغط 


جدا رائع

طيب ليه ما تخلي الضغط تلقائي يتم بدون كليك ؟

يعني يكون أمر يتم قبل حفظ الصورة بشكل تلقائي لا يشعر به المستخدم !
يعني يكون مثلاً في اخر جملة الحفظ !
الرد }}}
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 90 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  [VB.NET] البحث باستخدام CheckedListBox لتكون نتيجة التحديد شرط لجملة الاستعلام ahmedramzyaish 0 116 19-02-24, 03:44 AM
آخر رد: ahmedramzyaish
  البحث بالهوية annagui 2 315 25-01-24, 01:00 PM
آخر رد: annagui
Photo [كود] مطلوب كود يستخدم الأوامر فقط لتحديث قاعدة بيانات بـ vb.net AhmedEissa 4 638 18-01-24, 11:40 PM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 272 18-01-24, 05:04 PM
آخر رد: loay775
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مطلوب شرح لتقارير DevExpress بلغة vb.net Adel27213 3 322 03-01-24, 12:23 AM
آخر رد: عبد العزيز البسكري
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [كود] البحث Abdellatif 2 208 27-12-23, 03:15 PM
آخر رد: Abdellatif
  [VB.NET] كود التعديل Abdellatif 6 394 21-12-23, 02:01 PM
آخر رد: Abdellatif

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


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