Question

用VB在图片框内用Shape方法随机产生图形,其边框线型、填充色、填充图案也随机产生

Answer 1

vb中有Shape方法吗？
给你一段代码，看一下能不能得到你想要的效果：

'需要4个按钮，2个picture控件

Private Sub Form_Load()
Command1.Caption = "随机画圆"
Command2.Caption = "随机文字"
Command3.Caption = "立体图形"
Command4.Caption = "随机图像"
Command5.Caption = "退出"
Form1.ScaleMode = 1
Picture1.ScaleMode = 1
Picture2.Picture = LoadPicture("g:\ss.jpg")
End Sub
'注释: 随机画圆动画
Private Sub Command1_Click()
Dim Xpos, Ypos
Picture1.Cls
Do
nn = Int(100 * Rnd)
If nn > 0 Then
Picture1.DrawWidth = nn
End If
Xpos = Rnd * Picture1.ScaleWidth
Ypos = Rnd * Picture1.ScaleHeight
Picture1.PSet (Xpos, Ypos), RGB(Rnd * 256, Rnd * 256, Rnd * 256)
DoEvents
Loop
End Sub
'注释: 随机文字动画
Private Sub Command2_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.ScaleHeight
Picture1.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
Picture1.Print "随机 OK!"
n = n + 1
If n > 50 Then
n = 0
Picture1.BackColor = QBColor(Rnd * 15)
End If
DoEvents
Loop
End Sub
'注释: 立体随机动画
Private Sub Command3_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 Command4_Click()
Do
xx = Rnd * Picture1.Width
yy = Rnd * Picture1.Height
Picture1.PaintPicture Picture2.Picture, xx, yy, Picture2.Width, Picture2.Height
DoEvents
Loop
End Sub
'注释: 退出按钮
Private Sub Command5_Click()
End
End Sub