تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
for loop تكرار الادوات
#1
مرحبا


انا لدي مشروع ويحتوي على picturbox وweb browser


فكيف نكرر ال piturbox على عدد for loop

انا كتبت الكود التالي


     Dim p As PictureBox
        Dim ii As Integer
        For ii = 1 To 5

            p = ii

        Next


ولم تتكرر ادات الصور
الرد
تم الشكر بواسطة: سعود
#2
السلام عليكم اخي الكريم
هذا مثال على اضافة صور عدد 12 في الاداة FlowLayoutPanel1
اما بالنسبة للـ WebBrowser فأنا لم اتعامل مع هذه الاداة ولا اعرف خصائصها
لذلك استميحك عذرا لعل احد اعضاء المنتدى الكرام يفيدك يذلك
دمت بخير


الملفات المرفقة
.rar   AddPicture1.rar (الحجم : 101.05 ك ب / التحميلات : 6)
الرد
#3
اعجبني المثالSmile
واضفت حدث Pic.click
PHP كود :
       AddHandler Pic.ClickAddressOf Pic_Click
Private Sub Pic_Click(ByVal sender As System.ObjectByVal e As System.EventArgs)
        LoadImage(sender)
    End Sub

 Private 
Function IsValidImage(ByVal picpath As String) As Boolean
        
Try
            Dim img As Image Image.FromFile(picpath)
            Return True
        
Catch ex As Exception
            
Return False
        End 
Try
    End Function

    Private Sub LoadImage(ByRef pic As PictureBox)
        If IsNothing(picThen Exit Sub
        Dim o 
As New OpenFileDialog
        
If o.ShowDialog Windows.Forms.DialogResult.OK Then
            
If IsValidImage(o.FileNameThen
                pic
.Image Image.FromFile(o.FileName)
            End If
        End If
    End Sub



and this after edit
Private Function addPictur() As PictureBox
        Dim Pic 
As PictureBox = New PictureBox()
        Pic.BorderStyle BorderStyle.Fixed3D
        Pic
.BackColor Color.Coral
        Pic
.Width 100
        Pic
.Height 100
        Pic
.Margin = New Padding(5)
        Pic.SizeMode PictureBoxSizeMode.StretchImage
        AddHandler Pic
.ClickAddressOf Pic_Click' هذي اضافة الحدث المكتوب
        Return Pic
    End Function 
[صورة مرفقة: ccc.png]
الرد
#4
اخي سعود مبدع ومتألق 
وكعادتك لابد من ان تترك بصماتك الرائعة المفيدة
بارك الله فيك وجزاك خير جزاء
الرد
تم الشكر بواسطة: سعود , سعود , asemshahen5 , ابو روضة , الحازمي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التحكم في الادوات في الكرستال ريبورت المتألق9 2 80 15-07-19, 02:07 PM
آخر رد: ابراهيم ايبو
Question كيفية التخلص من تكرار تخزين البيانات الرائد 12 344 11-07-19, 10:51 PM
آخر رد: Al Wilaya
  التايمر وال for loop dasktop 10 205 11-07-19, 08:07 AM
آخر رد: dasktop
  هل هناك كود ممكن عن طريقه معرفة كل الادوات و المكتبات المرتبطة بملف تنفيذي asemshahen5 5 227 21-06-19, 09:22 PM
آخر رد: asemshahen5
  [VB.NET] استعلام للبحث عن عدد تكرار كلمة في بيانات حقل واحد في سجل واحد tarek 0 156 24-03-19, 09:09 PM
آخر رد: tarek
  طريقة تكرار الامر تلقائيا | حل مشكلة script error في webbrowser عند فتح صفحة ما soloxocf1 6 477 18-03-19, 09:16 AM
آخر رد: 5000
  تكرار الصفوف في sql server والفيجوال بيسك عبدالله اااا 3 220 15-03-19, 07:55 PM
آخر رد: 5000
  [VB.NET] كود تكرار العنصر DK-x 5 295 16-02-19, 07:08 PM
آخر رد: ابراهيم ايبو
  مساعدة في تكرار نص بترقيم نور الهدى الهدى 2 206 17-01-19, 01:15 AM
آخر رد: نور الهدى الهدى
  [VB.NET] عرض الادوات LUTFIA 1 228 24-10-18, 07:39 AM
آخر رد: ابراهيم ايبو

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


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