Red de conocimiento informático - Problemas con los teléfonos móviles - Consulta el código fuente de VB para conocer el significado de cada variable

Consulta el código fuente de VB para conocer el significado de cada variable

Dim rtmenu 'Declara una variable, pero no especifica su tipo

Private Sub cmdadd_Click() 'Evento de clic del mouse, muchos controles tienen este evento

rtmenu = rtmenu + 1 'Cámbialo Se trata como tipo entero y se incrementa en 1 (el valor predeterminado es un número entero)

Si rtmenu = 1 Entonces mnuoption(0).Caption = "Opción de tiempo de ejecución" 'Determina si rtmenu es igual a 1, si es igual a 1, luego mnuoption( 0) Cambie la propiedad Caption del control a "Opción de tiempo de ejecución"

Cargue mnuoption( rtmenu) 'mnuoption es una matriz de control, su subíndice comienza desde 0. Esta línea de código cargará un nuevo mnuoption en el formulario (1), entonces el formulario tendrá dos controles de mnuoption (mnuoption(0) y mnuoption(1))

mnuoption(rtmenu).Caption = "option #" &rtmenu 'Entonces asígnele un valor para "Opción #"

End Sub

Private Sub cmdremove_Click() 'Esto es lo mismo que la operación anterior

Si rtmenu = 0 Luego 'Determinar ifrtmenu es igual a 0

MsgBox "el menú está vacío" 'Cuadro de diálogo emergente

Salir Sub 'Finalizar proceso

Finalizar si

Descargar mnuoption(rtmenu) 'Lo anterior se está cargando, aquí se está descargando

rtmenu = rtmenu - 1 'Disminuir en 1

End Sub

Sub privado Form_MouseUp (botón como entero, cambio como entero, p>

上篇: Pasos para conectar el cable de red works2 al plc de la serie Q. ! ! ! 下篇: ¿Dónde está el enlace de transacción de Steam?

Artículos populares