Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Call A Form Like a Function 2

Status
Not open for further replies.
VictoryHighway

VictoryHighway

Technical User
Mar 4, 2004
115
US
Hello,
I would like to know if I can "call" a form like I would a function and have the form return a value.

What I'm looking to do is to pop up a small form with a list of files, wait for the user to select a file and return the filename when the user clicks OK.

I've already figured out how to use the FileList control to get my list of files. But, all I need to know now is how can I get that filename back into the original procedure?

Any help would be appreciated.

Thanks,
Geoffrey
 
Sort by date Sort by votes
I do this all the time with my apps.

1. Create a form
2. Add a sub that accepts parameters (some byval and some byref)
3. In that subroutine, call Show(Modal)

Here's an example of a form with a text box, an OK button and a Cancel button.

Code: 
Option Explicit

Dim bCancel As Boolean
Dim cEditText As String

Public Sub GetSingleEdit(ByVal Caption As String, ByVal MaxLength As Long, ByRef EditText As String, ByRef Cancel As Boolean)
    
    Me.Caption = Caption
    txtEdit.MaxLength = MaxLength
    txtEdit.Text = EditText
    txtEdit.SelStart = 0
    txtEdit.SelLength = Len(txtEdit.Text)
    bCancel = True
    
    Call Show(vbModal)
    
    Cancel = bCancel
    EditText = cEditText
    
End Sub


Private Sub btnCancel_Click()
    
    Unload Me
    
End Sub

Private Sub btnOK_Click()
    
    bCancel = False
    cEditText = txtEdit.Text
    
    Unload Me

End Sub



-George

Strong and bitter words indicate a weak cause. - Fortune cookie wisdom
 
Upvote 0 Downvote
Oh, and to use it...

Dim strName as String
Dim bCancel as Boolean

Call frmSingleEdit.GetSingleEdit("Enter Your Name", 50, strName, bCancel)
If bCancel Then
' The user Canceled
Else
Msgbox "Hello " & strName
End If

-George

Strong and bitter words indicate a weak cause. - Fortune cookie wisdom
 
Upvote 0 Downvote
George,
Thanks very much! That works perfectly! That will be very useful!

--Geoffrey
 
Upvote 0 Downvote
Glad to help and thanks for the star.

-George

Strong and bitter words indicate a weak cause. - Fortune cookie wisdom
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

Swi
  • Locked
  • Question
API - multipart/form-data
Replies
3
Views
403
Swi
Swi
2009luca
  • Locked
difficult to crteate a query very complicated 1
Replies
9
Views
895
Andrzejek
Andrzejek
Trob70
  • Locked
  • Question
Create a Form Via Code and Save
Replies
4
Views
383
Andrzejek
Andrzejek
Swi
  • Locked
  • Question
Rotate every 6th page in a PDF 1
Replies
7
Views
302
Rick998
Rick998
Ken01
  • Locked
  • Question
Display Imageboxes on a PictureBox 1
Replies
1
Views
156
strongm
strongm

Part and Inventory Search

Sponsor

Back
Top