Content Supported by Sourcelens Consulting
VERSION 5.00
Begin {90290CCD-F27D-11D0-8031-00C04FB6C701} Layout
ClientHeight = 4770
ClientLeft = 0
ClientTop = 0
ClientWidth = 5985
_ExtentX = 10557
_ExtentY = 8414
SourceFile = "C:\Program Files\Microsoft Visual Studio\MSDN98\98VS\1033\Samples\VB98\DHShowMe\Layout.htm"
BuildFile = "c:\dhtml\Layout.htm"
BuildMode = 0
TypeLibCookie = 133
AsyncLoad = 0 'False
id = "DHTMLPage5"
ShowBorder = -1 'True
ShowDetail = -1 'True
AbsPos = 0 'False
End
Attribute VB_Name = "Layout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Private Sub txtBorder_onkeyup()
'On keyup, use the style object to access the changeme
'element's borderwidth property, and set it equal to the
'value in the txtBorder field.
changeme.Style.BorderWidth = txtBorder.Value
End Sub
Private Sub txtMargin_onkeyup()
'On keyup, use the style object to access the changeme
'element's margin property, and set it equal to the
'value in the txtMargin field.
changeme.Style.margin = txtMargin.Value
End Sub
Private Sub txtPadding_onkeyup()
'On keyup, use the style object to access the changeme
'element's padding property, and set it equal to the
'value in the txtPadding field.
changeme.Style.padding = txtPadding.Value
End Sub