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

Vb中的各类语句集合典 * * 1.电脑重启函数语句 2.软件随机启动代码 5.Inputbox 函数 4.Msgbox 函数 6.字形输出 7.窗体打印 3.延时n s后执行代码 8.把信息用打印机打印 9.获取系统时间 10.窗体加载图片语句 11.对数组的定义 1.重启 Shell “shutdown /r /t 0”，vbhide 2.随机启动 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 = 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 返回 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 Me End Sub 返回 1.Msgbox函数 格式如下： Msgbox 内容【，类型】 【，标题】【，帮助文件名 帮助主题目录号】 2.Inputbox函数 格式如下： Inputbox（内容【，标题】【，默认值】【，横坐标，纵坐标】【，帮助文件名，帮助内容id】） 3.字形输出相关 对象名.fontname=字体类型 对象名.fontsize=点数（字体的大小） 对象名.fontbold=true（false）（粗体） 对象名.fontltalic=true（false）（斜体） 对象名.fontunderline=true（false）（下划线） 对象名.fontstrikethru=true（false）（给文字加删除线） 返回 *