visual basic 中 窗体move方法 怎么用??

发布网友 发布时间：2022-08-15 08:44

我来回答

共3个回答

热心网友 时间：2023-09-14 13:41

调用格式：[窗体名.]Move 左边距离[,上边距离[,宽度[,高度]]]
例如：Me.Move 100,200 (窗体移动到屏幕坐标100,200处，而窗体大小不变)
Me.Move 100,200，2000,2200(窗体移动到屏幕坐标100,200处，而窗体大小改变，宽度为2000，高度为2200)

热心网友 时间：2023-09-14 13:42

了图形化的界面，但是在这样的界面下就不能使用 Windows 原来的标题条了，否则会影响界面的美观。那么在没有标题条的情况下如何用鼠标拖动窗体或者其它的控件呢?
其实，采用 API 函数调用很容易实现，下面我们以拖动窗体 Form1 为例来具体讲一下实现方法：
1、新建立一个项目，名称为 test.vbp；
2、填加一个模块，名称为 test.bas，并且在声明部分加入以下代码：
Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_SYSCOMMAND = &H112
Public Const SC_MOVE = &HF012
其中 ReleaseCapture 函数是用来释放鼠标捕获的，SendMessage 函数是一个在 Windows API 中非常重要的函数，在这里的作用是用来向 Windows 发送移动窗体的消息。WM_SYSCOMMAND 是向 Windows 发送消息的常量。SC_MOVE 是控制移动窗体的常量。请注意：这里 SC_MOVE 的赋值是 &HF012，表示鼠标对象。
3、在窗体的 MouseDown 过程中加入以下代码：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
End Sub
其中 ReleaseCapture 函数用来释放鼠标捕获，SendMessage 函数向 Windows 发送移动窗体的消息。
4、保存并运行程序，按下鼠标，你会发现窗体会随着鼠标的移动而移动。
以上讲述了如何在 VB 中用鼠标拖动窗体，其实，控件的拖动的原理是一样的。例如以下代码可以实现图片框的拖动：
ReleaseCapture
SendMessage Picture1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0

热心网友 时间：2023-09-14 13:42

比如要让一个窗体充满整个屏幕，首先得把窗体移到屏幕左上角，然后再把窗体大小设置为和屏幕大小一样吧？这就要用到move方法

Private Sub Form_DblClick()
Me.Move 0, 0, Screen.Width, Screen.Height
End Sub