我现在想做一个自定义功能的系统,在加载的时候,当鼠标放在左右边上的时候,显示拉动的图标,然后可以左右拉动大小,当鼠标放在这个控件中间的时候,这个控件可以拖动,如何才能实现?
解决方案 »
- 再次发贴 希望有用过VPN连接SQL SERVER 的前辈指导一下
- 给客户做了一个管理系统,请教一下,我们公司这种设计算是规范吗?[与客户在这点上有点争议]
- 一个难处理的问题,在源代码中跟踪调试时,没有错误,但是在生成的exe中运行,就出现错误,所以难以找到原因,错误是:应用程序发生异常u
- 用VB写ASP组件,怎么才能使用session和Application?
- ACCESS与ado对象访问数据库间的转化
- *********** 为何无人问津 *************
- 用vb怎么进直线插补
- 关于VB中的浮点数及整数。50分!
- 如何实现跟浏览器功能相同的“另存为”功能?
- 在vb6.0中,如何用代码设置"windows系统的当前默认打印机"的打印机纸张尺寸
- VB中如何调用VC写的DLL?附上DLL的源...
- vb 判断某个EXE程序是否和服务器响应
Private Const WS_THICKFRAME = &H40000
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOZORDER = &H4
Private Const SWP_NOMOVE = &H2
Private Const SWP_DRAWFRAME = &H20Private 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 LongPrivate 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 SubPrivate Sub Form_Load()
ControlSize Picture1, True
ControlSize Text1, True
End Sub