Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.databases.ms-access > #10171 > unrolled thread

Postitioning a control in a form

Back to article view | Back to comp.databases.ms-access

Contents

  Postitioning a control in a form Patrick Finucane <patrickfinucanetx@gmail.com> - 2014-12-09 15:27 -0800
    Re: Postitioning a control in a form Ulrich Möller <knobbi38@arcor.de> - 2014-12-10 03:32 +0100
    Re: Postitioning a control in a form "Ron Paii" <None@none.com> - 2014-12-10 07:29 -0600
      Re: Postitioning a control in a form Patrick Finucane <patrickfinucanetx@gmail.com> - 2014-12-10 06:14 -0800
        Re: Postitioning a control in a form "Ron Paii" <None@none.com> - 2014-12-10 11:29 -0600
        Re: Postitioning a control in a form Dave W <davewi11@yahoo.co.uk> - 2014-12-13 11:12 +0000
    Re: Postitioning a control in a form Patrick Finucane <patrickfinucanetx@gmail.com> - 2014-12-10 07:20 -0800
      Re: Postitioning a control in a form Ulrich Möller <knobbi38@arcor.de> - 2014-12-10 20:10 +0100
        Re: Postitioning a control in a form Patrick Finucane <patrickfinucanetx@gmail.com> - 2014-12-10 13:53 -0800
          Re: Postitioning a control in a form "Ron Paii" <None@none.com> - 2014-12-10 16:33 -0600
          Re: Postitioning a control in a form Ulrich Möller <knobbi38@arcor.de> - 2014-12-11 00:56 +0100
            Re: Postitioning a control in a form "Phil" <phil@stantonfamily.co.uk> - 2014-12-11 08:57 +0000

#10171 — Postitioning a control in a form

Hi.  I have a form, Form1, that has a box/rectangle control.  I call it Box0.  

I want to open a form, Form2, and position it at the Top Left coordinate of Form1's Box0.  I think I may have the placement of that issue licked, maybe not.

Anyway, when Form2 is displayed, I may resize it within Box0.  At this point I can get the various coordinates of Form2 using WindowLeft, WindowTop, WindowHeight, and WindowWidth.  Ex:  lngLeft = Me.WindowLeft

Inside Form2 I have 2 controls; LabelW and LabelL (for length and width).  I need to display LabelW in the middle of Form2's display and LabelL at the bottom of Form2.  What I would normally consider an easy task is turning into frustration.  How can I get LabelL to print/display just above the bottom of the form using VBA?  How can I display LabelW so it displays halfway down the display area of Form2.  Is there some way of doing so?  Currently I'm doing things like
  Me.LabelL.Top = Me.WindowHeight - 360
In the above line, I would think LabelL would display 1/4" (360) from the bottom of Form2.  

For some odd reason the WindowHeight of Form2 has no correlation with the height of the detail section in Form2.  The detail section is a large number using the Design view setting of the height.

At this point I don't know if using Move is the way to go or the setting of a control such as LabelL.Top = ...

This should be really easy to do.  But I'm lost.

Btw, I am using A2013 and have it set to use Overlapping Windows, not tabbed documents. 

[toc] | [next] | [standalone]

#10174

Am 10.12.2014 um 00:27 schrieb Patrick Finucane:
> Hi.  I have a form, Form1, that has a box/rectangle control.  I call it Box0.
>
> I want to open a form, Form2, and position it at the Top Left coordinate of Form1's Box0.  I think I may have the placement of that issue licked, maybe not.
>
> Anyway, when Form2 is displayed, I may resize it within Box0.  At this point I can get the various coordinates of Form2 using WindowLeft, WindowTop, WindowHeight, and WindowWidth.  Ex:  lngLeft = Me.WindowLeft
>
> Inside Form2 I have 2 controls; LabelW and LabelL (for length and width).  I need to display LabelW in the middle of Form2's display and LabelL at the bottom of Form2.  What I would normally consider an easy task is turning into frustration.  How can I get LabelL to print/display just above the bottom of the form using VBA?  How can I display LabelW so it displays halfway down the display area of Form2.  Is there some way of doing so?  Currently I'm doing things like
>    Me.LabelL.Top = Me.WindowHeight - 360
> In the above line, I would think LabelL would display 1/4" (360) from the bottom of Form2.
>
> For some odd reason the WindowHeight of Form2 has no correlation with the height of the detail section in Form2.  The detail section is a large number using the Design view setting of the height.
>
> At this point I don't know if using Move is the way to go or the setting of a control such as LabelL.Top = ...
>
> This should be really easy to do.  But I'm lost.
>
> Btw, I am using A2013 and have it set to use Overlapping Windows, not tabbed documents.
Hi Patrik,

why not just change the box0 in form1 into a subform control and load 
form2 within this control? Use layouts for positioning the labels and no 
code need to be written.

Ulrich

[toc] | [prev] | [next] | [standalone]

#10175

"Patrick Finucane" <patrickfinucanetx@gmail.com> wrote in message 
news:b76f269d-5fc0-4ce3-88d5-845de07d521e@googlegroups.com...
> Hi.  I have a form, Form1, that has a box/rectangle control.  I call it 
> Box0.
>
> I want to open a form, Form2, and position it at the Top Left coordinate 
> of Form1's Box0.  I think I may have the placement of that issue licked, 
> maybe not.
>
> Anyway, when Form2 is displayed, I may resize it within Box0.  At this 
> point I can get the various coordinates of Form2 using WindowLeft, 
> WindowTop, WindowHeight, and WindowWidth.  Ex:  lngLeft = Me.WindowLeft
>
> Inside Form2 I have 2 controls; LabelW and LabelL (for length and width). 
> I need to display LabelW in the middle of Form2's display and LabelL at 
> the bottom of Form2.  What I would normally consider an easy task is 
> turning into frustration.  How can I get LabelL to print/display just 
> above the bottom of the form using VBA?  How can I display LabelW so it 
> displays halfway down the display area of Form2.  Is there some way of 
> doing so?  Currently I'm doing things like
>  Me.LabelL.Top = Me.WindowHeight - 360
> In the above line, I would think LabelL would display 1/4" (360) from the 
> bottom of Form2.
>
> For some odd reason the WindowHeight of Form2 has no correlation with the 
> height of the detail section in Form2.  The detail section is a large 
> number using the Design view setting of the height.
>
> At this point I don't know if using Move is the way to go or the setting 
> of a control such as LabelL.Top = ...
>
> This should be really easy to do.  But I'm lost.
>
> Btw, I am using A2013 and have it set to use Overlapping Windows, not 
> tabbed documents.



