拖动无边框窗体(VB6代码)

最新推荐文章于 2025-07-16 16:25:13 发布
原创 最新推荐文章于 2025-07-16 16:25:13 发布 · 893 阅读 · 0 ·
本内容遵循CC 4.0 BY-SA版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
这段VB6代码展示了如何实现一个无边框窗体的拖动功能，通过MouseDown和MouseMove事件处理，使得用户能通过鼠标左键拖动窗体位置。

简单代码片段,记录一下备用.

Option Explicit

Dim mX As Long, mY As Long

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button And vbLeftButton Then
        mX = X
        mY = Y
    End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button And vbLeftButton Then
        Me.Move Me.Left - mX + X, Me.Top - mY + Y
    End If
End Sub '

摘自：网络整理

 
  

  
 
  
 
  
★VB部分相关文章推荐：★

  
 
  

  
☆VB6 中善用ByRef 提升速度 
 
  
☆[vb] Set 语句 
 
  
☆VB_Format自定义格式 
 
  
☆用VB如读取内存地址 
 
  
☆vb FindwindowEx的用法实例 
 
  
☆进制转化进10进制数 
 
  
☆收藏:如何获取当前已经打开的IE对象(VB6代码) 
 
  
☆DXInput中键码的转换(VB6.0代码) 
 
  
☆如何在VB6.0里动态使用具有事件的对象 
 
  
☆[vb]格式输出Format函数 
 
  
☆读取和写入Windows的INI文件 
 
  
☆简述UTF－8编码原理及其文本文件的读写技术【转】 
 
  
☆VB中的文件操作 
 
  
☆VB中的文件操作文档 
 
  
☆vb 中拷贝文件 
 
  
☆VB反跟踪技术点滴 
 
  
☆VB共享软件防破解设计技术初探（二） 
 
  
☆VB共享软件防破解设计技术初探（三） 
 
  
☆VB共享软件防破解设计技术初探（一） 
 
  
☆RTF文件格式【转】
 
  
☆VB压缩技术 
 
  
☆[vb]FSO对象模型在VB中的应用 
 
  
☆VB 窗体实现文件拖拽获取路径方法 
 
  
☆VB：注册表的读写 
 
  
☆vb中空操作（等待）的指令、延时方法 
 
  
☆VB让控件可以当标题栏拖动 
 
  
☆FSO对象新建、打开、保存文件 
 
  
☆获取网关IP和MAC 的VB源码 
 
  
☆VB文件关联 
 
  
☆vb获得本地和远程的MAC地址(网卡地址) 
 
  
☆VB中ShellExeCute的应用 
 
  
☆VB打开网址方法大全 
 
  
☆vb简单控制音量大小及静音的方法 
 
  
☆拖动无边框窗体(VB6代码) 
 
  
☆VB使用FileSystemObject对象写文件 
 
  
☆VB 从注册表中删除项及其某个值 
 
  
☆vb 字符串转为数字和判断字符串是否是数字字符串【转】
 
  
☆vb按热键启动应用程序 
 
  
☆VB的坐标系统综述 
 
  
☆VB利用API函数来处理文件 
 
  
☆关于VB中Shell及ShellExecute的总结与记录 
 
  
☆[vb]On Error GoTo 0和On Error resume区别 
 
  
☆[vb]On Error 语句 
 
  
☆记录一下:在菜单上添加自绘图形的例子(VB6代码) 
 
  
☆vb中findwindow的疑惑 
 
  
☆[vb]FindWindow使用方法 
 
  
☆常用文件类[转，无法运行通，待调试] 
 
  
☆[vb]url utf-8编码 
 
  
☆VB中的Unicode 和Ansi 格式
 
  
☆VB中的format格式化函数 
 
  
☆VB中字符串匹配的多种方式 
 
  
☆VB抓图 
 
  
☆谈vb目录文件操作的三种方法－2 
 
  
☆谈vb目录文件操作的三种方法－1 
 
  
☆vb使用open方法读写文件 
 
  
☆VB的MD5加密模块 
 
  
☆VB 超简单的屏幕截图代码 
 
  
☆vb以类名或窗口标题查找句柄并关闭 
 
  
☆VB将配置保存到EXE本身（生成EXE木马程序） 
 
  
☆VB 调用腾讯截图控件CameraDLL.dll 
 
  
☆在VB6.0中怎么实现escape和unescape 
 
  
☆vb求任意两线交点 
 
  
☆VB中调用Windows API的注意事项[VB知识库] 
 
  
☆VB 一个获得自己外网IP 地址的程序代码 
 
  
☆VB程序中实现IP地址子网掩码网关DNS的更改[转] 
 
  
☆在VB 中应用FSO 对象模型介绍（摘自网络） 
 
  
☆[转] Vb中FSO 对象的介绍 
 
  
☆VB 画坐标轴 
 
  
☆VB 二进制文件的操作 
 
  
☆[VB]BMP转JPG 
 
  
☆VB中KeyCode常数用法 
 
  
☆vb实时曲线的绘制和保存 
 
  

   
  
