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

博图vb脚本调用周期

12个。TIA博途是全集成自动化软件TIAportal的简称，是西门子工业自动化集团发布的一款全新的全集成自动化软件。博图vb脚本调用周期是12个周期，脚本被加载到场景中时自动调用，整个生命周期中只执行一次。

vb脚本怎么设置画面

1、首先点击进入VBScript，找到脚本的页面。

2、其次点击脚本右上角的工具栏，找到一个方框的按键。

3、最后点击该按键，即可进行画面的设置，可以随意更改画面布局。

asp里面的vb脚本，为什么要叫VB脚本？

在ASP中使用脚本语言

在 服 务 器 端 使 用 脚 本 语 言 是 ASP 的 特 色 ， 那 么 什 么 是 脚 本 语 言 呢 ？ 它 和 HTML 和 编 程 语 言 又 有 什 么 不 同 呢 ？

脚 本 语 言 介 于 HTML 和 Java, C++ 以 及 Visual Basic 等 编 程 语 言 之 间 。 HTML 通 常 用 于 格 式 化 和 链 结 文 本 。 而 编 程 语 言 通 常 用 于 向 机 器 发 出 一 系 列 复 杂 的 指 令 。 脚 本 语 言 介 于 两 者 之 间 但 它 的 函 数 与 编 程 语 言 更 为 相 象 一 些 。 它 与 编 程 语 言 之 间 最 大 的 区 别 是 后 者 的 语 法 和 规 则 更 为 严 格 和 复 杂 一 些 。

在 服 务 器 端 使 用 脚 本 语 言 ， 需 要 在 服 务 器 端 安 装 脚 本 引 擎 。 脚 本 引 擎 是 用 于 处 理 脚 本 的 COM （ 组 件 对 象 模 型 ） 对 象 。 ASP 为 脚 本 引 擎 提 供 主 机 环 境 并 把 .asp 文 件 中 的 脚 本 交 给 脚 本 引 擎 处 理 。 对 于 .asp 文 件 中 使 用 的 每 种 脚 本 语 言 ， 都 要 将 他 们 相 应 的 脚 本 引 擎 安 装 在 Web 服 务 器 上 。 ASP 中 缺 省 语 言 是 VBScript ， 所 以 你 不 用 担 心 要 去 安 装 VBScript 的 脚 本 引 擎 ， 当 你 安 装 完 Active Server Pages 时 ， 他 就 已 存 在 了 。 使 用 JScript 也 不 必 有 同 样 的 担 心 。 但 是 要 使 用 一 些 不 太 常 用 的 脚 本 语 言 的 话 ， 可 能 需 要 安 装 相 应 的 脚 本 引 擎 。

ASP 使 Web 开 发 者 可 以 用 各 种 脚 本 语 言 编 写 程 序 而 不 用 担 心 浏 览 器 是 否 支 持 。 实 际 上 ， 在 一 个 .asp 文 件 中 就 可 以 使 用 多 种 脚 本 语 言 ， 只 要 你 在 每 段 脚 本 程 序 开 始 处 用 HTML 标 签 标 明 所 用 的 脚 本 语 言 。

VBScript 是 缺 省 的 主 脚 本 语 言 。 主 脚 本 语 言 用 在 定 界 符 % 和 % 之 内 ， 你 可 以 在 定 界 符 之 内 使 用 任 何 有 效 的 VBScript 命 令 ， ASP 会 按 VBScript 处 理 这 些 命 令 。 其 实 ， 你 可 以 将 任 一 种 脚 本 语 言 设 为 主 脚 本 语 言 。 你 可 以 不 厌 其 烦 的 一 页 一 页 的 设 置 ， 也 可 以 将 某 一 种 脚 本 语 言 设 为 你 的 Web 服 务 器 上 所 有 页 的 主 脚 本 语 言 。 如 果 你 想 在 某 一 页 中 将 一 种 脚 本 语 言 设 为 主 角 本 语 言 ， 只 要 在 .asp 文 件 开 始 处 加 上 如 下 的 命 令 就 可 以 了 。

%@ LANGUAGE = ScriptingLanguage % 其 中 ， ScriptingLanguage 代 表 你 想 设 置 的 主 脚 本 语 言 。 如 若 你 想 将 某 一 种 脚 本 语 言 设 为 你 的 Web 服 务 器 上 所 有 页 的 主 脚 本 语 言 ， 你 就 需 要 动 用 功 能 强 大 的 Register Editor （ 注 册 编 辑 器 , regedit.exe ） , ASP 注 册 参 数 的 注 册 路 径 如 下 ：

HKEY_LOCAL_MACHINE\SYSTEM

\CurrentControlSet

\Services

\W3SVC

\ASP

\Parameters

其 中 ， 注 册 表 项 DefaultScriptLanguage 的 缺 省 值 是 "VBScript" ， 将 其 改 为 欲 设 置 的 脚 本 语 言 即 可 。 例 如 ， 若 想 将 JScript 设 为 主 角 本 语 言 ， 则 将 注 册 表 项 DefaultScriptLanguage 的 值 改 为 "JScript" 就 行 了 。 在 同 一 个 .asp 文 件 中 混 合 使 用 不 同 的 脚 本 语 言 是 ASP 迷 人 的 特 色 之 一 。 这 样 ， 你 就 可 以 发 挥 各 种 不 同 的 脚 本 语 言 在 不 同 方 面 的 优 势 。 你 可 以 用 不 同 的 脚 本 语 言 编 写 不 同 的 脚 本 程 序 来 完 成 不 同 的 工 作 。