1) You need to account for the border and header to get from WindowHeight to 
the detail section.
2) All dimensions are in twips (1440 per inch or 567 per centimeter)

PS: as posted by Ulrich, why not include it as a sub form? 

[toc] | [prev] | [next] | [standalone]

#10176

On Wednesday, December 10, 2014 8:30:00 AM UTC-5, Ron Paii wrote:
> "Patrick Finucane" <patrickfinucanetx@gmail.com> wrote in message 
> news:b76f269d-5fc0-4ce3-88d5-845de07d521e@googlegroups.com...
> > Hi.  I have a form, Form1, that has a box/rectangle control.  I call it 
> > Box0.
> >
> > I want to open a form, Form2, and position it at the Top Left coordinate 
> > of Form1's Box0.  I think I may have the placement of that issue licked, 
> > maybe not.
> >
> > Anyway, when Form2 is displayed, I may resize it within Box0.  At this 
> > point I can get the various coordinates of Form2 using WindowLeft, 
> > WindowTop, WindowHeight, and WindowWidth.  Ex:  lngLeft = Me.WindowLeft
> >
> > Inside Form2 I have 2 controls; LabelW and LabelL (for length and width). 
> > I need to display LabelW in the middle of Form2's display and LabelL at 
> > the bottom of Form2.  What I would normally consider an easy task is 
> > turning into frustration.  How can I get LabelL to print/display just 
> > above the bottom of the form using VBA?  How can I display LabelW so it 
> > displays halfway down the display area of Form2.  Is there some way of 
> > doing so?  Currently I'm doing things like
> >  Me.LabelL.Top = Me.WindowHeight - 360
> > In the above line, I would think LabelL would display 1/4" (360) from the 
> > bottom of Form2.
> >
> > For some odd reason the WindowHeight of Form2 has no correlation with the 
> > height of the detail section in Form2.  The detail section is a large 
> > number using the Design view setting of the height.
> >
> > At this point I don't know if using Move is the way to go or the setting 
> > of a control such as LabelL.Top = ...
> >
> > This should be really easy to do.  But I'm lost.
> >
> > Btw, I am using A2013 and have it set to use Overlapping Windows, not 
> > tabbed documents.
> 
> 
> 
> 1) You need to account for the border and header to get from WindowHeight to 
> the detail section.
> 2) All dimensions are in twips (1440 per inch or 567 per centimeter)
> 
> PS: as posted by Ulrich, why not include it as a sub form?

The reason is that I need to resize the form.  I'd love to use a box but unless it is in design mode it does not move/can't resize.

Do you have any idea how to get the height of the border?  

[toc] | [prev] | [next] | [standalone]

#10178

"Patrick Finucane" <patrickfinucanetx@gmail.com> wrote in message 
news:67bc93ab-0224-4fab-b88a-89110f7ce3fd@googlegroups.com...
> On Wednesday, December 10, 2014 8:30:00 AM UTC-5, Ron Paii wrote:
>> "Patrick Finucane" <patrickfinucanetx@gmail.com> wrote in message
>> news:b76f269d-5fc0-4ce3-88d5-845de07d521e@googlegroups.com...
>> > Hi.  I have a form, Form1, that has a box/rectangle control.  I call it
>> > Box0.
>> >
>> > I want to open a form, Form2, and position it at the Top Left 
>> > coordinate
>> > of Form1's Box0.  I think I may have the placement of that issue 
>> > licked,
>> > maybe not.
>> >
>> > Anyway, when Form2 is displayed, I may resize it within Box0.  At this
>> > point I can get the various coordinates of Form2 using WindowLeft,
>> > WindowTop, WindowHeight, and WindowWidth.  Ex:  lngLeft = Me.WindowLeft
>> >
>> > Inside Form2 I have 2 controls; LabelW and LabelL (for length and 
>> > width).
>> > I need to display LabelW in the middle of Form2's display and LabelL at
>> > the bottom of Form2.  What I would normally consider an easy task is
>> > turning into frustration.  How can I get LabelL to print/display just
>> > above the bottom of the form using VBA?  How can I display LabelW so it
>> > displays halfway down the display area of Form2.  Is there some way of
>> > doing so?  Currently I'm doing things like
>> >  Me.LabelL.Top = Me.WindowHeight - 360
>> > In the above line, I would think LabelL would display 1/4" (360) from 
>> > the
>> > bottom of Form2.
>> >
>> > For some odd reason the WindowHeight of Form2 has no correlation with 
>> > the
>> > height of the detail section in Form2.  The detail section is a large
>> > number using the Design view setting of the height.
>> >
>> > At this point I don't know if using Move is the way to go or the 
>> > setting
>> > of a control such as LabelL.Top = ...
>> >
>> > This should be really easy to do.  But I'm lost.
>> >
>> > Btw, I am using A2013 and have it set to use Overlapping Windows, not
>> > tabbed documents.
>>
>>
>>
>> 1) You need to account for the border and header to get from WindowHeight 
>> to
>> the detail section.
>> 2) All dimensions are in twips (1440 per inch or 567 per centimeter)
>>
>> PS: as posted by Ulrich, why not include it as a sub form?
>
> The reason is that I need to resize the form.  I'd love to use a box but 
> unless it is in design mode it does not move/can't resize.
>
> Do you have any idea how to get the height of the border?

Use the resize event.
The following will resize the detail section 1st then the sub form in the 
detail section. The constants will need to be edited if the form is edited.

Private Sub Form_Resize()
    On Error Resume Next

    ' Default detail height converted from inch to twips
    Const DetailHeight = (2.5833 * 1440)

    ' Default sub form hight converted fro inch to twips
    Const SubFormHeight = (1.9167 * 1440)

    ' Form size (header+footer in inch converted to twips) + detail - 
