opaciPix = X - 1

If transPix <= opaciPix Then

rect2 = rect2.FromLTRB(transPix - 1, Y - 1, opaciPix, Y)

Region1.Union(rect2)

rect2 = Nothing

End If

Loop Until X >= BgWidth

Next Y

SKform.Region = Region1

SKform.Refresh()

''''SKform.Visible = True

End Sub

Public Function Getpixel(ByVal SKform As Form, ByVal x As Integer, ByVal y As Integer) As Integer

Dim pm As Bitmap = SKform.BackgroundImage

Try

Return pm.GetPixel(x, y).ToARGB

Catch

Exit Function

End Try

End Function

End Module

''''#################################################

上一页  [1] [2] [3] [4] [5] [6]