IBM Lotus Symphony


Exemplos de programação para controlos no editor de caixas de diálogo

Os seguintes exemplos são para uma nova caixa de diálogo chamada "Dialog1". Utilize as ferramentas na barra Caixa de ferramentas do editor de caixas de diálogo para criar a caixa de diálogo e adicionar os seguintes controlos: uma Caixa de verificação denominada "CheckBox1", um Campo de rótulo denominado "Label1", um Botão denominado "CommandButton1" e uma Caixa de lista denominada "ListBox1".

ícone de Aviso Seja consistente com letras maiúsculas e minúsculas quando anexar um controlo a uma variável de objecto.

Função global para carregar caixas de diálogo

Function 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

Visualizar uma caixa de diálogo

rem definição global de variáveis

Dim oDialog1 AS Object

Sub StartDialog1

BasicLibraries.LoadLibrary("Tools")

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

oDialog1.Execute()

end sub

Ler ou editar propriedades de controlos no programa

Sub Sample1

BasicLibraries.LoadLibrary("Tools")

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

REM obter modelo da caixa de diálogo

oDialog1Model = oDialog1.Model

REM visualizar texto de Label1

oLabel1 = oDialog1.GetControl("Label1")

MsgBox oLabel1.Text

REM definir novo texto para a Label1 de controlo

oLabel1.Text = "New Files"

REM apresentar as propriedades do modelo para a CheckBox1 de controlo

oCheckBox1Model = oDialog1Model.CheckBox1

MsgBox oCheckBox1Model.Dbg_Properties

REM definir novo estado para a CheckBox1, para modelo de controlo

oCheckBox1Model.State = 1

REM apresentar as propriedades do modelo para o controlo CommandButton1

oCMD1Model = oDialog1Model.CommandButton1

MsgBox oCMD1Model.Dbg_Properties

REM apresentar as propriedades do controlo CommandButton1

oCMD1 = oDialog1.GetControl("CommandButton1")

MsgBox oCMD1.Dbg_Properties

REM executar caixa de diálogo

oDialog1.Execute()

End Sub

Adicionar uma entrada a uma caixa de lista

Sub AddEntry

BasicLibraries.LoadLibrary("Tools")

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

REM adiciona uma nova entrada à Caixa de lista

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 lista

Sub RemoveEntry

BasicLibraries.LoadLibrary("Tools")

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

REM remove a primeira entrada da Caixa de lista

oDialog1Model = oDialog1.Model

oListBox = oDialog1.GetControl("ListBox1")

oListbox.removeitems(0,1)

end sub


Comentários sobre o produto | Documentação adicional | Marcas comerciais