VB如何将一个窗口移动到一个指定位置~
Private Declare Function SetWindowPos Lib "user32" _
(ByVal Hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long '为窗口指定一个新位置和状态
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, _
ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Const SWP_NOSIZE = &H1 '忽略cx,cy
Const SWP_NOZORDER = &H4 '忽略hWndInsertAfter
Dim mHwnd&
mHwnd& = FindWindow(0&, "无标题.txt - 记事本")
SetWindowPos mHwnd&, 0, 100, 100, 0, 0, SWP_NOZORDER Or SWP_NOSIZE
End Sub
标题栏按下鼠标左键，延时500ms，鼠标移动到指定位置，延时2000ms，松开鼠标左键。延时时间，你自己测试下，以不影响移动为最好，延时小，会达不到目的的。
用API函数SETWINDOWSPOS实现
函数声明：
Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
函数调用：（将，x，y换成你希望的坐标）
SetWindowspos me.hwnd,HWND_TOPMOST,x坐标，y坐标，0.0.0
form_load()
me.height=*
me.width=*
End sub
《VB 能否控制 office 应用程序窗口的位置和大小》
答：改变指定窗口的位置和大小。顶级窗口可能受最大或最小尺寸的限制，那些尺寸优先于这里设置的参数 返回值 Long，非零表示成功，零表示失败 参数表 参数 类型及说明 hwnd Long，欲移动窗口的句柄 x Long，窗口新的左侧位置 y Long，窗口新的顶部位置 nWidth Long，窗口的新宽度 nHeight Long，窗口的高...
《...用vb编个窗口,窗口运行的时候,自动控制鼠标到指定位置,自动点击,(注...》
答：在贴吧看到你提问了 这边在回答一次 可以用SetCursorPos函数设置鼠标位置 Mouse_Event函数执行鼠标动作复制下列代码就能实现程序运行点击开始菜单了,你可以稍加了解这2个函数的作用就能达到你的编程目的 Private Declare Sub Mouse_Events Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal...
《菜鸟求助:刚接触VB有几个小的问题,请高手赐教》
答：2.单击输入框，把Appearance属性改为0。3.透明的？VB自带的按钮控件不能设置为透明……你的意思是要在程序运行的时候不显示该按钮吗？单击按钮，把Visible属性改为False。4.粗略控制：在右下角的“窗体布局”窗口中拖动你的窗体到合适的位置即可。精确控制：单击窗体，设置窗体的StartUpPosition属性。5....
《vb将指定窗口置顶问题》
答：Private Const HWND_TOPMOST& = -1 Private Const SWP_NOSIZE& = &H1 Private Const SWP_NOMOVE& = &H2 Private Sub Command1_Click()Dim hwnd As Long hwnd = FindWindow(vbNullString, text1.text)if hwnd<>0 then SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_...
《80分悬赏:VB 窗体布局问题》
答：仔细看了你的情况,建议你做一次系统还原,还原到你VB 窗体布局出问题的前几天日期.估计能恢复原面貌.另一个方法是用VB6.0的安装程序将VB6.0完全删除,然后重新安装,启动VB6.0后的界面为初始缺省界面,就象你所发的正常状态.以上意见仅供参考.
《VB 如何实现将一个窗口的位置始终置于另一个窗口的上面,但不影响其他...》
答：可以在打开窗体时加入以下代码 例如 打开窗体2时 command1_click()Form2.Show vbModeless, Form1 end sub 这样 form2 一直就会在 form1上边
《如何使vb的窗体在电脑屏幕上随鼠标一起移动?》
答：Button As Integer, Shift As Integer, X As Single, Y As Single)If mMouseDown Then Me.Move Me.Left + X - mX, Me.Top + Y - mY End Sub 点击窗体后窗体随鼠标移动，再次点击停止跟随。鼠标将保持在点击（在窗体上的）的位置。MouseMove事件不是很灵敏，所以鼠标不能移动太快。
《vb 点击窗口的标题栏 或者 拖动窗口移动 触发了什么事件呢 求大神解答...》
答：因为单击标题栏没有事件，拖动窗体也没有事件：思路:1，但是要获取拖动的发生，可以这样，拖动肯定改变了它的Left或Top属性。2，所以专门用一个Timer控件，来判断窗体的Left或Top属性是否改变，从而实现对另一个Timer的Enabled属性的控制。
《VB 程序中怎么显示网页指定位置的内容》
答：Private Sub Command1_Click()WebBrowser1.Document.parentwindow.scrollby 50, 50 '滚动到你想显示的区域，这个数值，要你自己一点点测试出来 End Sub Private Sub Form_Load()WebBrowser1.Navigate "www.baidu.com"End Sub －－－ 好像无法实现你说的哪样 ...
《vb怎么让窗体置顶于所有窗体之上(包括任务管理器那类已经置顶的...》
答：SWP_NOMOVE：维持当前位置（忽略X和Y参数）。SWP_NOOWNERZORDER：不改变z序中的所有者窗口的位置。SWP_NOREDRAW:不重画改变的内容。如果设置了这个标志，则不发生任何重画动作。适用于客户区和非客户区（包括标题栏和滚动条）和任何由于窗回移动而露出的父窗口的所有部分。如果设置了这个标志，应用程序...
