24/05/2005, 11:20
|
| | | Fecha de Ingreso: junio-2002
Mensajes: 212
Antigüedad: 22 años, 7 meses Puntos: 0 | |
| Dim bloque() As PictureBox
Dim rm As String
Do
i = i + 1
ReDim Preserve bloque(i)
bloque(i) = New PictureBox
rm = dbruta & "\fotos\" & MasterRs.Fields.Item("nombrefoto").Value
bloque(i).Image = New Bitmap(rm)
Me.Controls.Add(bloque(i))
MasterRs.movenext
Loop Until i=minumeroderegistros
__________________ Simuladores y Examenes Cisco, Herramientas de Red Online - Tecnologia y Redes |