vb设计一个程序

朋友，你是不是想让文本框，来回滚动啊，我不知道你是不是想这样！

你说是在窗体单击一下，就流动的吧！你的题是这样写的吧！

首先在窗体上添加一个文本框，然后加入以下代码：

Dim f As Integer

Private Sub Form_Click()

If Text1Left >= Form1Width - Text1Width Then

f = 0

End If

If Text1Left <= 0 Then

f = 1

End If

If f = 0 Then

Text1Left = Text1Left - 100

Else

Text1Left = Text1Left + 100

End If

End Sub

运行就OK啦，如果有什么问题，或者不懂的话，发消息给我，我已经加你了！！！

Begin VBForm Form1

Caption = "Form1"

ClientHeight = 3150

ClientLeft = 1155

ClientTop = 1530

ClientWidth = 4215

LinkTopic = "Form1"

ScaleHeight = 3150

ScaleWidth = 4215

Begin VBCommandButton Command2

Caption = "退出"

Height = 495

Left = 960

TabIndex = 4

Top = 2400

Width = 2775

End

Begin VBCommandButton Command1

Caption = "处理"

Height = 735

Left = 2640

TabIndex = 3

Top = 240

Width = 1095

End

Begin VBTextBox Text3

Height = 1215

Left = 960

TabIndex = 2

Top = 1080

Width = 2775

End

Begin VBTextBox Text2

Height = 270

Left = 960

TabIndex = 1

Top = 600

Width = 1575

End

Begin VBTextBox Text1

Height = 270

Left = 960

TabIndex = 0

Top = 240

Width = 1575

End

Begin VBLabel Label3

Caption = "结果"

Height = 375

Left = 360

TabIndex = 7

Top = 1080

Width = 375

End

Begin VBLabel Label2

Caption = "字符2"

Height = 255

Left = 360

TabIndex = 6

Top = 600

Width = 495

End

Begin VBLabel Label1

Caption = "字符1"

Height = 255

Left = 360

TabIndex = 5

Top = 240

Width = 495

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

Text3Text = Text1Text & " " & Text2Text

End Sub

Private Sub Command2_Click()

End

End Sub

教程1：李天生老师VB教程

Visual

Basic

60从入门到精通

教程2：30天学通Visual

Basic项目案例开发

视频教程+源码

教程3：VB入门到高级语言开发

VB60

程序设计视频教程

教程4：Visual

Basic范例开发大全Visual

Basic案例光盘压缩包

教程5：用多媒体学Visual

Basic

2008

视频教程

VB

2008视频教程

教程地址：

楼上说的太复制，我有一个更简单的方法，就是用shell函数替换shellexecute（这样可以省去很多代码，并且也比较简单），用系统的at命令替换timer控件（省去内存）。

在窗体上添加两个TEXT（一个是选择程序text2，一个是运行时间text1），还有一个command，用来开始倒计时

代码如下：

Private Sub Command1_Click()

shell "at "+text1text+space(1)+text2text

End Sub

输出为"at 15:23 c:\aexe"15:23和aexe是假设

你也可以使用date日期函数算出增加N分后的时间（dateadd(c,n,date)），然后再用at命令，代码如下

Private Sub Command1_Click()

Dim time

time=DateAdd("N"，text1text,time) '用dateadd函数得到现在时间间隔text1后的时间赋值给time

shell "at "+time+space(1)+text2text

End Sub

例如，下面的脚本就是要返回安装在本地计算机上的磁盘集合然后返回它们的盘符：

1 Set objFSO = CreateObject("ScriptingFileSystemObject")

2 Set colDrives = objFSODrives

3 For Each objDrive in colDrives

4 WscriptEcho "Drive letter: " & objDriveDriveLetter

5 Next

'界面你会设计吧，这里把“照片、格言、结束”三个按钮定为Cmd1、Cmd2、Cmd3（记得把标题改成“照片、格言、结束”哦~）。然后放两个Image控件（这里用Image1和Image2分别代表你照片和自画图形），把你的照片放进去，再放一个Label1。。。。开始写代码哦~~

Private Sub Cmd3_Click()

End ’结束

End Sub

Private Sub Form_Click()

Dim a As String

a = InputBox("请输入信息:") ‘输入框

If a = "018" Then

Image2Visible = True '显示自画

ElseIf a = "music" Then

FileCopy appPath&"aaamp3" , "D:\aaamp3" '把文件移到D盘（前提是你的mp3文件要与你程序同文件夹）

Shell "D:\aaamp3" ‘假设路径为D盘，文件名为aaamp3(如果想要在程序内播放要另加控件)

Else

MsgBox "无效输入！"

End If

End Sub

Private Sub Form_Load()

Image1Visible = False

Image2Visible = False '让它们不可见

End Sub

Private Sub Cmd1_Click()

Image1Visible = True '显示你的照片

End Sub

最后注意：在exe文件运行时，当前路径（apppath）为exe文件所在的路径。在VB中调试时，当前路径为VB所在的路径！所以调试时要注意文件路径。。

大概就是这些了。。。没疑问吧？求分分~~

以上就是关于vb设计一个程序全部的内容，包括:vb设计一个程序、利用VB设计一程序、Visual Basic 6.0 2008 2010程序设计视频 vb数据库编程案例教程等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！