vb text 光标通过命令按钮做上下移动的程序怎么编写哇求大神指导

Private Sub Command1_Click() '上

Text1SetFocus

SendKeys "{Up}"

End Sub

Private Sub Command2_Click() '下

Text1SetFocus

SendKeys "{Down}"

End Sub

Private Sub Command3_Click() '左

Text1SetFocus

SendKeys "{Left}"

End Sub

Private Sub Command4_Click() '右

Text1SetFocus

SendKeys "{Right}"

End Sub

你要在窗体的keypress事件中写代码，每按一次左方向键，飞机的的left-1,当然要判断是不是为0，不为0才减。按右方向键时，left+1。

子d也是一个，使用定时器timer，不停的top+1。。。

ListBox2ItemsClear()

For i = 0 To ListBox1ItemsCount - 1

    ListBox2ItemsAdd(ListBox1Items(i))

Next

这样就将ListBox1的列表项移动到另一个ListBox2中了

这是利用For循环；提取第一个列表框ListBox1中的所有列表项，再全部加载到另一个listbox2

我这里用的是picturebox

Private

Sub

Picture1_KeyDown(KeyCode

As

Integer,

Shift

As

Integer)

'这是控件的KEY_DOWN事件

Select

Case

(KeyCode)

Case

37

'向左

Picture1Left

=

Picture1Left

-

20

'向左就是让控件的left属性不断减小

Case

38

'向上

Picture1Top

=

Picture1Top

-

20

'top属性减小

Case

39

'向右

Picture1Left

=

Picture1Left

+

20

'向右就是left不断增加

Case

40

'向上

Picture1Top

=

Picture1Top

+

20

'top属性增加

End

Select

End

Sub

另外给你附上vb的坐标系统，以便你更好的理解left和top的原理

这个是随机移动的：

Dim oldH As Long

Dim oldW As Long

Private Sub Form_Load()

Label1Caption = "VB真好玩！"

Timer1Interval = 1000

oldH = Form1Height - Label1Height

oldW = Form1Width - Label1Width

End Sub

Private Sub Timer1_Timer()

Randomize

Label1Left = Int(Rnd() (oldW + 1))

Randomize

Label1Top = Int(Rnd() (oldH + 1))

End Sub

以下是全部代码。为了好说明，我以计算器为例。你先运行一个Windows自带计算器。单击按钮就会让他跑道0，0去。然后你就如法炮制，把代码中“计算器”改成你那个窗口名就行了。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝

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

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 Const SWP_NOSIZE = &H1

Private Sub Command1_Click()

Dim h As Long

h = FindWindow(vbNullString, "计算器")

SetWindowPos h, 0, 0, 0, 0, 0, SWP_NOSIZE

End Sub

以上就是关于vb text 光标通过命令按钮做上下移动的程序怎么编写哇求大神指导全部的内容，包括:vb text 光标通过命令按钮做上下移动的程序怎么编写哇求大神指导、怎么用VB编写让飞机图片左右上下移动的程序、如何用VB做到把一个listbox里的所有选项移动到另一个listbox等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！