vb编写程序,要求在两个文本框内分别显示鼠标所在的位置的x坐标和y坐 ...

Text1.Text = X & " " & Y End Sub 方法2：如果出窗体的话 就用到api函数了 增加一个Timer控件 Dim p As POINTAPI Private Type POINTAPI x As Long y As Long End Type Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 'lpPoint-鼠标坐标会储存...

Text1.Visible = False End Sub Private Sub Form_Load()Command1.Caption = "显示文本框"Command2.Caption = "隐藏文本框"End Sub

采用窗体的MouseMove事件来获取鼠标坐标是可以的。如下我在文本框中显示当前鼠标的坐标程序，鼠标移动，坐标自动更新，只需要一个文本框控件，代码如下：Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.Text = "当前鼠标坐标为，X：" & X & "Y:...

在窗体上添加label1,text1,text2,三个控件 复制下面代码:Private Sub Form_Load()Text1.Text = ""Text2.Text = ""Label1.Caption = "共输入了" & Len(Text2.Text) & "个字符"End Sub Private Sub Text1_Change()Text2.Text = Right(Text1.Text, 1) & Text2.Text Label1.Caption =...

Left + Form1.Width And newy >= Form1.Top And newy <= Form1.Top + Form1.Height) ThenMsgBox "你移出窗口了"Timer1.Enabled = FalseEnd IfEnd SubForm1 窗体上添加 lable 控件 lable1 ,lable2 (鼠标x,y)labctx,labcty (窗体x,y)timer 控件 timer1 command 控件 command1 ...

Private Declare Function SetCursorPos Lib "user32" ( _ByVal x As Long, _ByVal y As Long _) As Long Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)Private ...

mousedown 的X,Y是鼠标按下时的坐标。currentx和currenty 是返回或设置下一次打印或绘图方法的水平或垂直坐标，也就是“打印头”的位置

这2个都是基本控件 label是标签 用来显示文本内容 command是按钮 当用户点击按钮时 作出反馈 具体要想有什么反馈看作者的意愿了 就好像 我现在回答你问题 写完之后 点击 提交回答 按钮一样

Dim P As POINTAPI '声明坐标变量 Dim xx, yy '声明转换要用到的变量 GetCursorPos(P) '获取鼠标在屏幕中的位置 ScreenToClient(Me.Handle.ToInt32, P) '转换为本窗体的坐标 xx = P.x.ToString '把X转换成能显示到文本框的字符串格式 yy = P.y.ToString '把Y转换成能显示到文本框的字符...

这里的":"只是字符串里面的一个字符，没有什么特别的作用。"&" 将字符串和变量的值连接成一个字符串，起的是字符串连接的作用。这句的代码是改变窗口的标题栏的内容显示当前的x,y的值。代码的前面应该是得到鼠标位置的代码。