¿VB todavía tiene espacio para mostrar el siguiente método?
/s/blog _ 537 e 4025010007 z 2. Consejos para usar msflexgrid en html (cuadros desplegables de enlace)
Reimpreso▼
Categoría:? Verbo
La técnica original de utilizar el control MSFlexGrid se demuestra controlando las reglas de codificación de archivos de clasificación básica en ERP. Sólo necesita agregar un control MSFlexGrid y Combo en el control. El código fuente es el siguiente:
Opción explícita
Subcombinación privada 1_Click()
msflexgrid 1 . > Conector final
Sub combo privado 1 _ KeyPress (KeyAscii es un número entero)
Si KeyAscii = vbKeyEscape, entonces
Combo1. visible = falso
MSFlexGrid1. SetFocus
Conector de salida
Termina si...
Si KeyAscii = vbKeyReturn, entonces
msflexgrid 1 text = combo 1. texto
Combo1. visible = falso
MSFlexGrid1. SetFocus
Termina si...
Conector final
Subcombinación privada1_LostFocus()
Combo1. visible = falso
MSFlexGrid1. SetFocus
Conector de salida
Conector final
Subform_Load() privado
Marcar I como un número entero
Ancho , texto, oscurecimiento de archivos
Ancho = matriz(" 400 ", " 2100 ", " 800 ", " 800 ", " 800 ", " 800 ", " 800 ", " 800 ", " 800 ", " 800 ", " 800 ", " 800 ")
Texto = Array("Número de serie", "Nombre de archivo", "Nivel 1", "Nivel 2", "Nivel 3", "Nivel 4", "Nivel 5", "Nivel 6", "Nivel 7", "Nivel 8", "Nivel 9").
Archivo = array("vacío", "cuenta", "clasificación de proyectos", "clasificación de activos fijos", "clasificación de departamentos", "clasificación de empleados", "clasificación de proveedores", "clasificación de clientes", “Clasificación de Proveedores”, “Clasificación Regional”, “Clasificación de Receptores”, “Clasificación de Inventario”, “Reserva 65438”, “Reserva 15”, “Reserva 16”, “Reserva 17”, “Reserva 18”, “Reserva 19”. ", "Reserva 20").
Usando MSFlexGrid1
. Número de filas = 21
. Cols = 11
. FixedCols = 2
Terminó con... i
Siguiente i
Para i = 0 a 10
Ancho de columna MSFlexGrid1 (i) = ancho(I)
MSFlexGrid1.
TextMatrix(0,i) = text(i)
Siguiente I
Para i = 1 a 20
Utilice MSFlexGrid1
. TextMatrix(i, 0) = i
. TextMatrix(i,1) = Archivo(I)
. Alto de fila (i) = 300
Terminar con...
Siguiente i
Conector final
privado Sub msflexgrid 1 _ Clic ( )
Dim c es un número entero, r es un número entero
Utilice MSFlexGrid1
c =. Yamaguchi
r =. Clasificación
Si c gt1 y r gt entonces 0
Combo1. Izquierda=. Izquierda . Secreción vaginal 50
Combo1. Arriba =. Arriba. RowPos(r) 50
Combo1.ancho =. Ancho de columna (Celsius)
Combo1.text =. Texto
Combo1. Visible = Verdadero
Combo1. SetFocus
Terminará si...
Terminará con...
Conector final
privado Sub msflexgrid 1 _ KeyPress (KeyAscii es un número entero)
Si KeyAscii = vbKeyReturn, entonces
Llamar a MSFlexGrid1_Click
Finalizar si...
Finalizar conector