Caption = "Tips On Using The MhCommonDialog Control"
ClientHeight = 4116
ClientLeft = 1236
ClientTop = 2256
ClientWidth = 5952
Height = 4488
Icon = "using.frx":0000
Left = 1188
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4116
ScaleWidth = 5952
ShowInTaskbar = 0 'False
Top = 1932
Width = 6048
Begin VB.CommandButton cmdClose
Caption = "&Close"
Default = -1 'True
Height = 372
Left = 4608
TabIndex = 0
Top = 3672
Width = 1212
End
Begin VB.TextBox txtTips
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 400
size = 9.6
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 3504
Left = 72
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 1
TabStop = 0 'False
Text = "using.frx":0442
Top = 72
Width = 5736
End
Attribute VB_Name = "frmUsingMhCMDialog"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Form_Load()
' center form to screen
Call Editor.CenterForm(Me)
' setup the tips text box
With txtTips
.Text = "The Look" & vbCrLf & "To see the the MhCommonDialog control in action choose the Font option from the Tools menu while editing a document."
.Text = .Text & vbCrLf & vbCrLf & "Basic Usage" & vbCrLf & "For a general example of using the MhCommonDialog control see the .ShowColorDialog, .ShowFileDialog, and .ShowFontDialog methods of the CEditor Class used in this demo."
.Text = .Text & vbCrLf & vbCrLf & "Adding Your Own Controls To The MhCommonDialog"
.Text = .Text & vbCrLf & "In addition to being able to set the location and size of the MhCommonDialog control you can have controls placed onto the dialog. This is done by setting the hWnd of the desired control to the .AddControl property of the MhCommonDialog control. For further details please see the help file."