Ver Mensaje Individual
  #2 (permalink)  
Antiguo 04/05/2010, 05:22
ireferpesa
 
Fecha de Ingreso: junio-2005
Mensajes: 46
Antigüedad: 18 años, 11 meses
Puntos: 1
Respuesta: crear picturebox por codigo

Ainsss, no hay nada como preguntar para que se ilumine la bombilla y te salga. Lo pongo para quien pueda necesitarlo mas adelante:

Dim Imagenes(70) As PictureBox

Private Sub Cargar_Fotos()
AbrirConexionAccess()
Dim CadenaSQL As String
CadenaSQL = "SELECT * FROM Archivos WHERE IdCliente=" & Me.ComboCliente.SelectedValue.ToString & " and Tipo='" & Me.Secciones.SelectedTab.Text & "'"
Comando.CommandText = CadenaSQL
Adaptador.SelectCommand = Comando
DsBusqueda = New DataSet
Try
Adaptador.Fill(DsBusqueda)

For i = 1 To DsBusqueda.Tables(0).Rows.Count - 1
Imagenes(i) = New PictureBox()
Next

For i = 1 To DsBusqueda.Tables(0).Rows.Count - 1
Me.Controls.Add(Imagenes(i))
Imagenes(i).Top = 42 + (80 * (i - 1))
Imagenes(i).Left = 24 + (80 * (i - 1))
Imagenes(i).Image = Image.FromFile(Environment.CurrentDirectory & "\..\..\..\Archivos\" & DsBusqueda.Tables(0).Rows(i)(2))
Next
Catch ex As OleDbException
MsgBox("Error en acceso a base de datos. Problema en acceso a tabla" & " Mensaje de error:" & ex.Message)
End Try
Conexion.Close()

End Sub


Pero ahora me surge otra duda.
Como hago por codigo para que se coloquen dentro de un contenedor?? es que tengo que visualizarlo dentro de un tabcontrol.
Gracias