更多精彩>>> 

 



                

        

    






  




    

      

        

            

              
                
                  miaozk2006
                
              
            

            

                关注
              
            

        

        

          
      

      










                



	

		

			

				
					
vb 实现文件拖拽显示文件路径

				
			

			

				

					01-18
				

			

		

		

			
				
VB，实现拖拽到文本框，并在文本框显示文件路径

			
		

	



                

            
              



	

		

			

				
					
VB旋转图像（位图），基于SetBitmapBits、GetBitmapBits函数.rar

				
			

			

				

					07-10
				

			

		

		

			
				
VB旋转图像（位图），基于SetBitmapBits、GetBitmapBits函数来实现，这两个API函数操作BMP位图十分方便，本例围绕这两个函数进行BMP位图任意角度的旋转，其它图片格式也可以，但是容易失真，测试时最好是选择BMP图像。指定角度旋转图片 只能指定旋转90,180,270度。任意角度旋转图片True 为顺时针旋转，flase 为逆时针旋转。

			
		

	



              


  
              

                


	

		

			

				
					
VB6下的BitMap示例：模拟雨点程序

				
			

			

				

					玄菟郡
				

				

					07-11
					
					3815
					
				

			

		

		

			
				
窗体部分Dim N As tpBitMapApplic Dim SPX() As tpPixelRGB24  Dim pubBitMapApplic As tpBitMapApplic Dim pubPixels() As tpPixelRGB24 Dim pubBytes() As Byte Dim pubBitMapInfo As tpBitMapInfo Di

			
		

	





	

		

			

				
					
vb求任意两线交点

				
			

			

				

					miaozk2006的专栏
				

				

					06-05
					
					1597
					
				

			

		

		

			
				

代码：

Option Explicit
Private Type PointX As DoubleY As DoubleEnd Type
Private Type LinesP1 As PointP2 As PointEnd Type
Const CROSS As Long = 0 '相交Const COLINE As Long = 1 '共线Const PARALLEL As L...

			
		

	



		

			
		



	

		

			

				
					
VB有两种截图方式

				
			

			

				

					ydb1358396458的博客
				

				

					11-07
					
					8587
					
				

			

		

		

			
				
转载自：http://blog.sina.com.cn/s/blog_484102dd0100bf15.html

 

两种方法：方法一操作直接、速度快，方法二以不变应万变，可以做视频截图。
方法一：
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC L...

			
		

	





	

		

			

				
					
VB.NET异形窗体

				
			

			

				

					qq_42383115的博客
				

				

					11-28
					
					1358
					
				

			

		

		

			
				
我入手vb已经有一年多了。目前是在校大学生，之前一直很迷恋VB6。但我知道知识必须要更新，所以开始了VB.NET。从最简单的界面开始做起。异形窗体在很多场合都会用到。我们常见的游戏登录界面，ADOBE家的所有软件，启动界面都是一个异形窗体。今天我也来教大家如何实现异形窗体设计。
首先
然后将窗体边框调成无边框模式
   FormBorderStyle = Windows.For...

			
		

	





	

		

			

				
					
VB.NET 拖动无边框的窗体- -

				
			

			

				

					路子专栏
				

				

					11-01
					
					1718
					
				

			

		

		

			
				
第1楼   VB.NET 拖动无边框的窗体- -　******************************************　　Private oOriginalRegion As Region = Nothing　　 用于窗体移动　　Private bFormDragging As Boolean = False　　Private oPointClick

			
		

	





	

		

			

				
					
VB6.0实现无边框窗体拖动功能实战

					
最新发布

				
			

			

				

					weixin_31185473的博客
				

				

					07-16
					
					563
					
				

			

		

		

			
				
Visual Basic 6.0（简称VB6.0）作为一代经典开发工具，提供了丰富的控件和强大的事件驱动编程能力。其中，无边框窗体（也称为边框样式为0的窗体）设计允许开发者突破常规窗体的限制，创造更为自由的用户界面布局。在这一章，我们将详细探究无边框窗体的基本概念，了解其独特的设计特点，以及在VB6.0编程环境中如何开始创建和使用无边框窗体。无边框窗体提供了一种更为现代和简洁的界面风格，它们通常用于创建不希望有标题栏和边框装饰的应用程序界面，或者需要特殊形状和尺寸控制的窗体。

			
		

	





	

		

			

				
					
无边框窗体拖动大小代码

				
			

			

				

					GuanXX的专栏
				

				

					04-07
					
					979
					
				

			

		

		

			
				
