Results 1 to 21 of 21

Thread: CommonDialong font/color

Threaded View

  1. Jul 14th, 2002, 01:31 PM #12
    Microbasic
    Microbasic is offline
    Frenzied Member Microbasic's Avatar
    Join Date
    Mar 2001
    Posts
    1,402

    Well

    VB Code:
    1. SaveSettings("MyApp", "Font", "Name", CommonDialog1.FontName)

    2. 'SaveSettings("MyApp", "Font", "Size", CommonDialog1.FontSize)

    3. 'SaveSettings("MyApp", "Font", "Bold", CommonDialog1.FontBold)

    4. 'SaveSettings("MyApp", "Font", "Italic", CommonDialog1.FontItalic)

    5. 'SaveSettings("MyApp", "Font", "Underline", CommonDialog1.FontUnderline)

    6. 'SaveSettings("MyApp", "Font", "StrikeThru", CommonDialog1.FontStrikeThru)

    7. SaveSettings("MyApp", "Font", "Color", Str(CommonDialog1.Color))

    VB Code:
    1. Text1.Text = GetSettings("MyApp", "Font", "Name", Arial)

    2. Label1.BackColor = Val(GetSettings("MyApp", "Font", "Color", Str(vbBlack)))
    Last edited by Microbasic; Jul 14th, 2002 at 01:42 PM.


    MicroBasic
    Dragon Shadow Trainer

    There is no good or evil in the world...only programmers and fools .
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules


Click Here to Expand Forum to Full Width