VB代码窗体移动

Private Sub Form_Load()

Command1Left = 0 '初始化要移动的控件,此处以command1控件为例

Command1Top = 0

Timer1Interval = 50 '指定移动时间间隔

End SubPrivate Sub Timer1_Timer()

If Command1Left >= MeWidth - Command1Width Then

Command1Left = 0

End If

Command1Left = Command1Left + 200 '移动距离

End Sub

Private Sub Command1_Click()

If Label1Left <> 0 Then

Label1Left = Label1Left - 500

End If

End Sub

Private Sub Command2_Click()

If Label1Left + Label1Width < MeWidth - 200 Then

Label1Left = Label1Left + 500

End If

End Sub

Private Sub Form_Load()

Label1Caption = ""

Label1BackStyle = 0

Label1BorderStyle = 1

Label1Appearance = 0

Label1Move 0, 0, 500, 500

MeMove 0, 0, 4115, 4000

End Sub

新建工程,一个按钮,一个label,一个timer

Private Sub Command1_Click()

If Command1Caption = "开始" Then

Command1Caption = "停止"

Else

Command1Caption = "开始"

End If

Timer1Enabled = Not Timer1Enabled

End Sub

Private Sub Form_Load()

Timer1Enabled = False

Timer1Interval = 10

Command1Caption = "开始"

Label1Caption = ""

Label1AutoSize = True

End Sub

Private Sub Timer1_Timer()

Label1Caption = Time

Label1Left = Label1Left - 10

If Label1Left + Label1Width <= 0 Then Label1Left = MeWidth

End Sub

程序代码是这样的,已经验证OK!!!

Private

Sub

Command1_Click()

'左右移动

MeLeft

=

MeLeft

+

Val(Text1Text)

End

Sub

Private

Sub

Command2_Click()

'上下移动

MeTop

=

MeTop

+

Val(Text2Text)

End

Sub

Private

Sub

Command3_Click()

'移动

MeLeft

=

MeLeft

+

Val(Text1Text)

MeTop

=

MeTop

+

Val(Text2Text)

End

Sub

我也是VB爱好者,以后共同努力哦!!!

如果两个程序都是你自己遍的,你可以通过两个程序之间互相传递参数实现

可以参考下以下代码:

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const LB_ADDSTRING = &H180 'additem消息

Private Const BM_CLICK = &HF5 '按钮单击消息

Private Sub Command1_Click()

Dim FHwnd As Long, LHwnd As Long

FHwnd = FindWindow(vbNullString, "FirstEXE") '第一个EXE窗口标题（Caption）叫"FirstEXE"，添加一个List1，然后直接生成FirstEXEexe即可

If FHwnd <> 0 Then

LHwnd = FindWindowEx(FHwnd, 0, vbNullString, "Command1") '用Spy++观察到其中的List1的窗口标题是""，可以在FirstEXE里用SetWindowText把它的窗口标题弄得特殊一点

If LHwnd <> 0 Then

Call SendMessage(LHwnd, BM_CLICK, 0, 0) '发送Additem消息

' Call SendMessage(LHwnd, BM_CLICK, 0, 0)

Else

MsgBox "Fail to Find List1 In FirstEXE!"

End If

Else

MsgBox "Fail To Find ""FirstEXE"" Please Make sure you have run it!"

End If

End Sub

点菜单[工具]-[选项]，在选项对话框中打开[通用]项，将[窗体网格设置]中的“对齐控件到网格”的勾去掉。再点确定，以后你怎么移动控件都可以了。注：微移控件：在选中要移动的控件后，按键盘的Ctrl+上/下/左/右,可以将控件仅移动一个单位。其实对齐控件的话，不一定要设置值或用微移的，可以将某些控件移到大概的一个位置，然后参照某个控件的位置做调整，如将B控件位置参照A控件对齐。 *** 作菜单[格式]-[对齐] / [统一尺寸] / [水平间距] / [垂直间距] 等都可以很快的定位控件显示位置。

Private Sub Command1_Click()

MeTop = 0

MeLeft = 0

'Me 表示本窗体，如果是其他窗体可以替换，如Form2top=0

End Sub

1991年，微软公司推出了 Visual Basic 10。当时引起了很大的轰动。这个连接编程语言和用户界面的进步被称为Tripod（有些时候叫做Ruby），最初的设计是由阿兰·库珀（Alan Cooper）完成的。

许多专家把 VB 的出现当做是软件开发史上的一个具有划时代意义的事件。在当时，它是第一个“可视”的编程软件。这使得程序员欣喜之极，都尝试在VB的平台上进行软件创作。

微软也不失时机地在四年内接连推出 20、30、40 三个版本。并且从 VB 30 开始，微软将Access的数据库驱动集成到了 VB 中，这使得 VB 的数据库编程能力大大提高。从 VB 40 开始，VB 也引入了面向对象的程序设计思想。VB 功能强大，学习简单。而且，VB 还引入了“控件”的概念，使得大量已经编好的 VB 程序可以被我们直接拿来使用。

2002年开始，微软将NET Framework与 Visual Basic 结合而成为 Visual Basic NET (vb net)，重新打造 VB，新增许多特性及语法，又将 VB 推向一个新的高度。最新版本 Visual Basic 2012 也将带来许多令人期待的新功能。

通过几年的发展，它已成为一种专业化的开发语言和环境。用户可用Visual Basic 快速创建Windows程序，并可编写企业水平的客户端/服务器程序及强大的数据库应用程序。

以上就是关于VB代码窗体移动全部的内容，包括:VB代码窗体移动、请大神发我一个超简单的VB程序，只有两个按键，一个是向左移动，一个向右，每次移动距离较短、请问怎么用vb编一个让窗体上的文字左右移动程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！