Cómo lograr el efecto "fijado en el escritorio" de un formulario en VB
Opción explícita
Función de declaración privada FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName como cadena、ByVal lpWindowName como cadena) siempre y cuando
Función de declaración privada SetParent Lib "user32 " ( ByVal hpWindowName As String) String) Mientras
Función de declaración privada SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) Mientras
Private Sub Form_Load( )
Dim Parent&
Parent = FindWindow(vbNullString, "Program Manager")
SetParent Me.hWnd, Parent
End Sub
Todavía estaba lidiando con este problema hace unos días, jajaja