subform in twips
    Const TopBottomPadding = ((0.4167 + 0) * 1440) + DetailHeight - 
SubFormHeight

    Dim iSubHeight As Integer

    iSubHeight = MaxV(Me.InsideHeight - TopBottomPadding, SubFormHeight)

    ' Resize detail section to fit new subform size
    Me.Section(acDetail).Height = DetailHeight - SubFormHeight + iSubHeight

    ' Resize subform
    Me.SubForm1.Height = iSubHeight

End Sub 

[toc] | [prev] | [next] | [standalone]

#10187

On Wed, 10 Dec 2014 06:14:42 -0800 (PST), Patrick Finucane
<patrickfinucanetx@gmail.com> wrote:

>On Wednesday, December 10, 2014 8:30:00 AM UTC-5, Ron Paii wrote:
>> 1) You need to account for the border and header to get from WindowHeight to 
>> the detail section.
>> 2) All dimensions are in twips (1440 per inch or 567 per centimeter)
>> 
>> PS: as posted by Ulrich, why not include it as a sub form?
>
>The reason is that I need to resize the form.  I'd love to use a box but unless it is in design mode it does not move/can't resize.
>
>Do you have any idea how to get the height of the border?  

I think being able to resize something on a form would be useful to me
as well, so I investigated what would be required, and produced a demo
in Access 2003.

I have a blank form (no record selectors, dividing lines or navigation
buttons), and on it have a white box I've called Boundary. On top of
that is a smaller coloured box to be resized, called Box1.

I use the MouseMove event to get the mouse coordinates, but there is a
complication. When the mouse is over the form, the origin of the XY
coords is the top-left corner of the form. When the mouse is over
Boundary, the origin is the top-left corner of Boundary. When the
mouse is over Box1, the origin is the top-left corner of  Box1.

So I've made the form's MouseMove event pass X & Y to a subroutine
called Move1, the Boundary's MouseMove add Boundary's offset to X & Y
before passing them to Move1, and similarly for Box1's MouseMove
event.

The result works well. When the mouse is moved near an  edge of Box1,
the cursor changes to a double arrow, and the edge can be dragged.
When the cursor is inside Box1, the cursor returns to being a pointer
(nothing better available), and the whole box can be dragged. 

My code below is not bomb-proof, and needs limits to stop fatal error
messages when Box1 edges move off the form.

My next step is to have several boxes that can be resized, hopefully
all refering to a commonised code.

>Option Explicit
>Public HandleX As Single, HandleY As Single
>
>Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
>    ' X & Y are relative to Form
>    Move1 Button, Shift, X, Y
>End Sub
>
>Private Sub Boundary_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
>    'X & Y are relative to "Boundary"
>    Move1 Button, Shift, X + Boundary.Left, Y + Boundary.Top 'Make X & Y relative to Form
>End Sub
>
>Private Sub Box1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
>    ' X & Y are relative to "Box1"
>    Move1 Button, Shift, X + Box1.Left, Y + Box1.Top 'Make X & Y relative to Form
>End Sub
>
>Private Sub Box1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
>    ' Used to keep cursor in fixed place in Box1 while shifting Box1
>    HandleX = X
>    HandleY = Y
>End Sub
>
>Private Sub Move1(Button As Integer, Shift As Integer, X As Single, Y As Single)
>    Dim Grab As Single
>    Grab = 50 'Sensitive margin
>    If Y > Box1.Top + Grab And Y < Box1.Top + Box1.Height - Grab Then 'Ignore X outside Y bounds
>        If X > Box1.Left - Grab And X < Box1.Left + Grab Then
>            Screen.MousePointer = 9 'Horizontal arrows on left edge
>            If Button = 1 Then
>                Box1.Width = Box1.Width + Box1.Left - X
>                Box1.Left = X
>            End If
>        ElseIf X > Box1.Left + Box1.Width - Grab And X < Box1.Left + Box1.Width + Grab Then
>            Screen.MousePointer = 9 'Horizontal arrows on right edge
>            If Button = 1 Then
>                Box1.Width = Box1.Width - (Box1.Left + Box1.Width - X)
>            End If
>        ElseIf X > Box1.Left + Grab And X < Box1.Left + Box1.Width - Grab Then
>            Screen.MousePointer = 1 'Normal pointer between left and right
>            If Button = 1 Then
>                Box1.Left = X - HandleX
>            End If
>        Else
>            Screen.MousePointer = 1 'Normal pointer outside left and right
>        End If
>    End If
>    If X > Box1.Left + Grab And X < Box1.Left + Box1.Width - Grab Then 'Ignore Y outside X bounds
>        If Y > Box1.Top - Grab And Y < Box1.Top + Grab Then
>            Screen.MousePointer = 7 'Vertical arrows on top edge
>            If Button = 1 Then
>                Box1.Height = Box1.Height + Box1.Top - Y
>                Box1.Top = Y
>            End If
>        ElseIf Y > Box1.Top + Box1.Height - Grab And Y < Box1.Top + Box1.Height + Grab Then
>            Screen.MousePointer = 7 'Vertical arrows on bottom edge
>            If Button = 1 Then
>                Box1.Height = Box1.Height - (Box1.Top + Box1.Height - Y)
>            End If
>        ElseIf Y > Box1.Top + Grab And Y < Box1.Top + Box1.Height - Grab Then
>            Screen.MousePointer = 1 'Normal pointer between top and bottom
>            If Button = 1 Then
>                Box1.Top = Y - HandleY
>            End If
>        Else
>            Screen.MousePointer = 1 'Normal pointer outside top and bottom
>        End If
>    End If
>End Sub
>
>
-- 
Dave W

[toc] | [prev] | [next] | [standalone]

#10177

