home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Learn_Basi1768047102004.psc / tutorials / frm_font.frm < prev    next >
Text File  |  2004-07-10  |  9KB  |  304 lines
  1. VERSION 5.00
  2. Begin VB.Form Form5 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Font Example"
  5.    ClientHeight    =   6540
  6.    ClientLeft      =   45
  7.    ClientTop       =   315
  8.    ClientWidth     =   5700
  9.    LinkTopic       =   "Form5"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   6540
  13.    ScaleWidth      =   5700
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.CommandButton Command4 
  17.       Caption         =   "Exit"
  18.       Height          =   975
  19.       Left            =   240
  20.       Picture         =   "frm_font.frx":0000
  21.       Style           =   1  'Graphical
  22.       TabIndex        =   14
  23.       Top             =   5280
  24.       Width           =   5055
  25.    End
  26.    Begin VB.CommandButton Command3 
  27.       Caption         =   "BLUE"
  28.       Height          =   255
  29.       Left            =   3960
  30.       TabIndex        =   12
  31.       Top             =   2280
  32.       Width           =   855
  33.    End
  34.    Begin VB.CommandButton Command2 
  35.       Caption         =   "GREEN"
  36.       Height          =   255
  37.       Left            =   3960
  38.       TabIndex        =   11
  39.       Top             =   1920
  40.       Width           =   855
  41.    End
  42.    Begin VB.CommandButton Command1 
  43.       Caption         =   "RED"
  44.       Height          =   255
  45.       Left            =   3960
  46.       TabIndex        =   10
  47.       Top             =   1560
  48.       Width           =   855
  49.    End
  50.    Begin VB.TextBox Text1 
  51.       Height          =   1815
  52.       Left            =   240
  53.       TabIndex        =   9
  54.       Top             =   3240
  55.       Width           =   5295
  56.    End
  57.    Begin VB.Frame Frame1 
  58.       Caption         =   "Choose Options"
  59.       BeginProperty Font 
  60.          Name            =   "Comic Sans MS"
  61.          Size            =   9
  62.          Charset         =   0
  63.          Weight          =   700
  64.          Underline       =   0   'False
  65.          Italic          =   0   'False
  66.          Strikethrough   =   0   'False
  67.       EndProperty
  68.       ForeColor       =   &H00FF0000&
  69.       Height          =   1215
  70.       Left            =   360
  71.       TabIndex        =   4
  72.       Top             =   1440
  73.       Width           =   3135
  74.       Begin VB.CheckBox Check4 
  75.          Caption         =   "Italics"
  76.          BeginProperty Font 
  77.             Name            =   "MS Sans Serif"
  78.             Size            =   9.75
  79.             Charset         =   0
  80.             Weight          =   400
  81.             Underline       =   0   'False
  82.             Italic          =   0   'False
  83.             Strikethrough   =   0   'False
  84.          EndProperty
  85.          Height          =   255
  86.          Left            =   2160
  87.          TabIndex        =   8
  88.          Top             =   360
  89.          Width           =   855
  90.       End
  91.       Begin VB.CheckBox Check3 
  92.          Caption         =   "Bold"
  93.          BeginProperty Font 
  94.             Name            =   "MS Sans Serif"
  95.             Size            =   9.75
  96.             Charset         =   0
  97.             Weight          =   400
  98.             Underline       =   0   'False
  99.             Italic          =   0   'False
  100.             Strikethrough   =   0   'False
  101.          EndProperty
  102.          Height          =   255
  103.          Left            =   2160
  104.          TabIndex        =   7
  105.          Top             =   840
  106.          Width           =   855
  107.       End
  108.       Begin VB.CheckBox Check2 
  109.          Caption         =   "UnderLine"
  110.          BeginProperty Font 
  111.             Name            =   "MS Sans Serif"
  112.             Size            =   9.75
  113.             Charset         =   0
  114.             Weight          =   400
  115.             Underline       =   0   'False
  116.             Italic          =   0   'False
  117.             Strikethrough   =   0   'False
  118.          EndProperty
  119.          Height          =   255
  120.          Left            =   240
  121.          TabIndex        =   6
  122.          Top             =   840
  123.          Width           =   1335
  124.       End
  125.       Begin VB.CheckBox Check1 
  126.          Caption         =   "StrikeThrough"
  127.          BeginProperty Font 
  128.             Name            =   "MS Sans Serif"
  129.             Size            =   9.75
  130.             Charset         =   0
  131.             Weight          =   400
  132.             Underline       =   0   'False
  133.             Italic          =   0   'False
  134.             Strikethrough   =   0   'False
  135.          EndProperty
  136.          Height          =   255
  137.          Left            =   240
  138.          TabIndex        =   5
  139.          Top             =   360
  140.          Width           =   1575
  141.       End
  142.    End
  143.    Begin VB.ComboBox Combo2 
  144.       BeginProperty Font 
  145.          Name            =   "MS Sans Serif"
  146.          Size            =   9.75
  147.          Charset         =   0
  148.          Weight          =   400
  149.          Underline       =   0   'False
  150.          Italic          =   0   'False
  151.          Strikethrough   =   0   'False
  152.       EndProperty
  153.       Height          =   360
  154.       Left            =   3120
  155.       Style           =   2  'Dropdown List
  156.       TabIndex        =   3
  157.       Top             =   720
  158.       Width           =   2295
  159.    End
  160.    Begin VB.ComboBox Combo1 
  161.       BeginProperty Font 
  162.          Name            =   "MS Sans Serif"
  163.          Size            =   9.75
  164.          Charset         =   0
  165.          Weight          =   400
  166.          Underline       =   0   'False
  167.          Italic          =   0   'False
  168.          Strikethrough   =   0   'False
  169.       EndProperty
  170.       Height          =   360
  171.       Left            =   360
  172.       Style           =   2  'Dropdown List
  173.       TabIndex        =   0
  174.       Top             =   720
  175.       Width           =   2295
  176.    End
  177.    Begin VB.Label Label2 
  178.       Caption         =   "Sample"
  179.       BeginProperty Font 
  180.          Name            =   "MS Sans Serif"
  181.          Size            =   12
  182.          Charset         =   0
  183.          Weight          =   700
  184.          Underline       =   0   'False
  185.          Italic          =   0   'False
  186.          Strikethrough   =   0   'False
  187.       EndProperty
  188.       Height          =   375
  189.       Left            =   480
  190.       TabIndex        =   13
  191.       Top             =   2760
  192.       Width           =   1095
  193.    End
  194.    Begin VB.Label Label1 
  195.       Caption         =   "Fonts Size"
  196.       BeginProperty Font 
  197.          Name            =   "MS Sans Serif"
  198.          Size            =   9.75
  199.          Charset         =   0
  200.          Weight          =   400
  201.          Underline       =   0   'False
  202.          Italic          =   0   'False
  203.          Strikethrough   =   0   'False
  204.       EndProperty
  205.       Height          =   255
  206.       Index           =   1
  207.       Left            =   3240
  208.       TabIndex        =   2
  209.       Top             =   240
  210.       Width           =   1815
  211.    End
  212.    Begin VB.Label Label1 
  213.       Caption         =   "Fonts Name"
  214.       BeginProperty Font 
  215.          Name            =   "MS Sans Serif"
  216.          Size            =   9.75
  217.          Charset         =   0
  218.          Weight          =   400
  219.          Underline       =   0   'False
  220.          Italic          =   0   'False
  221.          Strikethrough   =   0   'False
  222.       EndProperty
  223.       Height          =   255
  224.       Index           =   0
  225.       Left            =   720
  226.       TabIndex        =   1
  227.       Top             =   240
  228.       Width           =   1815
  229.    End
  230. End
  231. Attribute VB_Name = "Form5"
  232. Attribute VB_GlobalNameSpace = False
  233. Attribute VB_Creatable = False
  234. Attribute VB_PredeclaredId = True
  235. Attribute VB_Exposed = False
  236. Private Sub Check1_Click()
  237. If Check1.Value = vbChecked Then
  238.     Text1.Font.Strikethrough = True
  239. ElseIf Check1.Value = False Then
  240.     Text1.Font.Strikethrough = False
  241. End If
  242. End Sub
  243.  
  244. Private Sub Check2_Click()
  245. If Check2.Value = vbChecked Then
  246.     Text1.Font.Underline = True
  247. ElseIf Check2.Value = False Then
  248.     Text1.Font.Underline = False
  249. End If
  250. End Sub
  251.  
  252. Private Sub Check3_Click()
  253. If Check3.Value = vbChecked Then
  254.     Text1.Font.Bold = True
  255. ElseIf Check3.Value = False Then
  256.     Text1.Font.Bold = False
  257. End If
  258. End Sub
  259.  
  260. Private Sub Check4_Click()
  261. If Check4.Value = vbChecked Then
  262.     Text1.Font.Italic = True
  263. ElseIf Check1.Value = False Then
  264.     Text1.Font.Italic = False
  265. End If
  266. End Sub
  267.  
  268. Private Sub Combo1_Click()
  269. Text1.Font.Name = Combo1.Text
  270. End Sub
  271.  
  272. Private Sub Combo2_Click()
  273. Text1.Font.Size = Combo2.Text
  274. End Sub
  275.  
  276. Private Sub Command1_Click()
  277. Text1.ForeColor = vbRed
  278. End Sub
  279.  
  280. Private Sub Command2_Click()
  281. Text1.ForeColor = vbGreen
  282. End Sub
  283.  
  284. Private Sub Command3_Click()
  285. Text1.ForeColor = vbBlue
  286. End Sub
  287.  
  288. Private Sub Command4_Click()
  289. Unload Me
  290. Form2.Show
  291. End Sub
  292.  
  293. Private Sub Form_Load()
  294. 'for adding the fonts name
  295. Dim i As Integer, j As Integer
  296. For i = 1 To Screen.FontCount - 1
  297.     Combo1.AddItem Screen.Fonts(i)
  298. Next i
  299. 'for adding the size
  300. For j = 8 To 40 Step 2
  301.     Combo2.AddItem j
  302. Next j
  303. End Sub
  304.