home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch1 / SysColor.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-03-20  |  3.7 KB  |  99 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSysColor 
  3.    Caption         =   "SysColor"
  4.    ClientHeight    =   2385
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   2385
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.Label lblColor 
  13.       BorderStyle     =   1  'Fixed Single
  14.       Height          =   255
  15.       Index           =   0
  16.       Left            =   2040
  17.       TabIndex        =   1
  18.       Top             =   0
  19.       Width           =   615
  20.    End
  21.    Begin VB.Label lblName 
  22.       Caption         =   "Name"
  23.       Height          =   255
  24.       Index           =   0
  25.       Left            =   0
  26.       TabIndex        =   0
  27.       Top             =   0
  28.       Width           =   1935
  29.    End
  30. Attribute VB_Name = "frmSysColor"
  31. Attribute VB_GlobalNameSpace = False
  32. Attribute VB_Creatable = False
  33. Attribute VB_PredeclaredId = True
  34. Attribute VB_Exposed = False
  35. Option Explicit
  36. Private RowHgt As Single
  37. Private MaxIndex As Integer
  38. ' Display one color.
  39. Private Sub ShowColor(ByVal color_name As String, ByVal color_value As Long)
  40.     ' Create the labels for this color.
  41.     MaxIndex = MaxIndex + 1
  42.     Load lblName(MaxIndex)
  43.     Load lblColor(MaxIndex)
  44.     If MaxIndex = 14 Then
  45.         lblName(MaxIndex).Top = lblName(1).Top
  46.         lblName(MaxIndex).Left = lblColor(1).Left + lblColor(1).Width + 240
  47.         lblColor(MaxIndex).Top = lblColor(1).Top
  48.         lblColor(MaxIndex).Left = lblName(MaxIndex).Left + lblColor(1).Left - lblName(1).Left
  49.     Else
  50.         lblName(MaxIndex).Top = lblName(MaxIndex - 1).Top + RowHgt
  51.         lblName(MaxIndex).Left = lblName(MaxIndex - 1).Left
  52.         lblColor(MaxIndex).Top = lblColor(MaxIndex - 1).Top + RowHgt
  53.         lblColor(MaxIndex).Left = lblColor(MaxIndex - 1).Left
  54.     End If
  55.     ' Display the color and name.
  56.     lblName(MaxIndex).Caption = color_name
  57.     lblColor(MaxIndex).BackColor = color_value
  58.     ' Make the controls visible.
  59.     lblColor(MaxIndex).Visible = True
  60.     lblName(MaxIndex).Visible = True
  61. End Sub
  62. ' Display the colors and their names.
  63. Private Sub Form_Load()
  64.     ' Calculate the row spacing.
  65.     RowHgt = lblColor(0).Height + 30
  66.     ' Position the first controls.
  67.     lblColor(0).Top = 30 - RowHgt
  68.     lblName(0).Top = lblColor(0).Top + (lblColor(0).Height - lblName(0).Height) / 2
  69.     ' Display the colors.
  70.     ShowColor "vbScrollBars", vbScrollBars
  71.     ShowColor "Desktop", vbDesktop
  72.     ShowColor "ActiveTitleBar", vbActiveTitleBar
  73.     ShowColor "InactiveTitleBar", vbInactiveTitleBar
  74.     ShowColor "MenuBar", vbMenuBar
  75.     ShowColor "WindowBackground", vbWindowBackground
  76.     ShowColor "WindowFrame", vbWindowFrame
  77.     ShowColor "MenuText", vbMenuText
  78.     ShowColor "WindowText", vbWindowText
  79.     ShowColor "TitleBarText", vbTitleBarText
  80.     ShowColor "ActiveBorder", vbActiveBorder
  81.     ShowColor "InactiveBorder", vbInactiveBorder
  82.     ShowColor "ApplicationWorkspace", vbApplicationWorkspace
  83.     ShowColor "Highlight", vbHighlight
  84.     ShowColor "HighlightText", vbHighlightText
  85.     ShowColor "ButtonFace", vbButtonFace
  86.     ShowColor "ButtonShadow", vbButtonShadow
  87.     ShowColor "GrayText", vbGrayText
  88.     ShowColor "ButtonText", vbButtonText
  89.     ShowColor "InactiveCaptionText", vbInactiveCaptionText
  90.     ShowColor "3DHighlight", vb3DHighlight
  91.     ShowColor "3DDKShadow", vb3DDKShadow
  92.     ShowColor "3DLight", vb3DLight
  93.     ShowColor "InfoText", vbInfoText
  94.     ShowColor "InfoBackground", vbInfoBackground
  95.     ' Resize the form.
  96.     Height = lblColor(13).Top + lblColor(13).Height + 30 + Height - ScaleHeight
  97.     Width = lblColor(MaxIndex).Left + lblColor(MaxIndex).Width + 30 + Width - ScaleWidth
  98. End Sub
  99.