荔园在线
荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: Peter (小飞侠), 信区: Program
标 题: VB调用API技巧--拖动无系统标准标题棒的窗口
发信站: BBS 荔园晨风站 (Fri Jan 22 13:47:16 1999), 转信
转自《中国计算机报》[一九九七年十月六日 总第678期] 第128版
吴斌
VB调用API技巧--拖动无系统标准标题棒的窗口
大家知道,在VB中可以通过设置Form的属性,制作无
系统标题棒的窗口。可是,由于失去了系统标题棒,如何
使用鼠标拖动窗口便成了一个棘手的问题。其实,借助API函数
ReleaseCapture和SendMessage,这个问题便可迎刃而解了。
首先,在module文件中加入下列声明语句:
Declare Sub ReleaseCapture Lib"User"()
Declare Function SendMessage Lib"User"(ByVal hWnd _
As Integer,ByVal wMsg As Integer,ByVal wParam As Integer,_
lParam As Any)As Long
Public Const WM_SYSCOMMAND=&H112
Public Const SC_MOVE=&HF010
Public Const HTCAPTION=2
然后,在Form的MouseDown事件中加入下列代码:
ReleaseCapture
Ret&=SendMessage(Me.hWnd,WM_SYSCOMMAND,_
SC_MOVE+HTCAPTION,0)
……
程序运行后,只要当光标落在Form区域时按住鼠标左
键,便可以拖动窗口了。在一些要求生动活泼的界面的程
序设计中,开发者常常希望自制风格独特的标题棒,以满
足整个界面的要求。通过这个方法,就可以使自制的标题
棒达到乱真的地步。不过,用作自制标题棒的控件,必须
具有MouseDown事件以摆放上述代码。
--
※ 来源:.BBS 荔园晨风站 bbs.szu.edu.cn.[FROM: 192.168.1.3]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店