vb脚本示例？vb脚本从入门到精通
本篇文章给大家谈谈vb脚本示例，以及vb脚本从入门到精通对应的知识点，文章可能有点长，但是希望大家可以阅读完，增长自己的知识，最重要的是希望对各位有所帮助，可以解决了您的问题，不要忘了收藏本站喔。
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
BarTender中VB脚本的运用示例
很多人一定对BarTender条码打印软件中的VB脚本十分感兴趣，因为它可以让数据连接变得方便。但是对于新手来说，VB脚本运用起来还是有一定难度的，本文小编给大家介绍一个BarTender VB脚本简单运用的示例。
BarTender中VB脚本的运用示例
BarTender中文版下载
在BarTender
10.1设计模板中，标签上有三个文本，分别为净重、毛重和米长。毛重=净重+0.5，米长=净重*3.5，那么如何使用VB脚本，使得只要输入净重，米长和毛重就会自动变更呢?
1、首先，双击净重的文本“6.34”，打开文本属性对话框，在数据源属性页，点击“名称”后面的按钮，打开“更改数据源名称向导”对话框，输入类型“JZ”(自己定义)，单击确定。
2、然后，双击毛重后面的数量文本“6.84”，在弹出的“文本属性”对话框中选择“数据源”属性页，将类型更改为“Visual
Basic脚本”;
3、点击对话框中间部位的“使用脚本助理编辑”按钮，打开“脚本助理”对话框，输入表达式，本文“毛重=净重+0.5”，而第一步已经将净重名称改为“JZ”，所以表达式为“JZ+0.5”，单击确定。
4，此时你会发现，只要更改净重的数值，毛重也会随之加0.5。“米长”的VB脚本也是一样的设置，只是将脚本表达式改为JZ*0.5即可。
大家有学会这个VB脚本简单运用的例子么?想要了解更多关于BarTender
VB脚本的信息，可关注安下软件站，期待更加精彩的内容!
vb中的mid函数
Mid是Visual Basic和Microsoft Excel中的一个字符串函数，作用是从一个字符串中截取出指定数量的字符。这个函数的3个参数各在VB和Excel中互相等价，但VB中的Length参数可以省略，而Excel中num_chars参数不可省略。
当Start（start_num）参数小于1时，函数返回一个错误；当Start参数值大于String（text）参数长度时，返回一空字符串；若从Start参数起截取长度超出字符串末尾，或Length参数被省略，则返回Start参数位置到字符串结尾的所有字符。
VB语法：
1、Mid(String As Variant, Start As Long, [Length As Variant]) As Variant
2、Mid$(String As String, Start As Long, [Length As Variant]) As String
扩展资料：
一、说明：
VB中的Mid和Mid$两种写法在用法上没有区别。
要得到字符串的长度，可以使用Len函数。
VB和Excel中都有MidB函数，与Mid不同，它是以字节为单位进行字符串截取的，同时，可以用LenB函数得到字符串的字节数。
二、对语法的理解就是：
返回string中从start开始的后面的length长度的字符串
string是必需的参数，如果string包含Null，返回结果也将是Null。
start必需的参数，string中被取出部分的字符位置。需要注意的是如果start超过了string的字符数，Mid返回零长度字符串("")。
length是可选参数，表示要返回的字符数，如果省略或length超过文本的字符数（包括start处的字符），将返回中从start到末尾的所有字符。
参考资料：
百度百科-MID函数
关于本次vb脚本示例和vb脚本从入门到精通的问题分享到这里就结束了，如果解决了您的问题，我们非常高兴。