Forum społeczności użytkowników OpenOffice i LibreOffice

: **śr sie 10, 2011 12:55 am**

Witam. Szukam możliwości ukrycia hasła podawanego w Inputbox poprzez inne znaki np "*".

: **wt sie 16, 2011 12:09 pm**

See http://www.oooforum.org/forum/viewtopic.phtml?t=65037

: **wt sie 16, 2011 11:31 pm**

Dziękuję za link. Już go wypatrzyłem wcześniej ale niestety nie umiem sobie z tym makrem poradzić. Z tego co widzę to kod jest podzielony więc starałem się go uporządkować. Jednak przy uruchamianiu pojawia się błąd o niezgodności nawiasów.

: **śr sie 17, 2011 11:52 am**

Zasadniczy pomysł (z właściwością EchoChar) jest przedstawiony w drugim poście na wątku. I działa. Reszta to umiejętność zaadaptowania go do własnych potrzeb.

: **czw sie 18, 2011 10:09 pm**

Rzeczywiście działa tylko trzeba było trochę pomyśleć. Dzięki Jan za motywację bo już miałem porzucić ten pomysł...

: **pt gru 30, 2011 10:22 pm**

babiniec4 pisze:Rzeczywiście działa tylko trzeba było trochę pomyśleć. Dzięki Jan za motywację bo już miałem porzucić ten pomysł...

Witam, też się męczę z tym listingiem. Można Cię prosić o jakiś częściowy listing z rozwiązaniem ?

: **ndz sty 29, 2012 12:58 pm**

Kod: Zaznacz cały

sub Dostosuj_Dokument()

'tworzenie dialogu 
 oDialog = CreateUnoService("com.sun.star.awt.UnoControlDialog")
 oDialogModel = CreateUnoService("com.sun.star.awt.UnoControlDialogModel")
 oDialogModel.setPropertyValues(Array("Height","PositionX","PositionY","Title","Width"),Array(50,30,30,"Podaj klucz dostępu ",100))
 oDialog.setModel(oDialogModel)

'editbox for password input 
 oEditModel = oDialogModel.createInstance("com.sun.star.awt.UnoControlEditModel")
 oEditModel.setPropertyValues(Array("EchoChar","Height","PositionX","PositionY","Width"),Array(asc("*"),15,5,5,90) )
 oEditModel.EchoChar = asc("*")
 oDialogModel.insertByName("PasswordEdit",oEditModel)

'przyciski ok i porzuć
 oOKButton = oDialogModel.createInstance("com.sun.star.awt.UnoControlButtonModel")
 oOKButton.setPropertyValues(Array("DefaultButton","Height","Label","PositionX","PositionY","PushButtonType","Width"),Array(True,15,"~Zatwierdź",30,25,1,40)) 
 oDialogModel.insertByName("OkButton",oOKButton)
' oCancelButton = oDialogModel.createInstance("com.sun.star.awt.UnoControlButtonModel")
' oCancelButton.setPropertyValues(Array("Height","Label","PositionX","PositionY","PushButtonType","Width"),Array(15,"~Porzuć",5,25,2,40))
 'oDialogModel.insertByName("CancelButton",oCancelButton)

POKAZ:
'pokazanie dialogu
 oDialog.setVisible(True)
 oDialog.execute() = 1
 v = oEditModel.Text

if v="" then
 msgbox ("Nie podałeś klucza - spróbuj ponownie.",64,"Modify")
GOTO POKAZ:

elseif v = "1119" then
 Dostosuj_Dokument_cd

else
 msgbox ("Klucz niepoprawny.",48,"Modify")

end if 
end sub

Kod: Zaznacz cały

sub Dostosuj_Dokument_cd()

rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
 document   = ThisComponent.CurrentController.Frame
 dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 dispatcher.executeDispatch(document, ".uno:ConfigureDialog", "", 0, Array())
end sub

Forum społeczności użytkowników OpenOffice i LibreOffice

[Solved] hasło w Inputbox jako "*"

[Solved] hasło w Inputbox jako "*"

Re: hasło w Inputbox jako "*"

Re: hasło w Inputbox jako "*"

Re: hasło w Inputbox jako "*"

Re: [Solved}hasło w Inputbox jako "*"

Re: [Solved}hasło w Inputbox jako "*"

Re: [Solved] hasło w Inputbox jako "*"