How to: Move a Text Box in Front of or Behind Another Control

Outlook Developer Reference

The following example sets the z-order of a TextBox, so the user can display the entire TextBox (by bringing it to the front of the z-order) or can place the TextBox behind other controls (by sending it to the back of the z-order).

To use this example, copy this sample code to the Script Editor of a form. To run the code you need to open the form so the Open event will activate. Make sure that the form contains:

  • Three TextBox controls named TextBox1 through TextBox3.
  • A ToggleButton named ToggleButton1.
  Dim ToggleButton1
Dim TextBox1
Dim TextBox2
Dim TextBox3

Sub Item_Open() Set TextBox1 = Item.GetInspector.ModifiedFormPages("P.2").TextBox1 Set TextBox2 = Item.GetInspector.ModifiedFormPages("P.2").TextBox2 Set TextBox3 = Item.GetInspector.ModifiedFormPages("P.2").TextBox3 Set ToggleButton1 = Item.GetInspector.ModifiedFormPages("P.2").ToggleButton1

'Set up text boxes to show z-order in the form TextBox1.Text = "TextBox 1" TextBox2.Text = "TextBox 2" TextBox3.Text = "TextBox 3"

TextBox1.Height = 40 TextBox2.Height = 40 TextBox3.Height = 40

TextBox1.Width = 60 TextBox2.Width = 60 TextBox3.Width = 60

TextBox1.Left = 10 TextBox1.Top = 10

TextBox2.Left = 25 'Overlap TextBox2 on TextBox1 TextBox2.Top = 25

TextBox3.Left = 40 'Overlap TextBox3 on TextBox2, TextBox1 TextBox3.Top = 40

ToggleButton1.Value = False ToggleButton1.Caption = "Bring TextBox2 to Front" ToggleButton1.Left = 10 ToggleButton1.Top = 90 ToggleButton1.Width = 50 ToggleButton1.Height = 50

End Sub

Sub ToggleButton1_Click() If ToggleButton1.Value = True Then TextBox2.ZOrder (fmTop) 'Place TextBox2 on Top of z-order

'Update ToggleButton caption to identify next state ToggleButton1.Caption = "Send TextBox2 to back" Else TextBox2.ZOrder (1) 'Place TextBox2 on Bottom of z-order

'Update ToggleButton caption to identify next state
ToggleButton1.Caption = "Bring TextBox2 to front"

End If End Sub