給我親愛的人最好最驚喜的VB程序禮物

呵呵~ ~好拉~ ~我給妳弄個代碼~~Form1代碼:私有子Form_Load()。

定時器1。間隔= 1000

定時器3。間隔= 1150

定時器4。間隔= 1300

定時器5。間隔= 1450

定時器6。間隔= 1600

定時器7。間隔= 1750

定時器8。間隔= 1900

定時器9。間隔= 2050

定時器10。間隔= 2200

定時器11。間隔= 2350

定時器2。間隔= 2600

圖片1。可見=假

圖片2。可見=假

圖片3。可見=假

圖片4。可見=假

圖片5。可見=假

圖片6。可見=假

圖片7。可見=假

圖片8。可見=假

圖片9。可見=假

結束子私有子定時器1_Timer()

將a作為整數，b作為整數，c作為整數

FontSize = 30

比例(-320，320)-(320，-320)

Cls

印刷“聖誕快樂”

對於c = 1到80

繪圖寬度= 6

a = 320 * Rnd

b = 320 * Rnd

如果Rnd & lt0.5那麽a = -a

如果Rnd & lt0.5那麽b = -b

PSet (a，b)，QBColor(Rnd * 15)

下壹個c

結束子私有子定時器10_Timer()

圖片8。可見=真

結束子私有子定時器11_Timer()

圖片9。可見=真

結束子專用子定時器2_Timer()

表單1。顯示

卸下我

MsgBox“祝妳聖誕快樂~ ~ ~送妳壹首歌(* _ *) ~，“送壹份禮物”。

結束子專用子定時器3_Timer()

圖片1。可見=真

結束子專用子定時器4_Timer()

圖片2。可見=真

結束子私有Sub Timer5_Timer()

圖片3。可見=真

結束子私有子定時器6_Timer()

圖片4。可見=真

結束子專用子定時器7_Timer()

圖片5。可見=真

結束子私有子定時器8_Timer()

圖片6。可見=真

結束子專用子定時器9_Timer()

圖片7。可見=真

結束子表單2代碼:

上一篇:請問這是什麽畫，雖然只是局部，謝謝。

下一篇:燕妮的《婚姻烹飪》最後和誰在壹起了？