怎样控制窗口的状态？？

Question

窗口在运行时 它的borderstyle为只读的 
不过你可以造假 浪费点 再来个form  （思想比较容易）或者form的borderstyle本来为0 不过也造了点假 用几个api 让它看起来象borderstyle=2

Answer 1

我试过了，发现如果窗体没有菜单是可以实现的，但是一有菜单就不行了，虽然我把菜单的属性改为不可见后还是不行。而且controlbox属性在运行是不可改变的。

Answer 2

你可是这样试一下：
Private Sub Command1_Click()
'Me.WindowState = 2
Me.BorderStyle = 0
Me.Caption = ""
'Me.ControlBox = False
'Me.MinButton = False
'Me.MaxButton = False
'Form1.BorderStyle = 0
Me.Top = Screen.TwipsPerPixelX
Me.Left = 0
Me.Width = Screen.Width
Me.Height = Screen.Height
End Sub刚才看了一下，好像可以满足你的要求。

Answer 3

你试试将control=false然后用一个label代替title可以吗？呵呵

Answer 4

to bbbbbadboy:
很高兴你这么热心，不过我试过了，就像我刚才说的，没有菜单还可以，一有菜单就不行了。

Answer 5

使用api函数SetWindowLong
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Const GWL_STYLE = (-16)Private Const WS_BORDER = &H800000
Private Const WS_MINIMIZEBOX = &H20000
Private Sub Command1_Click()
Dim iHwnd As Long
iHwnd = GetWindowLong(Me.hwnd, GWL_STYLE)
iHwnd = iHwnd And (Not WS_BORDER)
iHwnd = SetWindowLong(Me.hwnd, GWL_STYLE, iHwnd)
End Sub

Answer 6

如果把Form的高度减掉标题栏的高度呢？好比这样：
Private Sub Command1_Click()
Me.Top = Screen.TwipsPerPixelX - 410
Me.Left = 0
Me.Width = Screen.Width
Me.Height = Screen.Height
End Sub

Answer 7

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Const GWL_STYLE = (-16)Private Const WS_BORDER = &H800000
Private Const WS_MINIMIZEBOX = &H20000
Private Sub Command1_Click()
Dim iHwnd As Long
iHwnd = GetWindowLong(Me.hwnd, GWL_STYLE)
iHwnd = iHwnd And (Not WS_BORDER)
iHwnd = SetWindowLong(Me.hwnd, GWL_STYLE, iHwnd)
Me.WindowState = 2
End SubPrivate Sub Command2_Click()
Unload Me
End Sub

Answer 8

在窗体上放两个按钮command1,command2 
然后将代码贴进去。你试一下，有没有菜单都一样的

Answer 9

请用Splash屏幕 有菜单也可以

Answer 10

2：sssoft(恒谦)不过系统任务栏怎么让它不显示呢？

Answer 11

to sssoft:
很感谢你，问题解决了，同时也感谢各位的参与。每人都有分。

Answer 12

2:sssoft(恒谦)
呵呵……人家Acdsee可没有设置任务栏自动隐藏：）

Answer 13

那就设置setWindowPos 将窗口定义成顶级窗口。我没用过acad不知道我的理解对不对

Answer 14

不管用的，刚才试了一下不管用，这样估计还要用API才行。

Answer 15

要在有菜单时候没有ｔｉｔｌｅ的话(Me.ControlBox = False)，要使me.caption=""才可以的。