Displaying Form.....

Posted on 2000-03-17
Last Modified: 2010-05-02
I have one text box......

then a user enters a form name in this textbox.....Now how do i display this  form object.....

Question by:tapsbin

Expert Comment

ID: 2630337
Can you give a little more information?

Are you giving the user a list of possible forms to enter?

If so, you should probably use a Select Case statement.

For example:

Select Case textbox.text
     case "Main"
     case "About"
     case else
          msgbox "Please Enter A Valid Form"
end Select

That is a simple example in which the user is presented with a list of forms to select.

Please respond and let me know if I understood your question.  If not please explain where I missed the mark.


Expert Comment

ID: 2630433
willecoy is correct. as far as i know, thats the way to do it.
but instead of using a text box, y dont u use a combo box and populate them with the form names. by this way, the user can select the form to be displayed by clicking on the combo box.
check it out...
LVL 69

Expert Comment

by:Éric Moreau
ID: 2630441
You should list your form in a listbox to help user!!!

Expert Comment

ID: 2630607
If you "pre-load" all your forms, then this is a good way to do it:

For Each Form In Forms
    If Form.Name = Text1.Text Then
        FormFound = True
        Exit For
    End If
If Not FormFound Then MsgBox "No such form!"

Problem is: the Forms collection only contains loaded forms.
Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

LVL 15

Expert Comment

ID: 2631201
Private Sub Text1_KeyPress(KeyAscii As Integer)
    On Error Resume Next
    If KeyAscii = vbKeyReturn Then Forms.Add(Text1.Text).Show ' requires VB6 SP3
End Sub
LVL 15

Accepted Solution

ameba earned 50 total points
ID: 2631228
Option Explicit

Private Sub Form_Load()
    Text1.Text = "Form1"
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim frm As Form
    On Error GoTo EH
    If KeyAscii = vbKeyReturn Then
        Set frm = Forms.Add(Text1.Text)
        frm.Move Me.Left + 300, Me.Top + 300
        KeyAscii = 0 ' prevent beep
    End If
    Exit Sub
    MsgBox Err.Description
End Sub

Author Comment

ID: 2651828
Will test and respond to you quickly.....

Author Comment

ID: 4121294
i have field with different form name. While looping through the field values, it should also invoke an instance of that form object, as well as should keep track of that instance, as and when needs to be fetched.


Featured Post

What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

I’ve seen a number of people looking for examples of how to access web services from VB6.  I’ve been using a test harness I built in VB6 (using many resources I found online) that I use for small projects to work out how to communicate with web serv…
If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

746 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

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now