Domino 9 und frühere Versionen > Entwicklung

Open DB Fenster

<< < (3/4) > >>

eknori:
und in script geht das mit einer undokumentierten Sache so

Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim varChoice As Variant
'Undocumented arguments for Prompt
'variant = notesUIWorkspace.Prompt( type%, title$, prompt$ [, default ] [, values ] )
'Type 13 is ChooseDatabase, remaining arguments ignored.
   varChoice = ws.Prompt(13, "", "", "", "")
   Msgbox varChoice(1)
'check in debugger for results

wobei

varChoice(0) = Server
varChoice(1) = Database
varChoice(2) = Datenbanktitel
End Sub

Semeaphoros:
Nice, danke, genau das hab ich mich gefragt, warum das über die Prompt-Methode eigentlich nicht gehen sollte. Schliesslich sollte die doch zu @prompt äquivalent sein.

Blackraven:
R5:

hab das mit dem WS.Prompt (13,"","","","") probiert, aber leider bekomm ich nur den Server zurück.

Andere Möglichkeit?

DatenDuck:
Homer Simpson: "NEIN"..
Selbes Problem hier...  :'(

Axel:

--- Zitat von: eknori am 23.10.03 - 11:45:10 ---und in script geht das mit einer undokumentierten Sache so

Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim varChoice As Variant
'Undocumented arguments for Prompt
'variant = notesUIWorkspace.Prompt( type%, title$, prompt$ [, default ] [, values ] )
'Type 13 is ChooseDatabase, remaining arguments ignored.
   varChoice = ws.Prompt(13, "", "", "", "")
   Msgbox varChoice(1)
'check in debugger for results

wobei

varChoice(0) = Server
varChoice(1) = Database
varChoice(2) = Datenbanktitel
End Sub


--- Ende Zitat ---

Ich habe es probiert. Geht einwandfrei. Wie sieht denn dein Code aus?


Axel

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete