'============================================================
'Mozaiku 処理指定画像にモザイクをかける
'------引数--------------------------------------------------
'Pic モザイクをかける画像のピクチャボックス
'TPic モザイクをかけた画像を表示するピクチャボックス
'sx モザイクをかける画像の左上隅x座標
'sy モザイクをかける画像の左上隅y座標
'B_Width モザイクをかける画像の幅
'B_Height モザイクをかける画像の高さ
'UnitSize モザイク１つあたりの大きさ
'============================================================
Public Sub Mozaiku(Pic As Object, TPic As Object, _
sx As Long, sy As Long, _
B_Width As Long, B_Height As Long, _
UnitSize As Long)
On Error GoTo MOZA
Dim CountX As Long, CountY As Long
Dim s As PIXELDATA
Dim e As PIXELDATA
Dim i As Long, j As Long
Dim msg As String
'モザイク１つあたりの大きさでいくらあるか
CountX = B_Width \ (UnitSize)
CountY = B_Height \ (UnitSize)
'まず右と下の端を除いた部分にモザイクをかける
For j = 0& To CountY - 1&
For i = 0& To CountX - 1&
s.x = UnitSize * i + sx
s.y = UnitSize * j + sy
e.x = s.x + UnitSize - 1&
e.y = s.y + UnitSize - 1&
s.Color = Pic.Point(s.x, s.y)
TPic.Line (s.x, s.y)-(e.x, e.y), s.Color, BF
Next i
Next j
〜以下略〜
|