此例是到現在為止，編寫的最大，窗體最多，**最多，耗時最長的例子，剛看到是有些暈菜！但是一想行動下移，我還是慢慢的敲寫了下來！期間出現了一點點小麻煩，但是咱韌勁足，一點點克服啦！我勝利啦！寫出來啦！執行成功！留下一點點心酸記憶，問題越多我進步的機率越大，慶幸！加油！
新知識：commondialog控制項提供一組標準的操作對話方塊，進行諸如開啟和儲存檔案，設定列印選項，以及選擇顏色和字型等操作。其鏈結
form1
option explicit
private sub chk1_click()
if chk1.value = 1 then
'如果勾選核取方塊chk1
form2.lbl1.fontbold = true '
窗體form2上標籤框中的文字加粗顯示
else '
如果沒有勾選核取方塊chk1
form2.lbl1.fontbold = false
'窗體form2上標籤框中的文字不加粗顯示
end if
end sub
private sub chk2_click()
if chk2.value = 1 then
form2.lbl1.fontunderline = true
'窗體form2上標籤框中的文字加下劃線顯示
else
form2.lbl1.fontunderline = false
end if
end sub
private sub chk3_click()
if chk3.value = 1 then
form2.lbl1.fontstrikethru = true
'窗體form2上標籤框中的文字加刪除線顯示
else
form2.lbl1.fontstrikethru = false
end if
end sub
private sub chk4_click()
if chk4.value = 1 then
form2.lbl1.fontitalic = true
'窗體form2上標籤框中的文字加傾斜顯示
else
form2.lbl1.fontitalic = false
end if
end sub
private sub command1_click()
cdl1.showfont
'顯示字型對話方塊
form2.lbl1.font = cdl1.fontname
'窗體form2上標籤框的字型是字型對話方塊
'中所選擇的字型
form2.lbl1.fontsize = cdl1.fontsize '
窗體form2上標籤框的文字的大小
'對話方塊中所選擇的字型大小
end sub
private sub command2_click()
cdl1.showcolor
form2.backcolor = cdl1.color
end sub
private sub command3_click()
cdl1.showcolor
form2.lbl1.forecolor = cdl1.color
end sub
private sub command4_click()
form2.show
end sub
private sub command5_click()
endend sub
form2
option explicit
private sub chk1_click()
if chk1.value = 1 then
'如果勾選核取方塊chk1
form2.lbl1.fontbold = true '
窗體form2上標籤框中的文字加粗顯示
else
'如果沒有勾選核取方塊chk1
form2.lbl1.fontbold = false '
窗體form2上標籤框中的文字不加粗顯示
end if
end sub
private sub chk2_click()
if chk2.value = 1 then
form2.lbl1.fontunderline = true
'窗體form2上標籤框中的文字加下劃線顯示
else
form2.lbl1.fontunderline = false
end if
end sub
private sub chk3_click()
if chk3.value = 1 then
form2.lbl1.fontstrikethru = true
'窗體form2上標籤框中的文字加刪除線顯示
else
form2.lbl1.fontstrikethru = false
end if
end sub
private sub chk4_click()
if chk4.value = 1 then
form2.lbl1.fontitalic = true '
窗體form2上標籤框中的文字加傾斜顯示
else
form2.lbl1.fontitalic = false
end if
end sub
private sub command1_click()
cdl1.showfont '
顯示字型對話方塊
form2.lbl1.font = cdl1.fontname
'窗體form2上標籤框的字型是字型對話方塊
'中所選擇的字型
form2.lbl1.fontsize = cdl1.fontsize
'窗體form2上標籤框的文字的大小
'對話方塊中所選擇的字型大小
end sub
private sub command2_click()
cdl1.showcolor
form2.backcolor = cdl1.color
end sub
private sub command3_click()
cdl1.showcolor
form2.lbl1.forecolor = cdl1.color
end sub
private sub command4_click()
form2.show
end sub
private sub command5_click()
endend sub
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...
VB工程 百例69 訊息框
option explicit private sub form click dim x as integer x msgbox 你單擊的是窗體，是嗎？35,詢問框 if x 6 then 若們四個box的函式的返回值是6 msgbox 你選擇了 是 按鈕 vbinformation,資訊框 彈出的...
VB工程 百例74 窗體變色
option explicit private sub form mousedown button as integer,shift as integer,x as single,y as single if button 2 then 若單擊滑鼠右鍵 popupmenu mnuformcolor ...