Paint.ZoomImage (gb.qt4)
Static Sub ZoomImage ( Image As Image, Zoom As Integer, X As Integer, Y As Integer [ , Grid As Integer, Source As Rect ] )
Desenhe uma versão rápida ampliada de uma imagem ou parte dela.
-
Image : a imagem para ampliar.
-
Zoom : o fator de zoom. Use
1
para a imagem original, 2
para uma imagem duas vezes maior, e assim por diante...
-
X, Y : onde desenhar a imagem ampliada.
-
Grid : a cor de uma grade, ou Color.Default para não desenhar a grade.
-
Source : se for especificado, então, apenas a parte da imagem descrita pelo retângulo é levado em conta para o desenho.
Exemplo
Public Sub DrawingArea1_Draw()
Dim RET As Rect
RET = Rect(10, 10, 200, 200)
Paint.ZoomImage(Image.Load("imagem.png"), 12, 10, 10, Color.Red, RET)
Paint.Fill()
End