IBM Lotus Symphony


Programando Exemplos para Controles no Editor de Diálogo

Os seguintes exemplos são para um novo diálogo chamado "Dialog1". Use as ferramentas na barra Caixa de Ferramentas no editor de diálogo para criar o diálogo e adicionar os seguintes controles: uma Caixa de Seleção chamada "CheckBox1", um Campo de Rótulo chamado "Label1", um Botão chamado "CommandButton1" e uma Caixa de Listagem chamada "ListBox1".

Ícone de Aviso Seja consistente com as letras maiúsculas e minúsculas quando anexar um controle a uma variável do objeto.

Função Global para Carregar Diálogos

Função LoadDialog(Libname as String, DialogName as String, Optional oLibContainer)

Dim oLib as Object

Dim oLibDialog as Object

Dim oRuntimeDialog as Object

If IsMissing(oLibContainer ) then

oLibContainer = DialogLibraries

End If

oLibContainer.LoadLibrary(LibName)

oLib = oLibContainer.GetByName(Libname)

oLibDialog = oLib.GetByName(DialogName)

oRuntimeDialog = CreateUnoDialog(oLibDialog)

LoadDialog() = oRuntimeDialog

End Function

Exibindo um Diálogo

Definição global de variáveis rem

Dim oDialog1 AS Object

Sub StartDialog1

BasicLibraries.LoadLibrary("Tools")

oDialog1 = LoadDialog("Standard", "Dialog1")

oDialog1.Execute()

end sub

Ler ou Editar Propriedades de Controles no Programa

Sub Sample1

BasicLibraries.LoadLibrary("Tools")

oDialog1 = LoadDialog("Standard", "Dialog1")

Modelo de diálogo de obtenção de REM

oDialog1Model = oDialog1.Model

REM exibe texto de Label1

oLabel1 = oDialog1.GetControl("Label1")

MsgBox oLabel1.Text

REM define texto novo para o controle Label1

oLabel1.Text = "New Files"

REM exibe propriedades de modelo para o controle CheckBox1

oCheckBox1Model = oDialog1Model.CheckBox1

MsgBox oCheckBox1Model.Dbg_Properties

REM define novo estado para CheckBox1 do modelo de controle

oCheckBox1Model.State = 1

REM exibe propriedades de modelo para o controle CommandButton1

oCMD1Model = oDialog1Model.CommandButton1

MsgBox oCMD1Model.Dbg_Properties

REM exibe propriedades do controle CommandButton1

oCMD1 = oDialog1.GetControl("CommandButton1")

MsgBox oCMD1.Dbg_Properties

REM executa o diálogo

oDialog1.Execute()

End Sub

Adicionar uma Entrada em uma Caixa de Listagem

Sub AddEntry

BasicLibraries.LoadLibrary("Tools")

oDialog1 = LoadDialog("Standard", "Dialog1")

REM inclui uma nova entrada no ListBox

oDialog1Model = oDialog1.Model

oListBox = oDialog1.GetControl("ListBox1")

dim iCount as integer

iCount = oListbox.ItemCount

oListbox.additem("New Item" & iCount,0)

end sub

Remover uma Entrada de uma Caixa de Listagem

Sub RemoveEntry

BasicLibraries.LoadLibrary("Tools")

oDialog1 = LoadDialog("Standard", "Dialog1")

REM remove a primeira entrada do ListBox

oDialog1Model = oDialog1.Model

oListBox = oDialog1.GetControl("ListBox1")

oListbox.removeitems(0,1)

end sub


Feedback do Produto | Documentação Adicional | Marcas Registradas