On Tuesday, December 9, 2014 6:27:45 PM UTC-5, Patrick Finucane wrote:
> Hi.  I have a form, Form1, that has a box/rectangle control.  I call it Box0.  
> 
> I want to open a form, Form2, and position it at the Top Left coordinate of Form1's Box0.  I think I may have the placement of that issue licked, maybe not.
> 
> Anyway, when Form2 is displayed, I may resize it within Box0.  At this point I can get the various coordinates of Form2 using WindowLeft, WindowTop, WindowHeight, and WindowWidth.  Ex:  lngLeft = Me.WindowLeft
> 
> Inside Form2 I have 2 controls; LabelW and LabelL (for length and width).  I need to display LabelW in the middle of Form2's display and LabelL at the bottom of Form2.  What I would normally consider an easy task is turning into frustration.  How can I get LabelL to print/display just above the bottom of the form using VBA?  How can I display LabelW so it displays halfway down the display area of Form2.  Is there some way of doing so?  Currently I'm doing things like
>   Me.LabelL.Top = Me.WindowHeight - 360
> In the above line, I would think LabelL would display 1/4" (360) from the bottom of Form2.  
> 
> For some odd reason the WindowHeight of Form2 has no correlation with the height of the detail section in Form2.  The detail section is a large number using the Design view setting of the height.
> 
> At this point I don't know if using Move is the way to go or the setting of a control such as LabelL.Top = ...
> 
> This should be really easy to do.  But I'm lost.
> 
> Btw, I am using A2013 and have it set to use Overlapping Windows, not tabbed documents.

I think it may be best to provide some code.  Make it easy to test. Forms are Overlapping

I have Form1, sizable, no title caption, no record selector, no nav buttons.  It contains Box0 in Detail section.

I have Form2, sizable, no title caption, no record selector, no nav buttons, type Dialog.  It contains 2 labels in Detail; LabelW and LabelL.  I want LabelW to be in the MIDDLE of Form2, LabelL at bottom of Form2.

At issue, LabelL is lower than bottom of Form2 after running code thus unseen

The following is my code contained in Form1
Private Sub Form_Current()

    Dim lngTop As Long
    Dim lngBottom As Long
    
    DoCmd.OpenForm "Form2", acNormal
    Forms!Form2.SetFocus  'form2 is set to dialog.  Places on top of form1
    
    'now move Form2 to Box0 coordinates.  Height of form 1.5 inches
    Forms!Form2.Move Left:=Me.Box0.Left, Top:=Me.Box0.Top, Height:=Me.Box0.Height / 2, Width:=Me.Box0.Width - 100
    
    'reset detail height of Form2 set in design mode
    Forms!Form2.Detail.Height = Me.Box0.Height / 2
    
    'determine middle of Form2 for LabelW position
    lngTop = Forms!Form2.WindowHeight / 2 - 600  'top for LabelW, middle of form
    'determine bottom of Form2 for LabelL position
    lngBottom = Forms!Form2.Detail.Height - 40 - 600  'top for LabelL, bottom of form
    
    Forms!Form2!LabelW.Top = lngTop  'should be middle of form
    Forms!Form2!LabelL.Top = lngBottom  'should be bottom of form
End Sub

Private Sub Form_Load()
    'Set Box0 to 3 inches by 5 inches
    DoCmd.Maximize
    Me.Box0.Top = 1440
    Me.Box0.Left = 1440
    Me.Box0.Height = 1440 * 3  '3 inches
    Me.Box0.Width = 1440 * 5   '5 inches
End Sub

Private Sub CommandClose_Click()
    'close my windows
    If IsLoaded("Form2") Then
        DoCmd.Close acForm, "Form2"
    End If
    DoCmd.Close acForm, Me.Name
End Sub

Can you help me figure out how to get LabelL to the bottom of Form2 and visible?

[toc] | [prev] | [next] | [standalone]

#10179

Am 10.12.2014 um 16:20 schrieb Patrick Finucane:
> On Tuesday, December 9, 2014 6:27:45 PM UTC-5, Patrick Finucane wrote:
>> Hi.  I have a form, Form1, that has a box/rectangle control.  I call it Box0.
>>
>> I want to open a form, Form2, and position it at the Top Left coordinate of Form1's Box0.  I think I may have the placement of that issue licked, maybe not.
>>
>> Anyway, when Form2 is displayed, I may resize it within Box0.  At this point I can get the various coordinates of Form2 using WindowLeft, WindowTop, WindowHeight, and WindowWidth.  Ex:  lngLeft = Me.WindowLeft
>>
>> Inside Form2 I have 2 controls; LabelW and LabelL (for length and width).  I need to display LabelW in the middle of Form2's display and LabelL at the bottom of Form2.  What I would normally consider an easy task is turning into frustration.  How can I get LabelL to print/display just above the bottom of the form using VBA?  How can I display LabelW so it displays halfway down the display area of Form2.  Is there some way of doing so?  Currently I'm doing things like
>>    Me.LabelL.Top = Me.WindowHeight - 360
>> In the above line, I would think LabelL would display 1/4" (360) from the bottom of Form2.
>>
>> For some odd reason the WindowHeight of Form2 has no correlation with the height of the detail section in Form2.  The detail section is a large number using the Design view setting of the height.
>>
>> At this point I don't know if using Move is the way to go or the setting of a control such as LabelL.Top = ...
>>
>> This should be really easy to do.  But I'm lost.
>>
>> Btw, I am using A2013 and have it set to use Overlapping Windows, not tabbed documents.
> I think it may be best to provide some code.  Make it easy to test. Forms are Overlapping
>
> I have Form1, sizable, no title caption, no record selector, no nav buttons..  It contains Box0 in Detail section.
>
> I have Form2, sizable, no title caption, no record selector, no nav buttons, type Dialog.  It contains 2 labels in Detail; LabelW and LabelL.  I want LabelW to be in the MIDDLE of Form2, LabelL at bottom of Form2.
>
> At issue, LabelL is lower than bottom of Form2 after running code thus unseen
>
> The following is my code contained in Form1
> Private Sub Form_Current()
>
>      Dim lngTop As Long
>      Dim lngBottom As Long
>      
>      DoCmd.OpenForm "Form2", acNormal
>      Forms!Form2.SetFocus  'form2 is set to dialog.  Places on top of form1
>      
>      'now move Form2 to Box0 coordinates.  Height of form 1.5 inches
>      Forms!Form2.Move Left:=Me.Box0.Left, Top:=Me.Box0.Top, Height:=Me..Box0.Height / 2, Width:=Me.Box0.Width - 100
>      
>      'reset detail height of Form2 set in design mode
>      Forms!Form2.Detail.Height = Me.Box0.Height / 2
>      
>      'determine middle of Form2 for LabelW position
>      lngTop = Forms!Form2.WindowHeight / 2 - 600  'top for LabelW, middle of form
>      'determine bottom of Form2 for LabelL position
>      lngBottom = Forms!Form2.Detail.Height - 40 - 600  'top for LabelL, bottom of form
>      
>      Forms!Form2!LabelW.Top = lngTop  'should be middle of form
>      Forms!Form2!LabelL.Top = lngBottom  'should be bottom of form
> End Sub
>
> Private Sub Form_Load()
>      'Set Box0 to 3 inches by 5 inches
>      DoCmd.Maximize
>      Me.Box0.Top = 1440
>      Me.Box0.Left = 1440
>      Me.Box0.Height = 1440 * 3  '3 inches
>      Me.Box0.Width = 1440 * 5   '5 inches
> End Sub
>
> Private Sub CommandClose_Click()
>      'close my windows
>      If IsLoaded("Form2") Then
>          DoCmd.Close acForm, "Form2"
>      End If
>      DoCmd.Close acForm, Me.Name
> End Sub
>
> Can you help me figure out how to get LabelL to the bottom of Form2 and visible?
>
Hi Patrik,

