VB在过程中 optional的作用和用法 property是干啥的

Posted 2023-03-18

如题
请举例说明 我在线等

optional 是定义函数或者过程总的可选参数，property 是自定义窗体或者类的属性用的。 参考技术A optional：
在VB过程中，optional的作用是用来说明该形参是否可以缺省（即 调用函数时对应的实参是否可以缺省以及缺省值是什么）。其用法说明如下：
使用Optional关键字的VB过程的一般格式为（省略了一些无关的选项）：
Sub/Function 过程名(必选参数说明, Optional 参数名1 [As 类型 [=默认值]], Optional 参数名2 [As 类型 [=默认值]],...)
'过程体
End Sub/Function
例如：
Sub s(A As Integer, Optional B, Optional C As Integer, Optional D As Integer=50)
'过程体
End Sub
调用过程s时，只有对应于第一个形参（A）的实参是必须的，对应于后面三个形参（B，C，D）的实参都是可选的，因此，如下调用语句都是正确的：
Call s(10) 'A的值为10，B的类型和值为未知，C的值为0，D的值为50
Call s(10, 20) 'A的值为10，B的值20，C的值为0，D的值为50
Call s(10, 20, 30) 'A的值为10，B的值20，C的值为30，D的值为50
Call s(10, 20, 30, 40) 'A的值为10，B的值20，C的值为30，D的值为40
Call s(10, 20 , , 40) 'A的值为10，B的值20，C的值为0，D的值为40
但语句

Call s
是错误的。

此外，应该指出，用Optional指定的可选的参数一般都应指定参数的类型，如果可选的参数没有指定类型（比如上例中的形参B），则在过程体中一般需要使用IsMissing函数来对其进行测试，否则有可能引发错误。

Property：
关键字Property用来为自定义类定义属性过程，属性过程用来设置或获取类中数据成员的值。
由于一般用户不太需要自定义类，所以暂时可以不必关心Property的具体用法。

vb中list的用法

我想使用三个LIST控件
在第一个里选择一个后 在LIST2中出现对应的选项

然后在LIST2选择后 在LIST3显示 结果

1.对控件及其属性的基本应用，比如移动位置，放大缩小，隐藏显示

2.文本修改，文本的大小，字号，字体，字形效果

3.基本控制语句的使用

4.基础算法，初中水平的数学题（加减乘除）

1.常用控件

form，command，timer，text，label，list，combo1，scroll，option，check，frame，shape，line，image，picture

2.常用控件的属性

常用通用属性：

tabindex：设置tab键序

name（名称）：设置当前控件的名称

caption：当前控件的标题

backcolor：背景颜色

按钮的背景颜色需要将style属性设置为1

forecolor：前景颜色（常用于字体颜色）

enabled：事件是否可用

font：字体对话框

fillcolor：填充色

height：设置当前控件的高度

width：设置当前控件的宽度

left：左边距

top：顶边距

visible：控件是否可见

index：下标（索引）

各类控件的常用属性：

form窗体

autoredraw：自动重绘

border-style：边框样式

icon：设置当前窗体的图标

maxbutton：最大化按钮

minbutton：最小化按钮

picture：设置窗体的背景tup

starupposition：设置窗体在屏幕中的位置

command按钮

cancle：设置是否响应esc键

default：设置按钮是否为缺省按钮

缺省按钮：

即当焦点不在按钮类控件上时，缺省按钮会响应enter（回车键）

缺省：即系统默认状态

style：设置是否显示图形

当其值设置为1时，按钮可以设置背景颜色和背景图片（pciture属性）

label标签：

autosize：自动大小

backstyle：设置背景样式是否透明

textbox文本框：

alignment：文字对齐方式

passwordchar：设置密码字符

text：文本属性

multiline：是否可以多行显示文本

maxlength：设置内容最大长度

scrollbars：设置文本框滚动条（multiline为true）

locked：设置文本是否可以编辑

frame框架：

无特殊属性，使用框架时注意复制的控件是在框架内还是在窗体内，类似于嵌套窗体，相当于form内的一个新的窗体，其主要作用就是当容器

checkbutton多选按钮：

value：返回设置当前多选框的状态，0，选中，1，未选中，2，不可选

optionbutton单选按钮：

value：返回布尔值，true时选中，false时未选中

有关按钮的属性多数参照command的属性

combobox：组合框

list：返回设置组合框的项，项的索引从0开始，可通过list（索引）的方式访问项

style：返回设置组合框的类别，其值为0，1，2

1.下拉式组合框（系统默认，框内可以输入值）

2.简单式组合框

height属性可以修改，其他两种默认为300缇（1twip=15px）

3.下拉列表式组合框（框内不可以输入值）

listbox：列表框

multiselect：设置列表框是否可以多选

selected（x）（隐藏属性）:判断索引为x的项是否被选中，返回布尔值

scrollbars滚动条：

分垂直和水平两种，在这里列举通用的属性

max：上限

min：下限

value：当前滑块所在位置的value值

largechange：单击滑块空白区域增加的value值

smallchange：单击滑块两边箭头增加的value值

timer时钟：

interval：设置时钟每多少毫秒执行一次timer事件

image图像框：

stretch：设置图像是否自动调整大小

picture图片框：

autosize：设置图像是否自动调整大小

picture：图片对话框 参考技术A 我只做了list1和list2的,你需要可以添加更多数组以及代码来实现list3的..

Dim l1, l2, l3

Private Sub Form_Load()
Dim s$, i%
s = "颜色 星期 运动"
l1 = Split(s)
For i = 0 To UBound(l1)
List1.AddItem l1(i)
Next

s = "红色 绿色 黑色 蓝色 黄色"
l1 = Split(s)

s = "周一 周二 周三 周四 周五 周六 周日"
l2 = Split(s)

s = "羽毛球 网球 乒乓球 足球 排球"
l3 = Split(s)
End Sub

Private Sub List1_Click()
Dim i%
If List1.ListIndex = 0 Then
List2.Clear
For i = 0 To UBound(l1)
List2.AddItem l1(i)
Next
ElseIf List1.ListIndex = 1 Then
List2.Clear
For i = 0 To UBound(l2)
List2.AddItem l2(i)
Next
ElseIf List1.ListIndex = 2 Then
List2.Clear
For i = 0 To UBound(l3)
List2.AddItem l3(i)
Next
End If
End Sub 参考技术B 两种方法，第一种如楼上所言：
list1.additem "新增的项目1"
list1.additem "新增2"

第二：在list的属性框中添加，按ctrl+enter 换行

删除某一行:
Private Sub Command1_Click()
List1.RemoveItem 1 '删除第二行
End Sub

从鼠标单击选中的那一行获取行中数据:
Private Sub List1_Click()
MsgBox List1.Text 'List1.Text就是选中那行的数据
End Sub 参考技术C If List1.ListIndex <> -1 Then 注释：（当list1的内容没被选中事，不做此事件"也就不会报错"）
List2.AddItem List1.Text 注释：（list2的内容 是 list1选中的内容）
List1.RemoveItem List1.ListIndex 注释：（将list1中选中的内容删除）
End If