在一个Form中，怎样用鼠标移动一个按钮？-CSDN论坛

在一个Form中，怎样用鼠标移动一个按钮？

VB > VB基础类

收藏回复

[问题点数：20分，结帖人rushing]

⋅在aspx的.cs文件中，如何引用自己写的类？ ⋅VS2008 灾难性故障 0x8000FFFF ⋅如何在ComboBox中添加文本和值？ 更多帖子 关注私信空间博客 rushing 等级 本版专家分：5350 勋章 领英 结帖率 99.19%: 在一个Form中，只有一个按钮控件cmdMove。

想用鼠标拖着这个按钮移动，但是效果很不好。发现.Left 和 X 的单位不一致。

代码如下：

Dim MouseDown As Boolean

Private Sub cmdMove_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then MouseDown = True
End Sub

Private Sub cmdMove_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MouseDown Then
    If X > 0 And X < Me.ScaleWidth Then

        cmdMove.Left = X

    End If
End If
End Sub

Private Sub cmdMove_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseDown = False
End Sub

2006-09-11 17:47:50

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅子类的封装问题 ⋅DataGridView与微软拼音输入法2003出现的怪事(Up者有分) ⋅获取Excel.Application的多个对象实例 更多帖子 关注私信空间博客 Hassle 等级 本版专家分：6251: 参考一下（API）

先ClientToScreen
后ScreenToClient

2006-09-11 18:18:00

点赞只看TA 引用举报 #1得分 1

⋅在aspx的.cs文件中，如何引用自己写的类？ ⋅VS2008 灾难性故障 0x8000FFFF ⋅如何在ComboBox中添加文本和值？ 更多帖子 关注私信空间博客 rushing 等级 本版专家分：5350 勋章 领英: 我知道了，应该是Form的MouseMove事件。不应用按钮的MouseMove事件。
哪里有滑动条的代码呢？

2006-09-11 18:32:59

点赞只看TA 引用举报 #2得分 0

⋅触发器调用外部DLL引用WEBSERIVCE没有权限 ⋅触发器使用链接服务器失败 ⋅IOS前景？移动开发方向？ 更多帖子 关注私信空间博客 EverySoft 等级 本版专家分：1072: 还用什么API呀，我写了一下
Dim MouseDown As Boolean
Dim OldX As Integer

Private Sub cmdMove_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    MouseDown = True
    OldX = X
End If
End Sub

Private Sub cmdMove_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MouseDown Then
    If X > 0 And X < Me.ScaleWidth Then

        cmdMove.Left = Me.cmdMove.Left + (X - OldX)

    End If
End If
End Sub

Private Sub cmdMove_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseDown = False
End Sub

2006-09-11 20:41:42

点赞只看TA 引用举报 #3得分 18

⋅求组合配套的解决方法 ⋅甘特图控件 PlexityHide.GTP.NET 如何注册？ ⋅关于单双精度的问题 更多帖子 关注私信空间博客 DengXingJie 等级 本版专家分：10938: Option Explicit
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1

Private Sub cmdMove_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        ReleaseCapture
        SendMessage cmdMove.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
    End If
End Sub

2006-09-11 20:51:41

点赞只看TA 引用举报 #4得分 1

收起

收藏回复

rushing

等级：

: 领英

关注私信 TA的帖子

