1樓:匿名使用者
增加乙個timer控制項
'interval屬性設定為你想要滾動的時間間隔'enabled屬性設定為false
private sub timer1_timer()randomize
r = int((53 - 1 + 1) * rnd + 1)if r = 1 then k = "揣露露"
if r = 2 then k = "黃德青"
...........
if r=51 then k="常小宇"
text1.text=k
end sub
private sub command1_click()if commad1.caption="開始" thentimer1.enabled=true
command1.caption="結束"
else
timer1.enabled=false
command1.caption="開始"
end if
end sub
2樓:匿名使用者
將以下內容複製到記事本 另存為1.frm檔案就可以了
version 5.00
begin vb.form form1
caption = "form1"
clientheight = 3720
clientleft = 60
clienttop = 450
clientwidth = 6300
linktopic = "form1"
scaleheight = 3720
scalewidth = 6300
startupposition = 3 '視窗預設
begin vb.commandbutton command2
caption = "command2"
height = 375
left = 4320
tabindex = 3
top = 2040
width = 1095
endbegin vb.timer timer1
left = 2760
top = 1800
endbegin vb.textbox text1
height = 975
left = 120
multiline = -1 'true
tabindex = 1
top = 120
width = 3615
endbegin vb.commandbutton command1
caption = "command1"
height = 615
left = 960
tabindex = 0
top = 1680
width = 1215
endbegin vb.label label1
caption = "label1"
height = 375
left = 1440
tabindex = 2
top = 2760
width = 2175
endend
attribute vb_name = "form1"
attribute vb_globalnamespace = false
attribute vb_creatable = false
attribute vb_predeclaredid = true
attribute vb_exposed = false
dim temp as variant
private sub command1_click()
temp = split(text1.text, ",")
timer1.enabled = true
end sub
private sub command2_click()
timer1.enabled = false
end sub
private sub form_load()
text1.text = "揣露露,黃德青,王慧,張義,井仁仁,高麗娜,晉蘭蘭,孫秉璽,毛金楓," & _
"李曉明,崔怡春,曹露露,劉明錦,張書萍,陳亞麗,戚苗苗,趙明明,劉明飛,張彬,劉文恆," & _
"黃飛燕,王良,常洪寬,何豔偉,楊鵬飛,陳登,刁飛翔,黃雪偉,陳永傑,劉博文,王梓,張亞威," & _
"席博帥,李岩,李才龍,夏揚徵,張自陽,齊夢飛,張強,李浩強,郭孝峰,王巍博,汪恆,畢夏男,孟楊銳," & _
"郭君鵬,馬石林,侯彪,朱磊,張禹,常小宇"
timer1.enabled = false
timer1.interval = 20
end sub
private sub timer1_timer()
dim x as integer
randomize
x = int(rnd * (ubound(temp) + 1))
label1.caption = temp(x)
end sub
中如何讓輸入的字變成紅色,word中如何讓輸入的字變成紅色
在不選取的狀態下,設字型顏色為紅色,再輸入就行了 1 設定字型顏色為紅色,再輸入,直接輸入的字就是紅色的 2 已經輸入了,則要先選擇需要變成紅色的字,再設定字型顏色為紅色。輸之前設定字型顏色為紅色不就行了?點選右鍵設定字型.具體我給你截圖咯.呵呵,夠意思吧!點選右鍵,然後再點那個a下面有一橫的那個符...
cdr中如何讓字型豎排的間距相等
一 如果文字是一段,首先確定每行文字前有沒有空格,沒有才能進行以下操作 1 如果cdr9版本,選上文字,文字選單 文字格式,調整行間距如果是cdr14,就選文字選單 段落格式化,也是調整行距二 如果文字不是一段,而是一行一行的 那麼全選文字,按住alt a a 分布 選擇圖中所示的間距,確定即可 我...
EXCEL中如何讓後的數字自動相加
這兒用的 笨 辦法。1.對a列分列,第三步注意。如圖。否則看到有日期了。2.選 分列的資料,複製,選擇性貼上,轉置。將橫列成豎列。3.選定轉置後的資料,再分列,如圖。4.用求各算出第二列相應的和。供參考,祝順利。選定a列,資料 分列 這樣稍微簡單點 excel 怎麼讓相同條件後的數字自動求和?材料 ...
在excel中如何讓單元格中的文字在列印時隱藏,不列印出來
用 視面管理器 儲存多個列印頁面 有的工作表,經常需要列印其中不同的區域,用 視面管理器 吧。1.開啟需要列印的工作表,用滑鼠在不需要列印的行 或列 標上拖拉,選中它們再右擊滑鼠,在隨後出現的快捷選單中,選 隱藏 選項,將不需要列印的行 或列 隱藏起來。2.執行 檢視 視面管理器 命令,開啟 視面管...
在android中如何讓你的程式適應各種解析度
各種android作業系統的手機簡直就是琳琅滿目,螢幕解析度的差異可想而知。目前比較主流的有wvga 800x480,hvga 480x320,另外的還有qvga 320x240。當然還有魅族m9的dvga 960x640,還有蛋疼的摩托羅拉的fwvga 854x480。其實,在你layout的xm...