ContentWindows Sample (VB6)
This sample illustrates content windows using Windows Media Player, Internet Explorer controls and forms.
The source code is located at C:\Program Files (x86)\Softelvdm\SftTree OCX 8.0\Samples\VB6\ContentWindows\Form1.frm or C:\Program Files\Softelvdm\SftTree OCX 8.0\Samples\VB6\ContentWindows\Form1.frm (on 32-bit Windows versions).
VERSION 5.00
Object = "{04048830-2BE4-4868-8CDC-B8E6FC7815C5}#7.5#0"; "SftTree_IX86_U_80.ocx"
Object = "{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0"; "wmp.dll"
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "ieframe.dll"
Begin VB.Form Form1
Caption = "Softel vdm, Inc. - ContentWindows Sample"
ClientHeight = 7725
ClientLeft = 60
ClientTop = 450
ClientWidth = 16230
BeginProperty Font
Name = "Microsoft Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
ScaleHeight = 7725
ScaleWidth = 16230
StartUpPosition = 3 'Windows Default
Begin SftTreeLib80.SftTree SftTree1
Height = 7095
Left = 120
TabIndex = 0
Top = 240
Width = 7935
PropVer = 70
xcx = 13996
xcy = 12515
PropFile = ""
PropDesignTime = 1
DeletePropFile = 0
IntVal = 55
xBfStyle1 = 63669357
xBfStyle2 = -854782433
xBfStyle3 = -901670478
xBfStyle4 = 633235022
FlatProperties = 0
Appearance = 1
AutoRespond = -522133280
BackgroundStyle = 0
BackgroundX = 0
BackgroundY = 0
BorderStyle = 0
ButtonStyle = 2
CellEventHandling= 0
CellEditStyle = 0
CellEditLimit = 0
ColumnCount = 2
CopyItemDataString= 1
CustomCode = 0
DragImage = -522133280
DragMethod = 1
DragType = 3
Enabled = 1
HandleReturn = 1
MousePointer = 0
LeftButtonOnly = 1
LeftItemClickOnly= 1
OLEDropMode = 0
RightToLeft = 0
UseThemes = -1 'True
Scrollbars = 3
ScrollbarStyle = 0
ShowTruncated = 1
VAlignStyle = 0
VirtualMode = 0
WebLicense = ""
SmoothScroll = 0
ButtonAppearance= -1
MouseOverTransitionEffect= 3
BeginProperty ButtonExpanded {980702E2-0AB6-41B1-9B85-F8755A697255}
Object.Height = 0
Object.Width = 0
Appearance = -1
FrameColor = -1
SampleColor = -1
Image = "Form1.frx":0000
EndProperty
BeginProperty ButtonCollapsed {980702E2-0AB6-41B1-9B85-F8755A697255}
Object.Height = 0
Object.Width = 0
Appearance = -1
FrameColor = -1
SampleColor = -1
Image = "Form1.frx":01CE
EndProperty
BeginProperty ButtonExpandedHot {980702E2-0AB6-41B1-9B85-F8755A697255}
Object.Height = 0
Object.Width = 0
Appearance = -1
FrameColor = -1
SampleColor = -1
Image = "Form1.frx":03CA
EndProperty
BeginProperty ButtonCollapsedHot {980702E2-0AB6-41B1-9B85-F8755A697255}
Object.Height = 0
Object.Width = 0
Appearance = -1
FrameColor = -1
SampleColor = -1
Image = "Form1.frx":059F
EndProperty
EdgeVerticalColor= -1
EdgeHorizontalColor= -1
BeginProperty ItemEditFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Columns {10C7FF3E-FC3E-4579-A9F2-C1BA410D3B56}
InheritBgColor = 1
OpenEnded = 1
OpenEnded2 = 1
EndProperty
BeginProperty Headers {10C7FF36-FC3E-4579-A9F2-C1BA410D3B56}
Appearance = 1
BackColor = -2147483633
ForeColor = -2147483630
GrayedColor = -2147483631
HilightColor = -2147483628
Multiline = 1
ShadowColor = -2147483632
Reorderable = 1
Resizable = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Microsoft Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
EndProperty
BeginProperty Footers {10C7FF56-FC3E-4579-A9F2-C1BA410D3B56}
Appearance = 0
BackColor = -2147483633
ForeColor = -2147483630
GrayedColor = -2147483631
HilightColor = -2147483628
Multiline = 1
ShadowColor = -2147483632
Reorderable = 1
Resizable = 1
EndProperty
BeginProperty Items {10C7FF3C-FC3E-4579-A9F2-C1BA410D3B56}
AutoExpandDragDrop= 1
AutoExpandHover = 0
BackColor = -2147483643
BackColorOdd = -2147483643
CalcLimit = 0
CalcVisibleOnly = 0
Cell3D = 0
CharSearchColumn= -1
CharSearchMode = 1
DropHighlightColor= -2147483635
DropHighlightStyle= 1
EditNoFocusStyle= 2
FlybyHighlight = 1
ForeColor = -2147483640
ForeColorOdd = -2147483640
GrayedColor = -2147483631
GridHorizontalColor= -1
GridStyle = 0
GridVerticalColor= -1
HilightColor = -2147483628
HorizontalExtentPix= 0
HorizontalExtent2Pix= 0
HorizontalOffsetPix= 0
HorizontalOffset2Pix= 0
Indentation = -1
ItemImageAlign = 1
Lines = 1
MaxHeightPix = 0
MinHeightPix = 0
MultiSelect = 0
NoFocusStyle = 0
NoSelection = 0
RubberbandSelection= 1
SelectBackColor = -2147483635
SelectBackColorNoFocus= -2147483633
SelectForeColor = -2147483634
SelectForeColorNoFocus= -2147483630
ShadowColor = -2147483632
Style = 1
ScrollTips = 1
SelectionArea = 1
SelectStyle = 2
ShowFocusRectangle= 1
ToolTipAlways = 0
ToolTipBackColor= -1
ToolTipForeColor= -1
ToolTipsUseEntireCell= 1
TopIndex = 0
TreeLineColor = -2147483631
TreeLineGrayedColor= -2147483631
TreeLineStyle = 3
UpdateCurrentExpandCollapse= 0
OutlineStyle = 1
SelectOutlineBorderColor= -1
SelectInnerBorderColor= -1
SelectInnerFill1= -1
SelectInnerFill2= -1
SelectHotOutlineBorderColor= -1
SelectHotInnerBorderColor= -1
SelectHotInnerFill1= -1
SelectHotInnerFill2= -1
SelectNoFocusOutlineBorderColor= -1
SelectNoFocusInnerBorderColor= -1
SelectNoFocusInnerFill1= -1
SelectNoFocusInnerFill2= -1
HotOutlineBorderColor= -1
HotInnerBorderColor= -1
HotInnerFill1 = -1
HotInnerFill2 = -1
DropTargetOutlineBorderColor= -1
DropTargetInnerBorderColor= -1
DropTargetInnerFill1= -1
DropTargetInnerFill2= -1
DisabledItemsSelectable= 1
AutoExpandDragDropInterval= 1200
AutoExpandHoverInterval= 1200
ToolTipIntervalOn= 200
ToolTipIntervalOff= 100
BeginProperty ItemImageExpandable {980702E2-0AB6-41B1-9B85-F8755A697255}
Object.Height = 0
Object.Width = 0
Appearance = -1
FrameColor = -1
SampleColor = -1
Image = "Form1.frx":0775
EndProperty
BeginProperty ItemImageExpanded {980702E2-0AB6-41B1-9B85-F8755A697255}
Object.Height = 0
Object.Width = 0
Appearance = -1
FrameColor = -1
SampleColor = -1
Image = "Form1.frx":1A01
EndProperty
BeginProperty ItemImageLeaf {980702E2-0AB6-41B1-9B85-F8755A697255}
Object.Height = 0
Object.Width = 0
Appearance = -1
FrameColor = -1
SampleColor = -1
Image = "Form1.frx":2F48
EndProperty
EndProperty
BeginProperty RowColumnHeader {10C7FF42-FC3E-4579-A9F2-C1BA410D3B56}
Appearance = 1
ButtonDown = 0
RemainUp = 1
Enabled = 1
ImageHAlign = 0
ImageVAlign = 0
TextHAlign = 0
TextVAlign = 0
Text = ""
ForeColor = -2147483630
BackColor = -2147483633
HilightColor = -2147483628
ShadowColor = -2147483632
GrayedColor = -2147483631
OverrideTheme = 0
EndProperty
BeginProperty RowColumnFooter {10C7FF5A-FC3E-4579-A9F2-C1BA410D3B56}
Appearance = 1
ButtonDown = 0
RemainUp = 1
Enabled = 1
ImageHAlign = 0
ImageVAlign = 0
TextHAlign = 0
TextVAlign = 0
Text = ""
ForeColor = -2147483630
BackColor = -2147483633
HilightColor = -2147483628
ShadowColor = -2147483632
GrayedColor = -2147483631
OverrideTheme = 0
EndProperty
BeginProperty RowHeaders {10C7FF44-FC3E-4579-A9F2-C1BA410D3B56}
Appearance = 5
RemainUp = 1
Enabled = 1
Lines = 1
TextHAlign = 0
TextVAlign = 0
Object.Width = 40
BackColor = -2147483633
ForeColor = -2147483630
GrayedColor = -2147483631
HilightColor = -2147483628
ShadowColor = -2147483632
SelectBackColor = -2147483633
SelectForeColor = -2147483630
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Microsoft Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
EndProperty
BeginProperty Splitter {10C7FF4A-FC3E-4579-A9F2-C1BA410D3B56}
SplitColumn = 0
Object.Visible = 0
OffsetPix = 0
WidthPix = 7
EndProperty
BeginProperty Column(0) {10C7FF38-FC3E-4579-A9F2-C1BA410D3B56}
BackColor = -1
CellHAlign = 0
CellMultiline = 1
CellVAlign = 0
CellWordWrap = 0
ForeColor = -1
Merge = 1
MergeInto = 1
MinWidth = 0
SelectBackColor = -1
SelectForeColor = -1
ToolTip = 1
Object.Width = 100
RealPos = 0
DispPos = 0
BackColorEnd = -1
SelectBackColorEnd= -1
ProgressColor = -1
ProgressColorEnd= -1
BackColorOrientation= 0
ProgressColor = -1
ProgressColorEnd= -1
ProgressColorOrientation= 0
ProgressStyle = 0
EndProperty
BeginProperty Header(0) {10C7FF3A-FC3E-4579-A9F2-C1BA410D3B56}
Enabled = 1
KeepPosition = 0
Locked = 0
ImageHAlign = 0
ImageVAlign = 0
RemainUp = 1
Text = "Description"
TextHAlign = 0
TextVAlign = 0
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
BackColorDisabled= -1
ForeColorDisabled= -1
OverrideTheme = 0
EndProperty
BeginProperty Footer(0) {10C7FF58-FC3E-4579-A9F2-C1BA410D3B56}
Enabled = 1
KeepPosition = 0
ImageHAlign = 0
ImageVAlign = 0
RemainUp = 0
Text = ""
TextHAlign = 0
TextVAlign = 0
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
BackColorDisabled= -1
ForeColorDisabled= -1
OverrideTheme = 0
EndProperty
BeginProperty Column(1) {10C7FF38-FC3E-4579-A9F2-C1BA410D3B56}
BackColor = -1
CellHAlign = 0
CellMultiline = 1
CellVAlign = 0
CellWordWrap = 0
ForeColor = -1
Merge = 1
MergeInto = 1
MinWidth = 0
SelectBackColor = -1
SelectForeColor = -1
ToolTip = 1
Object.Width = 100
RealPos = 1
DispPos = 1
BackColorEnd = -1
SelectBackColorEnd= -1
ProgressColor = -1
ProgressColorEnd= -1
BackColorOrientation= 0
ProgressColor = -1
ProgressColorEnd= -1
ProgressColorOrientation= 0
ProgressStyle = 0
EndProperty
BeginProperty Header(1) {10C7FF3A-FC3E-4579-A9F2-C1BA410D3B56}
Enabled = 1
KeepPosition = 0
Locked = 0
ImageHAlign = 0
ImageVAlign = 0
RemainUp = 1
Text = "Sample"
TextHAlign = 0
TextVAlign = 0
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
BackColorDisabled= -1
ForeColorDisabled= -1
OverrideTheme = 0
EndProperty
BeginProperty Footer(1) {10C7FF58-FC3E-4579-A9F2-C1BA410D3B56}
Enabled = 1
KeepPosition = 0
ImageHAlign = 0
ImageVAlign = 0
RemainUp = 0
Text = ""
TextHAlign = 0
TextVAlign = 0
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
BackColorDisabled= -1
ForeColorDisabled= -1
OverrideTheme = 0
EndProperty
SavedItemCount = 7
SavedColumnCount= 2
BeginProperty Item(0) {10C7FF40-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataFloat = 0
DataString = ""
EditIgnore = 0 'False
Enabled = -1 'True
HideExpandCollapseButton= 0 'False
Ignore = 0 'False
Level = 0
MaxHeightPix = 0
MinHeightPix = 0
Selected = -1 'True
Expanded = 0 'False
Expandable = 0 'False
BeginProperty RowHeader {10C7FF48-FC3E-4579-A9F2-C1BA410D3B56}
Text = ""
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
OverrideTheme = 0 'False
EndProperty
BeginProperty Cell(0) {10C7FF46-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataString = ""
EditIgnore = 0 'False
Ignore = 0 'False
Text = $"Form1.frx":38EA
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
BackColorEnd = -1
SelectBackColorEnd= -1
ProgressColor = -1
ProgressColorEnd= -1
BackColorOrientation= -1
ProgressColorOrientation= -1
ProgressValue = 0
ProgressMax = 0
ProgressStyle = -1
EndProperty
BeginProperty Cell(1) {10C7FF46-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataString = ""
EditIgnore = 0 'False
Ignore = 0 'False
Text = ""
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
BackColorEnd = -1
SelectBackColorEnd= -1
ProgressColor = -1
ProgressColorEnd= -1
BackColorOrientation= -1
ProgressColorOrientation= -1
ProgressValue = 0
ProgressMax = 0
ProgressStyle = -1
EndProperty
EndProperty
BeginProperty Item(1) {10C7FF40-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataFloat = 0
DataString = ""
EditIgnore = 0 'False
Enabled = -1 'True
HideExpandCollapseButton= 0 'False
Ignore = 0 'False
Level = 0
MaxHeightPix = 0
MinHeightPix = 0
Selected = 0 'False
Expanded = 0 'False
Expandable = 0 'False
BeginProperty RowHeader {10C7FF48-FC3E-4579-A9F2-C1BA410D3B56}
Text = ""
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
OverrideTheme = 0 'False
EndProperty
BeginProperty Cell(0) {10C7FF46-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataString = ""
EditIgnore = 0 'False
Ignore = 0 'False
Text = $"Form1.frx":3971
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
BackColorEnd = -1
SelectBackColorEnd= -1
ProgressColor = -1
ProgressColorEnd= -1
BackColorOrientation= -1
ProgressColorOrientation= -1
ProgressValue = 0
ProgressMax = 0
ProgressStyle = -1
EndProperty
BeginProperty Cell(1) {10C7FF46-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataString = ""
EditIgnore = 0 'False
Ignore = 0 'False
Text = ""
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
BackColorEnd = -1
SelectBackColorEnd= -1
ProgressColor = -1
ProgressColorEnd= -1
BackColorOrientation= -1
ProgressColorOrientation= -1
ProgressValue = 0
ProgressMax = 0
ProgressStyle = -1
EndProperty
EndProperty
BeginProperty Item(2) {10C7FF40-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataFloat = 0
DataString = ""
EditIgnore = 0 'False
Enabled = -1 'True
HideExpandCollapseButton= 0 'False
Ignore = 0 'False
Level = 0
MaxHeightPix = 0
MinHeightPix = 0
Selected = 0 'False
Expanded = -1 'True
Expandable = -1 'True
BeginProperty RowHeader {10C7FF48-FC3E-4579-A9F2-C1BA410D3B56}
Text = ""
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
OverrideTheme = 0 'False
EndProperty
BeginProperty Cell(0) {10C7FF46-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataString = ""
EditIgnore = 0 'False
Ignore = 0 'False
Text = "Sample Content Windows"
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
BackColorEnd = -1
SelectBackColorEnd= -1
ProgressColor = -1
ProgressColorEnd= -1
BackColorOrientation= -1
ProgressColorOrientation= -1
ProgressValue = 0
ProgressMax = 0
ProgressStyle = -1
EndProperty
BeginProperty Cell(1) {10C7FF46-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataString = ""
EditIgnore = 0 'False
Ignore = 0 'False
Text = ""
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
BackColorEnd = -1
SelectBackColorEnd= -1
ProgressColor = -1
ProgressColorEnd= -1
BackColorOrientation= -1
ProgressColorOrientation= -1
ProgressValue = 0
ProgressMax = 0
ProgressStyle = -1
EndProperty
EndProperty
BeginProperty Item(3) {10C7FF40-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataFloat = 0
DataString = ""
EditIgnore = 0 'False
Enabled = -1 'True
HideExpandCollapseButton= 0 'False
Ignore = 0 'False
Level = 1
MaxHeightPix = 0
MinHeightPix = 0
Selected = 0 'False
Expanded = 0 'False
Expandable = 0 'False
BeginProperty RowHeader {10C7FF48-FC3E-4579-A9F2-C1BA410D3B56}
Text = ""
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
OverrideTheme = 0 'False
EndProperty
BeginProperty Cell(0) {10C7FF46-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataString = ""
EditIgnore = 0 'False
Ignore = 0 'False
Text = "Flash"
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
BackColorEnd = -1
SelectBackColorEnd= -1
ProgressColor = -1
ProgressColorEnd= -1
BackColorOrientation= -1
ProgressColorOrientation= -1
ProgressValue = 0
ProgressMax = 0
ProgressStyle = -1
EndProperty
BeginProperty Cell(1) {10C7FF46-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataString = ""
EditIgnore = 0 'False
Ignore = 0 'False
Text = $"Form1.frx":3A1B
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
BackColorEnd = -1
SelectBackColorEnd= -1
ProgressColor = -1
ProgressColorEnd= -1
BackColorOrientation= -1
ProgressColorOrientation= -1
ProgressValue = 0
ProgressMax = 0
ProgressStyle = -1
EndProperty
BeginProperty Image {980702E2-0AB6-41B1-9B85-F8755A697255}
Object.Height = 0
Object.Width = 0
Appearance = -1
FrameColor = -1
SampleColor = -1
Image = "Form1.frx":3AA2
EndProperty
EndProperty
BeginProperty Item(4) {10C7FF40-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataFloat = 0
DataString = ""
EditIgnore = 0 'False
Enabled = -1 'True
HideExpandCollapseButton= 0 'False
Ignore = 0 'False
Level = 1
MaxHeightPix = 0
MinHeightPix = 0
Selected = 0 'False
Expanded = 0 'False
Expandable = 0 'False
BeginProperty RowHeader {10C7FF48-FC3E-4579-A9F2-C1BA410D3B56}
Text = ""
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
OverrideTheme = 0 'False
EndProperty
BeginProperty Cell(0) {10C7FF46-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataString = ""
EditIgnore = 0 'False
Ignore = 0 'False
Text = "Windows Media Player"
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
BackColorEnd = -1
SelectBackColorEnd= -1
ProgressColor = -1
ProgressColorEnd= -1
BackColorOrientation= -1
ProgressColorOrientation= -1
ProgressValue = 0
ProgressMax = 0
ProgressStyle = -1
EndProperty
BeginProperty Cell(1) {10C7FF46-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataString = ""
EditIgnore = 0 'False
Ignore = 0 'False
Text = $"Form1.frx":4C1F
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
BackColorEnd = -1
SelectBackColorEnd= -1
ProgressColor = -1
ProgressColorEnd= -1
BackColorOrientation= -1
ProgressColorOrientation= -1
ProgressValue = 0
ProgressMax = 0
ProgressStyle = -1
EndProperty
BeginProperty Image {980702E2-0AB6-41B1-9B85-F8755A697255}
Object.Height = 0
Object.Width = 0
Appearance = -1
FrameColor = -1
SampleColor = -1
Image = "Form1.frx":4CC1
EndProperty
EndProperty
BeginProperty Item(5) {10C7FF40-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataFloat = 0
DataString = ""
EditIgnore = 0 'False
Enabled = -1 'True
HideExpandCollapseButton= 0 'False
Ignore = 0 'False
Level = 1
MaxHeightPix = 0
MinHeightPix = 0
Selected = 0 'False
Expanded = 0 'False
Expandable = 0 'False
BeginProperty RowHeader {10C7FF48-FC3E-4579-A9F2-C1BA410D3B56}
Text = ""
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
OverrideTheme = 0 'False
EndProperty
BeginProperty Cell(0) {10C7FF46-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataString = ""
EditIgnore = 0 'False
Ignore = 0 'False
Text = "Web Browser Control"
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
BackColorEnd = -1
SelectBackColorEnd= -1
ProgressColor = -1
ProgressColorEnd= -1
BackColorOrientation= -1
ProgressColorOrientation= -1
ProgressValue = 0
ProgressMax = 0
ProgressStyle = -1
EndProperty
BeginProperty Cell(1) {10C7FF46-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataString = ""
EditIgnore = 0 'False
Ignore = 0 'False
Text = $"Form1.frx":63FF
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
BackColorEnd = -1
SelectBackColorEnd= -1
ProgressColor = -1
ProgressColorEnd= -1
BackColorOrientation= -1
ProgressColorOrientation= -1
ProgressValue = 0
ProgressMax = 0
ProgressStyle = -1
EndProperty
BeginProperty Image {980702E2-0AB6-41B1-9B85-F8755A697255}
Object.Height = 0
Object.Width = 0
Appearance = -1
FrameColor = -1
SampleColor = -1
Image = "Form1.frx":6498
EndProperty
EndProperty
BeginProperty Item(6) {10C7FF40-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataFloat = 0
DataString = ""
EditIgnore = 0 'False
Enabled = -1 'True
HideExpandCollapseButton= 0 'False
Ignore = 0 'False
Level = 1
MaxHeightPix = 0
MinHeightPix = 0
Selected = 0 'False
Expanded = 0 'False
Expandable = 0 'False
BeginProperty RowHeader {10C7FF48-FC3E-4579-A9F2-C1BA410D3B56}
Text = ""
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
OverrideTheme = 0 'False
EndProperty
BeginProperty Cell(0) {10C7FF46-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataString = ""
EditIgnore = 0 'False
Ignore = 0 'False
Text = "Simple Form"
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
BackColorEnd = -1
SelectBackColorEnd= -1
ProgressColor = -1
ProgressColorEnd= -1
BackColorOrientation= -1
ProgressColorOrientation= -1
ProgressValue = 0
ProgressMax = 0
ProgressStyle = -1
EndProperty
BeginProperty Cell(1) {10C7FF46-FC3E-4579-A9F2-C1BA410D3B56}
Data = 0
DataString = ""
EditIgnore = 0 'False
Ignore = 0 'False
Text = "Simple Form"
TextHAlign = -1
TextVAlign = -1
BackColor = -1
ForeColor = -1
SelectBackColor = -1
SelectForeColor = -1
ImageHAlign = 0
ImageVAlign = 0
BackColorEnd = -1
SelectBackColorEnd= -1
ProgressColor = -1
ProgressColorEnd= -1
BackColorOrientation= -1
ProgressColorOrientation= -1
ProgressValue = 0
ProgressMax = 0
ProgressStyle = -1
EndProperty
BeginProperty Image {980702E2-0AB6-41B1-9B85-F8755A697255}
Object.Height = 0
Object.Width = 0
Appearance = -1
FrameColor = -1
SampleColor = -1
Image = "Form1.frx":7BB2
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Microsoft Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.PictureBox WebBrowserPictureBox
BorderStyle = 0 'None
Height = 2295
Left = 8160
ScaleHeight = 2295
ScaleWidth = 7935
TabIndex = 4
Top = 5280
Width = 7935
Begin SHDocVwCtl.WebBrowser WebBrowser1
Height = 2295
Left = 0
TabIndex = 5
Top = 0
Width = 7935
ExtentX = 13996
ExtentY = 4048
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 1
AutoArrange = 0 'False
NoClientEdge = 0 'False
AlignLeft = 0 'False
NoWebView = 0 'False
HideFileNames = 0 'False
SingleClick = 0 'False
SingleSelection = 0 'False
NoFolders = 0 'False
Transparent = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = "http:///"
End
End
Begin VB.PictureBox WMPPictureBox
BorderStyle = 0 'None
Height = 2055
Left = 8280
ScaleHeight = 2055
ScaleWidth = 3255
TabIndex = 2
Top = 3120
Width = 3255
Begin WMPLibCtl.WindowsMediaPlayer WindowsMediaPlayer1
Height = 2055
Left = 0
TabIndex = 3
Top = 0
Width = 3255
URL = ""
rate = 1
balance = 0
currentPosition = 0
defaultFrame = ""
playCount = 1
autoStart = -1 'True
currentMarker = 0
invokeURLs = -1 'True
baseURL = ""
volume = 50
mute = 0 'False
uiMode = "full"
stretchToFit = 0 'False
windowlessVideo = 0 'False
enabled = -1 'True
enableContextMenu= -1 'True
fullScreen = 0 'False
SAMIStyle = ""
SAMILang = ""
SAMIFilename = ""
captioningID = ""
enableErrorDialogs= 0 'False
_cx = 5741
_cy = 3625
End
End
Begin VB.PictureBox FlashPictureBox
BorderStyle = 0 'None
Height = 2895
Left = 8280
ScaleHeight = 2895
ScaleWidth = 6735
TabIndex = 1
Top = 120
Width = 6735
Begin ShockwaveFlashObjectsCtl.ShockwaveFlash ShockwaveFlash1
Height = 2895
Left = 0
TabIndex = 2
Top = 0
Width = 6735
_cx = 11880
_cy = 5106
FlashVars = ""
Movie = ""
Src = ""
WMode = "Window"
Play = "-1"
Loop = "-1"
Quality = "High"
SAlign = ""
Menu = "-1"
Base = ""
AllowScriptAccess= ""
Scale = "ShowAll"
DeviceFont = "0"
EmbedMovie = "0"
BGColor = ""
SWRemote = ""
MovieData = ""
SeamlessTabbing = "1"
Profile = "0"
ProfileAddress = ""
ProfilePort = "0"
AllowNetworking = "all"
AllowFullScreen = "false"
End
End
Begin VB.Label Label2
Caption = "Click on the SftTree/OCX control and hit F1 to access online help for SftTree/OCX 8.0"
BeginProperty Font
Name = "Microsoft Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1095
Left = 11760
TabIndex = 7
Top = 4080
Visible = 0 'False
Width = 4335
End
Begin VB.Label Label1
Caption = $"Form1.frx":8908
Height = 855
Left = 11760
TabIndex = 6
Top = 3120
Visible = 0 'False
Width = 4215
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim SavedForm As Form2
Private Sub Form_Load()
' Flash
' Because some controls don't have a window handle property (like hWnd),
' we place the control inside a picturebox. A picturebox has a window
' handle property hWnd.
ShockwaveFlash1.Movie = App.Path & "\header.swf"
SftTree1.Item(3).Cell(1).AttachContentWindow FlashPictureBox.hWnd, contentWindowSftTreeKeepSize
SftTree1.Item(3).Cell(1).Text = ""
' Windows Media Player
WindowsMediaPlayer1.URL = App.Path & "\intermission.wmv"
SftTree1.Item(4).Cell(1).AttachContentWindow WMPPictureBox.hWnd, contentWindowSftTreeKeepSize
SftTree1.Item(4).Cell(1).Text = ""
' Web Browser
WebBrowser1.Navigate "https://www.softelvdm.com"
Dim Item As SftTreeItem
Dim Cell As SftTreeCell
Set Item = SftTree1.Item(5)
Set Cell = Item.Cell(1)
Cell.AttachContentWindow WebBrowserPictureBox.hWnd, contentWindowSftTreeNone
Cell.Text = ""
Item.MinHeightPix = 300 ' always exactly 300 pixels
Item.MaxHeightPix = 300 ' always exactly 300 pixels
SftTree1.RowHeaders.MakeOptimal ' Make row header width optimal, so text and pictures are not clipped horizontally.
SftTree1.ColumnsObj.MakeOptimal ' Make all columns optimal
' Form
Set SavedForm = New Form2
SftTree1.Item(6).Cell(1).AttachContentWindow SavedForm.hWnd, contentWindowSftTreeKeepSize
SftTree1.Item(6).Cell(1).Text = ""
' triple the size of the last column
SftTree1.Column(1).WidthPix = SftTree1.Column(1).WidthPix * 3
SftTree1.Items.RecalcHorizontalExtent ' Update horizontal scrollbar
SftTree1.Items.Current = 0 ' select the first item
SftTree1.Item(0).Selected = True
Me.WindowState = 2 ' Maximize the main window
End Sub
Private Sub Form_Unload(Cancel As Integer)
' clean up
Unload SavedForm
Set SavedForm = Nothing
End Sub
Private Sub SftTree1_ItemCollapsed(ByVal ItemIndex As Long)
If ItemIndex = 2 Then
' Here we make sure that the media stops playing when the control is not visible
WindowsMediaPlayer1.Controls.pause
End If
End Sub
Private Sub SftTree1_ItemExpanded(ByVal ItemIndex As Long)
If ItemIndex = 2 Then
' Here we make sure that the media starts playing when the control is visible
WindowsMediaPlayer1.Controls.Play
End If
End Sub
Private Sub SftTree1_ItemDblClick(ByVal ItemIndex As Long, ByVal ColIndex As Integer, ByVal AreaType As Integer, ByVal Button As Integer, ByVal Shift As Integer)
If AreaType = constSftTreeColumnRes Then
SftTree1.Column(ColIndex).MakeOptimal
End If
End Sub
Private Sub WebBrowserPictureBox_Resize()
' resize the web browser control (which is inside the picture box)
' every time the picture box is resized.
WebBrowser1.Height = WebBrowserPictureBox.Height
WebBrowser1.Width = WebBrowserPictureBox.Width
End Sub
Private Sub Form_Resize()
' let the tree control use up the entire window area
SftTree1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub
On
Off