山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

问几个简单问题

楼主szqed（锈材）2002-02-25 22:15:19 在 VB / 基础类提问

如何点击一个按钮就退出程序？
如何在FORM装载完后焦点自动移到其中一个文本框上？
如何不让用户改变窗体的宽度和高度？问题点数：50、回复次数：9Top

1 楼sonicdater（事过境迁，除了技术，我什么都没有了）回复于 2002-02-25 22:24:05 得分 10

1
Priavte cmdQuit_Click()
End '用它
Sub End

2 Text1.SetFocus

Top

2 楼sonicdater（事过境迁，除了技术，我什么都没有了）回复于 2002-02-25 22:27:51 得分 0

3
Form1.BorderStyle = 1

Top

3 楼zyl910（编程的乐趣在于编程控制硬件，与用图形学实现绚丽效果）回复于 2002-02-25 22:30:38 得分 10

3.
Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then Exit Sub
If Me.WindowState = vbMaximized Then Me.WindowState = vbNormal
Me.Width = 4800
Me.Hide = 3600

End Sub
Top

4 楼dsclub（任搏软）回复于 2002-02-25 22:31:43 得分 10

1.Private Sub Command1_Click()
End
End Sub

2.Private Sub Form_Load()
Me.Show
Text1.SetFocus
End Sub

3.borderstyle
设置为1或3
Top

5 楼dsclub（任搏软）回复于 2002-02-25 22:34:28 得分 0

zyl910：
那个Me.Hide = 3600是什么？
应该是Me.Height = 3600吧Top

6 楼hovoy（热月黑天）回复于 2002-02-25 22:40:45 得分 0

private sub cmdquit_click()
end
end sub
-------------------------------
private sub form_load()
text1.setfocus
end sub
-------------------------------
private sub form_load()
form1.borderstyle = 1
end subTop

7 楼szqed（锈材）回复于 2002-02-25 22:49:48 得分 0

我试过上面的几个答案了。
其中resize我觉得还是不满意。能否让窗体不出现那个拉伸鼠标箭头？
虽然大小是不变化了。但是还是可以拉窗口的边缘，出现一个虚线框。
而设置BorderStyle的属性也没有实现到不能改变大小的目的。Top

8 楼thirdapple（.:RNPA:.陨落雕 - 芝兰宝树）回复于 2002-02-25 22:55:06 得分 0

楼上的说的很清楚，很对。补充：
Dim FHeight As Long
Dim FWidth As Long
Private Sub Form_Load()
FHeight = Form1.Height
FWidth = Form1.Width
End Sub
Private Sub Form_Resize()
Form1.Height = FHeight
Form1.Width = FWidth
End Sub
也可以实现，不过不推荐。Top

9 楼zyl910（编程的乐趣在于编程控制硬件，与用图形学实现绚丽效果）回复于 2002-02-25 22:57:13 得分 20

回复人： szqed(锈材) ( ) 信誉：100 2002-2-25 22:49:49 得分:0

我试过上面的几个答案了。
其中resize我觉得还是不满意。能否让窗体不出现那个拉伸鼠标箭头？
虽然大小是不变化了。但是还是可以拉窗口的边缘，出现一个虚线框。
而设置BorderStyle的属性也没有实现到不能改变大小的目的。

可以！
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const WS_THICKFRAME = &H40000

Private Const GWL_STYLE = (-16)

Private Sub Form_Load()
　　Dim TempLng As Long
　　
　　TempLng = GetWindowLong(Me.hwnd, GWL_STYLE)
　　TempLng = TempLng And Not WS_THICKFRAME
　　SetWindowLong Me.hwnd, GWL_STYLE, TempLng
　　
End Sub
Top