CommandBar and other controls' position

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi CodeJock,

I'm using VB6 to develop the soft, and there is some problem which I can't to solve.

There is form, and in it form is one command bar object (toolbar) and frame control, toolbar is located on top of form. How can I set position of frame, thus that frame was below of commandbar object.

I tried to use GetClientRect, than add some fixed value to bottom value, but in other computers with different screen resolution, and default windows theme, it not given necessary results.

How can I do it?

Thank u

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
okosv Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 31 October 2009 Status: Offline Points: 1	Post Options Post Reply Quote okosv Report Post Thanks(0) Quote Reply Topic: CommandBar and other controls' position Posted: 31 October 2009 at 7:59am
	Hi CodeJock, I'm using VB6 to develop the soft, and there is some problem which I can't to solve. There is form, and in it form is one command bar object (toolbar) and frame control, toolbar is located on top of form. How can I set position of frame, thus that frame was below of commandbar object. I tried to use GetClientRect, than add some fixed value to bottom value, but in other computers with different screen resolution, and default windows theme, it not given necessary results. How can I do it? Thank u

Oleg Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234	Post Options Post Reply Quote Oleg Report Post Thanks(0) Quote Reply Posted: 02 November 2009 at 7:46am
	Hi, from SDI sample: Private Sub CommandBars_Resize() On Error Resume Next Dim Left As Long Dim Top As Long Dim Right As Long Dim Bottom As Long CommandBars.GetClientRect Left, Top, Right, Bottom rtfText.Move Left, Top, Right - Left, Bottom - Top rtfText.RightMargin = IIf(rtfText.Width > 400, rtfText.Width - 400, rtfText.Width) End Sub
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS