home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / PGUIDE / ATM / FRMINPUT.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-02-23  |  3.9 KB  |  129 lines
  1. VERSION 5.00
  2. Begin VB.Form frmInput 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   3645
  5.    ClientLeft      =   1800
  6.    ClientTop       =   3030
  7.    ClientWidth     =   5220
  8.    MaxButton       =   0   'False
  9.    MinButton       =   0   'False
  10.    ScaleHeight     =   3645
  11.    ScaleWidth      =   5220
  12.    Begin VB.Frame fraAccount 
  13.       Caption         =   "fraAccount"
  14.       Height          =   1215
  15.       Left            =   1080
  16.       TabIndex        =   8
  17.       Top             =   960
  18.       Width           =   3975
  19.       Begin VB.OptionButton optChecking 
  20.          Caption         =   "optChecking"
  21.          Height          =   255
  22.          Left            =   240
  23.          TabIndex        =   1
  24.          Top             =   360
  25.          Value           =   -1  'True
  26.          Width           =   3495
  27.       End
  28.       Begin VB.OptionButton optSavings 
  29.          Caption         =   "optSavings"
  30.          Height          =   255
  31.          Left            =   240
  32.          TabIndex        =   2
  33.          Top             =   720
  34.          Width           =   3495
  35.       End
  36.    End
  37.    Begin VB.CommandButton cmdOK 
  38.       Caption         =   "cmdOK"
  39.       Default         =   -1  'True
  40.       Height          =   375
  41.       Left            =   3960
  42.       TabIndex        =   4
  43.       Top             =   3120
  44.       Width           =   1095
  45.    End
  46.    Begin VB.TextBox txtUSDollarsAmt 
  47.       Height          =   285
  48.       Left            =   1080
  49.       TabIndex        =   3
  50.       Top             =   2640
  51.       Width           =   2295
  52.    End
  53.    Begin VB.TextBox txtPin 
  54.       Height          =   285
  55.       HideSelection   =   0   'False
  56.       IMEMode         =   3  'DISABLE
  57.       Left            =   1080
  58.       PasswordChar    =   "*"
  59.       TabIndex        =   0
  60.       Top             =   480
  61.       Width           =   3975
  62.    End
  63.    Begin VB.Label lblUSDollars 
  64.       Caption         =   "
  65. (USD)"
  66.       Height          =   195
  67.       Left            =   3480
  68.       TabIndex        =   7
  69.       Top             =   2685
  70.       Width           =   1575
  71.    End
  72.    Begin VB.Image imgFlag 
  73.       BorderStyle     =   1  'Fixed Single
  74.       Height          =   735
  75.       Left            =   120
  76.       Stretch         =   -1  'True
  77.       Top             =   120
  78.       Width           =   735
  79.    End
  80.    Begin VB.Label lblAmount 
  81.       Caption         =   "lblAmount"
  82.       Height          =   195
  83.       Left            =   1080
  84.       TabIndex        =   6
  85.       Top             =   2400
  86.       Width           =   3975
  87.    End
  88.    Begin VB.Label lblPINCode 
  89.       Caption         =   "lblPINCode"
  90.       Height          =   195
  91.       Left            =   1080
  92.       TabIndex        =   5
  93.       Top             =   240
  94.       Width           =   3975
  95.    End
  96. Attribute VB_Name = "frmInput"
  97. Attribute VB_GlobalNameSpace = False
  98. Attribute VB_Creatable = False
  99. Attribute VB_PredeclaredId = True
  100. Attribute VB_Exposed = False
  101.  Visual Basic 
  102.  command button (
  103.  frmOpen 
  104.  LoadResPicture 
  105. LoadResString 
  106. ' LoadResData 
  107.  .WAV 
  108. Sub Form_Load()
  109.     imgFlag.Picture = LoadResPicture(0 + i, vbResBitmap)
  110.     Me.Caption = LoadResString(0 + i)
  111.     lblPINCode.Caption = LoadResString(1 + i)
  112.     fraAccount.Caption = LoadResString(2 + i)
  113.     optChecking.Caption = LoadResString(3 + i)
  114.     optSavings.Caption = LoadResString(4 + i)
  115.     lblAmount.Caption = LoadResString(5 + i)
  116.     cmdOK.Caption = LoadResString(6 + i)
  117.     SetCursor cmdOK
  118. End Sub
  119. Sub cmdOK_click()
  120.     MsgBox (LoadResString(7 + i))   ' 
  121.     frmAmountWithdrawn.Show 1
  122.     Unload Me
  123. End Sub
  124. Private Sub Form_Unload(Cancel As Integer)
  125.     EndPlaySound
  126. End Sub
  127. Private Sub fraAccount_DragDrop(Source As Control, X As Single, Y As Single)
  128. End Sub
  129.