Red de conocimiento informático - Material del sitio web - Cómo lograr el efecto "fijado en el escritorio" de un formulario en VB

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