Como se dispara el Evento Draw en el siguiente ejemplo?

vuott 24-01-2022, 02:25

En resumidas cuentas, el Evento "_Draw()" de la clase "DrawingArea" se eleva automáticamente:

Código:
Public Sub DrawingArea1_Draw()

  Print "Test"

End

Para levantar arbitrariamente el Evento "_Draw()" es necesario invocar el Método ". Refresh" de la Clase "DrawingArea":

Código:
Private i As Integer

Private pie As Boolean

Public Sub DrawingArea1_Draw()

  With Paint

    .Brush = .Color(i)

    .Arc(200, 200, 100.0, Rad(0), Rad(360), pie)

    .Stroke

    .End

  End With

End

Public Sub Button1_Click()

  i = Color.Red

  pie = True

  DrawingArea1.Refresh

End

Última modificación: 24-01-2022, 02:26 por vuott.

« Los horizontes perdidos nunca regresan. » (F. Battiato, 1983)

« Las ondas nunca regresan. » (Genesis: Ripples, 1976)

« Vita non suavis esse potest, nec Mors amara. » (...vuott)