陈伟视频11-20

约定不等于承诺〃 2024-04-19 15:51 19阅读 0赞

11：过程函数：

过程：  没有返回值

事件过程 自定义过程 属性过程

函数：  有返回值

系统函数 自定义函数 属性函数

自动生成form load 是事件过程

模块里可定义各种函数

Private（Private只能在当前使用因为是私有） sub mysub1（）

Public为全局函数（Public能在当前应用程序内使用） sub mysub2（）

msgbox“call mysub2” 生成对话框 （可在单击事件直接调用）

Long 只在第一次初始化

Publicsub mysub2（Byref m as long, optional n as long =500）(调用参数)

12：自定义函数

要使用函数的返回值 必须要带括号

常用系统函数：cbool cbyte ccur cdate clng csng…（expression）

转换 一般为Cxxx 或 xxx 对于C来说国际性程度好一点（每个国家日期不同等等）

数值函数：ABS Chr ASc Hex Oct  Int Fix Val Round

伪随机数：Ramdomize Rnd

随机数产生为伪随机数，为固定序列生成

Randomize

Dim a as double, b as double

Dim I as long

Dim num as long

For I = 1 to 100000

A = rnd:b=rnd

If a \* a + b \*b<1 then

Num= num

End if

Next I

msgbox  cstr(4\# \*unm / 100000\#)

13:常用函数

randomize（-1）

Dim I as long

Dim s as string

For I = 1 to 10

S=s & CStr(rnd) & "-"

Next I

Msgbox s

(当用负值作为随机数发生所产生的序列值固定，最好只执行一次，只有在初始化时才会固定)

对于字符串转换 bytes vbfromUnicode

Msgbox cstr(Ubound(out)- Lbound(out)+1)

日期

日期函数Date

DateSerial（year，Month，day）

DateValue（date）

DateDiff（interval，Date1，Date2,\[firstdayofweek\],\[firstweekofyear\]）

路径（文件 ）函数

Fir\[(pathname\[,attributes\])\]

颜色函数

RGB（red，green，blue）

red，green，blue：0--255

在16位的话分配一般为 565 或555

QBColor（color）

color：0-15

颜色常数：vbred，vbblue…

14：注册表函数

Getallsettings 表明存取注册表中某一个应用程序的section

Savesetting 写入信息

Deletesetting 删除

环境函数

Command  返回VB中程序执行的命令行

Environ

15：应用函数

输出当前月份 当前日期 以及某个日期的上一个月最后一天的日期

Dim mydate

Label1.caption=cstr（month（date））

Label2.caption=cstr（dateserial(2000,5,1-1)）

Label3.caption=cstr（weekday(dateserial(200,3,1-1))）

Mydate = \#10/15/2000\#

Label1.caption=cstr（dateserial(year(mydate), month(mydete),1-1）

一个简单加密解密程序示例

针对由可打印的ASCII码字符（0-9，a-zA-Z，+【：，\*等）组成的字符串进行加密解密

0  or  1 = 1 or 0=1

0  or  0  = 0 or 0=0

1  or  0 = 1 or 1=0

1  or  1 = 0 or 1=1

a抑或b再抑或a结果为b

16：VB窗口管理

SDI单文档界面

MDI多文档界面

其他（Dialog,flash,…）

分为单文档界面和多文档界面

在工程里设置属性启动对象为sub main函数

在模块里添加sbu main函数

在工程里添加mdi窗体（多文档界面包含单文档界面相当于背景窗口，一般设为启动窗体）

最多显示三种种类窗体

显示界面调用form1.show 载入用load form隐藏可用 form1.hide  卸载不可用用unload form1

me代表当前运行时所代表的对象

17：窗体管理

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80NDgxMjU2MA_size_16_color_FFFFFF_t_70][]

Click（单击事件）

Dblclick（双击事件）

Load （装入事件.程序运行自动运行的事件）

Unload(卸载事件.关闭窗口运行的事件）

Activate （活动事件）

Deactivate （ 非活动事件 ）

Paint（绘画）事件（当窗体移动或放大时覆盖了一个窗体所出发的）

18窗体属性

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80NDgxMjU2MA_size_16_color_FFFFFF_t_70 1][]

ScaleMode获得或设置一个值,指示当使用graphics 方法或可定位的控件时,自定义坐标系的单位, 有8 种可选：0 自定义1 表示单位为twip(缇),每英寸=1440 缇,每厘米=567 缇2 表示单位为point(磅) ,每英寸=72 磅,每磅=20 缇3 表示单位为像素,是监视器或打印机分辨率的最小单位4 表示单位为字符,每个水平单位为120 缇,每个垂直单位为240 缇5 表示单位为in(英寸)6 表示单位为mm(毫米)7 表示单位为cm(厘米)

19：多文档界面窗口

1添加MDI窗体

把form1的mdichild改为true

再把启动窗体设置成多文档界面窗体

在多文档界面单击事件里写form1.show

设置别的窗口单击事件弹出多文档mdiform1.show

Dim frms() as form1

Static num as long

Num = num + 1

Redim preserve  frms(num) as form1

Set frms(num) = new form1

Frms(num).caption = "mytitle" & num

Frms(num).show（以上为点击出一个窗体）

frms（2）.Zorder 把这个窗体置顶到顶层、

窗体一定要加载到内存中

20：控件

ActiveX组件 （代码组件 OLE自动化 第三方控件）

控件按钮=某个值、

建议直接属性打在代码里

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80NDgxMjU2MA_size_16_color_FFFFFF_t_70]: https://image.dandelioncloud.cn/pgy_files/images/2024/04/18/bc026945b82c4e3abd198d0594656e58.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80NDgxMjU2MA_size_16_color_FFFFFF_t_70 1]: https://image.dandelioncloud.cn/pgy_files/images/2024/04/18/baedfa501dc74d19968de1cd36de0710.png