1樓：
窗體上放2個commandbutton和1個timer，將timer的interval屬性設定成100（隨意）
**如下：
dim capstate as integer
const capcont as string = "標題欄內容"
dim n as integer, l as integer, c as string
private sub command1_click()
capstate = 1
end sub
private sub command2_click()
capstate = 2
end sub
private sub timer1_timer()
select case capstate
case 1
l = int(me.width / 105)
c = string(l, " ") & capcont & string(l, " ")
n = n + 1
if n > len(c) - l then n = 1
me.caption = mid(c, n, l)
case 2
l = len(capcont)
n = n + 1
if n > l then n = -5 '改這裡改變完整標題停留的時間，要小於等於0，-5代表停5楨
me.caption = mid(capcont, 1, iif(n >= 0, n, l))
end select
end sub
2樓：不尋常的路
不是高手，需要做什麼
3樓：
歡迎**100785990 群專門高手精通vb c++
VB問題,急,高手來,有追加，VB問題 求解
產生 a,b 的隨機函式。int rnd b a 1 a 在使用前首先要用randmoize函式播種如果還有什麼問題可以給我發郵件。先把問題發上來啊。rand 隨機函式，產生的資料並不是正式的隨機，而是按照一定規律產生的雜湊資料。每次重新啟動電腦後，產生的資料序列會一樣的。vb 只有 rnd 函式，...
VB程式設計的問題，求助高手
private sub text1 keypress keyascii as integer timer1.enabled falseif keyascii 48 or keyascii 58 then 判斷是否數字 if keyascii 32 or keyascii 13 then 不是數字的情...
vb高手幫忙看下這段程式哪裡有問題？提示編譯錯誤ByRef引數型別不符
yuanlin8510的回答是正確的，但提到的兩點只是邏輯錯誤，雖然會導致結果不正確，但是編譯可能並不會出錯。導致出錯的原因是這幾句 call panduan x 呼叫函式時不用call，call一般用於呼叫過程 if panduan true then print x 是水仙花數 上面這一句錯了，...