1樓：亞馬遜選品管家
先判斷長度是否大於10，如果大於，獲得左面的10個，然後加上...，例如：
a = "測試文字，測試文字，測試文字"
if len(a) > 10 then
b = left(a, 10) + "..."
else
b = a
end if
不過一般中文長度為英文的兩倍，如果字串中既有中文，又有英文，我們想把長度限定為10個英文字元寬度，那麼可以這樣：
a = "測試文字，測試文字，測試文字"
dim ascii as long, blen as longfor i = 1 to len(a)
ascii = asc(mid(a, i, 1))if ascii < 0 then '是漢字b = b + mid(a, i, 1)
blen = blen + 2
else
b = b + mid(a, i, 1)
blen = blen + 1
end if
if blen >= 10 then
b = b + "..."
exit for
end if
next i
沒有測試，有問題聯絡
2樓：匿名使用者
s = "123456789abcde"
form1.caption = replace(s, mid(s, 11), "...")
關於vb的問題，請大神幫忙基本內容就是每個v都對應c 已知的v有，對應的c也知道
dim c 10 as single,v 10 as single private sub command1 click dim i as integer,j as integer form1.autoredraw true clsprint 原始資料是 print v space 3 for i ...
VB中如何查詢顯示資料庫表中的記錄
用陣列記錄，二次查詢 sql 在course 表中查詢到teacher id 12345的所有記錄 用迴圈把course id新增到陣列中，a 然後再迴圈開啟一個新的記錄集，sql在score表中查詢出course id a 的 我是這麼做的，不知道還有沒有高手提供其它方法 建立記錄集物件，用dat...
vb中設定在窗體上顯示字元的字型顏色的屬性是forecolo
private sub command1 click print hello,vb 窗體du 字型顏色 zhi通過forecolor屬性設dao 置，這裡版設定為紅色 窗體背景顏 權色通過backcolor屬性設定，這裡設定為綠色end sub 在vb中,如何修改label中的字型的顏色 有兩種方法...