Foro de elhacker.net

Nombre=PicBox
Dimensiones=300,300
BackColor=255,255,255

dim picture_name as string
dim picture_dimensions as point
dim picture_color as color 
 
Private sub leer_ini()
    (   
    Aquí un procedimiento para leerl os valores del ini:
        picture_name = valor1 del ini
        picture_dimensions = new point(valor2 del ini.SPLIT(","))
        picture_color = color.fromargb(valor3 del ini.SPLIT(","))
    )
end sub
 
form_load()
    leer_ini()
    dim MyPictureBox as new picturebox
    MyPictureBox.name = picture_name 
    MyPictureBox.size= picture_dimensions 
    MyPictureBox.color= picture_color 
    me.controls.add(MyPictureBox )
end sub

For i as int32 = 1 to (valor)
   generar checkboxes
loop

    Dim chk_() As CheckBox
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim Array_Size As Integer = 300 'change this for the number of controls that will appear
        ReDim chk_(Array_Size)
 
        For chk_num = 0 To Array_Size
            Application.DoEvents()
            chk_(chk_num) = New CheckBox
            chk_(chk_num).Text = "Checkbox " + chk_num.ToString
            chk_(chk_num).Top = 20 * chk_num
            Me.Controls.Add(chk_(chk_num))
        Next
 
    End Sub

panel1.controls.add(MyNewPanel)

    Dim chk_() As PictureBox
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim Array_Size As Integer = 100 'change this for the number of controls that will appear
        ReDim chk_(Array_Size)
 
        For chk_num = 0 To Array_Size
            Application.DoEvents()
            chk_(chk_num) = New PictureBox
            chk_(chk_num).Text = "Checkbox " + chk_num.ToString
            chk_(chk_num).Top = 20 * chk_num
            Me.Controls.Add(chk_(chk_num))
        Next
 
    End Sub

#Region " Find String Ocurrences Function "
 
    ' [ Find String Ocurrences Function ]
    '
    ' Examples :
    '
    ' MsgBox(Find_String_Occurrences("Hello World", "o"))            ' Result: 2
    ' MsgBox(Find_String_Occurrences("Hello me Hello you", "Hello")) ' Result: 2
 
    Private Function Find_String_Occurrences(ByVal Input_String As String, ByVal Search_String As String) As Integer
 
        Dim Input_String_Pos As Int32
        Dim Input_String_Count As Int32
 
        Do
            Input_String_Pos = Input_String.IndexOf(Search_String, Input_String_Pos)
            If Input_String_Pos <> -1 Then
                Input_String_Count += 1
                Input_String_Pos += Search_String.Length
            End If
        Loop Until Input_String_Pos = -1
 
        Return Input_String_Count
 
    End Function
 
#End Region

            Dim Array_Size As Integer = cuenta 'change this for the number of controls that will appear
            ReDim pcb_(Array_Size)
 
            For pcb_num = 0 To Array_Size
                Application.DoEvents()
                pcb_(pcb_num) = New PictureBox
                pcb_(pcb_num).BackColor = Color.FromArgb(255, pcb_num * 3, pcb_num * 2, pcb_num)
                pcb_(pcb_num).Height = 77
                pcb_(pcb_num).Width = widaco
                pcb_(pcb_num).Left = 36
                pcb_(pcb_num).Top = 85 * pcb_num + 15
                pcb_(pcb_num).BackgroundImage = Image.FromFile(".\Art\im\" & pcb_num + 1 & ".png")
                pcb_(pcb_num).Image = Image.FromFile(INI_Manager.Load_Value(".\Test.ini", "FuncImg-" & pcb_num))
                pcb_(pcb_num).Tag = pcb_num
                Dim deel As Integer = Math.Abs(Int(Panel1.AutoScrollPosition.Y.ToString)) / altur
                pcb_(deel + 2).Width = 200 'Aquí es donde tengo el conflicto, las pics no se cargan
                Me.Controls.Add(pcb_(pcb_num))
                pcb_(pcb_num).Parent = Panel1
                AddHandler pcb_(pcb_num).Click, AddressOf pcb_Click
            Next

Dim deel As Integer = Math.Abs(Int(Panel1.AutoScrollPosition.Y.ToString)) / altur

pcb_(3).Width = 200

Dim deel As Integer = Math.Abs(Int(Panel1.AutoScrollPosition.Y.ToString)) / altur + 2

pcb_(deel).Width = 200