home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / PGUIDE / ATM / FRMINPUT.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-10-15  |  3.9 KB  |  123 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.       Left            =   1080
  57.       PasswordChar    =   "*"
  58.       TabIndex        =   0
  59.       Top             =   480
  60.       Width           =   3975
  61.    End
  62.    Begin VB.Label lblUSDollars 
  63.       Caption         =   "US Dollars"
  64.       Height          =   195
  65.       Left            =   3480
  66.       TabIndex        =   7
  67.       Top             =   2685
  68.       Width           =   1575
  69.    End
  70.    Begin VB.Image imgFlag 
  71.       BorderStyle     =   1  'Fixed Single
  72.       Height          =   735
  73.       Left            =   120
  74.       Stretch         =   -1  'True
  75.       Top             =   120
  76.       Width           =   735
  77.    End
  78.    Begin VB.Label lblAmount 
  79.       Caption         =   "lblAmount"
  80.       Height          =   195
  81.       Left            =   1080
  82.       TabIndex        =   6
  83.       Top             =   2400
  84.       Width           =   3975
  85.    End
  86.    Begin VB.Label lblPINCode 
  87.       Caption         =   "lblPINCode"
  88.       Height          =   195
  89.       Left            =   1080
  90.       TabIndex        =   5
  91.       Top             =   240
  92.       Width           =   3975
  93.    End
  94. Attribute VB_Name = "frmInput"
  95. Attribute VB_GlobalNameSpace = False
  96. Attribute VB_Creatable = False
  97. Attribute VB_PredeclaredId = True
  98. Attribute VB_Exposed = False
  99. ' This sample application demonstrates how to use resource files to localize
  100. ' a Visual Basic application. It does not use error handling or data validation.
  101. ' This application uses the LoadResPicture function to load a picture, LoadResString
  102. ' to load a string, and LoadResData to read a .WAV file from the resource file,
  103. ' depending on which command button the user chose (in frmOpen).
  104. Sub Form_Load()
  105.     imgFlag.Picture = LoadResPicture(0 + i, vbResBitmap)
  106.     Me.Caption = LoadResString(0 + i)
  107.     lblPINCode.Caption = LoadResString(1 + i)
  108.     fraAccount.Caption = LoadResString(2 + i)
  109.     optChecking.Caption = LoadResString(3 + i)
  110.     optSavings.Caption = LoadResString(4 + i)
  111.     lblAmount.Caption = LoadResString(5 + i)
  112.     cmdOK.Caption = LoadResString(6 + i)
  113.     SetCursor cmdOK
  114. End Sub
  115. Sub cmdOK_click()
  116.     MsgBox (LoadResString(7 + i))   ' Display a process message.
  117.     frmAmountWithdrawn.Show 1
  118.     Unload Me
  119. End Sub
  120. Private Sub Form_Unload(Cancel As Integer)
  121.     EndPlaySound
  122. End Sub
  123.