[C#] 鼠标拖动实现控件移动 - 一个类实现对多个控件与窗体的鼠标拖动移动操作: 关于文章: 文章包含以下部分: 对鼠标拖动实现控件移动的原理详解使用类将功能封装适用于: C# WinForm ...每当鼠标移动时, 根据鼠标坐标计算出控件应处于的位置并将控件移动... 在鼠标移动时, 会判断这个变量的值以

java鼠标点击按钮_Java 模拟鼠标事件 java中控制鼠标点击的方法: java中控制鼠标点击的方法意思就是让程序去自动点鼠标左键或右击或双击，并不是检测有没有点击哦//利用 java.awt.Robot 类来自动完成一些键盘或鼠标的动作,下面是一个小例子 //程序流程:模拟鼠标左键点击开始>...

C# 无边框窗体 鼠标移动窗体最小化按钮关闭按钮: 3 追加2个按钮效果如下修改按钮的Name属性 4 按钮添加图片为btnMin按钮和btnClose按钮的添加背景图片，并且修改Text属性为空，修改Size属性为Width:20,Height:20 下面是btnClose的设置过程，btnMin同样设置 ...

c++ windows 点击按钮跳转另一个窗体_今天来点枯燥的，Visual C#的Windows窗体运行过程...: 我们上一期只是在windows窗体上放了三个控件，并编写了一段小程序，实现了触发窗体上的按钮... Form{//程序段}我们先引入一个概念，就是部分类的概念，这里面Form1就是部分类，它是一个子类，而partial是用来对类进...

C# winform在运行过程中鼠标左键移动控件位置: Point _downPoint; private void button1_MouseDown(object sender, MouseEventArgs e) { _downPoint = new Point(e.X, e.Y); } private void button1_Mouse...

c#窗体程序鼠标经过按钮事件，实现按钮位置变化: c#窗体程序鼠标经过按钮事件,实现按钮位置变化 1.button4_MouseMove事件鼠标经过按钮，按钮触发次事件 private void button4_MouseMove(object sender, MouseEventArgs e) 2.事件内容 int x = this....

如果上一个文本框有值，则光标焦点移动到按钮: <p>I'm using rfid reader that the student will tap their id and after that it will display their basic info, i have a hidden button on my form, if click it will open a modal that contains several ...

C# 鼠标移动到按钮时显示提示信息: 1、在工具箱里找到toolTip控件，拖到Form1里。 2、这时候你就可以再button的属性里找到ToolTip on toolTip1这个选项，在里面添加你要提示的信息即可。

鼠标焦点在input的某个位置上，点击一个button 在input光标处的增加文字: 1、效果图： 2、js实现： <html> <head> <script type="text/javascript" src="/jquery/jquery.js"></script&...//记录

C#按钮移动: using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows....namespace 按钮移动 {...

form表单提交按钮点击事件先触发还是提交数据先触发_【Javascript】DOM 事件: 事件通常与函数结合使用，函数不会在事件发生前被执行！(如用户点击按钮)。鼠标事件属性和描述onclick 当用户点击某个对象时调用的事件句柄。oncontextmenu 在用户点击鼠标右键打开上下文菜单时触发ondblclick 当...

如何实现一个无边框Form的移动和改变大小（二）: 我们来说说一个比较复杂的实现, 效果如图: 注意为了能够凸显没有NC(NotClient)区域，我们额外用了3个panel分别放在窗体的左右和下部。用来模拟客户自己的控件。下面我们说下这种真正的无边框Form的实现方法 ...

设计一个含有一个表单的页面，并且...编写程序，当鼠标在页面上移动时，鼠标的坐标将显示在这个文本框中。...: <form id="form1"> <P><INPUT type="text" name="txtMousePosition" size="20"></P></form> <script type="text/...document.onmousemove =function() { //当鼠标移动...

C# 窗体设计子窗口嵌入主窗口的panel中以及 鼠标移动到 label 时字体变色: 1.窗体布局使用SpliContainer分割器...在布局好的窗体部分对自己需要嵌入主窗体的部分加入panel控件，我将它命名为了panel_Add，在触发嵌入按键的事件中写入代码： private void label1_Click(object sender, Eve...

puppeteer 鼠标定位滑块_Puppeteer键盘点击 鼠标移动点击拖动: 在使用过程中，碰到一个大难题，模拟键盘回车键，网上找了很多方法都不行，我等会将我试过的方法都贴出来。本来准备录制GIF效果图，但是失败。这里例子我都试过，基本没问题可以放心使用。键盘按键输入本意是模拟...

Windows Form 中的鼠标事件: Windows Form 中的鼠标事件在处理鼠标输入时，通常会想要知道鼠标指针位置和鼠标按钮状态。这个主题提供关于如何从鼠标事件取得此项信息的详细内容，同时还说明鼠标 Click 事件在 Windows Form 控件中的引发顺序。如...

C# GDI+ 设计一个根据鼠标来绘制矩形框的程序: 问题描述：设计一个根据鼠标来绘制矩形框的程序，即当按下鼠标左键并拖动至某个位置后释放鼠标使，可根据按下鼠标时的第一个点和释放鼠标时的第二个点来确定并绘制该矩形。问题分析：1.获取在画矩形时起始点的...

C# winform 无边框窗体鼠标点击移动事件: 这里所谓的无边框窗体是指去除系统自带的标题栏和最大最小化等那周围一圈的窗体即把窗体的FormBorderStyle设置为none后的窗体（效果如下）这是有边框的：去除边框的：

vue---鼠标移入图片出现删除按钮（通过hover实现）: 需求描述：当鼠标移入图像时，出现删除按钮，鼠标移出图像时，删除按钮消失。本案例实现以下功能：（1）点击方框，打开对话框选择照片；（2）删除照片解决方案：通过css样式实现，设置【删除图标】样式为不...

了解 Xamarin.Forms 创建移动应用程序的基础知识 - 生成第一个Xamarin应用: 使用 Visual Studio 2019 生成第一个 Xamarin 跨平台应用程序

一个可以在浏览器上自由移动的div: 可自由移动的自定义<div>

CSS实现鼠标滑过按钮更改按钮样式: CSS实现鼠标滑过按钮更改按钮样式，方便简单： .btn { cursor:pointer; border:1px solid #2b87c8; border-radius:4px; /*实现圆角*/ background:url(form/btn_bg.gif) repeat-x; min-width:80...

vue---鼠标移入图片出现删除按钮（通过onmouseover实现）: 上篇中(https://blog.csdn.net/maidu_xbd/article/details/104350286)通过hover实现鼠标移入图片出现删除按钮功能，存在问题：当未上传照片时，鼠标移入方框区域，仍显示删除图标。通过onmouseover，onmouseout...

一个富翁试图与陌生人做一笔生意用python_VisualBasic程序设计教程(第版)实验答案.doc...: 单击命令按钮“你输入的姓名是”，在Label3标签显示在文本框中输入的姓名。程序运行效果如图2.1.1所示。程序以“学号-1-1.frm”和“学号-1-1.vbp”文件名保存。以后每个实验项目的命名规则都是如此，即...

C# 取消窗口边框并实现通过鼠标点击窗体移动窗口双击窗体关闭窗口程序: 第一步新建一个winform项目第二步取消窗口边框点击选中窗口然后打开属性窗口在Formborderstyle 属性中选中none 可以看到窗口边框已经被删除第三步实现通过鼠标点击窗体移动窗口在解决方案窗口中打开...

HTML表格标签，利用css设置当鼠标在表格中某行悬停时背景颜色变成浅灰色。: HTML表格标签做一张表格利用css设置当鼠标在表格中某行悬停时背景颜色变成浅灰色。

vb随机移动鼠标: 新建一工程，放一个按钮command1，放一个时钟timer1,拷贝下列代码运行，按按钮一下会发现鼠标随机移动，碰到边界会反弹，再按按钮一下（或回车键）会停止。'*****************************拷贝下列代码*************...

C#中当鼠标移动到按钮的时候按钮的右下角出现提示框？: 2019独角兽企业重金招聘Python工程师标准>>> ...

C#(CSharp)用CefSharp开发浏览器--鼠标模拟，自动点击，鼠标移动，鼠标事件: 开发环境方案一个坑代码效果：模拟鼠标点击、移动，自动画线。研究网络爬虫和一些验证码破解(人类行为检测) 时候，需要自动鼠标点击，鼠标移动等。初步找到个满意的方案，写了个案例。 WinForm程序内嵌...

知网情感词典（HOWNET）: 该词典主要分为中文和英文两部分，共包含如下数据：中文正面评价词语3730个、中文负面评价词语3116个、中文正面情感词语836个、中文负面情感词语1254个；英文正面评价词语3594个、英文正面评价词语3563个、英文正面情感词语769个、英文负面情感词语1011个。情感分析资源大全：http://blog.csdn.net/qq280929090/article/details/70838025

相关热词 c#restful c#读取嵌入文件 c#三个特性 c# 自定义二维数组 c#编程语言详解 c# int数组添加元素 c# struct 方法 c#编辑 list c#泛型的协变与逆变 c# html