Vb中各类语句集(第一集).ppt

Vb中的各类语句集合典 Vb中的各类语句集合典 1 电脑重启函数语句 2 软件随机启动代码 5 Inputbox函数 4 Msgbox函数 6 字形输出 7 窗体打印 3 延时ns后执行代码 8 把信息用打印机打印 9 获取系统时间 10 窗体加载图片语句 11 对数组的定义 1 重启Shell shutdown r t0 vbhide 2 随机启动OptionExplicit 处理注册表的函数 PrivateDeclareFunctionRegCreateKey Lib advapi32 dll Alias RegCreateKeyA ByValhKey ByVallpszSubKey lphKey PrivateDeclareFunctionRegSetValueLib advapi32 dll Alias RegSetValueA ByValhKeyAsLong ByVallpSubKeyAsString ByValdwTypeAsLong ByVallpDataAsString ByValcbDataAsLong AsLongConstHKEY LOCAL MACHINE H80000002ConstREG SZ 1 HKEY LOCAL MACHINE Software Microsoft Windows CurrentVersion RunPrivateSubCommand1 Click 声明变量DimsKeyNameAsString sKeyValueAsString sKeyValueIconAsStringDimRetAsInteger lphKeyAsLongsKeyName Software Microsoft Windows CurrentVersion Run sKeyValue App Path IIf Len App Path 3 App EXEName exe App EXEName Ret RegCreateKey HKEY LOCAL MACHINE sKeyName lphKey Ret RegSetValue lphKey REG SZ sKeyValue 0 EndSub 返回 1 延迟n s后执行的语句DimiAsStringPrivateSubCommand1 Click i 10IfIsNumeric i ThenTimer1 Enabled TrueEndSubPrivateSubForm Load Timer1 Enabled FalseTimer1 Interval 1000EndSubPrivateSubTimer1 Timer i i 1Command1 Caption iIfi 0ThenTimer1 Enabled False UnloadMeEndSub 返回 1 Msgbox函数格式如下 Msgbox内容 类型 标题 帮助文件名帮助主题目录号 2 Inputbox函数格式如下 Inputbox 内容 标题 默认值 横坐标 纵坐标 帮助文件名 帮助内容id 3 字形输出相关对象名 fontname 字体类型对象名 fontsize 点数 字体的大小 对象名 fontbold true false 粗体 对象名 fontltalic true false 斜体 对象名 fontunderline true false 下划线 对象名 fontstrikethru true false 给文字加删除线 返回 2 用打印机打印信息语句如下 Printer print 内容 3 获取系统时间语句如下 对象名 caption time 1 窗体打印语句如下 窗体 printform打印整个窗体时 把窗体的 autoredraw 属性设置为 true 4 窗体加载图片语句如下 对象名 picture loadpicture 文件名 返回 1 对数组的定义定义的语句有 Dim可在窗体模块中定义数组 也可用于过程中 redim永中过程中 static用在过程中 public用于标准模块中 定义全局数组 定义数组的两种格式dim数组名 下标上界 as数据类型名称 例如dima 5 asinteger就定义了一个一维数组 一个数组如果只用一个下标就能确定数组元素的个数 那就被称谓一维数组 在这个例子中 数组的名字是a 类型为整形 里面包含6个数组元素 即a 0 a 1 a 5 5是数组a的下标上界 a的下标下界默认为0二维数组定义格式如下 例 dimb 2 3 asinteger就定义了一个二维数组 名