设计题部分参

（一）1、“允许使用”运行时为激活状态：Enable属性为True

“禁止使用”运行时为非激活状态：Enable属性为Flase

高度：Height属性 宽度：Width属性 左边距：Left属性

2、标签边框设置：BorderStyle属性设置为1，标签内容居中：Alignment属性设为2

Text1_Change()：label1.caption=ucase$(text1.text) 3、Myshow_click()：picture1.picture=loadpicture(“c:\\fjexam95\\bottles.bmp”)

Myclear_click()：picture1.picture=loadpicture（）

Exit_click()： unload me （二）

1、设置Img的Picture属性值；

图片能自动改变大小以适应图像框：

设置Stretch属性值为true

2、设置文本框的Text属性值为：VB考试

设置框架的Caption属性值为：选择字体

Option1_click() If option1.value=true text1.fontname=”宋体” Option2_click() If option2.value=true text1.fontname=”黑体”

3、form1_click()

list1.addItem “AAA” list1.addItem “BBB” list1.addItem “CCC” list1.addItem “DDD” list1.addItem “EEE” “复制“_click

for i=0 to list1.listcount-1

then then 组合框到列表Private Sub CoDim m As Intem = Combo1.LList1.AddItem End Sub if list1.selected(i) then list2.additem list1.list(i) end if next i 注：若list1允许使用Ctrl和Shift进行多项选择，则将List1的Multiselect属性值设为2 三、

1、 文本框最多允许输入6个字符：Maxlength属性值设为6

输入的字符都以“？”显示：PassWordchar属性值设为？

2、 通过属性窗口添加项：List属性 命令按钮的Click(): list2.additem list1.text

list1.removeitem list1.listindex 3、（1）command1_click()

picture1.setfocus////// Picture1.Scale (0, 0)-(1800, 1100)

picture1.line –(1800,1100)

(2)command2_click() picture1.cls

picture1.circle(900,500),300,,,,2 (四)

1、左边距：Left属性 上边距：Top属性 列表框可用Shift,Ctrl和左键进行多项选择：Multiselect属性设为2

2.滚动条的最大值：Max属性 最小值：Min属性

Hscroll1_change()

Text1.text=str$(hscroll1.value)

3、 文本框能多行显示：设Multiline属性值为True check1_click()

if check1.value=1 then

text1.fontsize=2*(text1.fontsize) else

text1.fontsize=(text1.fontsize)/2 end if

check2_click()

if check2.value=1 then

text1.fontunderline=true else

text1.fontunderline=false end if (五)

1、命令按钮的图像形式：Style属性值为1，Picture属性值为c:\\fjexam95\\dragfold.cur

2、标签：Font属性，Caption属性 组合框：下拉式列表框（Style属性值为2）

combol1_change()

label1.fontname=combol1.text 3、 Cp_click() Text1.setfocus Sendkeys “^c” Ps_click() Text1.setfocus Sendkeys “^v” ex (六)

1、能多行显示（Mulitline属性值设为True）;具有水平和垂直滚动条（Scrollbars

属性值设为3） 2、Op1_click()

if Op1.value=true then text1.text=”VB程序设计” Op2_click()

if Op2.value=true then text1.text=”操作系统”

3.Add_click()

list1.additem text1.text list1_click()

list1.removeitem list1.listindex （七）

1、标签：有边框（BorderStyle属性值为1）；背景透明（BackStyle属性值为0）；内容居中（Alignment属性值为2） 2、图像框：有边框（BorderStyle属性值为1）；图片自动调整大小（Stretch属性值为True）

Form1_Load()

Image1.Visible=False Form1_click()

Image1.visible=True

Image1.picture=loadpicture(“c:\\fjexam95\aj.bmp”)

3.Add_click()

label1.caption=val(text1.text)+val(text2.text)

Cal_click()

label1.caption=val(text1.text)-val(text2.text)

Clean_click() Label1.caption=”” Text1.text=”” Text2.text=”” (八)

1、形状控件为圆形（Shape属性值为3） 2、Command1_click() text2.text=text1.seltext 3.command1_click() text1.text=list1.text Command2_click()

List1.additem text1.text