1.基本操作
(1)解析:在Visual Basic中,菜單項(xiàng)通過菜單編輯器來建立。
解題步驟:
第一步:打開"菜單編輯器"窗口,建立菜單項(xiàng)。
用到的菜單項(xiàng)及其屬性見表1-1。
第二步:調(diào)試并運(yùn)行程序。
第三步:按題目要求存盤。
(2)解析:在窗體上建立好控件后,再按題目要求設(shè)置各自的屬性即可。需要指出的是在框架里的控件需要畫出框架后,單擊工具箱里的控件然后在框架里拖動(dòng)畫出所需控件,不可以用雙擊的方法,否則所需的控件放不到框架里。窗體中的控件的具體位置由控件的Top、Left屬性設(shè)置,大小由屬性Height、Width設(shè)置。
解題步驟:
第一步:設(shè)置框架的Height、Width屬性分別為2500,4000;文本框的Left、Top屬性值分別為600,1200。(以上均可在屬性欄里設(shè)置)
第二步:調(diào)試并運(yùn)行程序。
第三步:按題目要求存盤。
2.簡(jiǎn)單應(yīng)用
(1)解析:在窗體上建立好控件后,先設(shè)置控件屬性,再編寫事件過程。
向列表框中添加項(xiàng)目可以用AddItem方法,也可以在屬性窗口中進(jìn)行。但題目中要求是程序運(yùn)行后自動(dòng)添加,所以利用代碼實(shí)現(xiàn)。列表框的Text屬性為最后一次選中的表項(xiàng)的文本。
解題步驟:
第一步:建立界面并設(shè)置控件屬性。
程序中用到的控件及屬性設(shè)置見表1-2。
表 1-2
控 件 屬 性 設(shè) 置 值
列表框 Name List1
文本框 Name Text1
命令按鈕 Name Caption C1 復(fù)制
第二步:編寫程序代碼。
程序提供的代碼:
Option Explicit
Private Sub C1_Click()
Dim i As Integer
' For i = ? To List1.ListCount - 1
If List1.Selected(i) = True Then
' ? = List1.List(i)
End If
Next i
End Sub
Private Sub Form_Load()
List1.AddItem "Item1"
List1.AddItem "Item2"
List1.AddItem "Item3"
List1.AddItem "Item4"
End Sub
參考代碼:
Option Explicit
Private Sub C1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
Text1.Text = List1.List(i)
End If
Next i
End Sub
Private Sub Form_Load()
List1.AddItem "Item1"
List1.AddItem "Item2"
List1.AddItem "Item3"
List1.AddItem "Item4"
End Sub
第三步:調(diào)試并運(yùn)行。
第四步:按題目要求存盤。
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |