pbrown@triton.unm.edu (Paul V Brown CS) (02/19/91)
Hi! About 2 weeks ago, I posted a question about how to get a dialog box with 2 or so buttons, with labels such as Mary and Joe, in order for the user to say who he/she was, and have default values set to make life easier, in case the 2 users of a system have different setups that they prefer. Yesterday I finally broke down and bought the Technical Reference for WFW, and came up with the following: It produces a box with "directions" on what to do, 3 buttons, labeled Minna, Paul and Other, 1 OK button, and 1 Cancel Button. Then, based on the input from the user, sets the default directory to the appropriate one, and changes the author field appropriately. On all but the Begin Dialog command, the #'s given are x-coord., y-coord., x-width, y-heighth -- you can change the values and see what happens. The coordinates are with respect to the box created in Begin Dialog. Oh, this is the AutoExec macro, by the way. If you have any questions, feel free to write, but realize that I'm under an extremely heavy workload, so it may take me a week to get back to you. Enjoy!! --Paul V. Brown pbrown@triton.unm.edu Sub MAIN Begin Dialog UserDialog 300, 100 Text 5, 10, 200, 20, "Choose the user, please:" OptionGroup .UserName OptionButton 50, 30, 128, 20, "Minna" OptionButton 50, 50, 128, 20, "Paul" OptionButton 50, 70, 128, 20, "Other" OKButton 200, 30, 75, 18 CancelButton 200, 60, 75, 18 End Dialog Dim WhichUser As Dialog UserDialog 'Creates a "record" for the dialog box On Error Goto outtahere 'I cannot figure out where this is supposed 'to go (I found it in several places) but it 'works here, so I left it here. Dialog WhichUser 'This displays the dialog box 'Now we need to evaluate the answer, and make any necessary changes! Select Case WhichUser.UserName 'Tech Ref conveniently leaves out "Select" Case 0 ChDir("C:\WINDOWS\MINNA") UtilCustomize .Name = "Minna Marikka Lampola", .Initials = "MML" Case 1 ChDir("C:\WINDOWS\PAUL") UtilCustomize .Name = "Paul Vinson Brown", .Initials = "PVB" Case 2 ChDir("C:\WINDOWS") Case Else End Select outtahere: End Sub