sábado, 3 de octubre de 2015

Ejemplo Texto (Paint)



DrawingArea1.Cached=true


' gambas class file

' by postapase

Public Sub Form_Open()

Me.Center
Me.Title = "Ejemplo Texto"

Paint.Begin(DrawingArea1)
Paint.Font.Name = "Ubuntu"
Paint.Font.Size = 30
Paint.Font.Bold = True
Paint.Background = Color.Red
Paint.MoveTo(25, DrawingArea1.Height / 2)
Paint.Text("by postapase")
Paint.Fill
Paint.End

End





No hay comentarios.:

Publicar un comentario

www.gambas-es.org

www.gambas-es.org
Si quieres que tu curva de aprendizaje sea rápida, regístrate en este gran foro en español.