منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
for loop تكرار الادوات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : for loop تكرار الادوات (/showthread.php?tid=30268)



for loop تكرار الادوات - dasktop - 13-07-19

مرحبا


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


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

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


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

            p = ii

        Next


ولم تتكرر ادات الصور


RE: for loop تكرار الادوات - ابراهيم ايبو - 13-07-19

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



RE: for loop تكرار الادوات - سعود - 13-07-19

اعجبني المثال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 



RE: for loop تكرار الادوات - ابراهيم ايبو - 13-07-19

اخي سعود مبدع ومتألق 
وكعادتك لابد من ان تترك بصماتك الرائعة المفيدة
بارك الله فيك وجزاك خير جزاء