Positioning Form2 to fit in the rectangle on form1 can be done with some 
api calls, but you have to fiddle arount with absolute and relative 
coordinates, transform twips coordinates to pixels coordinates and so on.
The detailsection.height should be set iin the form2 resize event. It is 
calculated as forms2.insideheight -footer.height -header.height.
To let the LabelL flow relative to the bottom of form2 set the vertical 
anchor property of the label to "bottom".

It is not quite plain to me why you want to do this and why you want to 
open form2 in design view. Perhaps there is an easier solution for what 
you want to achieve.

Ulrich

[toc] | [prev] | [next] | [standalone]

#10180

On Wednesday, December 10, 2014 2:10:28 PM UTC-5, Ulrich Möller wrote:
> Am 10.12.2014 um 16:20 schrieb Patrick Finucane:
> > On Tuesday, December 9, 2014 6:27:45 PM UTC-5, Patrick Finucane wrote:
> >> Hi.  I have a form, Form1, that has a box/rectangle control.  I call it Box0.
> >>
> >> I want to open a form, Form2, and position it at the Top Left coordinate of Form1's Box0.  I think I may have the placement of that issue licked, maybe not.
> >>
> >> Anyway, when Form2 is displayed, I may resize it within Box0.  At this point I can get the various coordinates of Form2 using WindowLeft, WindowTop, WindowHeight, and WindowWidth.  Ex:  lngLeft = Me.WindowLeft
> >>
> >> Inside Form2 I have 2 controls; LabelW and LabelL (for length and width).  I need to display LabelW in the middle of Form2's display and LabelL at the bottom of Form2.  What I would normally consider an easy task is turning into frustration.  How can I get LabelL to print/display just above the bottom of the form using VBA?  How can I display LabelW so it displays halfway down the display area of Form2.  Is there some way of doing so?  Currently I'm doing things like
> >>    Me.LabelL.Top = Me.WindowHeight - 360
> >> In the above line, I would think LabelL would display 1/4" (360) from the bottom of Form2.
> >>
> >> For some odd reason the WindowHeight of Form2 has no correlation with the height of the detail section in Form2.  The detail section is a large number using the Design view setting of the height.
> >>
> >> At this point I don't know if using Move is the way to go or the setting of a control such as LabelL.Top = ...
> >>
> >> This should be really easy to do.  But I'm lost.
> >>
> >> Btw, I am using A2013 and have it set to use Overlapping Windows, not tabbed documents.
> > I think it may be best to provide some code.  Make it easy to test. Forms are Overlapping
> >
> > I have Form1, sizable, no title caption, no record selector, no nav buttons..  It contains Box0 in Detail section.
> >
> > I have Form2, sizable, no title caption, no record selector, no nav buttons, type Dialog.  It contains 2 labels in Detail; LabelW and LabelL.  I want LabelW to be in the MIDDLE of Form2, LabelL at bottom of Form2.
> >
> > At issue, LabelL is lower than bottom of Form2 after running code thus unseen
> >
> > The following is my code contained in Form1
> > Private Sub Form_Current()
> >
> >      Dim lngTop As Long
> >      Dim lngBottom As Long
> >      
> >      DoCmd.OpenForm "Form2", acNormal
> >      Forms!Form2.SetFocus  'form2 is set to dialog.  Places on top of form1
> >      
> >      'now move Form2 to Box0 coordinates.  Height of form 1.5 inches
> >      Forms!Form2.Move Left:=Me.Box0.Left, Top:=Me.Box0.Top, Height:=Me..Box0.Height / 2, Width:=Me.Box0.Width - 100
> >      
> >      'reset detail height of Form2 set in design mode
> >      Forms!Form2.Detail.Height = Me.Box0.Height / 2
> >      
> >      'determine middle of Form2 for LabelW position
> >      lngTop = Forms!Form2.WindowHeight / 2 - 600  'top for LabelW, middle of form
> >      'determine bottom of Form2 for LabelL position
> >      lngBottom = Forms!Form2.Detail.Height - 40 - 600  'top for LabelL, bottom of form
> >      
> >      Forms!Form2!LabelW.Top = lngTop  'should be middle of form
> >      Forms!Form2!LabelL.Top = lngBottom  'should be bottom of form
> > End Sub
> >
> > Private Sub Form_Load()
> >      'Set Box0 to 3 inches by 5 inches
> >      DoCmd.Maximize
> >      Me.Box0.Top = 1440
> >      Me.Box0.Left = 1440
> >      Me.Box0.Height = 1440 * 3  '3 inches
> >      Me.Box0.Width = 1440 * 5   '5 inches
> > End Sub
> >
> > Private Sub CommandClose_Click()
> >      'close my windows
> >      If IsLoaded("Form2") Then
> >          DoCmd.Close acForm, "Form2"
> >      End If
> >      DoCmd.Close acForm, Me.Name
> > End Sub
> >
> > Can you help me figure out how to get LabelL to the bottom of Form2 and visible?
> >
> Hi Patrik,
> 
> Positioning Form2 to fit in the rectangle on form1 can be done with some 
> api calls, but you have to fiddle arount with absolute and relative 
> coordinates, transform twips coordinates to pixels coordinates and so on.
> The detailsection.height should be set iin the form2 resize event. It is 
> calculated as forms2.insideheight -footer.height -header.height.
> To let the LabelL flow relative to the bottom of form2 set the vertical 
> anchor property of the label to "bottom".
> 
> It is not quite plain to me why you want to do this and why you want to 
> open form2 in design view. Perhaps there is an easier solution for what 
> you want to achieve.
> 
> Ulrich

