[سعود]

المشكلة اني لا اعرف لهذه الاداة ListView
الاضافة من Picturebox بسيطة لكن استخدام ListView كعرض الصور اجهلها تماما

[shado1796]

سعود كتب :المشكلة اني لا اعرف لهذه الاداة ListView
الاضافة من Picturebox بسيطة لكن استخدام ListView كعرض الصور اجهلها تماما

[COLOR="#008080"]

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

[/COLOR]

[سعود]

shado1796 كتب :

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

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

[shado1796]

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

ممتاز ،، وانا مثل ما قلت لك لا اهتم انها تعرض في الليست فيو ،،، اريد اهم شي عن الضغط عليه تفتح الصورة المحفوظه في اداة Picturebox اخرى ,, يعطيك الف عافية

[سعود]

لكن اخي الكريم هل لديك الكود الذي يربط الاداة بالجدول؟؟
لاني انهيت المثال وهو كالتالي:
اضف مربع صورة باسمها الافتراضي Picturebox1
ثم زر امر واكتب بحدث النقر click الكود التالي:

كود :

Dim pic As New PictureBox        pic.Image = PictureBox1.Image
        Dim picStream As New MemoryStream


        pic.Image.Save(picStream, ImageFormat.Gif)


        Dim PicByte As Byte() = picStream.ToArray


        Dim cm As New SqlCommand("insert into pic (picname,picbyte) values (@picname,@picbyte)", con)
        cm.Parameters.AddWithValue("@picname", SqlDbType.NVarChar).Value = InputBox("اكتب اسم للصورة بحروف")
        cm.Parameters.AddWithValue("@picbyte", SqlDbType.VarBinary).Value = PicByte


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        MsgBox("تم حفظ الصورة")

لا تنسى فضاءات الاسماء:

كود :

Imports System.IOImports System.Drawing.Imaging
Imports System.Data.SqlClient

بانتظار كود الربط باداة Listview
لكي اعرف الحدث المناسب.

[Sajad]

[color="#a52a2a"]السلام عليكم

بارك الله فيك اخي سعود جعله الله في ميزان حسناتك

تم النقل الى مكتبة مشاريع vb.net

بالتوفيق ان شاءالله[/color]

[shado1796]

سعود كتب :بانتظار كود الربط باداة Listview
لكي اعرف الحدث المناسب.

[COLOR="#FF0000"]

بارك الله فيك اخي ،،، جاري التجربة
هل تقصد انك تقوم بالاضافة الى ListView ؟؟
اذا كان قصدك كذا ،،، فتترى الطريقة ليست عبارة عن اضافة في الليست فيو بل هي امر اضهار بيانات قاعدة البيانات من الليست فيو يعني مثل كذا ...

تكتب في اوامر لود الفورم هذا

كود :

ListView1.View = View.Details
        ListView1.FullRowSelect = True
        ListView1.GridLines = True
        ListView1.RightToLeft = RightToLeft.Yes
        ListView1.RightToLeftLayout = True
        ListView1.ContextMenuStrip = ContextMenuStrip1
        ListView1.HideSelection = False
        ListView1.Columns.Add("ID", 60)
        ListView1.Columns.Add("الاسم", 100)
        ListView1.Columns.Add("الرقم", 100)


Me.RefreshListView

والآن هذا امر جلب المعلومات من قاعدة البيانات الى الليست فيو ،،،

كود :

Sub RefreshListView()
        'Fill the Grid
        ListView1.Items.Clear()
        Dim ds As New DataSet("Table1")
        Dim dt As New DataTable()
        Dim sqladp As New SqlDataAdapter("SELECT * FROM Table1", Conn)
        sqladp.Fill(ds, "Table1")
        dt = ds.Tables("Table1")
        Dim pos As Integer
        For pos = 0 To dt.Rows.Count - 1
            Dim item As New ListViewItem()
            item.Text = dt.Rows(pos)("ID").ToString()
            item.SubItems.Add(dt.Rows(pos)("UserName").ToString())
            item.SubItems.Add(dt.Rows(pos)("MobileNumber")).ToString()

            ListView1.Items.Add(item)
        Next pos
        Conn.Close()
End Sub

لا تنسى تعديل البيانات ...
وياليت تقولي اش نوع الحقل الي وضعته للصورة ؟

[/COLOR]

[مبرمج بلا حدود]

[COLOR="#008000"]بارك الله فيك استاذوجزاك الله خير وجعله الله في موازين حسناتك ان شاء الله
اللهم امين

استاذ سعود جأتك بطلب صغير راجيامن الله ان لا تردني بارك الله فيك
لدي برنامج كامل ولكن مدا يتنفذ عندي يمكن والله اعلم فيه مكتبة نقص ممكن اذا سمح وقتك تشاهده وتبلغني بالسبب بارك الله فيك
ورعاك الله وجعله الله في موازين حسناتك ان شاء الله
علما بأنني لا استطيع ان ارسل لك شئ ممكن انت تتفضل وترسلي رسالة حتى اقدر ارفقلك البرنامج وفقك الله[/COLOR]

[سعود]

ارفع الكود المصدر عن طريق مركز رفع الملفات حتى لو مااقدر اساعدك كل الاعضاء يقدمون لك المساعدة ....هكذا فقط يمشي الوضع.

[shado1796]

[COLOR="#FF0000"][COLOR="#FF0000"]اخي راجع ردي الاخير في الاعلى لو سمحت ،،[/COLOR][/COLOR]