Quiero que lo se muestra en el cuadro rojo se vea de tamaño normal.
me explico?
No se como hacerlo ya que soy nuevo en esto.
PUBLIC SUB definir()
WITH FormEmpleados.Grid_Datos
.header = 3
.Rows.COUNT = 1
.columns.COUNT = 16
.Columns[0].title = "Imagen"
.Columns[1].title = "Nombre"
.Columns[2].title = "Apellidos"
.Columns[3].title = "DNI"
'definir largo y anchos de tablas
.Columns[0].width = 120
.Columns[1].width = 80
.Columns[2].width = 131
.Columns[3].width = 80
.font.name = "Sans"
.font.size = 9
.Background = 16777215
.Foreground = 0
END WITH
END
PUBLIC SUB rellena()
DIM a AS Integer
FormEmpleados.Grid_Datos.Rows.COUNT = var.id.COUNT
FOR a = 0 TO var.id.COUNT - 1
WITH FormEmpleados
.Grid_Datos[a, 0].Picture = Picture[var.foto[a]]
.Grid_Datos[a, 1].text = var.nombre[a]
.Grid_Datos[a, 2].text = var.apellidos[a]
.Grid_Datos[a, 3].text = var.dni[a]
END WITH
NEXT
FormEmpleados.Grid_Datos.Refresh
END
dos hermanas, sevilla
