Solved

Inputbox's with dropdown option - LotusScript

Posted on 2002-05-21
14
2,450 Views
Last Modified: 2013-12-18
Hello All,

I needed to create input boxes in Notes, but these input boxes need to have drop down boxes in them, where the user can select certain items.  For example, when the user clicks on the new button on a form, an inputbox should appear stating: "Please select Interface Type:", and the choices for for interface type should be: "Ethernet", "Tolken Ring".  Anyone have any suggestions?  This is being programmed in LotusScript...

Thanks,
Faraz
0
Comment
Question by:fiqbal
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 6
  • 4
  • 2
  • +1
14 Comments
 
LVL 9

Expert Comment

by:Arunkumar
ID: 7024575
Have a subform with a layout region with one field in it called choices.

use this script in a button that will prompt with choices.

===================
     Dim ss As New notessession
     Dim curdb As notesdatabase
     Dim doc As notesdocument
     Dim dialogdoc As notesdocument
     Dim item As notesitem    
     Dim ws As New notesuiworkspace    
     Set curdb = ss.CurrentDatabase
     
     
     Set DialogDoc = curdb.createDocument()
     Set Item = dialogdoc.replaceItemValue("Choices", "")
     
     
     Call Item.appendToTextList("Value-1")
     Call Item.appendToTextList("Value-2")
     Call Item.appendToTextList("Value-3")          
     
     DialogDoc.Text = "Please select from the list below:"
     tvMsg$ = "Routing"
     If WS.DialogBox("DialogChooser", True, True, False, False, False, False, tvMsg$, DialogDoc) = False Then Exit Sub

=======================

Good Luck!
Arun.
0
 
LVL 9

Expert Comment

by:Arunkumar
ID: 7024576
The subform name is DialogChooser FYI:
0
 
LVL 9

Expert Comment

by:Arunkumar
ID: 7024582
To check for the values selected use the following code after the previous one....

If dialogdoc.Choices(0) = "Value-1" then
'Do your action here !!!
Elseif dialogdoc.Choices(0) = "Value-2" then
'Do your second action here
Else
'Third action...
End if

Hope this helps!

-Arun.
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
LVL 9

Expert Comment

by:Arunkumar
ID: 7024930
Oops!

The choices field in the layout region on the subform "DialogChooser" should be of ComboBox type and the value should be from formula, and write the formula as "Choices" without quotes !

:-)
0
 
LVL 24

Accepted Solution

by:
HemanthaKumar earned 100 total points
ID: 7025028
With R5, there is a new method equivalent to @prompt.

Use this in a button
Sub Initialize
     Dim ws As New NotesUIWorkspace
     Dim v As Variant
     Dim choices(1) As String
     choices(0) = "Ethernet"
     choices(1) =  "Tolken Ring"
     v = ws.Prompt( PROMPT_OKCANCELCOMBO, "TITLE", "Please select Interface Type:", choices(0), choices )
     Print v
End Sub

For R4, I have a different approach. If you are interested I can give it to you.

~Hemanth
0
 
LVL 8

Expert Comment

by:Jean Marie Geeraerts
ID: 7026176
Listening...
0
 
LVL 9

Expert Comment

by:Arunkumar
ID: 7026255
See i am so dumb!  Such an easy thing i got so very confused !
0
 
LVL 8

Expert Comment

by:Jean Marie Geeraerts
ID: 7026263
Hee hee :-)
0
 
LVL 9

Expert Comment

by:Arunkumar
ID: 7026274
;-)
0
 

Author Comment

by:fiqbal
ID: 7027378
Hello Hemanth,

I get an error, "Object variable not set"...Any suggestions?
0
 

Author Comment

by:fiqbal
ID: 7027875
Thank you for your input...
0
 

Author Comment

by:fiqbal
ID: 7027878
Thank you all for your inputs....it was greatly appreciated!!!
0
 
LVL 24

Expert Comment

by:HemanthaKumar
ID: 7027945
Sorry I couldn't get to this immediately. Is the problem solved ?
0
 

Author Comment

by:fiqbal
ID: 7039540
yes thank you...
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

For Desktop Techs: How to retain a user's Notes configuration data when swapping out the end user's computer. (Assuming that you are not upgrading to a completely different version of Notes client) All you need to do is: 1) install Notes o…
IBM Notes offer Encryption feature using which the user can secure its NSF emails or entire database easily. In this section we will discuss about the process to Encrypt Incoming and Outgoing Mails in depth.
In this video we outline the Physical Segments view of NetCrunch network monitor. By following this brief how-to video, you will be able to learn how NetCrunch visualizes your network, how granular is the information collected, as well as where to f…
This tutorial will teach you the special effect of super speed similar to the fictional character Wally West aka "The Flash" After Shake : http://www.videocopilot.net/presets/after_shake/ All lightning effects with instructions : http://www.mediaf…

626 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question