建体彩网|中彩网双色球连号|
?
快捷搜索:  as  test  1111  test aNd 8=8  test++aNd+8=8  as++aNd+8=8  as aNd 8=8

和記娛最好h88285愽娛:VB隨機圖像的魅力

?

VB供給了相稱強的翰墨輸出和繪圖功能, 可以在窗口或圖形框中使用各類敕令顯示字體或繪制各類圖形。機動應用這些敕令,不僅可以完成許多特殊的功能, 而且可以為Windows的法度榜樣界面增添許多生氣愿望。下面用簡單的例子演示VB中隨靈便畫的風度。

(一)、隨機翰墨動和記娛最好h88285愽娛畫

在VB中可使用Print敕令進行字符串的顯示事情,此敕令一樣平常只在當前位置顯示字符串, 但詳細操作時可經由過程CurrentX和CurrentY 節制字符串顯示位置,經由過程FontSize節制字體的尺寸, 經由過程ForeColor和BackColor節制字符的前景致和背景致。 假如把上述的各項屬性值均采納RND 進行隨機孕育發生, 即會形成隨機字符顯示效果。比如在一個圖形框中顯示一些新年賀辭, 同時播放美妙的音樂, 那將是一份極好的新年禮物。必要留意一點,因為字體相互覆蓋,長光陰顯示會使窗口顯得亂一些,以是最好按必然光陰用“CLS"敕令進行窗口清除。此處闡明一下顏色的節制技術,假如應用QBColor(Rnd*15)要領定義隨機顏色,只能在16種顏色中隨機孕育發生, 而采納RGB(Rnd*256,Rnd*256,Rnd*256)要領,則可以孕育發生256*256*256種不合的顏色。詳細操作要領請見文后Command1-Click事故中的代碼。

(二)、立體圖形隨靈便畫

雖然直接使用繪圖語句即可以實現簡單的動畫, 但假如經由過程這些敕令繪制成必然的立體圖形, 并推行隨靈便畫操作, 那將更具有特殊的藝術效果。比如下面兩行簡單的敕令將畫出一個具有強烈立體感效果的三角錐體,此中(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)

假如把屏幕的底色置為暗黃色, 和記娛最好h88285愽娛在此窗口內的隨機位置畫出大年夜小不一的三角錐, 就像在黃色的沙漠上建起了無數的金字塔, 具有一種特殊的情趣。詳細操作措施請見文后法度榜樣中的Command2-Click事故中的代碼。

(三)、演示法度榜樣體例歷程

文后是一個完成上述隨靈便畫的完備演示法度榜樣,必要在From1 窗體中安頓一個圖形框Picture1及三個敕令按鈕Command1-3, 然后把下面的代碼填入響應的事故處。運行此法度榜樣之后, 按下按鈕1 ,則在圖形框中進行隨機翰墨顯示。按下按鈕 2,則在圖形框中隨機顯示三角錐體。按下按鈕3,則退出法度榜樣。此法度榜樣在Windows 95系統上VB5.0 情況下調試經由過程。

′法度榜樣籌備:

Private Sub Form-Load()

Command1.Caption = ″隨機翰墨″

Command2.Caption = ″立體圖形″

Command3.Caption = ″退出″

Form1.ScaleMode = 1

Picture1.ScaleMode = 1

End Sub

′隨機翰墨動畫

Private Sub Command1-Click()

Picture1.Cls

Do

nn = Int(45 * Rnd)

If nn > 0 Then

Picture1.FontSize = nn

End If

Picture1.CurrentX = Rnd * Picture1.ScaleWidth - 1000

Picture1.CurrentY = Rnd * Picture1.Sca和記娛最好h88285愽娛leHeight

Picture1.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)

Picture1.Print ″隨機 OK!″

n = n + 1

If n > 50 The和記娛最好h88285愽娛n

n =和記娛最好h88285愽娛 0

Picture1.BackColor = QBColor(Rnd * 15)

End If

DoEvents

Loop

End Sub

′立體隨靈便畫

Private Sub Command2-Click()

Dim m, n

Picture1.DrawWidth = 1

Picture1.BackColor = RGB(210, 150, 0)

Picture1.Cls

Do

m = Rnd * Picture1.ScaleWidth

n = Rnd * Picture1.ScaleHeight - 500

For i = 0 To Rnd * 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)

Next i

DoEvents

Loop

End Sub

′停止法度榜樣

Private Sub Command3-Click()

End

End Sub

免責聲明:以上內容源自網絡,版權歸原作者所有,如有侵犯您的原創版權請告知,我們將盡快刪除相關內容。

您可能還會對下面的文章感興趣:

建体彩网
福彩黑龙江36选7开奖结果查询 多盈线上注册 极速快乐十分网站 北京快中彩规则 顶呱刮吧一本 打推倒胡麻将的技术 吉林快3一定牛 北京赛车pk技巧 甘肃快三遗漏数据查询 第l8100912期辽宁11选5