home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbback / vbback.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-11  |  3.5 KB  |  115 lines
  1. VERSION 2.00
  2. Begin Form vbback 
  3.    BackColor       =   &H0000DEAD&
  4.    Caption         =   "VB Background Chooser"
  5.    ClientHeight    =   5820
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   7365
  9.    Height          =   6225
  10.    Left            =   1035
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   5820
  13.    ScaleWidth      =   7365
  14.    Top             =   1140
  15.    Width           =   7485
  16.    WindowState     =   2  'Maximized
  17.    Begin CommandButton Command1 
  18.       Caption         =   "save colors"
  19.       Height          =   375
  20.       Left            =   1320
  21.       TabIndex        =   3
  22.       Top             =   600
  23.       Width           =   1695
  24.    End
  25.    Begin TextBox Text1 
  26.       Height          =   615
  27.       Left            =   4080
  28.       TabIndex        =   2
  29.       Top             =   1560
  30.       Width           =   1815
  31.    End
  32.    Begin ComboBox cmbBacks 
  33.       Height          =   1575
  34.       Left            =   1080
  35.       Style           =   1  'Simple Combo
  36.       TabIndex        =   0
  37.       Text            =   "&H0000DEAD&"
  38.       Top             =   1320
  39.       Width           =   2535
  40.    End
  41.    Begin Label Label1 
  42.       BackStyle       =   0  'Transparent
  43.       Caption         =   "add color to list:"
  44.       Height          =   375
  45.       Left            =   4080
  46.       TabIndex        =   1
  47.       Top             =   1200
  48.       Width           =   2175
  49.    End
  50. Sub cmbBacks_KeyPress (KeyAscii As Integer)
  51.     If KeyAscii <> 13 Then Exit Sub
  52.     On Error GoTo CntSet
  53.     BackColor = Val(cmbBacks.Text)
  54.     On Error GoTo 0
  55.     Exit Sub
  56. CntSet:
  57.     MsgBox "could not set background"
  58.     Exit Sub
  59. End Sub
  60. Sub Command1_Click ()
  61.     Dim fname, I
  62.     fname = InputBox("Enter filename to save as:")
  63.     On Error GoTo CS
  64.     Open fname For Output As #1
  65.     For I = 0 To cmbBacks.ListCount - 1
  66.         Print #1, cmbBacks.List(I)
  67.     Next I
  68.     Close #1
  69.     On Error GoTo 0
  70.     Exit Sub
  71.     MsgBox "couldn't save colors"
  72.     Exit Sub
  73. End Sub
  74. Sub Form_Load ()
  75.     Show
  76.     Me.cmbBacks.AddItem "&H0000DEAD&"
  77.     Me.cmbBacks.AddItem "&H0011DEAD&"
  78.     Me.cmbBacks.AddItem "&H0022DEAD&"
  79.     Me.cmbBacks.AddItem "&H0033DEAD&"
  80.     Me.cmbBacks.AddItem "&H0044DEAD&"
  81.     Me.cmbBacks.AddItem "&H0055DEAD&"
  82.     Me.cmbBacks.AddItem "&H0066DEAD&"
  83.     Me.cmbBacks.AddItem "&H0077DEAD&"
  84.     Me.cmbBacks.AddItem "&H0088DEAD&"
  85.     Me.cmbBacks.AddItem "&H0099DEAD&"
  86.     Me.cmbBacks.AddItem "&H00AADEAD&"
  87.     Me.cmbBacks.AddItem "&H00BBDEAD&"
  88.     Me.cmbBacks.AddItem "&H00CCDEAD&"
  89.     Me.cmbBacks.AddItem "&H00DDDEAD&"
  90.     Me.cmbBacks.AddItem "&H00EEDEAD&"
  91.     Me.cmbBacks.AddItem "&H00FFDEAD&"
  92.     Me.cmbBacks.AddItem "&H00DAD000&"
  93.     Me.cmbBacks.AddItem "&H00DAD111&"
  94.     Me.cmbBacks.AddItem "&H00DAD222&"
  95.     Me.cmbBacks.AddItem "&H00DAD333&"
  96.     Me.cmbBacks.AddItem "&H00DAD444&"
  97.     Me.cmbBacks.AddItem "&H00DAD555&"
  98.     Me.cmbBacks.AddItem "&H00DAD666&"
  99.     Me.cmbBacks.AddItem "&H00DAD777&"
  100.     Me.cmbBacks.AddItem "&H00DAD888&"
  101.     Me.cmbBacks.AddItem "&H00DAD999&"
  102.     Me.cmbBacks.AddItem "&H00DADAAA&"
  103.     Me.cmbBacks.AddItem "&H00DADBBB&"
  104.     Me.cmbBacks.AddItem "&H00DADCCC&"
  105.     Me.cmbBacks.AddItem "&H00DADDDD&"
  106.     Me.cmbBacks.AddItem "&H00DADEEE&"
  107.     Me.cmbBacks.AddItem "&H00DADFFF&"
  108.     Me.cmbBacks.AddItem "&H00DADDAD&"
  109. End Sub
  110. Sub Text1_KeyPress (KeyAscii As Integer)
  111.     If KeyAscii <> 13 Then Exit Sub
  112.     KeyAscii = 0    'Cancel keystroke
  113.     cmbBacks.AddItem Text1.Text
  114. End Sub
  115.