home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch16 / flabel / flabel.frm (.txt) next >
Encoding:
Visual Basic Form  |  1996-05-10  |  6.0 KB  |  183 lines
  1. VERSION 5.00
  2. Begin VB.Form FLabelForm 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3165
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   7725
  8.    BeginProperty Font 
  9.       Name            =   "Comic Sans MS"
  10.       Size            =   27.75
  11.       Charset         =   0
  12.       Weight          =   700
  13.       Underline       =   0   'False
  14.       Italic          =   0   'False
  15.       Strikethrough   =   0   'False
  16.    EndProperty
  17.    LinkTopic       =   "Form1"
  18.    ScaleHeight     =   3165
  19.    ScaleWidth      =   7725
  20.    StartUpPosition =   3  'Windows Default
  21.    Begin VB.CommandButton Command1 
  22.       Caption         =   "Display Caption"
  23.       BeginProperty Font 
  24.          Name            =   "Verdana"
  25.          Size            =   9.75
  26.          Charset         =   0
  27.          Weight          =   400
  28.          Underline       =   0   'False
  29.          Italic          =   0   'False
  30.          Strikethrough   =   0   'False
  31.       EndProperty
  32.       Height          =   495
  33.       Left            =   120
  34.       TabIndex        =   0
  35.       Top             =   2520
  36.       Width           =   2055
  37.    End
  38. Attribute VB_Name = "FLabelForm"
  39. Attribute VB_GlobalNameSpace = False
  40. Attribute VB_Creatable = False
  41. Attribute VB_PredeclaredId = True
  42. Attribute VB_Exposed = False
  43. Dim m_Caption As String
  44. Dim m_TextAlignment As Integer
  45. Dim m_Effect As Integer
  46. Sub DrawCaption()
  47. Dim CaptionWidth As Long, CaptionHeight As Long
  48. Dim CurrX As Long, CurrY As Long
  49. Dim oldForeColor As OLE_COLOR
  50.     CaptionHeight = Me.TextHeight(m_Caption)
  51.     CaptionWidth = Me.TextWidth(m_Caption)
  52.     Select Case m_TextAlignment
  53.         Case 0: ' Top-left
  54.             CurrX = 30
  55.             CurrY = 0
  56.         Case 1: ' Top-center
  57.             CurrX = (Me.ScaleWidth - CaptionWidth) / 2
  58.             CurrY = 0
  59.         Case 2: ' Top-right
  60.             CurrX = Me.ScaleWidth - CaptionWidth - 30
  61.             CurrY = 0
  62.         Case 3: ' Middle-left
  63.             CurrX = 30
  64.             CurrY = (Me.ScaleHeight - CaptionHeight) / 2
  65.         Case 4: ' Middle-center
  66.             CurrX = (Me.ScaleWidth - CaptionWidth) / 2
  67.             CurrY = (Me.ScaleHeight - CaptionHeight) / 2
  68.         Case 5: ' Middle-left
  69.             CurrX = Me.ScaleWidth - CaptionWidth - 30
  70.             CurrY = (Me.ScaleHeight - CaptionHeight) / 2
  71.         Case 6: ' Bottm-right
  72.             CurrX = 30
  73.             CurrY = Me.ScaleHeight - CaptionHeight - 45
  74.         Case 7: ' bottom-center
  75.             CurrX = (Me.ScaleWidth - CaptionWidth) / 2
  76.             CurrY = Me.ScaleHeight - CaptionHeight - 45
  77.         Case 8: ' Bottom-right
  78.             CurrX = Me.ScaleWidth - CaptionWidth - 30
  79.             CurrY = Me.ScaleHeight - CaptionHeight - 45
  80.     End Select
  81.         
  82.     oldForeColor = Me.ForeColor
  83.     Select Case m_Effect
  84.         Case 0: ' Plain text
  85.             Me.Cls
  86.             Me.CurrentX = CurrX
  87.             Me.CurrentY = CurrY
  88.             Me.Print m_Caption
  89.         Case 1: ' carved light
  90.             Me.Cls
  91.             ' displace by 15 twips (1 pixel)
  92.             Me.CurrentX = CurrX + 15
  93.             Me.CurrentY = CurrY + 15
  94.             Me.ForeColor = RGB(255, 255, 255)
  95.             ' and print caption in white
  96.             Me.Print m_Caption
  97.             ' restore original coordinates for current point
  98.             Me.CurrentX = CurrX
  99.             Me.CurrentY = CurrY
  100.             Me.ForeColor = oldForeColor
  101.             ' and print caption in black
  102.             Me.Print m_Caption
  103.         Case 2: ' Carved medium
  104.             Me.Cls
  105.             Me.CurrentX = CurrX + 30
  106.             Me.CurrentY = CurrY + 30
  107.             Me.ForeColor = RGB(255, 255, 255)
  108.             Me.Print m_Caption
  109.             Me.CurrentX = CurrX
  110.             Me.CurrentY = CurrY
  111.             Me.ForeColor = oldForeColor
  112.             Me.Print m_Caption
  113.         Case 3: ' Carved heavy
  114.             Me.Cls
  115.             Me.CurrentX = CurrX + 45
  116.             Me.CurrentY = CurrY + 45
  117.             Me.ForeColor = RGB(255, 255, 255)
  118.             Me.Print m_Caption
  119.             
  120.             Me.CurrentX = CurrX + 30
  121.             Me.CurrentY = CurrY + 30
  122.             Me.ForeColor = RGB(255, 255, 255)
  123.             Me.Print m_Caption
  124.             
  125.             Me.CurrentX = CurrX + 15
  126.             Me.CurrentY = CurrY + 15
  127.             Me.ForeColor = RGB(255, 255, 255)
  128.             Me.Print m_Caption
  129.             
  130.             Me.CurrentX = CurrX
  131.             Me.CurrentY = CurrY
  132.             Me.ForeColor = oldForeColor
  133.             Me.Print m_Caption
  134.         Case 4: ' Raised light
  135.             Me.Cls
  136.             Me.CurrentX = CurrX - 15
  137.             Me.CurrentY = CurrY - 15
  138.             Me.ForeColor = RGB(255, 255, 255)
  139.             Me.Print m_Caption
  140.             Me.CurrentX = CurrX
  141.             Me.CurrentY = CurrY
  142.             Me.ForeColor = oldForeColor
  143.             Me.Print m_Caption
  144.         Case 5: ' Raised medium
  145.             Me.Cls
  146.             Me.CurrentX = CurrX - 30
  147.             Me.CurrentY = CurrY - 30
  148.             Me.ForeColor = RGB(255, 255, 255)
  149.             Me.Print m_Caption
  150.             Me.CurrentX = CurrX
  151.             Me.CurrentY = CurrY
  152.             Me.ForeColor = oldForeColor
  153.             Me.Print m_Caption
  154.         Case 6: ' Raised heavy
  155.             Me.Cls
  156.             Me.CurrentX = CurrX - 45
  157.             Me.CurrentY = CurrY - 45
  158.             Me.ForeColor = RGB(255, 255, 255)
  159.             Me.Print m_Caption
  160.             
  161.             Me.CurrentX = CurrX - 30
  162.             Me.CurrentY = CurrY - 30
  163.             Me.ForeColor = RGB(255, 255, 255)
  164.             Me.Print m_Caption
  165.             
  166.             Me.CurrentX = CurrX - 15
  167.             Me.CurrentY = CurrY - 15
  168.             Me.ForeColor = RGB(255, 255, 255)
  169.             Me.Print m_Caption
  170.             Me.CurrentX = CurrX
  171.             Me.CurrentY = CurrY
  172.             Me.ForeColor = oldForeColor
  173.             Me.Print m_Caption
  174.         
  175.         End Select
  176. End Sub
  177. Private Sub Command1_Click()
  178.     m_Caption = "Mastering Visual Basic"
  179.     m_TextAlignment = 0
  180.     m_Effect = 1
  181.     DrawCaption
  182. End Sub
  183.