I did an app 20+ years ago in FoxPro DOS for a firm that cuts sheetstock.  One crucial part of the app was creating the cutting charts.  A Base-line window was displayed.  That would represent the board size; ex 50"x100".  The op would select parts to cut with this board.  Let's say 1 line item was 48"x20#.  A square (window) was put in the baseline.  The op could resize it to represent the part.  Then he'd select another part, maybe 22"x76".  I'd drop a new form and the op would resize it.  Then a third line item, 24"x75" to complete the chart.  The op would resize form3.  Now, if the op wants to look at history of charts, the base form or the chart just described would be displayed with the 3 forms contained in it.  I needed the ability to resize these items.  Can't be done unless in design more.  Can't mix design mode with open mode.  So doing it like I did in FoxPro 20 years ago seemed the most doable.  

This is all done to produce a graphical representation of the board being cut.  It is also crucial it be done like this...per the boss.  He wants the height displayed in the middle of the window on the left side and the length displayed at the bottom of the window in the middle of it.  It's the way it's been done 20 years and the cutters are used to that representation.  If I can't do this there is no reason to upgrade from FoxProDos to Access 2013.  Doing this in FoxPro years ago was much easier than doing it in Access.

Bt

[toc] | [prev] | [next] | [standalone]

#10181

"Patrick Finucane" <patrickfinucanetx@gmail.com> wrote in message 
news:8bbbfc1c-837b-4b95-89c1-6543e27752b8@googlegroups.com...
> On Wednesday, December 10, 2014 2:10:28 PM UTC-5, Ulrich Möller wrote:
>> Am 10.12.2014 um 16:20 schrieb Patrick Finucane:
>> > On Tuesday, December 9, 2014 6:27:45 PM UTC-5, Patrick Finucane wrote:
>> >> Hi.  I have a form, Form1, that has a box/rectangle control.  I call 
>> >> it Box0.
>> >>
>> >> I want to open a form, Form2, and position it at the Top Left 
>> >> coordinate of Form1's Box0.  I think I may have the placement of that 
>> >> issue licked, maybe not.
>> >>
>> >> Anyway, when Form2 is displayed, I may resize it within Box0.  At this 
>> >> point I can get the various coordinates of Form2 using WindowLeft, 
>> >> WindowTop, WindowHeight, and WindowWidth.  Ex:  lngLeft = 
>> >> Me.WindowLeft
>> >>
>> >> Inside Form2 I have 2 controls; LabelW and LabelL (for length and 
>> >> width).  I need to display LabelW in the middle of Form2's display and 
>> >> LabelL at the bottom of Form2.  What I would normally consider an easy 
>> >> task is turning into frustration.  How can I get LabelL to 
>> >> print/display just above the bottom of the form using VBA?  How can I 
>> >> display LabelW so it displays halfway down the display area of Form2. 
>> >> Is there some way of doing so?  Currently I'm doing things like
>> >>    Me.LabelL.Top = Me.WindowHeight - 360
>> >> In the above line, I would think LabelL would display 1/4" (360) from 
>> >> the bottom of Form2.
>> >>
>> >> For some odd reason the WindowHeight of Form2 has no correlation with 
>> >> the height of the detail section in Form2.  The detail section is a 
>> >> large number using the Design view setting of the height.
>> >>
>> >> At this point I don't know if using Move is the way to go or the 
>> >> setting of a control such as LabelL.Top = ...
>> >>
>> >> This should be really easy to do.  But I'm lost.
>> >>
>> >> Btw, I am using A2013 and have it set to use Overlapping Windows, not 
>> >> tabbed documents.
>> > I think it may be best to provide some code.  Make it easy to test. 
>> > Forms are Overlapping
>> >
>> > I have Form1, sizable, no title caption, no record selector, no nav 
>> > buttons..  It contains Box0 in Detail section.
>> >
>> > I have Form2, sizable, no title caption, no record selector, no nav 
>> > buttons, type Dialog.  It contains 2 labels in Detail; LabelW and 
>> > LabelL.  I want LabelW to be in the MIDDLE of Form2, LabelL at bottom 
>> > of Form2.
>> >
>> > At issue, LabelL is lower than bottom of Form2 after running code thus 
>> > unseen
>> >
>> > The following is my code contained in Form1
>> > Private Sub Form_Current()
>> >
>> >      Dim lngTop As Long
>> >      Dim lngBottom As Long
>> >
>> >      DoCmd.OpenForm "Form2", acNormal
>> >      Forms!Form2.SetFocus  'form2 is set to dialog.  Places on top of 
>> > form1
>> >
>> >      'now move Form2 to Box0 coordinates.  Height of form 1.5 inches
>> >      Forms!Form2.Move Left:=Me.Box0.Left, Top:=Me.Box0.Top, 
>> > Height:=Me..Box0.Height / 2, Width:=Me.Box0.Width - 100
>> >
>> >      'reset detail height of Form2 set in design mode
>> >      Forms!Form2.Detail.Height = Me.Box0.Height / 2
>> >
>> >      'determine middle of Form2 for LabelW position
>> >      lngTop = Forms!Form2.WindowHeight / 2 - 600  'top for LabelW, 
>> > middle of form
>> >      'determine bottom of Form2 for LabelL position
>> >      lngBottom = Forms!Form2.Detail.Height - 40 - 600  'top for LabelL, 
>> > bottom of form
>> >
>> >      Forms!Form2!LabelW.Top = lngTop  'should be middle of form
>> >      Forms!Form2!LabelL.Top = lngBottom  'should be bottom of form
>> > End Sub
>> >
>> > Private Sub Form_Load()
>> >      'Set Box0 to 3 inches by 5 inches
>> >      DoCmd.Maximize
>> >      Me.Box0.Top = 1440
>> >      Me.Box0.Left = 1440
>> >      Me.Box0.Height = 1440 * 3  '3 inches
>> >      Me.Box0.Width = 1440 * 5   '5 inches
>> > End Sub
>> >
>> > Private Sub CommandClose_Click()
>> >      'close my windows
>> >      If IsLoaded("Form2") Then
>> >          DoCmd.Close acForm, "Form2"
>> >      End If
>> >      DoCmd.Close acForm, Me.Name
>> > End Sub
>> >
>> > Can you help me figure out how to get LabelL to the bottom of Form2 and 
>> > visible?
>> >
>> Hi Patrik,
>>
>> Positioning Form2 to fit in the rectangle on form1 can be done with some
>> api calls, but you have to fiddle arount with absolute and relative
>> coordinates, transform twips coordinates to pixels coordinates and so on.
>> The detailsection.height should be set iin the form2 resize event. It is
>> calculated as forms2.insideheight -footer.height -header.height.
>> To let the LabelL flow relative to the bottom of form2 set the vertical
>> anchor property of the label to "bottom".
>>
>> It is not quite plain to me why you want to do this and why you want to
>> open form2 in design view. Perhaps there is an easier solution for what
>> you want to achieve.
>>
>> Ulrich
>
> I did an app 20+ years ago in FoxPro DOS for a firm that cuts sheetstock. 
> One crucial part of the app was creating the cutting charts.  A Base-line 
> window was displayed.  That would represent the board size; ex 50"x100". 
> The op would select parts to cut with this board.  Let's say 1 line item 
> was 48"x20#.  A square (window) was put in the baseline.  The op could 
> resize it to represent the part.  Then he'd select another part, maybe 
> 22"x76".  I'd drop a new form and the op would resize it.  Then a third 
> line item, 24"x75" to complete the chart.  The op would resize form3. 
> Now, if the op wants to look at history of charts, the base form or the 
> chart just described would be displayed with the 3 forms contained in it. 
> I needed the ability to resize these items.  Can't be done unless in 
> design more.  Can't mix design mode with open mode.  So doing it like I 
> did in FoxPro 20 years ago seemed the most doable.
>
> This is all done to produce a graphical representation of the board being 
> cut.  It is also crucial it be done like this...per the boss.  He wants 
> the height displayed in the middle of the window on the left side and the 
> length displayed at the bottom of the window in the middle of it.  It's 
> the way it's been done 20 years and the cutters are used to that 
> representation.  If I can't do this there is no reason to upgrade from 
> FoxProDos to Access 2013.  Doing this in FoxPro years ago was much easier 
> than doing it in Access.
>
> Bt

