Vb中的各类语句集(第一集)

返回
1.对数组的定义 对数组的定义 定义的语句有： 定义的语句有：Dim可在窗体模块中定义数组，也可用于过程中；redim 永中过程中； static 用在过程中；public 用于标准模块中，定义全局数组。 定义数组的两种格式 dim 数组名（下标上界）as 数据类型名称 ，例如dim a（5）as integer 就定义了一 个一维数组，一个数组如果只用一个下标就能确定数组元素的个数，那就被称谓一维 数组。在这个例子中，数组的名字是a，类型为整形，里面包含6个数组元素，即a （0）a（1）....a（5）。5是数组a的下标上界，a的下标下界默认为0 二维数组定义格式如下： 二维数组定义格式如下 例：dim b（2,3）as integer 就定义了一个二维数组，名字为b，类型为整形，该数组 有三行（0~2）4咧（0~3）。 数组的默认值不从0开始 例如：数组默认从1开始时，把option base 1 要放在窗体层或者模块层，而不能出现 在过程中，并且要放在数组定义之前。
Vb中的各类语句集合典 Vb中的各类语句集合典
1.电脑重启函数语句 2.软件随机启动代码 3.延时n s后执行代码 4.Msgbox 函数 5.Inputbox 函数 6.字形输出 7.窗体打印 8.把信息用打印机打印 9.获取系统时间 10.窗体加载图片语句 11.对数组的定义
1.重启 Shell “shutdown /r /t 0”，vbhide 重启 2.随机启动 随机启动
返回
1.延迟 延迟n/s后执行的语句 延迟 后执行的语句 Dim i As String Private Sub Command1_Click() i = 10 If IsNumeric(i) Then Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() i=i-1 Command1.Caption = i If i = 0 Then Timer1.Enabled = False: Unload 1.窗体打印 窗体打印 语句如下： 窗体.printform 打印整个窗体时，把窗体的 “autoredraw”属性设置为“true” 2.用打印机打印信息 用打印机打印信息 语句如下： Printer.print【内容】 3.获取系统时间 获取系统时间 语句如下： 对象名.caption=time 4.窗体加载图片 窗体加载图片 语句如下： 对象名.picture=loadpicture（“文件 名”）
返回
1.Msgbox函数 函数 格式如下： Msgbox 内容【，类型】 【，标题】【，帮助文件名 帮助主题目录号】 2.Inputbox函数 函数 格式如下： Inputbox（内容【，标题】【，默认值】【， 横坐标，纵坐标】【，帮助文件名，帮助内 容id】） 3.字形输出相关 3.字形输出相关 对象名.fontname=字体类型 对象名 字体类型 对象名.fontsize=点数（字体的大小） 点数（ 对象名 点数 字体的大小） 对象名.fontbold=true（false）（粗体） ）（粗体 对象名 （ ）（粗体） 对象名.fontltalic=true（false）（斜体） 对象名 （ ）（斜体） ）（斜体 对象名.fontunderline=true（false）（下划线） ）（下划线 对象名 （ ）（下划线） 对象名.fontstrikethru=true（false）（给文字加删除线） ）（给文字加删除线 对象名 （ ）（给文字加删除线）
Option Explicit '---------------处理注册表的函数 处理注册表的函数----------------------处理注册表的函数 Private Declare Function RegCreateKey& Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey&, ByVal lpszSubKey$, lphKey&) Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long Const HKEY_LOCAL_MACHINE = &H80000002 Const REG_SZ = 1 'HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run Private Sub Command1_Click() '声明变量 声明变量 Dim sKeyName As String, sKeyValue As String, sKeyValueIcon As String Dim Ret As Integer, lphKey As Long sKeyName = "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&) End Sub