| 查看: 478 | 回复: 0 | ||
[求助]
各位大神，vb如何通过拖动实现控件大小的改变？？
|
|
在网上搜了一下，只看到一个针对picture控件的程序： Private Const GWL_STYLE = (-16) Private Const WS_THICKFRAME = &H40000 Private Const SWP_NOSIZE = &H1 Private Const SWP_NOZORDER = &H4 Private Const SWP_NOMOVE = &H2 Private Const SWP_DRAWFRAME = &H20 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 Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Sub ControlSize(ControlName As Control, SetTrue As Boolean) Dim dwStyle As Long dwStyle = GetWindowLong(ControlName.hwnd, GWL_STYLE) If SetTrue Then dwStyle = dwStyle Or WS_THICKFRAME Else dwStyle = dwStyle - WS_THICKFRAME End If dwStyle = SetWindowLong(ControlName.hwnd, GWL_STYLE, dwStyle) SetWindowPos ControlName.hwnd, ControlName.Parent.hwnd, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME End Sub Private Sub Form_Load() ControlSize picture1, True End Sub 这个程序能够实现在运行时，拖动picture改变它的大小，但是将语言中的picture1换成frame1或者text1后，运行程序时就会提示“实时错误提示13”，“类型不匹配”，求大神 们帮忙解决一下，如何让frame和text也可以拖动改变大小，，小弟不胜感激。 |
回复此楼» 猜你喜欢
中科院海洋所招收海洋材料相关领域博士研究生及研究助理
已经有4人回复
-
40+中年人失业后，还能找到好工作吗？
已经有3人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
申请科研项目纯靠实力能成功吗？
已经有7人回复
-
极限拉扯，如何抉择
已经有14人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
找到一些相关的精华帖子，希望有用哦~
关于vb的内存不能read问题
已经有6人回复
- 请问各位大神VB6和VB2010差别大吗？VB6在WIN7上可以用吗?谢谢
已经有4人回复
点击这里搜索更多相关资源科研从小木虫开始，人人为我，我为人人
10