Modul
Vsebina
Kazalo 🔎︎

# Programski primeri za kontrolnike v urejevalniku pogovornih oken

Sledeči primeri so za novo pogovorno okno, imenovano »Pogovorno okno 1«. V urejevalniku pogovornih oken uporabite orodja v vrstici Kontrolniki, s katerimi lahko ustvarite pogovorno okno in dodate naslednje kontrolnike: potrdilno polje z imenom »Potrdilno polje 1«, a polje z nalepko z imenom »Napis 1«, gumb z imenom »Gumb1« in seznamsko polje z imenom »Seznamsko polje 1«.

Pazite na velike in male črke v imenih, ko kontrolniku dodelite predmetno spremenljivko.

### Globalna funkcija za nalaganje pogovornih oken

    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

### Prikaz pogovornega okna

    REM globalna definicija spremenljivk

    Dim oDialog1 AS Object

    Sub StartDialog1

        BasicLibraries.LoadLibrary("Tools")

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

        oDialog1.Execute()

    End Sub

### Pregledovanje in urejanje lastnosti kontrolnikov v programu

    Sub Sample1

        BasicLibraries.LoadLibrary("Tools")

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

        REM najdi model pogovornega okna

        oDialog1Model = oDialog1.Model

        REM prikaži besedilo za Napis1

        oLabel1 = oDialog1.GetControl("Label1")

        MsgBox oLabel1.Text

        REM določi novo besedilo za kontrolnik Napis1

        oNapis1.Text = "Nove datoteke"

        REM prikaži lastnosti kontrolnika CheckBox1

        oCheckBox1Model = oDialog1Model.CheckBox1

        MsgBox oCheckBox1Model.Dbg_Properties

        REM določi novo stanje za kontrolnik CheckBox1 za model kontrolnika

        oCheckBox1Model.State = 1

        REM prikaži modelne lastnosti kontrolnika CommandButton1

        oCMD1Model = oDialog1Model.CommandButton1

        MsgBox oCMD1Model.Dbg_Properties

        REM prikaži lastnosti kontrolnika CommandButton1

        oCMD1 = oDialog1.GetControl("CommandButton1")

        MsgBox oCMD1.Dbg_Properties

        REM izvedi pogovorno okno

        oDialog1.Execute()

    End Sub

### Dodaj vnos na seznamsko polje

    Sub AddEntry

        BasicLibraries.LoadLibrary("Tools")

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

        REM doda nov vnos v polje ListBox

        oDialog1Model = oDialog1.Model

        oListBox = oDialog1.GetControl("ListBox1")

        Dim iCount as integer

        iCount = oListbox.ItemCount

        oSezPolje.additem("Nov vnos" & iStevec,0)

    End Sub

### Odstrani vnos iz seznamskega polja

    Sub RemoveEntry

        BasicLibraries.LoadLibrary("Tools")

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

        REM odstrani prvi vnos iz kontrolnika ListBox

        oDialog1Model = oDialog1.Model

        oListBox = oDialog1.GetControl("ListBox1")

        oListbox.removeitems(0,1)

    End Sub

Podobne teme

Spreminjanje lastnosti kontrolnika v urejevalniku pogovornih oken

Ustvarjanje pogovornega okna Basic

Izdelava kontrolnikov v urejevalniku pogovornih oken

Prikaz pogovornega okna s programsko kodo