亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

VB隨機圖像的魅力

2019-11-18 17:38:29
字體：大 中 小
來源：轉載
供稿：網友
VB提供了相當強的文字輸出和繪圖功能,可以在窗口或圖形框中利用各種命令顯示字體或繪制各種圖形。靈活使用這些命令，不僅可以完成許多特殊的功能,而且可以為Windows的程序界面增加許多活力。下面用簡單的例子演示VB中隨機動畫的風采。

　　(一)、隨機文字動畫
　　在VB中可利用　　(二)、立體圖形隨機動畫
　　雖然直接利用繪圖語句即可以實現簡單的動畫,但如果通過這些命令繪制成一定的立體圖形,并實行隨機動畫操作,那將更具有特殊的藝術效果。比如下面兩行簡單的命令將畫出一個具有強烈立體感效果的三角錐體,其中(M,N)為錐體的頂端坐標:

　　Picture1.Line(m,n＋2.5＊i)－(m＋i/2,n＋2＊i),RGB(180,180,180)

　　Picture1.Line(m,n＋2.5＊i)－(m－i/2,n＋2＊i),RGB(80,80,80)

　　如果把屏幕的底色置為暗黃色,在此窗口內的隨機位置畫出大小不一的三角錐,就像在黃色的沙漠上建起了無數的金字塔,具有一種特殊的情趣。具體操作方法請見文后程序中的Command2－Click事件中的代碼。

　　(三)、演示程序編制過程

　　文后是一個完成上述隨機動畫的完整演示程序，需要在From1窗體中安放一個圖形框Picture1及三個命令按鈕Command1－3,然后把下面的代碼填入相應的事件處。運行此程序之后,按下按鈕1，則在圖形框中進行隨機文字顯示。按下按鈕2，則在圖形框中隨機顯示三角錐體。按下按鈕3，則退出程序。此程序在Windows95系統上VB5.0環境下調試通過。

