have frames ..a main one to show the other two based on command button 1

[ixian]

Hey all,

I have a main frame. (fmeMain) with 2 command buttons<(cmdList1) and (cmdList2)>. Both of the lists are on frames as well fmeList1 and fmeList2.
I wish for if click on one of the cmd buttons then show the one under the the command button and not show the other one.

I have this:
cmdList1
fmeList1.visible = true
fmelist2.visible = false

cmdlist2
fmelist2.visible = true
fmelist1.visible = false

the 2 cmd buttons are on the top of the fmeMain
I wish for the fmeList1 and 2 to show 400 from the top fmeMain.
Plus how to have the fmeList1 as the default on form load on the fmeMain

Aaron

 

[MikeBronner]

Are you using an MDIForm with child forms?


If so, do this in fmeMain (also, to avoid problems, set the child form's .Visible properties to False):

Private Sub MDIForm_Load()
fmeList1.Visible = True
End Sub

To have the forms display 400 Twips from the top of the MDI form, you must insert an image control to act as a spacer (set its height to 400 Twips).

Hope this helps. Best Regards and many Thanks!
Michael G. Bronner X-)

&quot;Who cares how time advances? I am drinking [beer] today.&quot; Edgar Allan Poe

 

[ixian]

What if it is not a MDIform?

fmeMain is visible on form load already.
fmeMain will show the to other frames(fmelists1 and 2) on command button click.
How would you get the formatting of 400 twips on the loading ?

 

[MikeBronner]

what types of controls are you using here? What does fme stand for?
Best Regards and many Thanks!
Michael G. Bronner X-)

&quot;Who cares how time advances? I am drinking [beer] today.&quot; Edgar Allan Poe

 

[MikeBronner]

oops, sorry... I read your post in a totally different context.
I got it now:

to place the 400 Twips lower:

fmeList1.Move 0, fmemain.Top + 400

Sorry about the confusion there. Best Regards and many Thanks!
Michael G. Bronner X-)

&quot;Who cares how time advances? I am drinking [beer] today.&quot; Edgar Allan Poe

 

[ixian]

Micheal,

fme = frame

MS Windows Common Controls (1,2,3) sp 4

Aaron

 

[ixian]

I have the this idea for it....

Private Sub Form_Load()
fmeMain.visible = true
With
fmeList1.visible = true
fmeList1.top = 400
frmList2.visible = false
End With
end sub

but it does not work

 

[ixian]

Solved it thanks again

 

[MikeBronner]

Hehe, was justs gonna reply: Leave the With statement out.
But I see you already solved it.

Good Luck Best Regards and many Thanks!
Michael G. Bronner X-)

&quot;Who cares how time advances? I am drinking [beer] today.&quot; Edgar Allan Poe