1樓：匿名使用者
option explicit
private declare function sendmessage lib "user32" alias "sendmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, lparam as any) as long
private const em_undo = &hc7
'下面是讓他們全部大寫
private sub command1_click()
text1 = ucase(text1)
end sub
'下面是讓他們全部小寫
private sub command2_click()
text1 = lcase(text1)
end sub
'下面是撤銷功能，就是還原,這個功能對大小寫沒用，不過你刪除裡面內容等可以還原
private sub command3_click()
sendmessage text1.hwnd, em_undo, 0, 0
end sub
或者你可以先把一開始text1裡面的內容存好，還原的時候，讀取那個內容
2樓：匿名使用者
string init=textbox1.text；
private void button1_click(object sender, eventargs e)
3樓：
你可以拿vf編,特別簡單
設計一個只接受字母鍵的文字框,在文字框text1中輸入一串字元時,文字框text2中就即
4樓：兄弟連教育北京總校
private sub text1_keypress(keyascii as integer)
if not (asc("a ") <= keyascii and keyascii <= asc("z ") or _
asc("a ") <= keyascii and keyascii <= asc("z ")) then
keyascii = 0
end if
text2.text = strreverse(text1.text)
end sub
設計一個程式，在文字框中輸入一個3位整數，單擊按鈕後，在標籤上輸出該數的百位數、十位數和個位數
5樓：
vb6測試通過。
文字框名稱為txtnum，顯示資訊的標籤名稱為lbl，按鈕的名稱為btn。
按鈕的click事件**如下：
private sub btn_click()
dim num as integer
if isnumeric(txtnum.text) = true then
num = cint(txtnum.text)
if num < 100 or num > 999 or num <> val(txtnum.text) then
lbl.caption = "請輸入三位正整數！"
else
lbl.caption = "百位是" & num \ 100 & "，十位是" & num \ 10 mod 10 & "，個位是" & num mod 10 & "。"
end if
else
lbl.caption = "請輸入三位正整數！"
end if
end sub
6樓：匿名使用者
excel都可以實現這個功能
編寫程式介面中包括一個標籤、一個文字框和一個按鈕。當使用者單擊按鈕時，程式把文字框的內容複製到標籤中
編寫程式介面中包括一個標籤、一個文字框和一個按鈕。當使用者單擊按鈕時，程式把文字框的內容複製到標籤中
7樓：
你要用的標籤是什麼標籤.???
8樓：七夜盛唐
這不是上完課了麼？看來咱們是同一個班的。。
在VB中，有按鈕和文字框，單機按鈕把文字框裡的內容儲存到Excel，已經實現了，但是每次都
問題是該描述詳細些，具體要做什麼。是不是要加入到某一列，還是放入到某一個單元格？如果是加入到某個單元格 cell i,j cel i,j text 如果要加入到某一列，你要先判斷從那一行可開始存放資料，從該列第一個空單元格放起，存放前先檢測第一個空單元格位置 i 1do while cell i,j...
窗體上有文字框tet命令按鈕分別為
dim n 9 as variant,max as integer,min as integer,sum as integer private sub command1 click dim i as integer randomize for i 0 to 9 n i int rnd 90 10if...
在窗體中引入文字框Text1，在文字框下引入列表框List1，單擊新增按鈕，將文字框中內
如 第一個窗體1即 form1的 private sub 窗體2 click form1.hide form2.show end sub 第二個窗體2即 form2的 private sub 還回 click form2.hide form1.show end sub 退出 private sub ...