المشكلة اني لا اعرف لهذه الاداة
ListView
الاضافة من Picturebox بسيطة لكن استخدام ListView كعرض الصور اجهلها تماما
سعود كتب :المشكلة اني لا اعرف لهذه الاداة ListView
الاضافة من Picturebox بسيطة لكن استخدام ListView كعرض الصور اجهلها تماما
[COLOR="#008080"]
اخي انا لا اريدها ان تظهر في الليست فيو ولا يهمني ذلك بل اريد عندما اضغط في الليس فيو علي ID يقوم بفتح الصورة المحفوضه ويستخرجها في اداة Picturebox اخرى
[/COLOR]
shado1796 كتب :
اخي انا لا اريدها ان تظهر في الليست فيو ولا يهمني ذلك بل اريد عندما اضغط في الليس فيو علي ID يقوم بفتح الصورة المحفوضه ويستخرجها في اداة Picturebox اخرى
اذا ساضيف فورم آخر باذن الله للاضافة من مربع صورة ...اما العرض فاظن اني احتاجك باكواد بسيطة ثم اكمل الباقي
سعود كتب :اذا ساضيف فورم آخر باذن الله للاضافة من مربع صورة ...اما العرض فاظن اني احتاجك باكواد بسيطة ثم اكمل الباقي
ممتاز ،، وانا مثل ما قلت لك لا اهتم انها تعرض في الليست فيو ،،، اريد اهم شي عن الضغط عليه تفتح الصورة المحفوظه في اداة 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
لكي اعرف الحدث المناسب.
[color="#a52a2a"]السلام عليكم
بارك الله فيك اخي سعود جعله الله في ميزان حسناتك
تم النقل الى مكتبة مشاريع vb.net
بالتوفيق ان شاءالله[/color]
سعود كتب :بانتظار كود الربط باداة 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]
ارفع الكود المصدر عن طريق مركز رفع الملفات حتى لو مااقدر اساعدك كل الاعضاء يقدمون لك المساعدة ....هكذا فقط يمشي الوضع.
[COLOR="#FF0000"][COLOR="#FF0000"]اخي راجع ردي الاخير في الاعلى لو سمحت ،،[/COLOR][/COLOR]