脚 本 程 序 实 际 上 就 是 一 组 执 行 特 定 任 务 的 脚 本 命 令 。 如 果 你 经 常 要 执 行 某 一 组 特 定 任 务 ， 你 就 可 以 将 之 定 义 成 程 序 ， 然 后 重 复 调 用 。 程 序 要 按 特 定 的 脚 本 语 言 的 规 则 写 在 标 签 SCRIPT 和 /SCRIPT 之 间 。 当 然 ， 如 果 你 用 主 脚 本 语 言 写 程 序 的 话 ， 写 在 定 界 符 % 和 % 之 间 也 可 以 。 如 果 你 的 程 序 只 在 某 一 页 内 调 用 的 话 ， 把 它 放 在 这 一 页 内 就 行 了 ， 如 果 你 在 多 页 中 都 要 调 用 某 些 程 序 的 话 ， 你 可 以 把 这 些 程 序 放 在 一 个 单 独 的 .asp 文 件 中 ， 然 后 在 每 个 要 调 用 这 些 程 序 的 .asp 页 中 将 那 个 .asp 文 件 包 含 进 来 。

要 在 .asp 页 中 包 含 其 他 文 件 ， 使 用 以 下 的 语 法 ：

!--#INCLUDE VIRTUAL|FILE="filename"--

其 中 ， filename 是 你 要 包 含 的 文 件 。 关 键 字 VIRTUAL 和 FILE 任 选 其 一 ， VIRTUAL 表 示 要 包 含 的 文 件 在 一 个 虚 拟 目 录 内 （ 该 目 录 为 Web 共 享 目 录 ） ， FILE 表 示 要 包 含 的 文 件 在 一 个 当 前 文 件 相 关 目 录 内 。 例 示 如 下 ： 假 设 你 有 两 个 Web 共 享 目 录 Dir1 和 Dir2, 目 录 Dir1 内 有 文 件 file11.asp 和 file12.asp, 目 录 Dir2 下 有 文 件 file2, 若 要 在 文 件 file11.asp 中 包 含 file2.asp ， 则 将 如 下 命 令 加 入 到 文 件 file11.asp 中 ：

!--INCLUDE VIRTUAL="Dir2/file2.asp"--

若 要 在 file11.asp 中 包 含 file12.asp ， 则 将 如 下 命 令 加 入 到 文 件 file11.asp 中 ：

!--INCLUDE FILE="file12.asp"--

或 者 使 用 如 下 命 令 亦 可 ：

!--INCLUDE VIRTUAL="Dir1/file12.asp"--

程 序 写 好 了 ， 怎 么 调 用 它 哪 ？ 如 果 你 用 的 脚 本 语 言 是 VBScript ， 只 要 一 个 简 单 的 关 键 字 Call 再 加 上 程 序 名 就 可 以 了 。 如 果 你 要 调 用 的 程 序 有 参 数 ， 要 把 参 数 用 括 号 括 起 来 。 如 果 你 省 略 关 键 字 Call ， 括 号 也 要 省 略 。 下 面 例 示 了 在 同 一 ASP 页 中 用 两 种 不 同 的 脚 本 语 言 （ VBScript 和 JScript ） 创 建 和 调 用 程 序 。

HTML

HEAD

TITLEUse different script in same page /TITLE

/HEAD

BODY bgcolor="#FFFFFF"

TABLE

% Call Echo %

/TABLE

% Call PrintDate %

/BODY

/HTML

SCRIPT LANGUAGE=VBScript RUNAT=Server

Sub Echo

Response.Write _

" TR TDName /TD TDValue /TD /TR"

Set Params = Request.QueryString

For Each p in Params

Response.Write " TR TD" p " /TD TD" _

Params(p) " /TD /TR"

Next

End Sub

/SCRIPT

SCRIPT LANGUAGE=JScript RUNAT=Server

function PrintDate()

{

var x

x = new Date()

Response.Write(x.toString())

}

/SCRIPT

在 服 务 器 端 使 用 VBScript 时 ， 有 两 个 VBScript 的 特 性 不 能 使 用 。 因 为 脚 本 在 服 务 器 端 执 行 ， VBScript 中 提 供 用 户 界 面 的 InputBox 和 MsgBox 就 不 支 持 了 。 另 外 ， VBScript 的 函 数 CreateObject 和 GetObject 也 不 支 持 。

因 为 所 有 的 ASP 脚 本 都 在 服 务 器 端 执 行 ， 就 不 需 要 象 使 用 客 户 端 脚 本 时 那 样 为 不 支 持 脚 本 的 浏 览 器 用 HTML 注 释 标 记 将 脚 本 隐 藏 起 来 。 所 有 的 脚 本 命 令 都 会 在 将 内 容 送 往 浏 览 器 之 前 处 理 。 但 你 可 以 在 脚 本 命 令 之 间 或 程 序 中 使 用 注 释 。 象 Basic 一 样 ， 在 VBScript 中 有 两 种 形 式 的 注 释 可 用 ： REM 或 单 引 号 。 如 下 例 所 示 ：

%

REM This line and the following line are comments

' Print greeting in green

greeting = "How are you!"

font color="GREEN" %= greeting %

%

在 JScript 中 注 释 用 “ // ” ， 如 下 例 所 示 ：

% Call PrintDate %

SCRIPT LANGUAGE=JScript RUNAT=Server

function PrintDate()

{

var x

x = new Date()

Response.Write(x.getDate())

}

// This is a definition for the procedure PrintDate.

// This procedure will send the current date

// to the client-side browser.

/SCRIPT

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脚本的信息，可关注安下软件站，期待更加精彩的内容!