快捷搜索:  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

免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。

您可能还会对下面的文章感兴趣: