[سؤال] كيفية عمل صندوق صورة - نسخة قابلة للطباعة

[سؤال] كيفية عمل صندوق صورة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=40078)

كيفية عمل صندوق صورة - alims - 23-11-21

السلام عليكم عندى سؤال و هو كيفية عملت صندوق صورة مع استخدام الاداء لست بوكس و الاداء ImageList
وعند الضغط على الصور يتم اظهر رقمها فى رسائلة نصية
[attachment=27299]

RE: كيفية عمل صندوق صورة - alims - 23-11-21

اول محاولة ليا بس مش عارف اوصل للشكل لى فوق
[attachment=27300]

كود :

 ListView2.View = View.LargeIcon

        ListView2.FullRowSelect = True

        For i As Integer = 0 To 4

            ListView2.Items.Add("", ImageList1.Images.Keys(i))

        Next

RE: كيفية عمل صندوق صورة - alims - 24-11-21

ما هو الحل شباب

RE: كيفية عمل صندوق صورة - alims - 24-11-21

شكرا ليك اخى العزيز على الرد و لكن عندى سؤال تانى و هو قومت بعمل تعديل على كود و لكن لا يعمل
جيث اريد عند الضغط على صورة يتم اضافة ادخل RichTextBox1

كود :

Private Sub pb_Click(ByVal sender As Object, ByVal e As EventArgs)

        'MsgBox(sender.Text)

        Clipboard.SetImage(ImageList1.Images.Item())

        RichTextBox1.Paste()

    End Sub

RE: كيفية عمل صندوق صورة - alims - 24-11-21

شكرا ليك اخى العزيز الكود يعمل بنجاح
هل يمكن التحكم فى جوده الصورة ام لا