vb6.0 在窗体中指定区域绘图

来源:百度知道 编辑:UC知道 时间:2024/06/30 16:12:27
比如能不能在自己规定大小的IMAGE里绘图,或者是在FRAME里绘图,谢谢
请举个例子说明下,如果好的话我再追加50分
那在PICTURE里可以绘图,怎么定绘图区域大小,怎么设置宽比高,如果我要把一个坐标系里的一条直线或弧转换到这个绘图区域该怎么弄,谢谢回答

窗体和 PictureBox 控件可以绘图,其他控件不可以。
要在规定的地方绘图,绘图完后,将不需要的地方抹去。

Private Sub Form_Click()
'单击窗体,画随机的点
Dim x As Single, y As Single, I As Long
Me.DrawWidth = 20: Me.AutoRedraw = True
Me.Cls
For I = 0 To 2000
Randomize: x = Rnd * Me.ScaleWidth
Randomize: y = Rnd * Me.ScaleHeight
Randomize
Me.PSet (x, y), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next
'用背景色抹去左右 1/5 区域
Me.Line (0, 0)-(Me.ScaleWidth * 0.2, Me.ScaleHeight), Me.BackColor, BF
Me.Line (Me.ScaleWidth * 0.8, 0)-(Me.ScaleWidth, Me.ScaleHeight), Me.BackColor, BF
End Sub

IMAGE,FRAME里是不能绘图的