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
1.Private Sub Command1_Click() End End Sub2.Private Sub Form_Load() Me.Show Text1.SetFocus End Sub3.borderstyle 设置为1或3
zyl910: 那个Me.Hide = 3600是什么? 应该是Me.Height = 3600吧
private sub cmdquit_click() end end sub ------------------------------- private sub form_load() text1.setfocus end sub ------------------------------- private sub form_load() form1.borderstyle = 1 end sub
楼上的说的很清楚,很对。补充: 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 也可以实现,不过不推荐。
回复人: 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 LongPrivate Const WS_THICKFRAME = &H40000Private 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
Form1.BorderStyle = 1
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
End
End Sub2.Private Sub Form_Load()
Me.Show
Text1.SetFocus
End Sub3.borderstyle
设置为1或3
那个Me.Hide = 3600是什么?
应该是Me.Height = 3600吧
end
end sub
-------------------------------
private sub form_load()
text1.setfocus
end sub
-------------------------------
private sub form_load()
form1.borderstyle = 1
end sub
其中resize我觉得还是不满意。能否让窗体不出现那个拉伸鼠标箭头?
虽然大小是不变化了。但是还是可以拉窗口的边缘,出现一个虚线框。
而设置BorderStyle的属性也没有实现到不能改变大小的目的。
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
也可以实现,不过不推荐。
我试过上面的几个答案了。
其中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 LongPrivate Const WS_THICKFRAME = &H40000Private 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