IBM Lotus Symphony


Ohjausobjektien ohjelmointiesimerkkejä valintaikkunoiden muokkausohjelmassa

Seuraavat koskevat uutta valintaikkunaa nimeltä "Dialog1". Voit luoda valintaikkunan ja lisätä seuraavat ohjausobjektit käyttämällä valintaikkunoiden muokkausohjelman Työkalut-palkin työkaluja: valintaruutu nimeltä CheckBox1, nimiökenttä nimeltä Label1, painike nimeltä CommandButton1 ja luetteloruutu nimeltä ListBox1.

Varoituskuvake Käytä isoja ja pieniä kirjaimia yhdenmukaisesti, kun liität ohjausobjektin objektimuuttujaan.

Valintaikkunoiden latauksen yleisfunktio

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

Valintaikkunan näyttö

rem muuttujien yleismääritys

Dim oDialog1 AS Object

Sub StartDialog1

BasicLibraries.LoadLibrary("Tools")

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

oDialog1.Execute()

end sub

Ohjelman ohjausobjektien luku tai muokkaus

Sub Sample1

BasicLibraries.LoadLibrary("Tools")

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

REM nouda valintaikkunamalli

oDialog1Model = oDialog1.Model

REM näytä ohjausobjektin Label1 teksti

oLabel1 = oDialog1.GetControl("Label1")

MsgBox oLabel1.Text

REM määritä uusi teksti ohjausobjektille Label1

oLabel1.Text = "New Files"

REM näytä ohjausobjektin CheckBox1 malliominaisuudet

oCheckBox1Model = oDialog1Model.CheckBox1

MsgBox oCheckBox1Model.Dbg_Properties

REM määritä uusi tila ohjausobjektin CheckBox1 mallinhallinnalle

oCheckBox1Model.State = 1

REM näytä ohjausobjektin CommandButton1 malliominaisuudet

oCMD1Model = oDialog1Model.CommandButton1

MsgBox oCMD1Model.Dbg_Properties

REM näytä ohjausobjektin CommandButton1 ominaisuudet

oCMD1 = oDialog1.GetControl("CommandButton1")

MsgBox oCMD1.Dbg_Properties

REM suorita valintaikkuna

oDialog1.Execute()

End Sub

Merkinnän lisäys ohjausobjektiin ListBox

Sub AddEntry

BasicLibraries.LoadLibrary("Tools")

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

REM lisää uuden merkinnän ohjausobjektiin ListBox

oDialog1Model = oDialog1.Model

oListBox = oDialog1.GetControl("ListBox1")

dim iCount as integer

iCount = oListbox.ItemCount

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

end sub

Merkinnän poisto ohjausobjektista ListBox

Sub RemoveEntry

BasicLibraries.LoadLibrary("Tools")

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

REM poistaa ensimmäisen merkinnän ohjausobjektista ListBox

oDialog1Model = oDialog1.Model

oListBox = oDialog1.GetControl("ListBox1")

oListbox.removeitems(0,1)

end sub


Palautetta tuotteesta | Lisäohjeet | Tavaramerkit