No me salta ninguna excepción, simplemente el panel se queda vacío.
Esa línea es la errónea puesto que si la quito, vuelve todo a estar como estaba.
Esa línea es la errónea puesto que si la quito, vuelve todo a estar como estaba.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarpcb_(deel + 2).Width = 200 'Aquí es donde tengo el conflicto, las pics no se cargan
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
WebBrowser1.Document.GetElementByClassName("soundTitle__username").GetAttribute("innerHTML")
WebBrowser1.Document.GetElementByClassName("soundTitle__title").GetAttribute("innerHTML")