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

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

VB中隨機圖像的魅力

2019-11-18 17:38:23
字體：大 中 小
來源：轉載
供稿：網友
->---在VB中提供了相當強的繪圖功能,可以在窗口或圖形框中利用各種命令繪制各種圖形,靈活使用這些繪圖命令不僅可以完成許多特殊的功能,而且可以為WINDOWS的程序界面增加許多活力,特別是那些巧妙的隨機圖像則更具有特殊的魅力,下面僅以三種隨機動畫為例,演示VB中隨機動畫圖像的風采。

一、隨機簡單圖形動畫
----完成此工作主要的直接使用VB中的作圖命令,比如畫點函數PSet(X,Y),COLOR,其中XY為圖形坐標系統的坐標,COLOR表示顏色值,可用QBColor(x)或RGB(r,g,b)等形式表示,同時可以控制畫點的半徑長度,即通過設置Drawwidth屬性,當半徑大于1時實際上此命令是畫一個實心圓,當然也可以利用Circle命令直接繪制圓形。VB中還提供了隨機數產生手段,即RND內部函數,它可以產生0到1之間的隨機數,利用此函數可以隨機確定畫點的位置、點的顏色、點的半徑等，這樣即可以實現在固定區域內進行隨機畫圓操作,其中隨機位置的確定必須根據作圖區域進行確定,具體可用ScaleWidth及Scaleheight屬性進行確定。為了實現連續動畫效果,可利用時間控件或"DoEvents"命令實現后臺處理,具體請見文后的Command1_Click事件中的程序代碼。如果把程序改為隨機畫矩形或空心圓，或者靈活控制畫圓的半徑,則會產生另外的藝術效果,比如在一片黑色的屏幕上畫出隨機的小點,就象夜空中的點點繁星。
二、隨機文字動畫
----在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)
----如果把屏幕的底色置為暗黃色,在此窗口內的隨機位置畫出大小不一的三角錐,就象在黃色的沙漠上建起了無數的金字塔,具有一種特殊的情趣。具體操作方法請見文后程序中的Command3_Click事件中的代碼。
四、隨機顯示圖像
----在VB中不僅提供了完善的做圖方法,而且在繪圖方法中還可以靈活的處理圖像文件,其中提供了一個方便的圖像復制命令即:PaintPicture,此命令的功能與API函數BitBlt類似,但由于不用做API函數說明,所以更有它的方便之處,語法格式:
PaintPicturePic,destX,destY,
destWidth,destHeight,
scrX,scrY,scrWidth,scrHeight
其中Pic:為圖片對象,如圖形框Picture等;
destX,destY:目標圖像位置;
destWidth,destHeight:目標圖像尺寸;
scrX,scrY:原圖像的裁剪坐標;
scrWidth,scrHeight:原圖像的裁剪尺寸;

----從以上可以看出，目標圖像的位置可以隨機改變，不僅如此，通過改變destWidth與destHeight值,還可以改變復制后的圖像的尺寸,實現放大或縮小圖像顯示,甚至可以置這兩個屬性為負值,這樣可使目標圖像在水平方向翻轉，實現特殊效果的圖像顯示,靈活運用RND隨機函數確定上述各個參數,可取得理想的隨機圖像顯示效果。具體操作方法請見文后程序Command4_Click事件中的代碼。
----文后是一個完成上述隨機動畫的完整演示程序，需要在From1窗體中安放兩個圖形框Picture(1-2)及四個命令按鈕Command1-5,然后把下面的代碼填入相應的事件處,運行此程序之后,按下按鈕1則在圖形框中進行隨機畫圓演示,按下按鈕2則在圖形框中進行隨機文字顯示,按下按鈕3則在圖形框中隨機顯示三角錐體,按下按鈕4則進行隨機圖像顯示,按下按鈕5則退出程序。此程序在WINDOWS95系統下VB4.0環境下調試通過。

