VB工程14 百例23 新增 刪除列表項

private sub form_load()

list1.list(0) = "檔案"

list1.list(1) = "編輯"

list1.list(2) = "檢視"

list1.list(3) = "工程"

list1.list(4) = "格式"

list1.list(5) = "除錯"

list1.list(6) = "執行"

list1.list(7) = "查詢"

list1.list(8) = "圖表"

list1.list(9) = "工具"

list1.list(10) = "外接程式"

list1.list(11) = "視窗"

list1.list(12) = "幫助"

end sub

private sub list1_click()

list2.additem list1.text                     

單擊list1時，list2中增加list1的列項， sorted屬性按字母排序

list1.removeitem list1.listindex         list1中

的列項增加到list2中

end sub

private sub list2_click()

list1.additem list2.text                      單擊list2時，list1中增加list2的列項，

list2.removeitem list2.listindex         list2中

的列項增加到list1中

end sub

Vb工程 百例91 排列視窗

option explicit private sub mdiform load form1.show 顯示窗體form1 form2.show form3.show end sub private sub mnuquit click endend sub 此例子的重點知識 mdi窗體的arrang...

Vb工程 百例91 排列視窗

option explicit private sub mdiform load form1.show 顯示窗體form1 form2.show form3.show end sub private sub mnuquit click endend sub 此例子的重點知識 mdi窗體的arrang...

VB工程 百例64游標位置

option explicit private sub command1 click txt1.text 歡迎來到廊坊師範學院 end sub private sub command2 click txt1.text end sub private sub command3 click endend...