home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / w3_scrn / vbfont.arj / FONTS.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1991-10-05  |  5.7 KB  |  150 lines
  1. Fonts
  2. Fonts
  3. Form1
  4. Lst_Face
  5. Lst_Size
  6.     Pict_Font
  7. Opt_Norm
  8. Normal
  9. Cmd_Prt
  10. &Print List
  11. Opt_Ital
  12. Italic
  13. Cmd_End
  14. Opt_Bold
  15. Form_Click
  16. @    Form_Load
  17. Screen
  18.     FontCount
  19. FontName
  20. FontN
  21. Fonts
  22. Text1_Change1
  23. Form_DblClickh
  24. List1_Click
  25. List1
  26. Label1=
  27. Caption
  28.     ListIndex
  29. Salary
  30. ShowMe
  31. Picture1
  32. Listw
  33. FaceName
  34. FontSize
  35. List2Y
  36. Size:
  37. FSize
  38. List2_Clickg
  39. FaceSize
  40. SizeLoad
  41. FaceSizePicture1
  42. Picture1_Click
  43. Form_UnloadE
  44. Cancel
  45. Form_KeyDown
  46. KeyCode
  47. Shift
  48. Command1_Clickx
  49. Option1_Click
  50. Command2_Click
  51. AutoRedraw
  52. Printer
  53. Option1
  54. Index
  55. FontItalic
  56. FALSE
  57. Option2_Clickq
  58. FontBold~
  59. Option3_Click
  60. Form_Resize
  61. Width
  62. Heigth'
  63. Height
  64. Header
  65. Form1
  66. MousePointer
  67. Option3f
  68. Value
  69. Form_Paint.
  70. CheckErrorE
  71. Chesk
  72. CheckZ
  73. Lst_Face
  74. Lst_Size
  75. Op_Norm
  76.     Pict_Font
  77. Lst_Size_Click
  78. Cmd_Prt_Click
  79. Cmd_End_Click
  80. Lst_Face_Click
  81. Opt_Ital_Click
  82. Opt_Bold_Click
  83. Opt_Norm_Click
  84. Opt_Norm
  85.  FontView v1.0 by Charles K. Snider 10/91 
  86.  Send any and all comments to: Compuserve 73730,1315
  87.  Declare variables
  88. Form_Load
  89.  Center on screeno
  90.  Get list of screen fonts and add to list boxs
  91.  restore screen font to defaultd
  92.  select first item in list box
  93.  Add list of font sizes to list boxt
  94.  Select fourth item is list box%
  95.  Select normal font characteristic (TRUE)t
  96. Form_Resize
  97.  Repaint picture when form is resized 
  98. Form_Click
  99.  Display "About Box"
  100. Font Viewer by Charles Snider"
  101. Compuserve 73730,1315"
  102. Font Viewer v1.0
  103. Form_Paint
  104.  Repaint picture box after covered by another window
  105.  This may also be accomplished by setting AutoDraw = Truen
  106. Lst_Size_Click
  107.  Display font in selected size
  108.  Clear picure box 
  109.  set variable to item chosen in list box
  110.  Change font size to one chosen 
  111.  Display itt
  112. Cmd_Prt_Click
  113.  Print routine
  114.  Set Error trap - go to sub CheckError if detected
  115.  Change mouse cursor to hourglass
  116.  Print headers
  117. Available Screen Fonts
  118.  Get screen fonts and send list to printer
  119.  Restore font to default
  120.  Print number of available fonts
  121. Number Of Fonts: "
  122.  End printing 
  123.  restore cursor to default
  124.  avoid executing error handler if error occurs ("exit")
  125.  branch here if error occurs
  126.  display error message
  127. Cmd_End_Click
  128.  End program
  129. Lst_Face_Click
  130.  Display selected font
  131.  Clear picure boxe
  132.  Set variable to item chosen in list box
  133.  Change picture font to one chosen
  134.  Display it 
  135. Opt_Ital_Click
  136.  When Italic is chosen
  137.  Set font attribute to italic (TRUE) and turn "bold" off (FALSE)
  138.  Clear picture box
  139.  Display itu
  140. Opt_Bold_Click
  141.  When Bold is chosen
  142.  Set font attribute to Bold (TRUE) and turn Italic off (FALSE)
  143.  Clear picture box
  144.  Display itu
  145. Opt_Norm_Click
  146.  When Normal is chosen
  147.  Set font attribute to Normal by setting Bold and Italic to FALSE(0)
  148.  Clear picture box
  149.  Display itu
  150.