gui class

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

gui class

Logged in as: Guest

arrSession:exec spGetSession 2,16,26910

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> gui class
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

gui class - 10/13/2005 8:22:04 AM

kirrilian

Posts: 628
Score: 3
Joined: 3/15/2005
From:
Status: offline

I was playing with classes and creating a gui using the builtin gui objects and made this class

'testing gui components
 Option Explicit
 
 Dim objgui
 set objgui = New gui
 objgui.getInput
 
 Class gui
     'Option Explicit
     private Input, blah, quit, strText
     
     Private Function pickInput
         
         Select Case Input
             Case "1"
                 MsgBox ("You entered: " & Input)
                 getInput
             Case "2"
                 MsgBox ("You entered: " & Input)
                 getInput
             Case "3"
                 MsgBox ("You entered: " & Input)
                 getInput
             Case "4"
                 MsgBox ("You entered: " & Input)
                 getInput
             Case "5"
                 MsgBox ("You entered: " & Input)
                 getInput
             Case "6"
                 quit = MsgBox ("Are you sure?", 36, "Want To quit?")'52
                 If quit = 6 Then
                     MsgBox ("Bye!!")
                     WScript.Quit
                 Else
                     getInput
                 End If
             Case Else
                 blah = MsgBox (input & " Is an incorrect entry, try again", 48, "Error!!")
                 
                 getInput
         End Select
     End Function 'pickInput
     
     Public Function getInput
          strText = "Enter selection below." & vbNewLine & "1 = blah" & vbNewLine _
          & "2 = blah2"& vbNewLine & "And 6 To quit."
         WScript.Echo Input
         Input = InputBox(strText, "Make your selection") '"Enter a number 1-5, 6 To quit"
         pickInput
     End Function 'getInput
     
 End Class 'gui

_____________________________

Have you searched here ?
VBScript Fundamentals
My Site

Post #: 1

RE: gui class - 6/8/2006 2:19:01 AM

ksandbergfl

Posts: 7
Score: 0
Joined: 2/23/2006
Status: offline

thanks that was a great lesson for me. I need a multiselect "listbox" class to use inside a VBS script... if it's possible to build a listbox class in VBScript, I'd love to see some code.

(in reply to kirrilian)

Post #: 2

RE: gui class - 6/8/2006 2:50:41 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

You would have to build it as an IE window.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to ksandbergfl)

Post #: 3

RE: gui class - 6/8/2006 3:43:56 AM

ksandbergfl

Posts: 7
Score: 0
Joined: 2/23/2006
Status: offline

ok, i think i know what you mean. can you point me to any examples? thanks

(in reply to ebgreen)

Post #: 4

RE: gui class - 6/9/2006 1:12:10 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

Search these fora for "HTA" that should get you started.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to ksandbergfl)

Post #: 5

RE: gui class - 6/9/2006 2:03:35 AM

kirrilian

Posts: 628
Score: 3
Joined: 3/15/2005
From:
Status: offline

yep, youre limited to the gui elements provided by the scripting host unless youre using custom dlls or an HTA

_____________________________

Have you searched here ?
VBScript Fundamentals
My Site

(in reply to ebgreen)