TOTVSTEC

Árvore de páginas

Cria um objeto do tipo caixa de seleção, cujo os itens são definidos a partir de um intervalo numérico.

Hierarquia

Construtores

Propriedades

Métodos

Exemplos

user function exemplo()
 local oTestDialog := Nil
 local oSpinBox := Nil, nSpinBox := -10
 local oButtom := Nil
 local oSay := Nil
    oTestDialog := msDialog():new(0, 0, 300, 400, , , , , , , , , , .T.)
    oSay := tSay():new(5, 5, {|| "tSpinBox: "}, oTestDialog, , , , , , .T., , , 30, 13)
    oSpinBox := tSpinBox():new(3, 45, oTestDialog, {|x| nSpinBox := x }, 30, 13)
    oSpinBox:setRange(-50, 50)
    oSpinBox:setStep(5)
    oSpinBox:setValue(nSpinBox)
    oButtom := tButton():new(3, 155, "Valor", oTestDialog, {|| MsgInfo(nSpinBox, "tSpinBox value:") }, 40, 13, , , , .T.)
    oTestDialog:activate( , , , .T.)
 return

Resultado do Exemplo

Abrangência

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

  • Sem rótulos