程式原始碼：
dim a(5) as string
private sub combo1_click()
a(5) = combo1.text
end sub
private sub command1_click()
cb a(5), form1
end sub
private sub form_load()
dim i as integer
a(1) = "紅色"
a(2) = "黑色"
a(3) = "黃色"
a(4) = "藍色"
for i = 1 to 4
combo1.additem a(i)
next i
end sub
sub cb(ys as string, co as object)
if typeof co is form then
select case ys
case "紅色"
co.backcolor = rgb(255, 0, 0)
case "黃色"
co.backcolor = rgb(255, 255, 0)
case "綠色"
co.backcolor = rgb(0, 255, 0)
case "藍色"
co.backcolor = rgb(0, 0, 255)
case else
msgbox "無顏色，請選擇", vbokonly, "提示"
end select
end if
end sub
MFC 改變Eidt背景顏色 自定義類
新建乙個mfc工程並新增乙個新類，這裡我的叫做ccoloredit 父類是cedit,在新類中重寫 wm ctlcolor事件，注意是 不是wm ctlcolor，在函式中新增 hbrush ccoloredit ctlcolor cdc pdc,uint nctlcolor return null...
自定義形狀窗體
在用vb程式設計中，有時，我們需要使用乙個跟不規則背景有相同形狀的不規則窗體，怎麼辦呢？首先，我們需要設定無邊框窗體，即 borderstyle 0 其次，把背景覆蓋不住的窗體背景設定成透明。這需要用到api函式，private declarefunction getwindowlong lib u...
使用自定義窗體
一 從頭定義新自定義窗體 1.新建乙個目錄，再新建乙個工程。2.定義這個自動建立好的窗體為自己需要的樣式。3.包存這個窗體和單元到希望的目錄，工程檔案就儲存在新建的目錄。4.將沒有用的工程聯通目錄一併刪除。二 在新工程中使用自定義窗體 1.新建乙個工程。2.移除自動建立的單元 自動建立的form也會...