InputBox -1118555958 186 100000918 186 367 265 InputBox 1 False False 16777215 0 [TITLE] True False False False False False False 0 0 2 364 120 64 64 32000 32000 InputBox 141 Window 0 m_Canceled As Boolean 134217984 InputBox_Description 1 14 22 14 22 134217984 InputBox_Description '============================================================================================================= ' ' InputBox Window ' --------------- ' ' Created By : Kevin Wilson ' http://www.TheVBZone.com ( The VB Zone ) ' http://net.TheVBZone.com ( The VB Zone .net ) ' http://rb.TheVBZone.com ( The VB Zone [RB] ) ' ' Last Update : Sept 05, 2004 ' Created On : Oct 06, 2004 ' ' RB Versions : 5.5 (or higher) ' ' Requires : modVisualBasic.xml (RB module written by Kevin Wilson [rb.thevbzone.com]) ' ' Description : The current version of REALbasic (5.5.3) does not have an "InputBox" to compliment the ' "MsgBox" that IS available. So this gives you that by simply adding the "InputBox" window ' to your project. See sample code for proper use. ' ' Sample Use : ' ' Sub Open() ' Dim strReturn As String ' strReturn = InputBox.ShowDialog("Please enter your name:", " Name", "Type Name Here") ' If strReturn <> "" Then MsgBox "Hello, " + strReturn ' End Sub ' Sub Close() ' InputBox.Close ' End Sub ' '============================================================================================================= ' ' LEGAL: ' ' You are free to use this code as long as you keep the above heading information intact and unchanged. Credit ' given where credit is due. Also, it is not required, but it would be appreciated if you would mention ' somewhere in your compiled program that that your program makes use of code written and distributed by ' Kevin Wilson (www.TheVBZone.com). Feel free to link to this code via your web site or articles. ' ' You may NOT take this code and pass it off as your own. You may NOT distribute this code on your own server ' or web site. You may NOT take code created by Kevin Wilson (www.TheVBZone.com) and use it to create products, ' utilities, or applications that directly compete with products, utilities, and applications created by Kevin ' Wilson, TheVBZone.com, or Wilson Media. You may NOT take this code and sell it for profit without first ' obtaining the written consent of the author Kevin Wilson. ' ' These conditions are subject to change at the discretion of the owner Kevin Wilson at any time without 27207761726E696E67206F72206E6F746963652E2020436F70797269676874C2A9206279204B6576696E2057696C736F6E2E2020416C6C207269676874732072657365727665642E ' '============================================================================================================= 134217984 ShowDialog Prompt As String String 0 3 0 3 0 134217984 Function ShowDialog(Prompt As String) As String Return Self.ShowDialog(Prompt, App.PackageInfo, "", 0, 0, "", 12) End Function 134217984 ShowDialog Prompt As String, Title As String, Default As String String 0 3 0 3 0 134217984 Function ShowDialog(Prompt As String, Title As String, Default As String) As String Return Self.ShowDialog(Prompt, Title, Default, 0, 0, "", 12) End Function 134217984 ShowDialog Prompt As String, Title As String, Default As String, XPos As Integer, YPos As Integer String 0 3 0 3 0 134217984 Function ShowDialog(Prompt As String, Title As String, Default As String, XPos As Integer, YPos As Integer) As String Return Self.ShowDialog(Prompt, Title, Default, XPos, YPos, "", 12) End Function 134217984 GetDefaultFont String 33 1 0 1 0 134217984 Function GetDefaultFont() As String If DoesFontExist("MS Sans Serif") = True Then Return "MS Sans Serif" ElseIf DoesFontExist("Arial") = True Then Return "Arial" ElseIf DoesFontExist("Verdana") = True Then Return "Verdana" ElseIf DoesFontExist("Helvetica") = True Then Return "Helvetica" Else Return "" End If End Function 134217984 ShowDialog Prompt As String, Title As String, Default As String, XPos As Integer, YPos As Integer, TextFont As String, TextSize As Integer String 0 16 0 16 0 134217984 Function ShowDialog(Prompt As String, Title As String, Default As String, XPos As Integer, YPos As Integer, TextFont As String, TextSize As Integer) As String Dim intTextHeight As Integer Dim strDefaultFont As String Dim strReturn As String ' Validate parameters If Title = "" Then Title = App.PackageInfo If XPos > Screen(0).AvailableWidth Then XPos = Screen(0).AvailableWidth - 50 If YPos > Screen(0).AvailableHeight Then YPos = Screen(0).AvailableHeight - 50 If TextSize < 7 Then TextSize = 7 If TextSize > 72 Then TextSize = 72 If DoesFontExist(TextFont) = False Then TextFont = GetDefaultFont If TextFont = "" Then Return "" End If ' Setup the form Self.Width = Screen(0).AvailableWidth / 3 intTextHeight = TextHeight(Prompt, Self.lblPrompt.Width, TextFont, TextSize) If intTextHeight > Self.lblPrompt.Height Then Self.Height = Self.Height + (intTextHeight - Self.lblPrompt.Height) End If If XPos < 1 Then XPos = (Screen(0).AvailableWidth - Self.Width) / 2 If YPos < 1 Then YPos = (Screen(0).AvailableHeight - Self.Height) / 2 Self.Left = XPos Self.Top = YPos Self.Title = " " + Title Self.txtValue.TextFont = TextFont Self.txtValue.TextSize = TextSize Self.txtValue.Bold = False Self.txtValue.Italic = False Self.txtValue.Underline = False Self.txtValue.Text = Default Self.lblPrompt.TextFont = TextFont Self.lblPrompt.TextSize = TextSize Self.lblPrompt.Bold = False Self.lblPrompt.Italic = False Self.lblPrompt.Underline = False Self.lblPrompt.Text = Prompt ' Show the form Self.ShowModal ' Get the return value If Self.m_Canceled = True Then strReturn = "" Else strReturn = Self.txtValue.Text End If ' Return what the user specified Return strReturn End Function 1536 Open 1 0 1 0 134217984 Sub Open() End Sub 128 PushButton 0 1536 Action 3 20 3 20 134217984 Sub Action() m_Canceled = False Self.Visible = False End Sub 128 PushButton 0 1536 Action 3 20 3 20 134217984 Sub Action() m_Canceled = True Self.Visible = False End Sub 136 StaticText 0 1536 Open 1 0 1 0 134217984 Sub Open() End Sub 188 EditField 0 1536 GotFocus 1 21 1 21 134217984 Sub GotFocus() txtValue.SelStart = 0 txtValue.SelLength = Len(txtValue.Text) End Sub 1536 KeyDown 1 0 1 0 134217984 Function KeyDown(Key As String) As Boolean End Function EditField EditField txtValue -2147483648 0 True 7 90 351 22 False True False True True MS Sans Serif 12 False False False True False False False False False False True False 0 False 0 0 16777215 True [DEFAULT] 3 PushButton PushButton cmdOK -2147483648 0 True 287 9 69 22 False False True True False MS Sans Serif 12 False False False &OK True False True 0 PushButton PushButton cmdCancel -2147483648 0 True 287 35 69 22 False False True True False MS Sans Serif 12 False False False &Cancel False True True 1 StaticText StaticText lblPrompt -2147483648 0 True 7 5 271 78 False True True True True MS Sans Serif 12 False False False [PROMPT] 0 0 True True 2