设计个简单的VB程序，小球来回动的

很简单的嘛，

就是一个框（P1）加一个图像框，一个文本框，一个按控件，一个时钟啦

是利用它们的左右距离参数的。

可以不用他的题目，他的题目太简单了，就是一个的可见和不可见，

我们可以让时间改变小球位置来实现的

比如时钟的，P1HEIGHT=P1HEIGHT+X

其中X可以为图像框的高度允许的任意值

时钟那么简单就不用说了吧

1、VB程序设计以VisualBasic60简体中文版为语言背景，深入浅出的介绍VisualBasic60程序设计技术，基本涵盖了VisualBasic60编程时的常用内容。

2、VB程序设计共分14章，主要内容包括开发环境、语言基础和数组与过程、常用控件、菜单设计、文件处理、ActiveX控件、数据库程序设计、图形程序设计、多媒体编程、网络编程、API函数和注册表、安装程序的制作和综合实例。

3、为了方便读者学习，《VB程序设计》提供多媒体课件，及例题和练习题的所有源代码。

4、VB程序设计可以作为大中专院校计算机及相关专业的教材，适合编程爱好者自学使用。

把下面代码保存为Form1frm文件，然后双击该文件运行。运行后输入进程ID，点“开始监视”，然后按F7即可进行进程的挂起和继续动作了。

VERSION 500

Begin VBForm frmMain

Caption = "Form1"

ClientHeight = 3105

ClientLeft = 60

ClientTop = 450

ClientWidth = 4680

LinkTopic = "Form1"

ScaleHeight = 3105

ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省

Begin VBCommandButton Command2

Caption = "停止监视"

Height = 495

Left = 2520

TabIndex = 2

Top = 1920

Width = 1095

End

Begin VBCommandButton Command1

Caption = "开始监视"

Height = 495

Left = 840

TabIndex = 1

Top = 1920

Width = 1215

End

Begin VBTimer Timer1

Enabled = 0 'False

Interval = 100

Left = 1920

Top = 1320

End

Begin VBTextBox txtPid

Height = 375

Left = 1800

TabIndex = 0

Text = "123"

Top = 240

Width = 1695

End

End

Attribute VB_Name = "frmMain"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Const SYNCHRONIZE = &H100000

Private Const STANDARD_RIGHTS_REQUIRED = &HF0000

Private Const PROCESS_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF)

Private Declare Function NtSuspendProcess Lib "ntdlldll" (ByVal hProc As Long) As Long

Private Declare Function NtResumeProcess Lib "ntdlldll" (ByVal hProc As Long) As Long

Private hProcess As Long, ProcStat As Boolean

Private Sub cmdSuspend_Click() '挂起

If IsNumeric(txtPidText) Then

hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, CLng(txtPidText))

If hProcess <> 0 Then

NtSuspendProcess hProcess

CloseHandle hProcess

End If

End If

End Sub

Private Sub cmdResume_Click() ' '继续

If IsNumeric(txtPidText) Then

hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, CLng(txtPidText))

If hProcess <> 0 Then

NtResumeProcess hProcess

CloseHandle hProcess

End If

End If

End Sub

Private Sub Command1_Click()

ProcStat = False

Timer1Enabled = True

End Sub

Private Sub Command2_Click()

Timer1Enabled = False

End Sub

Private Sub Timer1_Timer()

If (GetAsyncKeyState(vbKeyF7) And &H7FFF) <> 0 Then

If ProcStat = True Then

cmdResume_Click

ProcStat = False

Else

cmdSuspend_Click

ProcStat = True

End If

End If

End Sub

材料/工具：VB

1、启动VB60，创建一个标准工程。

2、在窗体上右键选择“菜单编辑器”，或在“工具”菜单上单击选择也可以。

3、在d出的“菜单编辑器”窗口中，输入标题和名称，在标题括号内用“&”表示可以调出此功能，输入完毕，保存之后，就能在下面的显示区看见我们刚才编辑的菜单名称。

4、在显示区中单击已经建好的菜单下面，再创建一个菜单。

5、创建的菜单是否是原来新建的一级子菜单，或是二级子菜单，我们就可以通过编辑区上的方向键来实现，单击右方向键按钮后，我们会看见它的一级子菜单前面有四个圆点，若是二级，圆点会增加到八个。

6、创建完毕后，确定即可，现在在窗体上就可以看见刚才我们创建的下拉菜单了。

以上就是关于设计个简单的VB程序，小球来回动的全部的内容，包括:设计个简单的VB程序，小球来回动的、什么是VB程序设计、VB 制作一个程序挂起等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！