mirozm napsal(a)No pekné, ešte by som dal na záver nejaký
msgbox("Listy vami vybratých dokumentov boli zlúčené do nového dokumentu",0,"Zlúčenie listov")'hláška
Otázočka - nevieš ako msgbox zavrieť makrom za nejaký čas (napr. 5sec)?
Miro
Tak tu je ten sľúbený kód na "msgbox" ktorý sa zavrie za určitý čas. Už si to len uprav na funkciu
Samozrejme že si musíš vytvoriť dialóg a hodiť naň po jednom tlačítko, label, progresbar.
Tlačítku do udalosti stlačenie myši priraď makro UkoncitDialogOK
Je tam malý neduh. Nevedel som ako zistiť či je dialóg zobrazený alebo nie tak som tam vložil ďalšiu globálnu premennú. Ak by niekto poznal elegantnejšie riešenie tak budem rád
Global oDialog
Global VisibleDialog as Boolean
Sub ZobrazitDialogOK
Const nLabel="LabelText"
Const nTlacitko="CommandButtonOK"
Const nKnihovny = "Standard"
Const nDialogu = "DialogOK"
Const nProgresBar="ProgressBar1"
Const tLabel="Hotovo!"
Const ProgressValueMin = 0
Const ProgressValueMax = 12'čas v sekundách
Const ProgressStep = 1
Const tTlacito = "OK"
KnihovniKontejner = DialogLibraries
KnihovniKontejner.LoadLibrary(nKnihovny, nDialogu)
Knihovna = KnihovniKontejner.GetByName(nKnihovny)
ModulPrvnihoDialogu = Knihovna.GetByName(nDialogu)
'Definovanie jednotlivých objektov
oDialog = CreateUnoDialog(ModulPrvnihoDialogu)
oTlacitko = oDialog.getControl(nTlacitko)
oText = oDialog.getControl(nLabel)
oProgressBarModel = oDialog.getModel().getByName(nProgresBar)
'Počitočné nastavenia
oTlacitko.Label=tTlacito
oText.Text = tLabel
oProgressBarModel.setPropertyValue( "ProgressValueMin", ProgressValueMin)
oProgressBarModel.setPropertyValue( "ProgressValueMax", ProgressValueMax)
'Zobrazenie dialógu
VisibleDialog=True
oDialog.setVisible(True)
For ProgressValue = ProgressValueMin To ProgressValueMax Step ProgressStep
If VisibleDialog=False then exit for
oProgressBarModel.setPropertyValue( "ProgressValue", ProgressValue )
Wait 1000
Next ProgressValue
End Sub
Sub UkoncitDialogOK
VisibleDialog=False
oDialog.setVisible(False)
End Sub
