vb6什么代码可以用鼠标移动无标题栏的窗体.docVIP

vb6什么代码可以用鼠标移动无标题栏的窗体 悬赏分：50 - 解决时间：2007-9-4 15:23 vb6中用什么代码可以做出 移动 没有标题栏的窗体移动来？谢谢 问题补充：. 按 dos62 你的回复，成功了，但是在任务栏上也没有窗口显示了，怎么避免这个问题？谢谢 s_b_w，如果 将窗体的BorderStyle属性应该为2 ，那么标题栏怎么去掉呢？我不想要标题栏和边框 . 提问者： waaoo - 助理 二级 最佳答案 在设计阶段，将窗体的BorderStyle设置为0，ShowInTaskbar设置为True就可以了。移动窗体的代码如下： Dim MoveScreen As Boolean Dim MousX As Integer Dim MousY As Integer Dim CurrX As Integer Dim CurrY As Integer Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then MoveScreen = True MousX = X MousY = Y End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If MoveScreen Then CurrX = Form1.Left - MousX + X CurrY = Form1.Top - MousY + Y Form1.Move CurrX, CurrY End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) MoveScreen = False End Sub 回答者： 小_埃 - 试用期 一级?? 9-3 22:46 我来评论 提问者对于答案的评价： 谢谢几位的回复 评价已经被关闭????目前有 2 个人评价 窗体顶端 好100% （2） 不好0% （0） 相关内容 ? 在VB6中怎样可以向标题栏中添加按钮? ? 请教各位高手VB6使用中的几个问题： ? 如何用VB6把ACCESS数据库导出成EXCEL表 ? [急]无法改主页 ? 家里的主页被恶意修改 ? 更多关于怎么样用鼠标移动窗体的问题 查看同主题问题：代码 鼠标 标题栏 窗体 其他回答????共 2 条 ---------------------------------------------  移动无标题栏窗体的例子 ---------------------------------------------  洪恩在线 求知无限 --------------------------------------------- 程序说明： 本例演示了怎样移动无标题栏的窗体的方法，程序中涉 及到MouseDown、MouseMove、MouseUp三个鼠标事件的 使用，我们可以从中学习到它们的用法。 --------------------------------------------- Option Explicit 变量声明 MoveScreen，布尔型变量，标示窗体是否处于被移动状态 Dim MoveScreen As Boolean 鼠标位置 Dim MousX As Integer Dim MousY As Integer 窗体位置 Dim CurrX As Integer Dim CurrY As Integer “退出”按钮 Private Sub CmdExit_Click() End End Sub 当鼠标在窗体上按下时 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) --------------------------------------------- 参数说明： --------------------------------------------- button 返回一个整数，用来标识按下或释放的是哪一 个按钮。button 参数的值为相应于左按钮（1）右按钮 （2），以及中间按钮（4）。 -