[ここをクリックすると内容が表示されます]
上記のコードを AB 4.24.00 と AB 5 (CP4) でコンパイルして実行してみると、コード: 全て選択
Sub Paint(hDC As HDC)
Dim rc As RECT
Dim wx As Long, wy As Long, x As Long, y As Long
Dim i As Long
Do
i++
hDC=GetDC(hMainWnd)
GetClientRect(hMainWnd,rc)
wx=rc.right-rc.left
wy=rc.bottom-rc.top
If wx=0 Then
wx=1
End If
If wy=0 Then
wy=1
End If
x=rand() mod wx
y=rand() mod wy
Ellipse(hDC,x,y,x+30,y+30)
ReleaseDC(hMainWnd,hDC)
If i=50000 Then Exit Do
Loop
End Sub
円の描画され方が違うのですが、
何故なのでしょうか?
厳密に言えば、
です。AB 4.24.00: 画面全体にまばらに描画
AB 5 (CP4): 画面全体に斜めに描画
AB 5 でも AB 4.24 のようにまばらに描画したいのですが、
可能なのでしょうか?