　　′程序準備:
　　PrivateSubForm－Load()
　　Command1.Caption=″隨機文字″
　　Command2.Caption=″立體圖形″
　　Command3.Caption=″退出″
　　Form1.ScaleMode=1
　　Picture1.ScaleMode=1
　　EndSub
　　′隨機文字動畫
　　PrivateSubCommand1－Click()
　　Picture1.Cls
　　Do
　　nn=Int(45＊Rnd)
　　Ifnn>0Then
　　Picture1.FontSize=nn
　　EndIf
　　Picture1.CurrentX=Rnd＊Picture1.ScaleWidth－1000
　　Picture1.CurrentY=Rnd＊Picture1.ScaleHeight
　　Picture1.ForeColor=RGB(Rnd＊256,Rnd＊256,Rnd＊256)
　　Picture1.Print″隨機OK!″
　　n=n＋1
　　Ifn>50Then
　　n=0
　　Picture1.BackColor=QBColor(Rnd＊15)
　　EndIf
　　DoEvents
　　Loop
　　EndSub
　　′立體隨機動畫
　　PrivateSubCommand2－Click()
　　Dimm,n
　　Picture1.DrawWidth=1
　　Picture1.BackColor=RGB(210,150,0)
　　Picture1.Cls
　　Do
　　m=Rnd＊Picture1.ScaleWidth
　　n=Rnd＊Picture1.ScaleHeight－500
　　Fori=0ToRnd＊800
　　Picture1.Line(m,n＋2.5＊i)－(m＋i/2,n＋2＊i),RGB(180,180,180)
　　Picture1.Line(m,n＋2.5＊i)－(m－i/2,n＋2＊i),RGB(80,80,80)
　　Nexti
　　DoEvents
　　Loop
　　EndSub
　　′結束程序
　　PrivateSubCommand3－Click()
　　End
　　EndSub->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
日日噜噜噜夜夜爽亚洲精品| 亚洲精品国产电影| 精品福利在线视频| 777国产偷窥盗摄精品视频| 亚洲精品欧美极品| 欧美日韩精品中文字幕| 国产区精品在线观看| 亚洲第一网站男人都懂| 欧美成人午夜剧场免费观看| 中文字幕久久亚洲| 久久久久久久久综合| 97精品免费视频| 国产成人精品一区二区| 中文字幕亚洲一区在线观看| 91国内免费在线视频| 日韩av片永久免费网站| 久久手机精品视频| 亚洲人成电影网| 亚洲国产天堂久久综合网| 欧美大尺度电影在线观看| 成人国产精品久久久| 久久精品电影一区二区| 亚洲男人的天堂在线播放| 日韩在线观看免费网站| 亚洲欧美日韩国产成人| 亚洲女在线观看| 国产精品jvid在线观看蜜臀| 欧美日韩国产91| 91久久久在线| 欧美亚洲一级片| 日韩精品久久久久| 国产不卡av在线免费观看| 亚洲а∨天堂久久精品喷水| 国产在线精品成人一区二区三区| 韩曰欧美视频免费观看| 亚洲偷熟乱区亚洲香蕉av| 91精品国产网站| 欧美小视频在线| 午夜精品美女自拍福到在线| 国产视频精品xxxx| 日本三级韩国三级久久| 亚洲自拍另类欧美丝袜| 欧美性色19p| 中文字幕在线成人| 欧美性69xxxx肥| 日本91av在线播放| 亚洲精品视频播放| 午夜精品久久久久久久久久久久| 91午夜在线播放| 精品久久久免费| 中文字幕欧美亚洲| 日韩视频在线免费观看| 国产精品jizz在线观看麻豆| 人九九综合九九宗合| 亚洲性av在线| 国产精品黄色av| 久久久国产在线视频| 97色在线播放视频| 97免费视频在线播放| 亚洲精品成人久久久| 亚洲一区二区三区视频| 日韩av一区二区在线| 色999日韩欧美国产| 成人免费网视频| 国产美女直播视频一区| 国产精品第1页| 国产精品专区第二| 日本欧美一级片| 国产精品永久免费在线| 九九久久综合网站| 国产精品久久久久久亚洲调教| 精品呦交小u女在线| 国产91色在线|免| 亚洲精品免费一区二区三区| 亚洲性视频网址| 国产成人综合av| 综合国产在线观看| 亚洲欧美在线免费观看| 亚洲精品一区二区三区婷婷月| 亚洲一区二区在线播放| 日本一区二区在线免费播放| 成人亚洲欧美一区二区三区| 亚洲欧美日韩中文在线制服| 精品高清一区二区三区| 久久夜精品va视频免费观看| 亚洲精品电影在线| 欧美日韩色婷婷| 美女视频黄免费的亚洲男人天堂| 国产精品自在线| 日韩一区视频在线| 欧美性猛交xxxx黑人| 欧美国产中文字幕| 国产日韩欧美在线视频观看| 在线性视频日韩欧美| 亚洲专区中文字幕| 538国产精品一区二区在线| 日本中文字幕成人| 亚洲欧美中文字幕在线一区| 欧美激情欧美激情在线五月| 在线观看成人黄色| 69久久夜色精品国产7777| 亚洲国产精品专区久久| 国产精品免费网站| 亚洲午夜av电影| 成人黄色大片在线免费观看| 久久久精品国产网站| 亚洲欧美综合区自拍另类| 久久久999精品免费| 欧美日韩免费区域视频在线观看| 奇米一区二区三区四区久久| 日本精品视频网站| 国产精品无码专区在线观看| 久久精品99久久久久久久久| 亚洲一区二区三区成人在线视频精品| 欧美精品videos另类日本| 亚洲精品中文字幕av| 精品露脸国产偷人在视频| 欧洲成人免费视频| 国产亚洲欧美日韩一区二区| 国产精品久久久久久久午夜| 精品国产一区二区三区久久久狼| 国产成人在线一区| 97久久超碰福利国产精品…| 日韩欧美在线看| 91网在线免费观看| 91高潮精品免费porn| 精品久久久久久久久久久久久| 欧美日韩一区二区免费视频| 中文字幕少妇一区二区三区| 久久精品99无色码中文字幕| 欧美成人第一页| 久久99热精品这里久久精品| 日韩欧美在线播放| 国产伦精品一区二区三区精品视频| 欧美日韩在线第一页| 国产精品第100页| 亚洲aⅴ男人的天堂在线观看| 久久久精品在线观看| 久久久久久久久久久91| 久久免费国产精品1| 日韩男女性生活视频| 中文字幕久久久av一区| 欧美激情在线观看| 久久视频在线观看免费| 国产精品久久一| 欧美在线视频观看免费网站| 成人国产精品日本在线| 亚洲成人性视频| 亚洲午夜色婷婷在线| 亚洲一区二区三区在线免费观看| 久久久久久久久久婷婷| 日韩美女av在线| 91爱爱小视频k| 亚洲国产精品悠悠久久琪琪| 久久久91精品| 亚洲日韩中文字幕在线播放| 91精品免费看| 亚洲自拍偷拍福利| 久久精品久久精品亚洲人| 亚洲黄色成人网| 精品亚洲男同gayvideo网站| 97涩涩爰在线观看亚洲| 第一福利永久视频精品| 亚洲国产美女精品久久久久∴|