注釋：程序準備
PrivateSubForm_Load()
Command1.Caption="隨機畫圓"
Command2.Caption="隨機文字"
Command3.Caption="立體圖形"
Command4.Caption="隨機圖像"
Command5.Caption="退出"
Form1.ScaleMode=1
Picture1.ScaleMode=1
Picture2.Picture=LoadPicture
("d:/windows/256color.bmp")
EndSub
注釋：隨機畫圓動畫
PrivateSubCommand1_Click()
DimXPos,YPos
Picture1.Cls
Do
nn=Int(100*Rnd)
Ifnn>0Then
Picture1.DrawWidth=nn
EndIf
XPos=Rnd*Picture1.ScaleWidth
YPos=Rnd*Picture1.ScaleHeight
Picture1.PSet(XPos,YPos),RGB
(Rnd*256,Rnd*256,Rnd*256)
DoEvents
Loop
EndSub
注釋：隨機文字動畫
PrivateSubCommand2_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
注釋：立體隨機動畫
PrivateSubCommand3_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
注釋：隨機圖像顯示
PrivateSubCommand4_Click()
Do
xx=Rnd*Picture1.Width
yy=Rnd*Picture1.Height
Picture1.PaintPicturePicture2.
Picture,xx,yy,
Picture2.Width,Picture2.Height
DoEvents
Loop
EndSub
注釋：退出按鈕
PrivateSubCommand5_Click()
End
EndSub->
->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
欧美一区二区大胆人体摄影专业网站| 人人澡人人澡人人看欧美| 久久久久久久久久久久av| 97国产精品视频| 久久久成人av| 欧美自拍大量在线观看| 久久综合网hezyo| 国产精品第七影院| 久久久亚洲精品视频| 日韩av免费一区| 91精品免费久久久久久久久| 精品亚洲va在线va天堂资源站| 一本色道久久88综合日韩精品| 精品二区三区线观看| 国产97在线视频| 国产精品永久免费观看| 国产精品爱啪在线线免费观看| 综合136福利视频在线| xvideos亚洲人网站| 国产精品一区二区三区免费视频| 久久亚洲精品国产亚洲老地址| 日本亚洲欧洲色| 亚洲精品白浆高清久久久久久| 国产精品久久久久久中文字| 亚洲国产精品久久91精品| 亚洲欧洲第一视频| 欧美激情网站在线观看| 国产欧美精品一区二区三区介绍| 精品视频在线导航| 精品国产乱码久久久久久天美| 国产亚洲视频在线观看| 最近2019中文字幕大全第二页| 国产一区二区三区高清在线观看| 日韩欧美国产网站| 久久久精品国产一区二区| 黄色一区二区三区| 久久久久国产精品www| 国产免费一区二区三区在线能观看| 日韩69视频在线观看| 伊人激情综合网| 日韩中文字幕免费| 少妇高潮久久77777| 97久久超碰福利国产精品…| 国产成人精品日本亚洲专区61| 欧美成人sm免费视频| 精品国产一区二区三区久久狼5月| 91视频九色网站| 国产综合香蕉五月婷在线| 中文国产亚洲喷潮| 成人黄色在线免费| 国产亚洲精品久久久优势| 欧美成人在线网站| 97视频免费看| 最近2019年中文视频免费在线观看| 久久久免费精品视频| 欧美中文在线观看国产| 亚洲欧美成人一区二区在线电影| 亚洲高清一二三区| 国产999视频| 欧美人与物videos| 国产乱肥老妇国产一区二| 国产精品黄视频| 中文字幕在线成人| 欧美成年人视频网站欧美| 日韩视频―中文字幕| 欧美中文字幕在线播放| 成人伊人精品色xxxx视频| 久久99亚洲精品| 日韩性xxxx爱| 国产精品久久久久久久美男| 日韩高清免费在线| 精品国产1区2区| 中文字幕一区电影| 午夜精品久久久久久99热| 91在线观看免费| 午夜精品久久久久久久白皮肤| 欧美性猛交xxxxx免费看| 欧美国产日韩一区二区三区| 久久久久久久久久久亚洲| 久久久久久这里只有精品| 亚洲精品乱码久久久久久按摩观| 在线免费看av不卡| 国产成人一区二区三区小说| 狠狠躁天天躁日日躁欧美| 国产精品看片资源| 久久全国免费视频| 久久电影一区二区| 欧美国产精品人人做人人爱| 亚洲欧美日韩精品久久亚洲区| 国产亚洲精品高潮| 欧美性xxxxxx| 91精品视频播放| 午夜精品一区二区三区在线| 亚洲免费人成在线视频观看| 久久精品影视伊人网| 国产精品∨欧美精品v日韩精品| 国色天香2019中文字幕在线观看| 97久久伊人激情网| 91免费看片网站| 欧美综合一区第一页| 成人免费高清完整版在线观看| 91精品久久久久久久久久久| 国产精品狠色婷| 日韩欧美国产中文字幕| 最好看的2019的中文字幕视频| 国产v综合ⅴ日韩v欧美大片| 美女少妇精品视频| 国产福利精品av综合导导航| 久久免费视频在线| 国产精品久久一区| 国产成人久久久精品一区| 欧美成人精品在线视频| 日韩中文字幕免费视频| 亚洲精品视频二区| 亚洲一区二区中文| 久久免费成人精品视频| 国产精品一区二区三区在线播放| 国产精品自产拍在线观看| 精品毛片三在线观看| www.亚洲成人| 成人网在线视频| 91av在线免费观看视频| 亚洲精品电影网| 国产亚洲欧美日韩精品| 久久精品国产亚洲精品| 国产精品偷伦免费视频观看的| 亚洲欧洲国产伦综合| 成人免费黄色网| 69视频在线免费观看| 97久久国产精品| 色偷偷噜噜噜亚洲男人| 久久久精品亚洲| 亚洲第一国产精品| 国产精品久久久久久久久久久不卡| 日韩国产在线播放| 亚洲国产欧美一区二区三区同亚洲| 亚洲国产高清自拍| 亚洲人高潮女人毛茸茸| 亚洲性xxxx| 午夜精品一区二区三区在线播放| 日韩欧美一区二区在线| 一本一本久久a久久精品综合小说| 亚洲国产小视频在线观看| 国产91九色视频| 日韩av影片在线观看| 国产精品自拍视频| 欧美另类极品videosbestfree| 亚洲精品日韩久久久| 亚洲精品综合精品自拍| 全亚洲最色的网站在线观看| 久久久久久网站| 精品无人区乱码1区2区3区在线| 日韩精品在线观看网站| 日韩成人av网址| 亚洲成人精品视频在线观看| 日韩在线观看免费高清| 国产精品成人一区二区三区吃奶| 国产一区二区三区四区福利| 成人在线免费观看视视频| 亚洲天堂第二页| 正在播放国产一区| 日韩电影免费观看中文字幕| 国产亚洲精品久久久| 韩国精品久久久999|