1樓:匿名使用者
checkbox 控制元件
組中可以使用 checkbox 控制元件顯示多項選擇,從而可選擇其中的一項或多項。也可以通過對 value 屬性程式設計設定
checkbox 的值。
在一個窗體中可以同時選擇任意數量的 checkbox 控制元件。
以下**會告訴checkbox 控制元件單選或多選的狀態
option explicit
private sub check1_click()
debug.print check1.value; check2.value; check3.value
end sub
private sub check2_click()
debug.print check1.value; check2.value; check3.value
end sub
private sub check3_click()
debug.print check1.value; check2.value; check3.value
end sub
2樓:
假設核取方塊名為xx,用if語句程式設計
if xx.value=ture then'寫選中的**
else
'寫未選中**
endif
3樓:匿名使用者
新增一個核取方塊
if check1.value=1 then'核取方塊選中,進行如下操作
else
'核取方塊未選中,進行如下操作
endif
4樓:
無text屬性,有caption屬性
value可以是:vbunchecked or vbchecked or vbgrayed
5樓:匿名使用者
沒有明白你的意思,我看懂的就是這些了,不好意思:
dim a as long
private sub command1_click()a = check1.value
select case a
case 1
text1.text = check1.captioncase 0
text1.text = ""
end select
end sub
沒有像你說的那樣取消不了
6樓:匿名使用者
dim 判斷1 as boolean, 判斷2 as boolean, 判斷3 as boolean
private sub check1_click()
if check1.value = 1 then 判斷1 = true
end sub
private sub check2_click()
if check2.value = 1 then 判斷2 = true
end sub
private sub check3_click()
if check3.value = 1 then 判斷3 = true
end sub
private sub command1_click()
if 判斷1 = true then text1.text = text1.text & check1.caption
if 判斷2 = true then text1.text = text1.text & check2.caption
if 判斷3 = true then text1.text = text1.text & check3.caption
end sub
private sub form_load()
判斷1 = fasle
判斷2 = fasle
判斷3 = fasle
end sub
在Excel中怎麼設定可自由打勾核取方塊
在excel中設定可自由打勾核取方塊只要插入核取方塊的表單控制元件即可。軟體工具 excel 2013 1 在選單欄上點選 開發工具 如果沒有該選單說明開發工具沒有啟用。點選選單欄的 檔案 點選選項,點選自定義功能,選中 開發工具 然後點選確定。2 在 開發工具 選單功能區下,點選 插入 表單控制元...
怎樣在中新增核取方塊,怎樣在WORD中新增核取方塊?
你的問題要用 控制元件工具箱 來完成。具體方法是 開啟word,依次點選 檢視 工具欄 控制元件工具箱 這時會在word視窗的編輯區左側出現一個新的工具條,這就是 控制元件工具箱 其中有一個按鈕是內部有小對勾的方框,用滑鼠指向時會出現 核取方塊 的提示。點一下 核取方塊 按鈕,會在word頁面上出現...
vb中的val函式什麼意思,VB程式設計中VAL是什麼意思
val函式,返回包含於字串內的數字,字串中是一個適當型別的數值。1 語法 val string 必要的string 引數可以是任何有效的字串表示式.2 說明 val 函式,在它不能識別為數字的第一個字元上,停止讀入字串。那些被認為是數值的一部分的符號和字元,例如美圓號與逗號,都不能被識別。但是函式可...