1樓：匿名使用者
option explicit
private sub command1_click()list1.additem text1.text & chr(9) & text2.text
end sub
private sub command2_click()dim i as integer
i = list1.listindex
if i = 0 then '防止刪除表頭exit sub
end if
list1.removeitem i
if i >= list1.listcount then '防止刪除最後一項引起錯誤
i = i - 1
end if
list1.listindex = i
end sub
private sub form_load()list1.additem "姓名" & chr(9) & "**"
end sub
2樓：匿名使用者
我給你最關鍵部位的**如下，其它的你應該會的（如先判斷文字框是否有內容等等）：
private sub command1_click() '新增按鈕的**
list1.additem format(text1.text, "!@@@@@@@@") & format(text2.text, "!@@@@@@@@@@@")
end sub
private sub command2_click() '刪除按鈕的**
list1.removeitem (list1.listindex)
end sub
效果如圖:
在vb中健個命令按鈕和一個文字框單擊按鈕時文字框消失
3樓：
1、首先，在窗體上面新增一個文字框。
2、單擊文字框，在屬性視窗設定文字框的屬性，清空文字內容。
3、將文字框的enabled屬性設定為false。
4、在窗體上新增一個命令按鈕，如下圖所示。
5、在屬性視窗，設定命令按鈕的caption屬性為「允許輸入」。
6、雙擊命令按鈕，編輯其**。
4樓：匿名使用者
假設按鈕是「command1」，文字框是「text1」，在按鈕單擊事件下輸入以下**：
private sub command1_click（） ——指明過程，單擊按鈕觸發。
text1.visible=false ——指明觸發程式，文字框不可見
end sub ——結束過程。
5樓：俄聯邦
text1.visible=false
6樓：
private sub command1_click()
text1.visible = false
end sub
急！！！vb程式設定：設一視窗上有文字框、按鈕、列表框各一個，在文字框中輸入任意一個英文
7樓：匿名使用者
private sub command1_click()a = split(text1.text, " ")for i = 0 to ubound(a)list1.additem a(i)
next
end sub
8樓：
dinmprivate sub command1_click()dim kk as string, j as integerlist1.clear
kk = trim(text1.text)j = instr(1, kk, " ")while j > 0
list1.additem left(kk, j - 1)kk = right(trim(kk), len(kk) - j)j = instr(1, kk, " ")wend
list1.additem kk
end sub
vb在窗體新增3個文字框和一個命令按鈕,利用兩個文字框輸入兩個數,單擊計算按鈕時,將兩數的平方和顯
9樓：匿名使用者
private sub command1_click()text3.text = ""
if val(text1.text) = 0 thenmsgbox "第一個數不能為空或包含字元！"
exit sub
end if
if val(text2.text) = 0 thenmsgbox "第二個數不能為空或包含字元！"
exit sub
end if
text3.text = val(text1.text) ^ 2 + val(text2.text) ^ 2
end sub
private sub form_load()command1.caption = "計算"
text1.text = ""
text2.text = ""
text3.text = ""
end sub
10樓：花菜
a=val(text1.text)
b=val(text2.text)
c=a+b
text3.text=str(c)
在中有時用文字框編輯文字的段落間距總是調不了
單擊選單 檔案 頁面設定 設定成無網格 可以的哦。你看一下你有沒有選中文字。有選中。再進入格式。段落。行距。是可以調的。就算你畫的框小了。字不夠放。也是可以調間距的。但超出文字框範圍的字就會被隱藏。選中要調整的文字在格式裡面找到調整寬度就可以了.word裡為什麼有時候調行距沒有變化？我是用的offi...
VB6中兩個文字框數字相加，自動顯示在文字框，如何實現，請注意是自動顯示，而不是點選後顯示
未必66兩個文字框數字相加自動顯示在地上門框。如何實現？那你把第三款看著比較就可以寫出來的唄。vb中怎麼將兩個文字框中的數字相加在第三個文字框中顯示 private sub command1 click text3.text val text1.text val text2.text end sub...
在vb中如何用迴圈語句給多個連續文字框賦值
dim obj as object,objname as string,i as integer i 0 for each obj in me.controls 列舉窗體所有控制元件 debug.print typename obj if typename obj textbox then 判讀是否...