domingo, 1 de diciembre de 2013

ColorChooser



' Gambas class file

Public Sub Form_Open()

End

Public Sub btnpintar_Click()

If RadioButtonFondo.Value = True Then
  btnmuestra.Background = ColorChooser1.SelectedColor
Else
  btnmuestra.Foreground = ColorChooser1.SelectedColor

  Endif
End

Public Sub btnsalir_Click()

  Me.Close

End



No hay comentarios.:

Publicar un comentario

Related Posts Plugin for WordPress, Blogger...

Facebook

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.