Botonera - Cambiar el icono de un botón

Creado por David Miralpeix, Modificado el Vie, 16 Feb a 12:28 P. M. por David Miralpeix

Este ejemplo explicacomo se cambia el icono del botón de notas y el color de letra del encabezado del cliente cuando tiene notas asociadas.

Código VB6:

Sub Show()

     if gForm.Controls("EObjeto").ObjGlobal.TieneNotas then
         gForm.Controls("EComerciales").Forecolor = vbred
         gForm.Controls("EObjeto").Forecolor = vbred
         gForm.Controls("EEConomicos").Forecolor =vbred
         gform.Botonera.Boton("botNotas").IdIcono = 450   ' icono de pelota verde

     End if
End Sub

Código C#:

using AhoraCl;
using AhoraOCX;
using System.Drawing;

namespace AhoraScriptsPantalla
{
  public class AhoraCl_frmClientes : AhoraOCX.AhoraBaseScript
  {

    public void Show()
    {
            AhoraCore.VBA.Interaction.MsgBox("1500");
            ICliente cliente = (( (gForm.Controls["EObjeto"] as IEnlaceObjetos).ObjGlobal) as ICliente);
            AhoraCore.VBA.Interaction.MsgBox(cliente.TieneNotas());
            if (cliente.TieneNotas()) 
            {
                (gForm.Controls["EComerciales"] as IEnlaceObjetos).ForeColor = Color.Red;
                (gForm.Controls["EObjeto"] as IEnlaceObjetos).ForeColor = Color.Red;
                (gForm.Controls["EEConomicos"] as IEnlaceObjetos).ForeColor = Color.Red;
                (gForm.Controls["Botonera"] as ICntBotonera).Boton("botNotas").IdIcono = 450;   // icono de pelota verde
      }

    }

  }
}


¿Le ha sido útil este artículo?

¡Qué bien!

Gracias por sus comentarios

¡Sentimos mucho no haber sido de ayuda!

Gracias por sus comentarios

¡Háganos saber cómo podemos mejorar este artículo!

Seleccione al menos una de las razones
Se requiere la verificación del CAPTCHA.

Sus comentarios se han enviado

Agradecemos su esfuerzo e intentaremos corregir el artículo