font dialogue box

[mackey]

i am trying to set my font dialogue box . when i change the text size it still reverts back to the default , any help in the code would be very helpful

[IROY55]

And how do you do that???

[The Hobo]

Originally posted by mackey
i am trying to set my font dialogue box . when i change the text size it still reverts back to the default , any help in the code would be very helpful

This code works fine for me:

'requires CommonDialog (CDFont) and CommandButton (Command1):
 
Private Sub Command1_Click()
  CDFont.Flags = cdlCFBoth
  CDFont.FontName = Me.FontName
  CDFont.ShowFont
  
  Me.FontName = CDFont.FontName
  
  Me.Refresh
End Sub
 
Private Sub Form_Paint()
  Me.CurrentY = 0
  Me.Print "Wassup!?"
End Sub