Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB para ingresar resultados al control de cuadrícula de datos

Programación VB para ingresar resultados al control de cuadrícula de datos

El control DataGrid no se puede implementar sin la ayuda de una base de datos, pero se puede implementar con el control MSFlexGrid.

Opción explícita

Dim i As Integer

Dim j como entero

Dim sjs(1 a 100) como único

Subcomando privado1_Click()

Para i = 1 Hasta 100

sjs(i) = Rnd * 10 50

Para i = 1 A 20

Para j = 1 A 5

MSFlexGrid1.TextMatrix(i, j) = sjs((i - 1) * 5 j)

Siguiente j

Siguiente i

End Sub

Sub privado Form_Load()

MSFlexGrid1.Cols = 6

MSFlexGrid1.Rows = 21

Aleatorizar

Fin del subtítulo