Botonera - Cambiar el icono de un botón

Creado por David Miralpeix, Modificado el Fri, 16 Feb 2024 a las 12:28 PM 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
      }

    }

  }
}