Resize 事件里限制大小就可以。
解决方案 »
- 请兄弟们看一下,客户端winsock1.senddate "aa",winsock1.senddate "bb"。服务端收到的是"aabb",如何解决?
- 焦点从textbox移出时,检查textbox的值是否为1,如果不是,将本textbox全部选中,如果是则继续。马上给分!!
- ini文件怎样制作?
- 使用DTPicker控件加载那个东西啊?
- 关于oe 模拟
- 我装了msn,字体不能正常显示,请高手帮忙!
- 如何把一个任意非零正整数逆序输出
- 高手请进!有新的挑战!
- 请问谁有U.are.U 2000 在VB下的系统接口,也就是怎样存储指纹怎样提取指纹!
- 数据类型错误
- 那里有VB的反编译软件下载?
- 我在做一个进销存通用系统,大家看看还有什么问题,主要是流程,多提意见!!
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Const MF_BYPOSITION = &H400&
Dim h As Long
h = GetSystemMenu(Me.hwnd, False)
DeleteMenu h, 2, MF_BYPOSITION
"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
Const GWL_STYLE = (-16)
Const WS_THICKFRAME = &H40000Private Sub MDIForm_Load()
Dim CurStyle As Long
Dim NewStyle As Long
'固定单边框
CurStyle = GetWindowLong(MDIfrmMain.hwnd, GWL_STYLE)
NewStyle = SetWindowLong(MDIfrmMain.hwnd, GWL_STYLE, CurStyle And Not (WS_THICKFRAME))
End Sub