1樓:匿名使用者
private sub form_load()
timer1.interval = 1000
form1.caption = "窗體名"
text1.text = "文字名"
end sub
private sub timer1_timer()
if form1.caption = "窗體名" and text1.text = "文字名" then
form1.caption = "文字名": text1.text = "窗體名"
elseif form1.caption = "文字名" and text1.text = "窗體名" then
form1.caption = "窗體名": text1.text = "文字名"
end if
end sub
2樓:匿名使用者
private sub form_load()timer1.enabled = truetimer1.interval = 1000end sub
private sub timer1_timer()text1.text = mid(text1.text, 2, len(text1.
text) - 1) & left(text1.text, 1)
me.caption = mid(me.caption, 2, len(me.caption) - 1) & left(me.caption, 1)
end sub
VB中的list控制元件是什麼,VB的List1控制元件所有的使用方法
vb的listbox控制元件是用來顯示專案列表的控制元件。listbox 控制元件,listbox 控制元件顯示專案列表,從其中可以選擇一項或多項。如果專案總數超過了可顯示的專案數,就自動在 listbox 控制元件上新增滾動條。使用 additem 或者 removeitem 方法可以新增或者刪除...
VB6 TEXT控制元件陣列
琦彩榮何賦 你是不是form上有十個text1 1 text1 10 的textbox 控制元件陣列 還有一個text2,然後需要比如在text2中輸入5,那麼text1 6 text1 10 的可見性都變成false?只需要作一個改動 將iftext1 ithen 改為if text1 i tex...
急!!vb怎麼建立陣列,怎樣在VB中新增控制元件陣列
dim a 100 as integer dim a n as integer 怎樣在vb中新增控制元件陣列 兩個問題一起回答。你先按正常方法新增一個command1,也按平時的方式,設定你需要的所有屬性,這時,再選定按鈕,複製,貼上,詢問你是否新增控制元件陣列,點是,於是,和你剛才的按鈕屬性完全一...