我想实现窗体控件随窗体大小改变,并且在窗体缩小到一定程度,不允许继续缩小,例如
Private Sub Form_Resize()
If Me.Width < 3500 Then
Me.Width = 3500
End IfIf Me.Height < 3500 Then
Me.Height = 3500
End If
End Sub可是这样一来,窗体不停闪烁,如何实现缩小到一定程度,不允许继续缩小,且不闪烁?
Private Sub Form_Resize()
If Me.Width < 3500 Then
Me.Width = 3500
End IfIf Me.Height < 3500 Then
Me.Height = 3500
End If
End Sub可是这样一来,窗体不停闪烁,如何实现缩小到一定程度,不允许继续缩小,且不闪烁?
解决方案 »
- 关于EXCEL导入ACCESS的问题
- 如何在程序中动态生成控件名?
- 怎么实现让窗口全屏显示(隐藏标题栏、工具栏、菜单、状态栏),右键单击弹出菜单 ???
- 如何让控件自动的充满其父控件?
- ADO+VB+SQL是不是需要在每一台安装本程序的机器上面设置dsn?
- 报表与数据库的相对连接
- treeview怎样清除所有的子节点?在线给分!!!!!!!!!!
- 关于图象的小问题
- 如何把本地的Recordset表保存到后台,并且不通过循环?
- 數據庫中一個字段存有文件的擴展名,請問如何從文件的擴展名獲得該類型文件的windows默認圖標
- 如何向 EXCEL 的已经打开的一个工作簿的工作表中多次写入数据,而不用多次启动 EXCEL ?
- 大家说,我还继续搞VB吗?
处理WM_GETMINMAXINFO消息
http://sunh.hosp.ncku.edu.tw/~cww/html/q00154.html
代码运行vb直接就关了..哪里有问题啊.
有没有测试过的原码啊,我API才学不久,好弱..
Dim lwd As Long, hwd As Long
If Msg = WM_GETMINMAXINFO Then
Dim maxmin As MINMAXINFO
CopyMemory maxmin, ByVal lParam, Len(maxmin)
maxmin.ptMaxTrackSize.x = 500 '設定最大Resize的寬度
maxmin.ptMaxTrackSize.y = 400 '設定最大Resize的高度
maxmin.ptMinTrackSize.x = 300 '設定最大小Resize的寬度
maxmin.ptMinTrackSize.y = 300 '設定最大小Resize的高度
CopyMemory ByVal lParam, maxmin, Len(maxmin)
wndproc = DefWindowProc(hwnd, Msg, wParam, lParam)'原来这里的umsg没定义,所以程序崩溃
Else
'將之送往原來的Window Procedure
wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
End If
End Function