Quiero usar la programación VB para crear un programa de monitoreo de procesos.
Función de declaración privada FindWindow Lib "usuario 32" alias "FindWindowA" u
(ByVal lpClassName en forma de cadena, ByVal lpWindowName en forma de cadena) tienen la misma longitud
La función de declaración privada es la biblioteca de ventanas "usuario 32" (ByVal hwnd As Long)
Dim lngAns tiene la misma longitud
LngAns = FindWindow(vbNullString, "Form Title" )
lngAns = IsWindow(lngAns)
Si lngAns lt gt entonces 0
MsgBox "¡El formulario ha sido cargado!", vbOKOnly
Fin
Otro
MsgBox "¡Formulario no cargado!", vbOKOnly
Terminará si...
Método VB6 2 Dim frm como objeto
Dim blnFlag es booleano
Para cada frm en el formulario
Si frm. Caption = "Título del formulario" y luego
blnFlag = True
Salir para...
Finalizar si...
Siguiente frm
Si blnFlag entonces
MsgBox "Formulario no cargado"
Otro
MsgBox "Formulario no cargado"
Finalizar si VB. NET (simple y necesita ser modificado, VB6 también se puede ejecutar) la función pública midchi (byval frmname como cadena) es booleana.
Ventanas oscuras. Tablas Tablas
Por cada pensamiento de mi corazón. MdiNiños
Si Chifum. Entonces Nombre = frmName
Si Chifm. Visible entonces
Chifum. activar()
Otro
chifm. Show()
Terminará si...
Devuelve True
Terminará si...
Entonces
Return False
función final privada Submenú 7_Click(ByVal remitente como System. Object, ByVal e como System. EventArgs) maneja MenuItem7. Haga clic en
si midchi("computadora frm") y luego
el conector de salida
terminará si...
Atenúe frmCp como nuevo frmComputadora
frmCp. MdiParent=i
frmCp. Mostrar()
Conector final