无边框窗体拖动大小代码VB.NET Code    Const WM_NCHITTEST As Integer = &H84    Const HTLEFT As Integer = 10    Const HTRIGHT As Integer = 11    Const HTTOP As Integer = 12    Const HTTOPLEFT As Integer

			
		

	





	

		

			

				
					
关于vb6无边框的窗体开发遇到的部分问题的解决方案

				
			

			

				

					温辉的博客
				

				

					02-19
					
					1110
					
				

			

		

		

			
				
vb6无边框窗体的使用，1.任务栏不再出现程序图标   2.窗体无法拖行移动  3.窗体无法拖动缩放。三个问题的解决方案

			
		

	





	

		

			

				
					
vb 无边框窗体拖动

				
			

			

				

					我的分享，希望可以帮到你！
				

				

					10-14
					
					2699
					
				

			

		

		

			
				
vb 无边框窗体拖动

			
		

	





	

		

			

				
					
VB移动无边框窗体 最简单方法

				
			

			

				

					
				

				

					05-04
					
					1508
					
				

			

		

		

			
				
信赖年夜家在玩VB的时候，经常会觉得VB自带的窗体太难看了，于是总会设置成无边框窗体，可是无边框窗体又不会移动该怎么办呢？今天我抽闲写个最简单的移动无边框窗体的方法吧，无API。(其实还有个用API的方法可以实现相同效果，但是觉得代码稍长，所以就不写出来了)。如果你觉得这篇文章对你有，请支持/转载，谢谢。
End Sub
If i = 1 Then
关键字：VB移动无边框窗体 VB移动无边框

			
		

	





	

		

			

				
					
VB.NET移动无边框窗体 两种方法

				
			

			

				

					编程技术交流/记录/分享/资源共享
				

				

					01-28
					
					2414
					
				

			

		

		

			
				
'在窗体上覆盖panel控件,如果直接是窗体,选择Form的MouseDown,MouseMove,MouseUp时间即可
    Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown

			
		

	





	

		

			

				
					
运行时改变无边框窗体的大小

				
			

			

				

					笔直的一道弯
				

				

					06-03
					
					1068
					
				

			

		

		

			
				
先把部分代码贴上来吧，有空好好整理整理，呵呵。 Public Class Form1    Declare Sub ReleaseCapture Lib "User32.dll" ()    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" _                

			
		

	





	

		

			

				
					
VB让控件可以当标题栏拖动

				
			

			

				

					miaozk2006的专栏
				

				

					07-28
					
					345
					
				

			

		

		

			
				



'运用本段代码可以使任意控件像窗体标题栏一样具有拖动窗体的功能?'先在模块中加入以下代码:Public Declare Function ReleaseCapture Lib "user32" () As LongPublic Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Lo...

			
		

	





	

		

			

				
					
VB.NET窗体操作技巧两则

				
			

			

				

					gujiawei的专栏
				

				

					07-11
					
					717
					
				

			

		

		

			
				

			
		

	





	

		

			

				
					
VB.NET 拖动无边框的窗体

				
			

			

				

					kevin521的专栏
				

				

					09-09
					
					956
					
				

			

		

		

			
				
******************************************Private oOriginalRegion As Region = Nothing 用于窗体移动Private bFormDragging As Boolean = FalsePrivate oPointClicked As Point ********************************

			
		

	





	

		

			

				
					
VB.NET窗体操作技巧两则Java教程

				
			

			

				

					ccc369639963的博客
				

				

					01-01
					
					522
					
				

			

		

		

			
				
VB.NET窗体操作技巧两则Java教程
这个功能在VB6中，需要借助于API函数才能实现。而在VB.NET中，凭自己的功能就能实现。首先设置窗体的FormBorderStyle属性为none以去掉窗体的边框，然后在窗体上添加一个按钮。窗体中的代码如下：
Public Class Form1
　Inherits System.Windows.Forms.Form
Private mouse_offset As Point
　Private Sub form1_MouseDown(ByVal sender A

			
		

	





	

		

			

				
					
简单的圆角无边框窗体

				
			

			

				

					AntingZ的专栏
				

				

					06-28
					
					4626
					
				

			

		

		

			
				
见CSDN网友提出这样的问题(做一个象qq一样的外壳),查了一下资料,发现可以通过API做个简单的效果,至于QQ是怎么实现的,还没研究过.新建一个窗体Form1，拖一个Button控件进去，保留Button默认名字Button1不变，用以下代码替换Form1.vb中的代码：Public Class Form1    Inherits System.Windows.Forms.Form #Regio

			
		

	



              




          





        



    





    



      

      

        
      

      





	

		评论	
	

  
	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

            领取后你会自动成为博主和红包主的粉丝
            规则
          

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

                
 1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
 2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

              

            

          

      

      余额充值