04/05/2010, 05:22
|
| | Fecha de Ingreso: junio-2005
Mensajes: 46
Antigüedad: 19 años, 5 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 |