当前位置:编程学习 > VB >>

VB 如何最大化 但是也要屏蔽最小化和最大化和关闭按钮 如何实现

 VB 如何最大化   但是也要屏蔽最小化和最大化和关闭按钮 如何实现
各位高手 指教   
就像电脑屏幕保护程序一样!    把窗体的大小设置的和桌面一样大 把窗体设置成为无边框窗体,然后设置为屏幕大小。 或者手动设置:
BorderStyle=3
Windowstate=2
引用 2 楼 veron_04 的回复:
把窗体设置成为无边框窗体,然后设置为屏幕大小。

+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 ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,