vb脚本编程？vbscript 脚本编程
大家好，今天给各位分享vb脚本编程的一些知识，其中也会对vbscript 脚本编程进行解释，文章篇幅可能偏长，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在就马上开始吧！
VB脚本怎么写啊
1、Private Sub Command1_Click()
Const msg1 As String="请在这里输入你想显示的一段话!"
Const msg2 As String="这里是对话框要显示的标题."
MsgBox msg1,vbOkOnly,msg2'此处代码一定不能添加()
End Sub2、 form1按钮点击事件:
form2.show
form1.hide 3、
启动VB程序，在窗体上放置6个命令按钮，三个标签，一个公用对话框、一个进度条、一个状态栏和一个计时器，窗本的布置请参考附图按钮"Open MP3 File"是用来打开对话框选择MP3文件，其他5个按钮分别为Play(播放)、Pause(暂停)、Stopplay(停止播放)、Back(向后跳跃)、Prew(向前跳跃)。Label1用来表示歌曲当前时间；label2放在时度条的最左边，Caption属性为"00：00"；lable3放在时度条的右边，用来表示歌曲总长。下面就可以编写代码了。首先在窗体的"通用声明"部分声明函数
Private Declare Function mciSendString Lib"winmm.dll" Alias"mciSendStringA"(ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim mfn As String
下面就是各个对象的代码了:
Private Sub Form_load()
mfn=""
play.Enabled= False
pause.Enabled= False
stopplay.Enabled= False
back.Enabled= False
prew.Enabled= False
Timer1.Enabled= False
Timer1.Interval= 500
End Sub
Private Sub open_Click()
On Error GoTo err
With CommonDialog1
.CancelError= True
.Filter="音乐文件|*.mp3;*.wav;*.mid"
.Flags= cdlOFNNoChangeDir And cdlOFNPathMustExist
.Action= 1
stopplay_Click'停止按钮同时可以设备初始化
mfn=.FileName'这个程序中文件名一定不能带空格
Form1.Caption=.FileName
play.Enabled= True
End With
play_Click
Exit Sub
err:
End Sub
Private Sub play_Click()
On Error Resume Next
Dim t As Long
t= mciSendString("open"+ mfn, 0&, 0, 0)'Open后边的空格一定不能丢
Dim ret As String* 128
t= mciSendString("status"+ mfn+" length", ret, 128, 0)
'显示歌曲总长
ret= Left(ret, 8)
If ret<>"" Then
ProgressBar1.min= 0
ProgressBar1.Max= Val(ret)
Label3.Caption= Gettime(Val(ret))
End If
play.Enabled= False
pause.Enabled= True
stopplay.Enabled= True
back.Enabled= True
prew.Enabled= True
t= mciSendString("status"+ mfn+" mode", ret, 128, 0)
'得到设备的当前状态，是播放还是暂停等等
ret= Left(ret, 8)
StatusBar1.Panels(1).Text= ret
'在状态栏显示播放状态
t= mciSendString("play"+ mfn+" form"+ Str(ProgressBar1.Value), 0&, 0, 0)
'开始播放
Timer1.Enabled= True
End Sub
Private Sub pause_Click()
t%= mciSendString("pause"+ mfn, 0&, 0, 0)
'发出暂停的命令
play.Enable= True
pause.Enabled= False
stopplay.Enabled= True
back.Enabled= False
prew.Enabled= False
End Sub
Private Sub stopplay_Click()
t%= mciSendString("stop"+ mfn, 0&, 0, 0)
t%= mciSendString("close"+ mfn, 0&, 0, 0)
'停止播放
play.Enabled= True
pause.Enabled= False
stopplay.Enabled= False
back.Enabled= False
prew.Enabled= False
End Sub
Private Sub back_Click()
t%= mciSendString("play"+ mfn+" from"+ Str(ProgressBar1.Value-(ProgressBar1.Max\ 10)), 0&, 0, 0)'向后跳一小段再播放
End Sub
Private Sub prew_Click()
t%= mciSendString("play"+ mfn+" from"+ Stri(ProgressBar1.Value+(ProgressBar1.Max\ 10)), 0&, 0, 0)'向前跳一小段再播放
End Sub
Private Sub Timer1_Timer()
Dim t As Long
Dim ret As String* 128
t= mciSendString("status"+ mfn+" position", ret, 0, 0)
'得到当前播放位置
ret= Left(ret, 8)
ProgressBar1.Value= Val(ret)
Label1.Caption= Gettime(Val(ret))
'显示歌曲当前时间
If ProgressBar1.Value= ProgressBar1.Max Then
stopplay_Click
End If
t= mciSendString("status"+ mfn+" mode", ret, 128, 0)
ret= Left(ret, 8)
StatusBar1.Panels(1).Text= ret
End Sub
Private Sub Form_Unload(Cacel As Integer)
t%= mciSendString("stop"+ mfn, 0&, 0, 0)
t%= mciSendString("close"+ mfn, 0&, 0, 0)
End Sub
Private Function Gettime(position As Long) As String
'这个函数的功能是把以长整型表示的时间转换为电子钟式的"**:**"
Dim min, sec
min= position/ 1000
min= min/ 60
sec= min- Int(min)
min= Int(min)
sec= 60* sec/ 100
sec= Int(sec* 100)
Gettime= Str(min)+":"+ Str(sec)
End Function
开发vb的程序是什么
何谓 Visual Basic？“Visual”指的是开发图形用户界面(GUI)的方法。不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。如果已使用过诸如 Paint之类的绘图程序，则实际上已掌握了创建用户界面的必要技巧。
“Basic”指的是 BASIC(Beginners All-Purpose Symbolit Instruction Code)语言，一种在计算技术发展历史上应用得最为广泛的语言。Visual Basic在原有 BASIC语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI有直接关系。专业人员可以用 Visual Basic实现其它任何 Windows编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。
Visual Basic不仅是 Visual Basic编程语言。Visual Basic编程系统和 VBA都使用这一语言。Visual Basic Scripting Edition(VBScript)是广泛使用的脚本语言，它是 Visual Basic语言的子集。这样，在学习 Visual Basic中得到的经验可应用到所有这些领域中。
从开发个人或小组使用的小工具，到大型企业应用系统，甚至通过 Internet的遍及全球分布式应用程序，都可在 Visual Basic提供的工具中各取所需。
数据访问特性允许对包括 Microsoft SQL Server和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。
有了 ActiveX(TM)技术就可使用其它应用程序提供的功能，例如 Microsoft Word字处理器，Microsoft Excel电子数据表及其它 Windows应用程序。甚至可直接使用 VBP或 VBE创建的应用程序和对象。
Internet能力强大，使得您很容易在应用程序内通过 Internet或 intranet访问文档和应用程序，或者创建 Internet服务器应用程序。
已完成的应用程序是使用Visual Basic虚拟机真正.exe文件，您可以自由发布。
Visual Basic版本简介
Visual Basic有三种版本，可以满足不同的开发需要。
Visual Basic学习版使编程人员轻松开发 Windows和 Windows NT(R)的应用程序。该版本包括所有的内部控件以及网格、选项卡和数据绑定控件。学习版提供的文档有 Learn VB Now CD和包含全部联机文档的 Microsoft Developer Network CD。
专业版为专业编程人员提供了一整套功能完备的开发工具。该版本包括学习版的全部功能以及 ActiveX控件、Internet Information Server Application Designer、集成的 Visual Database Tools和 Data Environment、 Active Data Objects、和 Dynamic HTML Page Designer。专业版提供的文档有 Visual Studio Professional Features手册和包含全部联机文档的 Microsoft Developer Network CD。
企业版使得专业编程人员能够开发功能强大的组内分布式应用程序。该版本包括专业版的全部功能以及 Back Office工具，例如 SQL Server、Microsoft Transaction Server、Internet Information Server、Visual SourceSafe、SNA Server，以及其他。企业版包括的印刷文档包括 Visual Studio Enterprise Features手册以及包含全部联机文档的 Microsoft Developer Network CD。
脚本可以用哪些程序编写
脚本英文为Script。实际上脚本就是程序，一般都是有应用程序提供的编程语言。应用程序包括浏览器(JavaScript、VBScript)、多媒体创作工具，应用程序的宏和创作系统的批处理语言也可以归入脚本之类。脚本同我们平时使用的VB、C语言的区别主要是：
1、脚本语法比较简单，比较容易掌握；
2、脚本与应用程序密切相关，所以包括相对应用程序自身的功能；
3、脚本一般不具备通用性，所能处理的问题范围有限。
关于本次vb脚本编程和vbscript 脚本编程的问题分享到这里就结束了，如果解决了您的问题，我们非常高兴。