VBA里,如何获取鼠标坐标

VBA里,如何获取鼠标坐标,第1张

Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long\x0d\\x0d\Type POINTAPI\x0d\ X As Long\x0d\ Y As Long\x0d\End Type\x0d\\x0d\Public Function getmouse_x_y() As POINTAPI\x0d\GetCursorPos getmouse_x_y\x0d\\x0d\End Function\x0d\\x0d\sub test()\x0d\'call getmouse_x_y '调用“获取鼠标坐标值过程”(假定你们给的过程/程序,名叫getmouse_x_y)\x0d\if getmouse_x_yx>100 and getmouse_x_yy>100 then '根据返回当前鼠标的坐标值执行某过程/程序\x0d\\x0d\end sub

java中怎么获得一个按钮的中心坐标,实现当点中左右两个按钮时,出现连线 Scanner scan=new Scanner(Systemin);

String str=scannext();

String E1="[\u4e00-\u9fa5]";

Sintrting E2="[a-zA-Z]"; countH=0; int countE=0; char[] arrChar=strtoCharArray();

String[] arrStr=new String[arrCharlength]; for (int i=0;i<arrCharlength ;i++ )

{

IOS开发Xib文件中怎么把一个按钮约束在左右两个按钮的正中间

中间那个按钮,把距离左边按钮和距离右边按钮的距离值写的一样

在窗口中设置a,b两个按钮,当按下b按钮时,b按钮的内容将出现在a按钮上

代码如下:

import javaxswing;import javaawteventActionEvent;import javaawteventActionListener;public class HelloIFrame { public static void main(String[] args) { JFrame jf = new JFrame(); jfsetTitle("Form1"); jfsetBounds(500, 200, 300, 200); JPanel con = new JPanel(null); final JButton helloButton = new JButton("AA"); final JButton clearButton = new JButton("BB"); helloButtonaddActionListener(new ActionListener() { @Override public void actionPerformed(ActionEvent e) { clearButtonsetText("AA"); } }); clearButtonaddActionListener(new ActionListener() { @Override public void actionPerformed(ActionEvent e) { helloButtonsetText("BB"); } }); helloButtonsetBounds(70, 80, 75, 30); clearButtonsetBounds(150, 80, 75, 30); conadd(helloButton); conadd(clearButton); jfadd(con); jfsetResizable(false); jfsetVisible(true); jfsetDefaultCloseOperation(JFrameEXIT_ON_CLOSE); }}

可以稍加修改实现更完美的功能,如果!

如题,在Qt Creator中 当按下按钮,会在label中显示所按按钮的坐标。怎么实现?

给按钮创建点击事件槽函数,在函数里面获取按钮坐标

ui->pushButton0->x();

ui->pushButton0->y();

QString X_Y

X_Y=QString("X=%1 Y=%2!")arg(QString::number(ui->pushButton0->x()))arg(QString::number(ui->pushButton0->y())) );

获取x,y坐标

ui->label->setText(X_Y);

FLASH中当鼠标离开按钮时,按钮的动态效果,如何实现?

用MovieClip很简单啦,算是自定义按钮啦,不是button啦。

举例说明:MovieClip简称mc

该mc共有10帧,第一帧是d起状态,第二针是点击状态(你做了动态效果),

第3帧到第10帧你再做个缓慢恢复的动态效果。

每帧的代码:

第一帧:s();然后监听鼠标点击,

若点击则跳到第二帧(下一帧,nextFrame() )

第二帧监听鼠标d起(MouseUp),若d起则从第三帧开始play,

第10帧直接写s();gotoAndS(1),这样又到第一帧。

写一AWT程序,在frame中加人两个按钮(button)和一个标签(label),单击两个按钮时显示按钮的标签玉label

写一个类继承JFrame后

1创建按钮和标签

2,添加

3,显示

QT怎么实现点击一个按钮,在输入框中输出按钮的值

1、先定义一个槽函数void slotclicked(); 然后再源文件中实现,写自己想要实现的代码。

2、new button 后连接信号和槽,connect(button,SIGNAL(clicked()),this,SLOT(slotclicked()));

在datalist中当点击一个按钮时如何让另一个按钮的Enable设为false

哥们你的事件对么 你看看 你注册的是什么 OnItemCommand="XiaoLaoshi_ItemCommand"

protected void Datalist1 _ItemCommand(object source, DataListCommandEventArgs e)

你这事件的名称都不一样 怎么会执行 把他们改一致 OnItemCommand="XiaoLaoshi_ItemCommand"改为OnItemCommand="Datalist1 _ItemCommand"

呵呵 忘了 好像button触发不了这个事件 你改为linkbutton就行了

flash中,怎么实现按钮A按一下隐藏,再按另一个按钮B,按钮A又出现了?

A自己控制自己的隐藏,B控制A的显示对吧?

在第一帧上加如下代码:其中按钮名为a

thisonEnterFrame = function() {

aonPress = function() {

_roota_visible = 0;

};

bonPress = function() {

_roota_visible = true;

};

};

vb中,有两个按钮一个文本框,如何实现点击按钮,两个按钮的内容都出现在文本框中,且不会被覆盖

