RC-WinTrans Object Model Help
FontDialog.Show
|
RC-WinTrans Object Model Help |
| FontDialog.Show
|
Makes the dialog visible. Returns "True" if the dialog has been closed with the OK button, otherwise "False."
Syntax: |
Show() As Boolean |
| Return: | Boolean |
| Example: | Dim Dlg As FontDialog
Dim FontName As String
Dim Size As Long
Dim Bold As Boolean
Dim Italic As Boolean
Set Dlg = Application.Tools.RestypeEditors.FontDialog
Dlg.FontName = "Arial"
Dlg.Size = 12
Dlg.Bold = False
Dlg.Italic = False
If (Dlg.Show) Then
FontName = Dlg.FontName
Size = Dlg.Size
Bold = Dlg.Bold
Italic = Dlg.Italic
End If
|
See also: