文件名称：VB拖动无边框窗体的例子.rar
文件大小：2KB
文件格式：RAR
更新时间：2022-07-30 13:31:57
VB源码-窗体界面
拖动无边框窗体的例子，演示了具体的实现方法，基于VB6.0编写，一个很实用的移动无标题栏窗体的例子，拖动无边框窗体其实现方法简单，很值得借鉴。以下是关键部分的代码： Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single) If Button = 1 Then ' Checking for Left Button only Dim ReturnVal As Long x = ReleaseCapture() ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) End If End Sub
【文件预览】：
srcfans.com
----VB拖动无边框窗体的例子()
--------SRC32.VBP(596B)
--------SRC32.FRM(1KB)
--------MSSCCPRJ.SCC(190B)
--------SRC32.vbw(50B)