home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / vbmaxlcd / dialer.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-11-20  |  5.5 KB  |  190 lines
  1. VERSION 4.00
  2. Begin VB.Form Dialer 
  3.    Appearance      =   0  'Flat
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Phone Dialer"
  6.    ClientHeight    =   3885
  7.    ClientLeft      =   8010
  8.    ClientTop       =   345
  9.    ClientWidth     =   2835
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    Height          =   4290
  20.    Icon            =   "Dialer.frx":0000
  21.    Left            =   7950
  22.    LinkTopic       =   "Form1"
  23.    LockControls    =   -1  'True
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   3885
  27.    ScaleWidth      =   2835
  28.    Top             =   0
  29.    Width           =   2955
  30.    Begin VB.CommandButton cmdDial 
  31.       Caption         =   "Dial"
  32.       BeginProperty Font 
  33.          name            =   "MS Sans Serif"
  34.          charset         =   0
  35.          weight          =   400
  36.          size            =   8.25
  37.          underline       =   0   'False
  38.          italic          =   0   'False
  39.          strikethrough   =   0   'False
  40.       EndProperty
  41.       Height          =   495
  42.       Left            =   120
  43.       TabIndex        =   13
  44.       Top             =   3300
  45.       Width           =   2610
  46.    End
  47.    Begin VB.CommandButton Number 
  48.       Caption         =   " "
  49.       Height          =   510
  50.       Index           =   12
  51.       Left            =   1860
  52.       TabIndex        =   12
  53.       Top             =   2640
  54.       Width           =   510
  55.    End
  56.    Begin VB.CommandButton Number 
  57.       Caption         =   "-"
  58.       Height          =   510
  59.       Index           =   11
  60.       Left            =   420
  61.       TabIndex        =   11
  62.       Top             =   2640
  63.       Width           =   510
  64.    End
  65.    Begin VB.CommandButton Number 
  66.       Caption         =   "0"
  67.       Height          =   510
  68.       Index           =   0
  69.       Left            =   1140
  70.       TabIndex        =   10
  71.       Top             =   2640
  72.       Width           =   510
  73.    End
  74.    Begin VB.CommandButton Number 
  75.       Caption         =   "9"
  76.       Height          =   510
  77.       Index           =   9
  78.       Left            =   1860
  79.       TabIndex        =   9
  80.       Top             =   1980
  81.       Width           =   510
  82.    End
  83.    Begin VB.CommandButton Number 
  84.       Caption         =   "8"
  85.       Height          =   510
  86.       Index           =   8
  87.       Left            =   1140
  88.       TabIndex        =   8
  89.       Top             =   1980
  90.       Width           =   510
  91.    End
  92.    Begin VB.CommandButton Number 
  93.       Caption         =   "7"
  94.       Height          =   510
  95.       Index           =   7
  96.       Left            =   420
  97.       TabIndex        =   7
  98.       Top             =   1980
  99.       Width           =   510
  100.    End
  101.    Begin VB.CommandButton Number 
  102.       Caption         =   "6"
  103.       Height          =   510
  104.       Index           =   6
  105.       Left            =   1860
  106.       TabIndex        =   6
  107.       Top             =   1320
  108.       Width           =   510
  109.    End
  110.    Begin VB.CommandButton Number 
  111.       Caption         =   "5"
  112.       Height          =   510
  113.       Index           =   5
  114.       Left            =   1140
  115.       TabIndex        =   5
  116.       Top             =   1320
  117.       Width           =   510
  118.    End
  119.    Begin VB.CommandButton Number 
  120.       Caption         =   "4"
  121.       Height          =   510
  122.       Index           =   4
  123.       Left            =   420
  124.       TabIndex        =   4
  125.       Top             =   1320
  126.       Width           =   510
  127.    End
  128.    Begin VB.CommandButton Number 
  129.       Caption         =   "3"
  130.       Height          =   510
  131.       Index           =   3
  132.       Left            =   1860
  133.       TabIndex        =   3
  134.       Top             =   660
  135.       Width           =   510
  136.    End
  137.    Begin VB.CommandButton Number 
  138.       Caption         =   "2"
  139.       Height          =   510
  140.       Index           =   2
  141.       Left            =   1140
  142.       TabIndex        =   2
  143.       Top             =   660
  144.       Width           =   510
  145.    End
  146.    Begin VB.CommandButton Number 
  147.       Caption         =   "1"
  148.       Height          =   510
  149.       Index           =   1
  150.       Left            =   420
  151.       TabIndex        =   1
  152.       Top             =   660
  153.       Width           =   510
  154.    End
  155.    Begin VB.PictureBox picReadout 
  156.       Height          =   375
  157.       Left            =   120
  158.       ScaleHeight     =   315
  159.       ScaleWidth      =   2520
  160.       TabIndex        =   0
  161.       Top             =   120
  162.       Width           =   2580
  163.    End
  164. Attribute VB_Name = "Dialer"
  165. Attribute VB_Creatable = False
  166. Attribute VB_Exposed = False
  167. Option Explicit
  168. Dim moLCD      As New clsLCD
  169. Dim msPhoneNum As String
  170. Private Sub Form_Load()
  171.     With moLCD
  172.         .BackColor = vbBlue
  173.         .ForeColor = vbYellow
  174.         .Alignment = gnALIGN_LEFT
  175.         Set .Container = picReadout
  176.         .Caption = ""
  177.     End With
  178. End Sub
  179. Private Sub Form_Unload(Cancel As Integer)
  180.     Set moLCD = Nothing
  181.     Set Dialer = Nothing
  182. End Sub
  183. Private Sub Number_Click(Index As Integer)
  184.     msPhoneNum = msPhoneNum & Number(Index).Caption
  185.     moLCD.Caption = msPhoneNum
  186. End Sub
  187. Private Sub cmdDial_Click()
  188.     MsgBox "Doesn't really dial.  This demo just shows an example of a left-justified number.", vbInformation + vbOKOnly
  189. End Sub
  190.