Put multiple box controls on the form with visible set to false. When the 
user adds a board, use the box's (top left, width, height) properties to the 
required values and make the box visible. Buttons can be used for setting 
size and position, or the box's click and mouse events can be used for 
dragging.

An unbound object frame could also be used, if you want to add an image. 

[toc] | [prev] | [next] | [standalone]

#10182

Am 10.12.2014 um 22:53 schrieb Patrick Finucane:
> On Wednesday, December 10, 2014 2:10:28 PM UTC-5, Ulrich Möller wrote:
>> Am 10.12.2014 um 16:20 schrieb Patrick Finucane:
>>> On Tuesday, December 9, 2014 6:27:45 PM UTC-5, Patrick Finucane wrote:
>>>> Hi.  I have a form, Form1, that has a box/rectangle control.  I call it Box0.
>>>>
>>>> I want to open a form, Form2, and position it at the Top Left coordinate of Form1's Box0.  I think I may have the placement of that issue licked, maybe not.
>>>>
>>>> Anyway, when Form2 is displayed, I may resize it within Box0.  At this point I can get the various coordinates of Form2 using WindowLeft, WindowTop, WindowHeight, and WindowWidth.  Ex:  lngLeft = Me.WindowLeft
>>>>
>>>> Inside Form2 I have 2 controls; LabelW and LabelL (for length and width).  I need to display LabelW in the middle of Form2's display and LabelL at the bottom of Form2.  What I would normally consider an easy task is turning into frustration.  How can I get LabelL to print/display just above the bottom of the form using VBA?  How can I display LabelW so it displays halfway down the display area of Form2.  Is there some way of doing so?  Currently I'm doing things like
>>>>     Me.LabelL.Top = Me.WindowHeight - 360
>>>> In the above line, I would think LabelL would display 1/4" (360) from the bottom of Form2.
>>>>
>>>> For some odd reason the WindowHeight of Form2 has no correlation with the height of the detail section in Form2.  The detail section is a large number using the Design view setting of the height.
>>>>
>>>> At this point I don't know if using Move is the way to go or the setting of a control such as LabelL.Top = ...
>>>>
>>>> This should be really easy to do.  But I'm lost.
>>>>
>>>> Btw, I am using A2013 and have it set to use Overlapping Windows, not tabbed documents.
>>> I think it may be best to provide some code.  Make it easy to test. Forms are Overlapping
>>>
>>> I have Form1, sizable, no title caption, no record selector, no nav buttons..  It contains Box0 in Detail section.
>>>
>>> I have Form2, sizable, no title caption, no record selector, no nav buttons, type Dialog.  It contains 2 labels in Detail; LabelW and LabelL.  I want LabelW to be in the MIDDLE of Form2, LabelL at bottom of Form2.
>>>
>>> At issue, LabelL is lower than bottom of Form2 after running code thus unseen
>>>
>>> The following is my code contained in Form1
>>> Private Sub Form_Current()
>>>
>>>       Dim lngTop As Long
>>>       Dim lngBottom As Long
>>>       
>>>       DoCmd.OpenForm "Form2", acNormal
>>>       Forms!Form2.SetFocus  'form2 is set to dialog.  Places on top of form1
>>>       
>>>       'now move Form2 to Box0 coordinates.  Height of form 1.5 inches
>>>       Forms!Form2.Move Left:=Me.Box0.Left, Top:=Me.Box0.Top, Height:=Me..Box0.Height / 2, Width:=Me.Box0.Width - 100
>>>       
>>>       'reset detail height of Form2 set in design mode
>>>       Forms!Form2.Detail.Height = Me.Box0.Height / 2
>>>       
>>>       'determine middle of Form2 for LabelW position
>>>       lngTop = Forms!Form2.WindowHeight / 2 - 600  'top for LabelW, middle of form
>>>       'determine bottom of Form2 for LabelL position
>>>       lngBottom = Forms!Form2.Detail.Height - 40 - 600  'top for LabelL, bottom of form
>>>       
>>>       Forms!Form2!LabelW.Top = lngTop  'should be middle of form
>>>       Forms!Form2!LabelL.Top = lngBottom  'should be bottom of form
>>> End Sub
>>>
>>> Private Sub Form_Load()
>>>       'Set Box0 to 3 inches by 5 inches
>>>       DoCmd.Maximize
>>>       Me.Box0.Top = 1440
>>>       Me.Box0.Left = 1440
>>>       Me.Box0.Height = 1440 * 3  '3 inches
>>>       Me.Box0.Width = 1440 * 5   '5 inches
>>> End Sub
>>>
>>> Private Sub CommandClose_Click()
>>>       'close my windows
>>>       If IsLoaded("Form2") Then
>>>           DoCmd.Close acForm, "Form2"
>>>       End If
>>>       DoCmd.Close acForm, Me.Name
>>> End Sub
>>>
>>> Can you help me figure out how to get LabelL to the bottom of Form2 and visible?
>>>
>> Hi Patrik,

