home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / PGUIDE / ATM / FRMAMOUN.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-02-23  |  3.5 KB  |  111 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAmountWithdrawn 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   3045
  5.    ClientLeft      =   5250
  6.    ClientTop       =   3585
  7.    ClientWidth     =   4170
  8.    MaxButton       =   0   'False
  9.    MinButton       =   0   'False
  10.    ScaleHeight     =   3045
  11.    ScaleWidth      =   4170
  12.    Begin VB.Frame fraMoney 
  13.       Caption         =   "fraMoney"
  14.       Height          =   1215
  15.       Left            =   120
  16.       TabIndex        =   2
  17.       Top             =   1080
  18.       Width           =   3855
  19.       Begin VB.TextBox txtConvertedAmt 
  20.          Height          =   285
  21.          Left            =   2040
  22.          TabIndex        =   4
  23.          Top             =   600
  24.          Width           =   1575
  25.       End
  26.       Begin VB.TextBox txtUSDollarsAmt 
  27.          Height          =   285
  28.          Left            =   240
  29.          TabIndex        =   3
  30.          TabStop         =   0   'False
  31.          Top             =   600
  32.          Width           =   1575
  33.       End
  34.       Begin VB.Label lblCurrency 
  35.          Caption         =   "lblCurrency"
  36.          Height          =   195
  37.          Left            =   2040
  38.          TabIndex        =   6
  39.          Top             =   360
  40.          Width           =   1575
  41.       End
  42.       Begin VB.Label lblUSDollars 
  43.          Caption         =   "
  44. (USD)"
  45.          Height          =   195
  46.          Left            =   240
  47.          TabIndex        =   5
  48.          Top             =   360
  49.          Width           =   1575
  50.       End
  51.    End
  52.    Begin VB.CommandButton cmdOKEnd 
  53.       Caption         =   "cmdOKEnd"
  54.       Default         =   -1  'True
  55.       Height          =   375
  56.       Left            =   2880
  57.       TabIndex        =   1
  58.       Top             =   2520
  59.       Width           =   1095
  60.    End
  61.    Begin VB.Image imgFlag 
  62.       BorderStyle     =   1  'Fixed Single
  63.       Height          =   735
  64.       Left            =   120
  65.       Stretch         =   -1  'True
  66.       Top             =   120
  67.       Width           =   735
  68.    End
  69.    Begin VB.Label lblAmountWith 
  70.       Caption         =   "lblAmountWith"
  71.       Height          =   735
  72.       Left            =   1080
  73.       TabIndex        =   0
  74.       Top             =   120
  75.       Width           =   2895
  76.    End
  77. Attribute VB_Name = "frmAmountWithdrawn"
  78. Attribute VB_GlobalNameSpace = False
  79. Attribute VB_Creatable = False
  80. Attribute VB_PredeclaredId = True
  81. Attribute VB_Exposed = False
  82. Option Explicit
  83. Private Sub cmdOKEnd_Click()
  84.     ' 
  85.  Microsoft ADPCM Audio CODEC 
  86.     ' 
  87.  Windows 95 
  88.  Windows NT 3.51 
  89.     BeginPlaySound i
  90.     MsgBox LoadResString(8 + i)   ' 
  91.     Unload Me
  92. End Sub
  93. Private Sub Form_Load()
  94.     Dim ConversionValue As Currency
  95.     ConversionValue = ConversionTable((i - 16) \ 32)
  96.     imgFlag = LoadResPicture(i, vbResBitmap)
  97.     lblAmountWith = LoadResString(9 + i) & " " & _
  98.         IIf(frmInput.optChecking, LoadResString(3 + i), LoadResString(4 + i))
  99.     lblCurrency = LoadResString(10 + i)
  100.     cmdOKEnd.Caption = LoadResString(6 + i)
  101.     fraMoney = "1 USD ($) = " & CStr(ConversionValue) & " " & lblCurrency.Caption
  102.     txtUSDollarsAmt = Val(frmInput.txtUSDollarsAmt.Text)
  103.     txtConvertedAmt = ConversionValue * CCur(txtUSDollarsAmt.Text)
  104.     SetCursor cmdOKEnd
  105.     ' 
  106.  DBCS 
  107.     ' 
  108.  font 
  109.     lblAmountWith.FontBold = True
  110. End Sub
  111.