home *** CD-ROM | disk | FTP | other *** search
/ An Introduction to Progr…l Basic 6.0 (4th Edition) / An Introduction to Programming using Visual Basic 6.0.iso / PROGRAMS / CH11 / 11-3-3.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-09-18  |  2.2 KB  |  78 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSizeFont 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "Alter Font & Size"
  6.    ClientHeight    =   1560
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1845
  9.    ClientWidth     =   2880
  10.    BeginProperty Font 
  11.       Name            =   "MS Sans Serif"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   700
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    LinkTopic       =   "Form1"
  21.    PaletteMode     =   1  'UseZOrder
  22.    ScaleHeight     =   1560
  23.    ScaleWidth      =   2880
  24.    Begin VB.TextBox txtInfo 
  25.       Appearance      =   0  'Flat
  26.       BeginProperty Font 
  27.          Name            =   "MS Sans Serif"
  28.          Size            =   9.75
  29.          Charset         =   0
  30.          Weight          =   700
  31.          Underline       =   0   'False
  32.          Italic          =   0   'False
  33.          Strikethrough   =   0   'False
  34.       EndProperty
  35.       Height          =   495
  36.       Left            =   600
  37.       TabIndex        =   0
  38.       Text            =   "Hello"
  39.       Top             =   720
  40.       Width           =   1695
  41.    End
  42.    Begin VB.Menu mnuFont 
  43.       Caption         =   "&Font  "
  44.       Begin VB.Menu mnuCourier 
  45.          Caption         =   "&Courier"
  46.          Shortcut        =   {F1}
  47.       End
  48.       Begin VB.Menu mnuTimesRm 
  49.          Caption         =   "&TimesRm"
  50.       End
  51.    End
  52.    Begin VB.Menu mnuSize 
  53.       Caption         =   "&Size"
  54.       Begin VB.Menu mnu12 
  55.          Caption         =   "12"
  56.       End
  57.       Begin VB.Menu mnu24 
  58.          Caption         =   "24"
  59.       End
  60.    End
  61. Attribute VB_Name = "frmSizeFont"
  62. Attribute VB_GlobalNameSpace = False
  63. Attribute VB_Creatable = False
  64. Attribute VB_PredeclaredId = True
  65. Attribute VB_Exposed = False
  66. Private Sub mnu12_Click()
  67.   txtInfo.Font.Size = 12
  68. End Sub
  69. Private Sub mnu24_Click()
  70.   txtInfo.Font.Size = 24
  71. End Sub
  72. Private Sub mnuCourier_Click()
  73.   txtInfo.Font.Name = "Courier"
  74. End Sub
  75. Private Sub mnuTimesRm_Click()
  76.   txtInfo.Font.Name = "Times New Roman"
  77. End Sub
  78.