24小时热门版块排行榜

返回列表

幸福街21号

铜虫 (小有名气)

应助: 0 (幼儿园)
金币: 73.6
散金: 21
红花: 2
帖子: 76
在线: 39.8小时
虫号: 2816470
注册: 2013-11-21
专业: 工程热物理相关交叉领域

[求助] 各位大神，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也可以拖动改变大小，，小弟不胜感激。

回复此楼