VB 如何最大化 但是也要屏蔽最小化和最大化和关闭按钮 如何实现
VB 如何最大化 但是也要屏蔽最小化和最大化和关闭按钮 如何实现各位高手 指教
就像电脑屏幕保护程序一样! 把窗体的大小设置的和桌面一样大 把窗体设置成为无边框窗体,然后设置为屏幕大小。 或者手动设置:
BorderStyle=3
Windowstate=2
+1
然后再设置个总在最前,挡住任务栏就完美了,吼吼 可以使用API函数呀。 先设置窗体的BorderStyle=0
Private Sub Form_Load()
Me.WindowState = 2
End Sub Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_CXSCREEN = 0 'X Size of screen
Private Const SM_CYSCREEN = 1 'Y Size of Screen
Private Sub Form_Load()
Dim strX As String, strY As String
strX = Trim(str$(GetSystemMetrics(SM_CXSCREEN)))
strY = Trim(str$(GetSystemMetrics(SM_CYSCREEN)))
Me.BorderStyle = 0
Me.Move 0, 0, strX * 15, strY * 15
End Sub
补充:VB , 基础类