050207.htm
来自「提供一个VB学习教程,入门级。来源于网上」· HTM 代码 · 共 202 行 · 第 1/2 页
HTM
202 行
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>vb study</title>
<style>
<!--
td {font-size: 9pt}
A:link {text-decoration: none; color: #0033cc;font-size: 9pt}
A:visited {text-decoration: none; color: #0066CC;font-size: 9pt}
A:active {text-decoration: none; color: #ff0000; font-size: 9pt}
A:hover {text-decoration: underline; color: #000000;font-size: 9pt}
-->
</style>
</head>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="98%">
<tr>
<td width="100%"><a href="#">你的位置</a>：<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="#">VB学习</a>--<a href="#">代码</a></td>
</tr>
<tr>
<td width="100%">
<p align="center">代码</td>
</tr>
<tr>
<td width="100%"><br>
基本函数：
<p>★ 接收用户输入inputbox函数：在程序中，随时可以用这个函数来接收用户的输入。调用它返回用户在文本框中输入的字符串。格式：<br>
字符串变量=inputbox(提示文字，标题栏文字，文本框缺省值）<br>
例：lxn$=inputbox("请输入你的名字","我爱VB","my name is")<br>
★ 显示输出msgbox函数：将要输出内容写在msgbox函数的参数里，调用msgbox还可以返回一个"用户单击了msgbox对话框的哪个按纽"的值。<br>
格式：变量=msgbox(输出内容，按纽和图标参数，标题栏）<br>
如：<br>
lxn = MsgBox("我爱美女", 32, "美女")<br>
其中按纽和图标参数有0，1，2，3，4，5，16，32，48，64……等数值。<br>
上例lxn用于接收用户在对话框中按下"是""否""重试""取消"……等按纽值。<br>
关于msgbox函数的"按纽参数"和返回值：按纽参数是指在消息框中出现的按纽和图标组合："按纽组"的值可选：<br>
vbOKonly(0)只显示确定按纽；<br>
vbOKCancel(1)显示确定取消按纽；<br>
vbAbortRetryIgnore(2)显示终止重试忽略按纽；<br>
vbYesNoCancel(3)显示是、否取消按纽；<br>
vbYesNo(4)显示是、否按纽；<br>
vbRetryCancel(5)显示重试取消按纽。<br>
"图标"的值可选：<br>
vbCritical(16)显示"×"图标；<br>
vbQuestion(32)显示"？"图标；<br>
vbExclamation(48)显示"！"图标；<br>
vbinfomation(64)显示"i"图标。<br>
每一种组合都只限用一个"按纽组"值+一个"图标"值，如显示"是、否和？图标"则用vbYesNo+vbQuestion或用数字36（用4+32得到）。<br>
返回值：返回用户单击了哪个按纽：vbOK（或1）为用户单击了"确定"纽；vbCancel(值2)为用户单击了"取消"纽；vbYes(值6)为用户单击"是"按纽；vbNo(值7)为用户单击了"否"按纽；vbAbort(值3)用户单击"终止"纽；vbRetry(值4)用户单击"重试"纽；vbignore(值5)为用户单击"忽略"纽。<br>
处理字符串的有用的函数：<br>
Ucase 功能：将字符串中的字母改为大写。如：ucase("Kim"),返回KIM。<br>
Lcase 功能：将字符串中字母改为小写。如：Lcase("Lxn"),返回lxn.<br>
len 功能：确定字符串长度。如：len("mississippi"),反回11。<br>
right 功能：返回字符串右部指定个数的字符，如：right("lixinning"，4) 返回ning<br>
left 功能：返回字符串左部指定个数的字符，如：left("lixinning",4)<br>
返回lixi<br>
mid 功能：从某一指定起始点开始返回字符串中间指定个数的字符。如 <br>
mid("lixinning",4,3),返回inn.<br>
instr 功能：从一个较大字符串中查找另一个字符串的起始点，如；<br>
（整型变量）lxn=instr("bobby","bby"),lxn变量返回值3。<br>
string 功能：重复指定字符串中的字符，返回新的字符串。如 string(8,"*")<br>
返回 ********<br>
asc 功能：返回字母ASCII码值，如：asc("A"),返回65。<br>
chr 功能：返回ASCII码值对应的字符，如：CHR$(65),返回 A。<br>
Xor 功能：对两个数字进行"异或"操作，其返回值可用来对文件进行加密，解密<br>
如：65 Xor 50 返回115。 115 Xor 50 返回65。（位操作）<br>
★ 在VB中如何打开一个可执行文件？用shell函数，格式为：<br>
任务ID号=shell(路径及程序名称，运行时的窗口样式）<br>
如：x = Shell("D:\unzipped\tc001\Ｃ语言速成3.0\caic300.exe", 1)<br>
任务ID号：一个可执行文件如果打开成功，就返回一个任务ID号（一个整数），如果打开不成功，就返回0。随便用一个变量表示。<br>
路径及程序名称：包含路径及程序名，必需的参数或命令行变量，如打开同一个包里的程序，用CurDir关健字取得当前路径，由于在同一路径下，再加上要执行的程序名就可以了，如：<br>
Private Sub Command4_Click()<br>
Y$ = "\软件片尾.exe" 用一个字符串变量，注意：斜杠不能丢。<br>
hl$ = CurDir + Y$ CURDIR是返回当前的路径（自动获取）<br>
x = Shell(hl, 1) h1代表了完整的路径名及程序名称<br>
这样，不管"软件片尾"在什么路径下，只要和这个VB程序在一起，就可运行它。<br>
运行时的窗口样式：有0--6一共七个可选样式，0表示隐藏窗口，1表示照原样运行，2表示以图标显示，3表示最大化窗口，4表示最近使用这个程序时的窗口样式等。一般选1。<br>
求数据绝对值的函数：abs(数据)<br>
msgbox对话框在出现时会伴随一个警告声音，如果用"变量=msgbox("a",b,"c")"的方式，即作为表达式，声音重一些，如果用"msgbox "a",,"c" "，即作为语句，声音就轻些。<br>
在调用函数或过程时，该函数或过程如果作为表达式，则其实参要括号，如果调用时是作为语句，实参则不要括号。下面两句是等价的。<br>
SetWindowTextA Form1.hwnd, "API函数修改标题栏文字" --函数语句<br>
Call SetWindowTextA(Form1.hwnd, "API函数修改标题栏文字") --函数为表达式<br>
★ 色彩函数：RGB（红，绿，蓝）；我们知道，任何色彩都是由红色，绿色，蓝色三原色组成的，用RGB（红，绿，蓝）函数，指定一个色彩中的红，绿，蓝色的成份值，来得到各种各样的颜色，三种原色的成份值范围在0-255的整数之间，值越大表示此类色成份越浓，如：<br>
text1.backcolor=RGB(255,0,0) ，TEXT对象背景色为红色；<br>
text1.backcolor=RGB(0,255,0) TEXT对象背景色为绿色<br>
text1.backcolor=RGB(0,0,255) TEXT对象的背景色为蓝色<br>
text1.backcolor=RGB(255,255,0) TEXT对象的背景色为黄色……<br>
三种成份值都为0时为黑色，三种成份值都为255时为白色。<br>
在我们编程中通常用RGB表示颜色，而缺省情况是用1个长整数来表示的，怎样将point方法返回的长整数转换为RGB呢？公式如下：用XXX表示point方法返回的表示颜色的长整数：<br>
红色成份=XXX Mod 256<br>
绿色成份=((XXX And &HFF00)/256) Mod 256<br>
蓝色成份=（XXX And &HFF0000）/65536<br>
★ DIR函数：查找文件或确定某文件是否存在。返回文件名，格式：<br>
变量=DIR（路径及文件名，属性）<br>
a=dir("d:\vb6\lxn*.*")(用来查找时就要用通配符*来代替一些部分）<br>
可以不指明文件名，而只指明路径，如a=dir("c:\windows\"),这时，多次调用可连续返回"windows"这个文件夹目录下的全部常规文件。（隐含文件等要用"属性"参数），上例a为查到的满足条件的第一个文件，如果要将所有满足条件的文件全部查到，则要省略参数重复调用DIR函数，在第二次调用DIR省略参数时，视为接着寻找下一个满足条件的文件，例下：<br>
Private Sub Command1_Click()<br>
lxn = Dir("d:\vb6\lxn*.*") 指定一定的路径，在这个文件夹下查找<br>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?