GFSelectFont/Mfrm.frm
VERSION 5.00
Begin VB.Form Mfrm
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows‑Standard
Begin VB.CommandButton Command1
Caption = "Select Font"
Height = 375
Left = 2460
TabIndex = 0
Top = 2760
Width = 2115
End
End
Attribute VB_Name = "Mfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'(c)2001 by Louis. Use to test GFSelectFontfrm.
Private Sub Command1_Click()
'on error resume next
Dim FontName As String
Dim FontSize As Single
Dim FontBoldFlag As Boolean
Dim FontItalicFlag As Boolean
Dim FontUnderlineFlag As Boolean
Dim FontStrikeThroughFlag As Boolean
'
FontName = "SYSTEM" 'default font
FontSize = 12
FontItalicFlag = True
FontBoldFlag = True
FontUnderlineFlag = True
FontStrikeThroughFlag = True
'
Debug.Print GFSelectFontfrm.GFSelectFont_SelectFont(FontName, FontSize, FontBoldFlag, FontItalicFlag, FontUnderlineFlag, FontStrikeThroughFlag)
'
Debug.Print FontName
Debug.Print FontSize
Debug.Print FontBoldFlag
Debug.Print FontItalicFlag
Debug.Print FontUnderlineFlag
Debug.Print FontStrikeThroughFlag
End Sub
Private Sub Form_Unload(Cancel As Integer)
'on error resume next
End
End Sub
[END OF FILE]