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

如何在MFC窗体指定矩形区域绘制图形~

有这样的映射模式，把视口原点数字你需要的位置即可。

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub Form_Load()
SetWindowPos hwnd, -1, 0, 0, 0, 0, 3
End Sub

窗体和 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里是不能绘图的

---

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