VB怎么编出像红警那样的，移动鼠标，窗口就可以在显示屏上移动~
俗称大地图
就是在一个较小的显示范围内显示较大的图
Windows 中编程，利用双缓冲就可以
Form1.Top = pos.y 改成 Form1.Top = pos.y * Screen.TwipsPerPixelY
窗体的Top属性的坐标单位是缇(Twip),GetCursorPos函数获取的坐标单位是像素(Pixel),
缇和像素的换算，用 Screen.TwipsPerPixelX 和 Screen.TwipsPerPixelY
你的程序可能是错在它对屏幕四角的概念的解释上吧,不同分辨率的屏幕的长宽都是不一定的,所以不应该用固定的数值来做这个程序,我用另一个方法写了这个程序,下面是代码,希望对你会有帮助Dim a As IntegerPrivate Sub Form_Load()
a = 0
Form1.Top = 0
Form1.Left = 0
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case a
Case 0
a = 1
Form1.Left = Screen.Width - Form1.Width
Case 1
a = 2
Form1.Top = Screen.Height - Form1.Height
Case 2
a = 3
Form1.Left = 0
Case 3
a = 0
Form1.Top = 0
End Select
End Sub
《VB求解:鼠标自动移动到指定文本框后,自动输入某字符!》
答：Text1.SetFocus '文本框获得焦点，只要鼠标自动到达文本框 Open "d:\ab\12.txt" For Input As #1 '打开文本文件，文本文件的路径和文件名是d:\ab\12.txt，修改为你需要的路径和文件名 Input #1, x '读取文本文件的内容到变量x中 Close #1 '关闭打开的文本文件 Text1.Text = x ...
《VB 怎样用键盘控制鼠标移动?》
答：建议使用mouse_event直接设置相对移动坐标 Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)const MOUSEEVENTF_MOVE = &h1'鼠标移动 const MOUSEEVENTF_ABSOLUTE =...
《...我想完成一个功能, 可以使鼠标自动移动到VB之外的文本框中,单击...》
答：Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Private WithEvents Timer1 As Timer Private Sub Form_Load()Set Timer1 = Me.Controls.Add("VB....
《如何用VB定鼠标移开窗体上就执行命令》
答：用api有点复杂,获得当前鼠标坐标后与 me.left,me.top,me.height+me.top,me.width+me.left对比 如果不用api,建议用timer控件设置2秒后如果没有mouse_move事件就运行代码 如果在2秒内有mouse_move事件就重新计时 可以加一点分吗?以下是把窗体隐藏到屏幕右方的方法 -=-=-=-=-=-=-=-=-=-=-=...
《vb如何实现鼠标单击窗体某个位置对象就移动道那个位置(满意就加分...》
答：在 窗体 的mouseup事件中设置相应对象的坐标就可以 例如在单击时把picture1移动到单击位置 Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)Picture1.Top = Y Picture1.Left = X End Sub
《如何移动VB中的无边框窗体》
答：1、无边框窗体也就是无标题栏窗体，对于这样的窗体移动需要编程实现。2、vb有两种办法实现，一直接编程实现，二调用windows API编程实现。3、这里示例直接编程实现：Option ExplicitDim BolIsMove As Boolean, MousX As Long, MousY As LongPrivate Sub Form_MouseDown(Button As Integer, Shift As ...
《VB中msflexgrid如何加鼠标滚动?》
答：在窗口上放两个Lable,两个Botton.'1.窗口风格的设置 '在窗口声明部分加入 Dim HVisible as Boolean,VVisible as Boolean Private Sub Form_Load()Dim OldStyle As Long Dim hsWidth As Integer '保存旧风格 OldStyle = SetWindowLong(hWnd, GWL_STYLE, 0)'设置新风格 Call SetWindowLong(hWnd, GWL...
《用vb可以控制鼠标指针的位置吗?例如,我设个窗口,运行的时候自动将鼠标指...》
答：自动下滑，用timer可以实现。松开即可停止，这个不是很清楚。下滑的速度有+-控制，需要热键，网上查一下估计可以实现。给我个邮箱。--- 针对补充的问题，最小化了之后，所以才使用热键的。热键可以实现的。 用热键控制timer的时间。
《我想用VB实现下鼠标停留在图面上能显示文字方法,》
答：用MouseMove函数实现。下面的代码：先添加窗体form2.Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Unload Form2 End Sub Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Image1.MousePointer = 2 Fo...
《求大神指点vb.net 怎么用SendInput来实现鼠标移动到指定位置呢?_百度...》
答：Public Sub MouseMoveBy(ByVal dx As Integer, ByVal dy As Integer) mouse_event(0, dx, dy, 0, 0) End Sub2. 您需要将鼠标移动到x, y的位置 Public Sub MouseMoveTo(ByVal x As Integer, ByVal y As Integer) Cursor.Position = New Point(x, y) End Sub请您试一下...
