摘要载入中…请稍等…
内容载入中…请稍等…
芯友首页 应用软件 编程开发 网络硬件 软件下载 动漫音乐 精美图库 芯友论坛 视频教程 电脑技术QQ群：64090268
站长视频：photoshop学友-站长发站长论坛 位置：编程开发>VB> VB窗体文章
在Visual Basic中如何拖动窗体或控件-3-12 9:36:01来源：互联网
--------------------------------------------------------------------------------
·在Visual Basic中显示动态运行·在Delphi应用程序中拖动控件·制作可移动的窗体的MovePanel控件
--------------------------------------------------------------------------------
在Visual Basic中如何拖动窗体或控件
现在的许多Windows下的应用程序，都采用了图形化的界面，例如：WINAMP等！
这样做的好处是可以使程序界面更漂亮生动，更具吸引力。但是在这样的界面下就
不能使用Windows原来的标题条了，否则会影响界面的美观性。那么在没有标题条
的情况下如何用鼠标拖动窗体呢？或者拖动其它的控件呢？
其实，采用API函数调用很容易实现，下面我们以拖动窗体(Form1)为例来具体
讲一下实现方法：
1.新建立一个项目，名称为：test.vbp.
2. 填加一个模块，名称为：test.bas,并且在声明部分加入以下代码：
Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (
ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As
Any) As Long
Public Const WM_SYSCOMMAND = &H112
Public Const SC_MOVE = &HF012
其中ReleaseCapture函数是用来释放鼠标捕获的，SendMessage函数是一个在
WindowsAPI中非常重要的函数，在这里的作用是用来向Windows发送移动窗体的消
息。WM_SYSCOMMAND是向Windows发送消息的常量。SC_MOVE是控制移动窗体的常量。
请注意：这里SC_MOVE的赋值一定要是&HF012，它表示鼠标对象。
3.在窗体的MouseDown过程中加入以下代码：
ReleaseCapture
SendMessage Form1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
其中ReleaseCapture函数用来释放鼠标捕获，SendMessage函数向Windows发送
移动窗体的消息。
4.保存并运行程序，按下鼠标，你会发现窗体会随着鼠标的移动而移动。就和
其它着名的应用程序一样。
以上讲述了如何在VB中用鼠标拖动窗体，其实，控件的拖动的原理是一样的。
例如以下代码可以实现图片框的拖动：
ReleaseCapture
SendMessage Picture1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
其实，运用API函数可以实现许多你意想不到的功能。
[1]
--------------------------------------------------------------------------------
◇→相关软件及文章 ◇→网友评论
巧用VISUAL BASIC的RND函数
拖动无标题栏窗体的方法
用Delphi 控制窗体的大小
在Delphi程序中应用IE浏览器控件
--->LimeWire Basic for Windows V4.9.39
--->LimeWire Basic V4.9.37 Beta
--->AV MP3 Player-Morpher Basic V2.0.111
--->RLPack V1.18 Basic Edition┊压缩可执行文件和动态链接库等┊汉化绿色特别版
--->HPS HwndSpy V1.9.0.961┊对窗口控件进行可视化的定位和监测┊绿色特别版
--------------------------------------------------------------------------------
Tags: Basic 拖动 窗体 控件
◎→ 本类最新
用VB设计聚焦框程序
用VB6实现动态增减控件
VB实现窗口的弹出式菜单
VB6制作Win98风格的工具栏
VB5.0中基于桌面的屏幕技巧
VB5.0下工具条的制作
VB 5.0中实现鼠标拖放
-
◎→相关资源
VB基础视频教程
Div+CSS基础视频教程
CSS基础视频教程
HTML基础视频教程
JavaScript入门精通视频教程-Ajax
JavaScript入门视频教程
VB基础视频教程
VB窗体文章
VB文件文章
VB数据库文章
VB-API文章
VB控制文章
-
◎→ 热门资源
用pathping命令来诊断网络故障
比尔·盖茨下周访华
Windows98操作系统优化实战(1)
Windows98操作系统优化实战(2)
Win2000系统优化
Win2000系统内存优化全攻略
Windows2000操作系统优化实战
