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
在文字框中輸入藝術字後怎樣去掉文字框邊框
1 首先選擇在邊框上單擊它進行選中的操作。2 在所選邊框的任意一側，右鍵單擊滑鼠 選擇物件的格式。3 或者直接在選中的文字框上方，單擊滑鼠左鍵2 雙擊滑鼠左鍵 出現設定物件格式對話方塊。4 單擊顏色下拉選單。在顏色裡選擇 白色的選項。之後單擊確定的按鈕。5 刪除文字邊框問題併成功解決，效果如下。wo...
求高手 VB文字框輸入規定的漢字幾個漢字 例如 一二三
private sub command1 click dim i as string i if i 一 or i 二 or i 三 then i end if end sub 初學的，寫的不是很好，但是能實現。新建一個工程，新增一個命令按鈕，新增一個文字框控制元件，複製上面 即可。vb文字框中的字元如何...
html網頁怎麼設定文字框裡面輸入的文字大小
使用font size樣式就可以。line height 25px 無效的話就在css樣式表裡把這個input加個class 把它的表現形式變為 display inline block 或者display block。一下 style 中加入 style font size 26px 就可以加大文...