Switch between forms in a vb 6 project

[Mohan Krishna]

Hi everyone!

How can we switch between forms in a VB 6 Project?

Please ASAP

[debasisdas]

What exactly you mean by switch between forms ?

[Mohan Krishna]

What exactly you mean by switch between forms ?

Sir,

When several document windows in MS Office (which are MDI child forms) are open, then by pressing CTRL + F6 we can switch between those documents?

In that manner, can we switch in the VB project, though they r not MDI forms?

ThanQ for rspd.ing!

[debasisdas]

You need to do the coding for that.

[AHMEDYO]

Hi....

you can use Forms Object To Swap Between Forms
Forms Object have Pointer for each loaded Form in your project

Forms.cout ----> return Loaded Forms count
Forms(n)

For Example

Dim i As Integer
    For i = 0 To (Forms.Count - 1)
        MsgBox Forms(i).Name
    Next

sure this is not what you need, just i wanna say you can use FORMS object
i will post to you code do exactly what you want

GOOD LUCK

[AHMEDYO]

Hey..

I think you need something like that

Form1.frm
'================================================= ========

Option Explicit
 
Private CurrentForm As Integer
Private Direction As Integer
 
Private Sub Command1_Click()
    If (CurrentForm = -1) Then
        Direction = 1
        CurrentForm = 1
        If (CurrentForm = Forms.Count) Then CurrentForm = 0
    ElseIf (CurrentForm = Forms.Count) Then
        Direction = -1
        CurrentForm = Forms.Count - 2
        If (CurrentForm < 0) Then CurrentForm = (Forms.Count - 1)
    End If
    Call Forms(CurrentForm).SetFocus
    CurrentForm = CurrentForm + Direction
End Sub
 
Private Sub Form_Load()
    Direction = 1
    Form2.Show
    Form3.Show
End Sub

[Mohan Krishna]

Hey..

I think you need something like that

Form1.frm
'================================================= ========
:

Thank You very much!
Your code helped me a lot.
I will try for improving so that we can assign the same for KEYS like F6 or CTRL + F6
Thank you once again!

[AHMEDYO]

Thank You very much!
Your code helped me a lot.
I will try for improving so that we can assign the same for KEYS like F6 or CTRL + F6
Thank you once again!

Many Thanx...

GOOD LUCK.