Árvore de páginas

Cria um objeto do tipo calendário.

Hierarquia

Construtores

Propriedades

Métodos

Exemplos

Exemplo 1
  #include "TOTVS.CH"
  User Function MsCalend()  
  DEFINE DIALOG oDlg TITLE "Exemplo MsCalend" FROM 180,180 TO 550,700 PIXEL      
  // Cria objeto    
  oMsCalend := MsCalend():New(01,01,oDlg,.T.)    
  // Define o dia a ser exibido no calendário    
  oMsCalend:dDiaAtu := ctod( "01/01/2008" )    
  // Code-Block para mudança de Dia    
  oMsCalend:bChange := {|| Alert('Dia Selecionado: ' + dtoc(oMsCalend:dDiaAtu)) }        
  // Code-Block para mudança de mes    
  oMsCalend:bChangeMes := {|| alert('Mes alterado') }                   
  ACTIVATE DIALOG oDlg CENTERED 
  Return

Exemplo da classe MsCalend

Abrangência

Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, TOTVS Application Server 11

  • Sem rótulos