1樓：匿名使用者
已看到了補充部分，其實下面**就可以實現上述目標，或者你也可以把它放在timer控制元件內實時監視。
建議用控制元件陣列check1(index=0-7),然後用下面**判斷即可。(當然，不管控制元件陣列元素有多少，下面**均適用)
private sub check1_click(index as integer)
dim i as integer
for i = check1.lbound to check1.ubound
if check1(i).value = 1 then
label1.enabled = true
exit for
end if
next
if i = check1.ubound + 1 then label1.enabled = false
end sub
2樓：匿名使用者
if check1.value+check2.value+check3.
value+check4.value+check5.value+check6.
value+check7.value=0 then label1.enable=false else ..
vb程式設計問題,關於多個核取方塊checkbox的判斷問題
3樓：匿名使用者
使用控制元件陣列
private sub check1_click(index as integer)
dim i as integer
dim tmpstr as string
for i = 0 to check1.ubound
tmpstr = tmpstr & cstr(check1(i).value)
next
text1.text = tmpstr
end sub
private sub form_load()
dim i as integer
check1(0).caption = ""
check1(0).width = 200
for i = 1 to 7
load check1(i)
check1(i).visible = true
check1(i).left = check1(i - 1).left + 300
next
end sub
private sub form_unload(cancel as integer)
dim i as integer
for i = 1 to check1.ubound
unload check1(i)
next
end sub
4樓：落葉l無情
建一個checkbox的控制元件陣列（設name=check1)在 form1_load裡面設定 text1.text=string(ubound(check1)+1,"0")，或者在text1屬性裡面設定text="0000000000000000" (0的個數等於checkbox的個數)
private sub check1_click(index as integer)
mid(text1.text,index+1,1)=str(check1.value)
end sub
5樓：匿名使用者
看附件吧 1000千個 都沒問題 **很簡單
vb中核取方塊的問題
6樓：匿名使用者
private sub check1_click() '粗體核取方塊 如果是text控制元件時，把label1改掉
if check1.value = 0 then '假如check的值為0(flase),即沒有選中時，則
label1.fontbold = flase 'label1 粗體屬性為flase
else '否則 ,即true選中狀態
label1.fontbold = true 'label1 粗體屬性也為true（下面的按鈕大同小異）
end if
end sub
private sub check2_click() '斜體核取按鈕
if check2.value = 0 then
label1.fontitalic = false
else
label1.fontitalic = true
end if
end sub
private sub check3_click() '下劃線核取方塊
if check3.value = 0 then
label1.fontunderline = false
else
label1.fontunderline = true
end if
end sub
7樓：
if check1.value then '加粗object.fontbold = trueelse
object.fontbold = falseend if
其他的都一樣，就是把**中的check1、object改成你自己的控制元件、fontbold改成fontitalic（傾斜）或者fontunderline（下劃線）就可以了
vb中核取方塊的問題
8樓：匿名使用者
dim obj as object
dim xcount as long
for each obj in me.controlsif typename(obj) = "checkbox" then' debug.print obj.
valueif obj.value = 1 thenxcount = xcount + 1
if xcount > 2 then
msgbox "最多選兩項"
'在哪個check中檢查設定哪個check為0'heck4.value = 0
end if
end if
end if
next
其實我比較建議用陣列來實現。。。
9樓：匿名使用者
我有一個思路，具體**你自己想，用文字框來記錄已選定的數，初值為0，選中1個，文字框加1，寫在核取方塊的相應事件中。這樣需要5個if結構。如果文字框值達到3，則彈出msgbox。
VB裡關於mid函式的使用，vb中的mid函式
首次提問，結果是 software 追問，結果是 e mid 字串,m,n 返回字串的第m位起共n位的子字串。vb中的mid函式 mid是visual basic和microsoft excel中的一個字串函式，作用是從一個字串中擷取出指定數量的字元。這個函式的3個引數各在vb和excel中互相等價...
關於vb的問題！關於VB的問題
在文字框的text屬性裡設為 中國。不就ok了。剛測試過，沒問題的，你在form里加個command1，點選後，可以實現你說的效果，有問題，訊息問我。private declare sub sleep lib kernel32 byval dwmilliseconds as long private...
關於vb的if語句的寫法，關於VB的IF語句的寫法
根據表示式的值有條件地執行一組語句。語法 if condition then statements else elsestatements 或者，可以使用塊形式的語法 if condition then statements elseif condition n then elseifstateme...