VB中只需在另一窗体的文本框控件名前加上该窗体名做前缀后给与赋值。

Option Explicit

Private Sub Command1_Click()

Form2Text1 = MeText1

End Sub

Private Sub Command2_Click()

Form2Show

End Sub

Private Sub Form_Load()

Text1 = "VB中只需在另一窗体的文本框控件名前加上该窗体名做前缀后给与赋值。"

End Sub

新出炉的底层鼠标钩子(LowLevelMouseHook)

'==================窗体代码=================

PrivateSubForm_Load()

hHook=SetWindowsHookEx(WH_MOUSE_LL,AddressOfMouseHookProc,ApphInstance,0)

IfhHook<>0Then

MsgBox"已钩住鼠标事件,请按本窗体右上方的X按钮关闭窗体,不要使用VB调试工具栏的“结束”按钮,以免VB崩溃"

EndIf

EndSub

PrivateSubForm_Unload(CancelAsInteger)

UnhookWindowsHookExhHook

EndSub

'=============模块代码==================

PublicConstWH_MOUSE=7'本地钩子

PublicConstWH_MOUSE_LL=14'全局钩子

PublicDeclareFunctionSetWindowsHookExLib"user32"Alias"SetWindowsHookExA"(ByValidHookAsLong,ByVallpfnAsLong,ByValhmodAsLong,ByValdwThreadIdAsLong)AsLong

PublicDeclareFunctionCallNextHookExLib"user32"(ByValhHookAsLong,ByValnCodeAsLong,ByValwParamAsLong,lParamAsAny)AsLong

PublicDeclareFunctionUnhookWindowsHookExLib"user32"(ByValhHookAsLong)AsLong

PublicDeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"(DestinationAsAny,SourceAsAny,ByValLengthAsLong)

PublicConstWM_LBUTTONDOWN=&H201'窗口中按下鼠标左键

PublicConstWM_LBUTTONUP=&H202'窗口中松开鼠标左键

PublicConstWM_MOUSEMOVE=&H200'窗口中移动鼠标

PublicConstWM_RBUTTONDOWN=&H204'窗口中按下鼠标右键

PublicConstWM_RBUTTONUP=&H205'窗口中松开鼠标右键

PublicConstWM_MOUSEWHEEL=&H20A'鼠标滚轮

PublicConstWM_NCLBUTTONDOWN=&HA1'窗口标题栏中按下鼠标左键

PublicConstWM_NCLBUTTONUP=&HA2'窗口标题栏中左开鼠标左键

PublicConstWM_NCMOUSEMOVE=&HA0'窗口标题栏中移动鼠标

PublicConstWM_NCRBUTTONDOWN=&HA4'窗口标题栏中按下鼠标右键

PublicConstWM_NCRBUTTONUP=&HA5'窗口标题栏中松开鼠标右键

PublichHookAsLong

PublicTypePOINTAPI

xAsLong

yAsLong

EndType

TypeMSLLHOOKSTRUCT

ptAsPOINTAPI'相对于屏幕左上角的坐标x,y

mouseDataAsLong'鼠标数据

flagsAsLong'标记

timeAsLong'时间戳

dwExtraInfoAsLong'其他信息

EndType

TypeMOUSEHOOKSTRUCT

ptAsPOINTAPI'相对于屏幕左上角的坐标x,y

hwndAsLong'鼠标光标下窗口的句柄

wHitTestCodeAsLong'鼠标光标在窗口中的位置,标题栏、左边框、右边框,下边框。。。

dwExtraInfoAsLong'其他信息,通常为0

EndType

DimoMouseHookStructAsMSLLHOOKSTRUCT

PublicFunctionMouseHookProc(ByValidHookAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLong

CopyMemoryoMouseHookStruct,ByVallParam,Len(oMouseHookStruct)

DebugPrint"当前鼠标位置-x:"&oMouseHookStructptx&";y:"&oMouseHookStructpty

SelectCasewParam

CaseWM_LBUTTONDOWN,WM_NCLBUTTONDOWN

DebugPrint"左键按下"

CaseWM_LBUTTONUP,WM_NCLBUTTONUP

DebugPrint"左键d起"

CaseWM_RBUTTONDOWN,WM_NCRBUTTONDOWN

DebugPrint"右键按下"

CaseWM_RBUTTONUP,WM_NCRBUTTONUP

DebugPrint"右键d起"

CaseWM_MOUSEMOVE,WM_NCMOUSEMOVE

DebugPrint"鼠标移动"

CaseWM_MOUSEWHEEL

DebugPrint"鼠标滚轮"

EndSelect

MouseHookProc=CallNextHookEx(hHook,idHook,wParam,ByVallParam)

EndFunction

以上就是关于VBA里,如何获取鼠标坐标全部的内容,包括:VBA里,如何获取鼠标坐标、java中怎么获得一个按钮的中心坐标,实现当点中左右两个按钮时,出现连线、vb模拟鼠标点击相对屏幕中心坐标等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址:https://54852.com/web/10156946.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-05-05
下一篇2023-05-05

发表评论

登录后才能评论

评论列表(0条)

    保存