国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

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

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->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 临汾市| 青川县| 达拉特旗| 和田县| 明光市| 改则县| 上虞市| 阿尔山市| 天等县| 昭觉县| 清远市| 绥化市| 马鞍山市| 渑池县| 石狮市| 遂平县| 大宁县| 秦皇岛市| 神农架林区| 灵寿县| 治多县| 刚察县| 铜鼓县| 易门县| 扎兰屯市| 苏州市| 连州市| 株洲县| 上饶县| 无为县| 汤阴县| 武隆县| 丘北县| 勐海县| 新邵县| 大安市| 嘉鱼县| 丹东市| 东源县| 克拉玛依市| 天全县|