vb中怎樣把單選框或核取方塊對應的選項在文字框中顯示

2022-03-27 21:56:43 字數 3283 閱讀 1270

1樓:匿名使用者

1、開啟vb6.0軟體,新建一個標準exe工程;

2、在設計介面上新增兩個option控制元件、兩個check控制元件和一個text控制元件,option控制元件的名稱分別命名為單選a-1和單選a-2,check控制元件的名稱分別命名為複選b-1和複選b-2。

private sub check1_click()if check1.value = 1 thentext1.text = check1.captionend if

end sub

private sub check2_click()if check2.value = 1 thentext1.text = check2.captionend if

end sub

private sub form_load()text1.text = ""

end sub

private sub option1_click()if option1.value = true thentext1.text = option1.captionend if

end sub

private sub option2_click()if option2.value = true thentext1.text = option2.captionend if

end sub

5、執行工程,選中單選框或者核取方塊,可以在text文字框中看到單選框或者是核取方塊的名稱。

2樓:雅虎種子

用個條件語句模式描述一下:

if 單選框或核取方塊(名).value thentext1.text=單選框或核取方塊(名).captionend if

樓主看情況做吧!

3樓:匿名使用者

點選單選或者核取方塊的時候 把你要的值賦給文字框就可以了

vb中如何讓選擇的多個核取方塊在一個文字框中分行顯示?

4樓:青松踏雪

不好意思,樓上**沒有問題,可是功能不能按提問者實現。

這個題的考點在「所選的每一個核取方塊的caption屬性佔一行」

所以,首先需將文字框的multiline屬性設為true,如果需加滾動條,可以設定文框的scrollbars屬性,之後再建立核取方塊陣列,最後**:

private sub check1_click(index as integer)

if check1(index).value = vbchecked then text1 = text1 & check1(index).caption & vbcrlf

end sub

5樓:匿名使用者

1、開啟visual basic 6.0軟體,新建一個標準exe工程,在新建的工程窗體設計器上新增一個有10個元素的check陣列控制元件和一個text控制元件;

2、設定text1的multiline屬性為true;

private sub check1_click(index as integer)

dim i as integer

dim str as string

str = ""

for i = 0 to 9

if check1(i).value = 1 then

str = str & check1(i).caption & vbcrlf

end if

next i

text1.text = str

end sub

private sub form_load()

dim i as integer

for i = 0 to 9

check1(i).caption = i

next i

end sub

4、單擊執行按鈕,或者按下f5按鈕,執行該工程,勾選check控制元件,可以使多選框在文字框中分行顯示。

6樓:在世貿天階灌籃的高飛燕草

新增核取方塊陣列(index 0-13)

private sub check1_click(index as integer)

if check1(index).value = vbchecked then text1 = text1 & check1(index).caption & vbcrlf

end sub

vb中在選擇一個單選框並按確定按鈕才會在文字框中顯示相應內容

7樓:林賢佐

在vb視窗中加入command1,option1,text1然後將以下**寫入**窗。

private sub command1_click()if option1.value = true thentext1.text = "這裡有內容啦!"

option1.enabled = falseelse

msgbox "單選框沒有選中!"

end if

end sub

private sub form_load()command1.caption = "確定"

option1.caption = "單選框"

text1.text = ""

option1.value = falseend sub

8樓:匿名使用者

建單選框option1、文字框text1、按鈕command1實現:選單選框後再按按鈕才顯示文字,否則不顯示private sub command1_click()if option1=true then text1.text="你所需顯示的內容"

end sub

vb中如何在文字框中顯示多一個核取方塊和兩個單選框的內容,程式,,急急

9樓:激舞傳奇

你是指下圖這種效果吧?

分為兩步:

①.先新增文字框,然後不分先後;如果先新增核取方塊或單選框,那就需要剪下掉再貼上在文字框上面了。

②把核取方塊和兩個單選框的背景色(backcolor)設為白色(&h00ffffff&)就可以了。

10樓:匿名使用者

文字框內不能加核取方塊!

vb中單選框和核取方塊的使用

11樓:匿名使用者

單選框可以根據它的value屬性值來判斷;

value = true 表示被選中value = false 表示未被選中核取方塊可以根據它的value屬性值來判斷;

value = 1 表示被選中

value = 0 表示未被選中

VB單選框問題,VB 單選框的問題 選中的問題

法1 你給他賦個初始值 就不可能出現四個都不選的情況。法2 判斷四個按鈕的選擇狀態,if not or option2.value or or then msgbox 你必須選擇一項!private sub command1 click 直接利用option1,option2 四個控制元件。dim ...

怎樣把VB裡面的PictureBox控制元件的背景設定成透明

新增模組一個模組宣告如下apipublic declare function gditransparentblt lib gdi32 byval hdc1 as long,byval x1 as long,byval y1 as long,byval w1 as long,byval h1 as l...

excel中怎樣實現單選按鈕雙擊後取消選擇

option button的雙擊事件,的確是挺奇怪的一件事,雖然能夠執行雙擊事件,但是在已經選擇了的控制元件上雙擊的結果是控制元件被再次賦值,然而在未被選擇的同組控制元件上雙擊是能夠實現效果的 excel通常用 核取方塊 打對勾,點一下就有對勾了,再點一下就沒有對勾了.可以,用vba程式設計實現 e...