>>
>> Positioning Form2 to fit in the rectangle on form1 can be done with some
>> api calls, but you have to fiddle arount with absolute and relative
>> coordinates, transform twips coordinates to pixels coordinates and so on.
>> The detailsection.height should be set iin the form2 resize event. It is
>> calculated as forms2.insideheight -footer.height -header.height.
>> To let the LabelL flow relative to the bottom of form2 set the vertical
>> anchor property of the label to "bottom".
>>
>> It is not quite plain to me why you want to do this and why you want to
>> open form2 in design view. Perhaps there is an easier solution for what
>> you want to achieve.
>>
>> Ulrich
> I did an app 20+ years ago in FoxPro DOS for a firm that cuts sheetstock.  One crucial part of the app was creating the cutting charts.  A Base-line window was displayed.  That would represent the board size; ex 50"x100".  The op would select parts to cut with this board.  Let's say 1 line item was 48"x20#.  A square (window) was put in the baseline.  The op could resize it to represent the part.  Then he'd select another part, maybe 22"x76".  I'd drop a new form and the op would resize it.  Then a third line item, 24"x75" to complete the chart.  The op would resize form3.  Now, if the op wants to look at history of charts, the base form or the chart just described would be displayed with the 3 forms contained in it.  I needed the ability to resize these items.  Can't be done unless in design more.  Can't mix design mode with open mode.  So doing it like I did in FoxPro 20 years ago seemed the most doable.
>
> This is all done to produce a graphical representation of the board being cut.  It is also crucial it be done like this...per the boss.  He wants the height displayed in the middle of the window on the left side and the length displayed at the bottom of the window in the middle of it.  It's the way it's been done 20 years and the cutters are used to that representation.  If I can't do this there is no reason to upgrade from FoxProDos to Access 2013.  Doing this in FoxPro years ago was much easier than doing it in Access.
>
> Bt
Hi Patrick,

I would not want to make this with Access. There are some other tools 
that may be a better choice because access controls a optimized for 
database application and have therefor some restrictions. Nevertheless, 
if you must use Access for some reason you can give the accessnetview 
control a chance.It can be embedded in your form and it should be 
possible to do what you want (see.the playground example). Another idea 
wold be to integrate a webbrowsercontrol and interact with the html5 
canvas and some shapes on it. I 'll think, that it is possible to give 
your application a very good new look and a great and easy ui for your 
users with these tools.

To use forms, especially in design view might not be the best solution, 
because you would loose control over user inputs and other terrible 
things that could happen.

Another idea is what Ron mentioned or even easier to use "userforms", 
but i don't know if there are still supported in ACC2013.


many greets

Ulrich

[toc] | [prev] | [next] | [standalone]

#10183

> Hi Patrick,
> 
> I would not want to make this with Access. There are some other tools
> that may be a better choice because access controls a optimized for
> database application and have therefor some restrictions. Nevertheless,
> if you must use Access for some reason you can give the accessnetview
> control a chance.It can be embedded in your form and it should be
> possible to do what you want (see.the playground example). Another idea
> wold be to integrate a webbrowsercontrol and interact with the html5
> canvas and some shapes on it. I 'll think, that it is possible to give
> your application a very good new look and a great and easy ui for your
> users with these tools.
> 
> To use forms, especially in design view might not be the best solution,
> because you would loose control over user inputs and other terrible
> things that could happen.
> 
> Another idea is what Ron mentioned or even easier to use "userforms",
> but i don't know if there are still supported in ACC2013.
> 
> 
> many greets
> 
> Ulrich
> 
> 
Patrick. It seems as if you are running around in circles. You posted a
question on embedding subforms back on 11 November, and I suggested you
looked at https://www.flickr.com/photos/107550882@N02/.

I can't think it would be that difficult to add the dimensions

Phil



---
This email has been checked for viruses by Avast antivirus software.
http://www.avast.com

[toc] | [prev] | [standalone]

Back to top | Article view | comp.databases.ms-access

csiph-web