當前位置:係統粉 > 電腦問答 > 其他問答 > VB編程問題(有獎),幫朋友問的,我沒學過VB(斑竹鎖)

VB編程問題(有獎),幫朋友問的,我沒學過VB(斑竹鎖)

提問者:聽夏天的風聲  |  瀏覽 次  |  提問時間:2017-02-16  |  回答數量:7

VB編程問題(有獎),幫朋友問的,我沒學過VB(斑竹鎖) text1=list1.text

已有7條答案
我恨頭大的女人

我恨頭大的女人

回答數:145  |  被采納數:144

2017-02-16 11:26:23
能幫忙寫全嗎?我不懂,沒學過VB
剛開始學C
讚 14
靚穎的小嘴

靚穎的小嘴

回答數:97  |  被采納數:36

2017-02-16 13:29:29
'窗體加載時在列表框中加載4個選項
Private Sub form_Load()
list1.addItem("item1")
list1.addItem("item2")
list1.addItem("item3")
list1.addItem("item4")
End sub
'單擊按鈕文本框中顯示在列表框選中的項
private sub C1_Click()
dim selectstring as string
'循環判斷是否選中
for i=0 to list1.listCount-1
if list1.selected(i)=true then
exit for
endif
next

if i=list1.listCount then
'沒有項被選中
msgbox("沒有選中項")
exit sub
else
'有選中的項
selectstring=list1.list(i)
text1.text=selectstring
end if

end sub
'備注:此程序是我默寫的,沒有經過IDE,相信能夠通過!
讚 9
鳳11瑩瑩

鳳11瑩瑩

回答數:213  |  被采納數:21

2017-02-16 14:41:20
獎勵已經發出了嗎?
讚 21
隻愛exo勳鹿

隻愛exo勳鹿

回答數:48  |  被采納數:52

2017-02-16 19:08:45
text1=list1.text
讚 4
浸沒在煙裏哭

浸沒在煙裏哭

回答數:123  |  被采納數:58

2017-02-16 14:11:59
三樓的寫的在複雜了,前麵加載那幾個是對的,至於選中的直接複製在文本框上不用for 來判斷,直接text1.text=list1.listindex.text就可以了
讚 12
鳳凰欲飛_

鳳凰欲飛_

回答數:191  |  被采納數:115

2017-02-16 21:00:41
Private Sub Form_Load()
List1.AddItem ("item1")
List1.AddItem ("item2")
List1.AddItem ("item3")
List1.AddItem ("item4")
End Sub

Private Sub C1_Click()
Text1 = List1.Text
End Sub
讚 19
krissica我的愛

krissica我的愛

回答數:222  |  被采納數:144

2017-02-17 02:01:22
題目是:
在窗體上有一個列表框,名稱為List1,一個文本框,名稱為Text1,和一個命令按鈕,名稱為C1,標題為”複製”.要求程序運行後,在列表框中自動建立4個列表項,分別為” Item1” “Item2” “Item3” “Item4”.如果選擇列表框中的一項,則單擊”複製”按鈕時,可以把該項複製到文本框中.

不會編,希望哪位幫忙編下
謝謝了

幫忙編的獎勵500DY
讚 22
解決方法
版權信息

Copyright @ 2011 係統粉 版權聲明 最新發布內容 網站導航