1樓：匿名使用者
private sub text1_change()
if len(text1.text) = 4 then text1.text = text1.text & "-"
end sub
2樓：匿名使用者
我精心寫了一段哦！現在針對的是text1這個控制元件只需要放一個text1控制元件在窗體上在複製這段**貼上執行就可以了。。我想了3種方法，，一個個都試了，最後還是這個分配陣列的比較正確~
dim cl as boolean
private sub form_load()
text1.text = ""
end sub
private sub text1_change()
on error resume next
if cl = true then
cl = false
else
dim a() as string
a = split(text1.text, "-")
if len(text1.text) = 4 then
text1.text = text1.text & "-"
else
if len(a(ubound(a))) > 4 then
redim preserve a(ubound(a) + 1)
a(ubound(a)) = right(a(ubound(a) - 1), len(a(ubound(a) - 1)) - 4)
a(ubound(a) - 1) = left(a(ubound(a) - 1), 4)
else
end if
if len(a(ubound(a))) < 4 then exit sub
for p = 0 to ubound(a)
v = v & a(p) & "-"
next
cl = true
text1.text = v
end if
text1.selstart = len(text1.text)
end if
end sub
private sub text1_keydown(keycode as integer, shift as integer)
if keycode = 8 then
if right(text1.text, 1) = "-" then
cl = true
end if
end if
text1.selstart = len(text1.text)
end sub
private sub text1_keypress(keyascii as integer)
if keyascii = 45 then
keyascii = 0
end if
end sub
當在文字框中輸入“abcd”4個字元時，窗體上顯示的是
3樓：匿名使用者
c當你每輸入 一次時，都會把text1的文字全部打出來，因此是caab
abcabcd
4樓：向日葵彩虹色
就是當復text框中的內容改變是觸發制該事件。
本來print text1 就是在窗體上列印text中的內容，當textbox中輸入時，觸發了charge事件，於是這個命令被再次執行，
輸入a時，就會出現a
輸入b時，因為text框中是ab，故在第一個a後再列印ab,為aab輸入c時，就會出現aababc
輸入d後，就會出現aababcabcd
就是你這種情況
講的夠仔細吧
5樓：匿名使用者
在文字框中輸入文字,怎麼使在窗體上顯示從小到大輸入的文字??如輸入
vb中如何在文字框內輸入文字的同時，在標籤上顯示文字框中的文字
6樓：娛樂小八卦啊
**如下：
1、方法一：
text1.passwordchar = "*"
sub command1_click()
label1.caption =text1.text
end sub
2、方法二：
sub command1_click()
label1.caption = string("*",len(text1.text))
end sub
擴充套件資料
vb書寫**的格式：
1、vb**中不區分字母的大小寫。
2、同一行可以書寫多條語句，語句間用冒號“：”分隔。
3、一條語句可以寫在同一行，也可以寫在多行。續行符號是一個空格加下劃線“_”。
4、註釋語句以rem開頭，也可以使用單引號“‘”。後者註釋內容可直接出現在相關語句的後面。
7、變數和常量的命名規則：有數字，字母，下劃線組成；字母作首字元；不超過255個字元；不能以vb關鍵字和系統常量做名字
7樓：
哎，單擊按鈕一的時候把文字框中的值賦給文字框
8樓：v1薄冰
text1.passwordchar = "*"
sub command1_click()
label1.caption =text1.textend sub
這是讓標籤顯示你輸入的密碼明文。是這意思麼，不是還可以sub command1_click()
label1.caption = string("*",len(text1.text))
end sub
文字框裡有幾個*號，他也顯示幾個*號。
9樓：du瓶邪
private sub text1_change()combo1.clear
combo1.additem text1.textend sub
vb中，怎樣在一個已知的字串中插入一個字元？
10樓：
....很簡單嘛，先將原字串拆分成兩半，加入後再合上即可。
dim t as string
dim k as string
t = "abcdfghijklmn"
k = mid(t, 1, 4) & "e" & mid(t, 5)這個**是將字母e插在從左向右第5個位置上。
原字串是：
abcdfghijklmn
插入後的字串是：
abcdefghijklmn
11樓：匿名使用者
vb6.0可通過使用mid函式、instr 函式和&運算子等來實現一個已知的字串中插入一個字元。
mid 函式， 返回 variant (string)，其中包含字串中指定數量的字元。
instr 函式，返回 variant (long)，指定一字串在另一字串中最先出現的位置。
& 運算子，用來強制兩個表示式作字串連線。
以下**在字串“vb中怎樣在一個已知的字串中插入一個字元？"的第一個中字後插入一個逗號“，”。
option explicit
dim strsj as string
dim strsj1 as string
dim s as string
dim i as long
private sub command1_click()
i = instr(text1, "中")
text2 = mid(text1, 1, i) & s & mid(text1, 4)
end sub
private sub form_load()
text1 = "vb中怎樣在一個已知的字串中插入一個字元？"
s = "，"
end sub
剛學vb在文字框中輸入字元，判斷是字母還是數字字元或者其他字元我寫的有問題應該怎麼改
s是變數，不該打引號。下面是用選擇語句來處理，可能比較清晰點。private sub command1 click dim s as string s text1 if len s 1 then select case s case a to z a to z msgbox 字母 case 0 to...
vb程式設計題在文字框1中輸入整數n判斷其能否
console.writeline 請輸入一個整數 int n n int.parse console.readline if n 5 0 n 7 0 console.writeline n 能夠同時被5和7整除 console.read elsew console.writeline n 不能夠同...
vb程式設計題在文字框tet1中輸入正整數單擊
下面是簡單實現，需要帶入引數是大於等於1的正數 自己防呆 private sub command1 click 呼叫例項dim str as string msgbox return str 5 end sub private function return str number as intege...