home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / openbank.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  7.7 KB  |  244 lines
  1. VERSION 4.00
  2. Begin VB.Form frmOpen 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Automated Teller Machine (A.T.M.)"
  5.    ClientHeight    =   3768
  6.    ClientLeft      =   1452
  7.    ClientTop       =   2460
  8.    ClientWidth     =   5076
  9.    Height          =   4140
  10.    Icon            =   "OPENBANK.frx":0000
  11.    Left            =   1404
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3768
  16.    ScaleWidth      =   5076
  17.    Top             =   2136
  18.    Width           =   5172
  19.    Begin VB.Frame Label2 
  20.       Caption         =   "Please select a language:"
  21.       Height          =   2175
  22.       Left            =   240
  23.       TabIndex        =   10
  24.       Top             =   1320
  25.       Width           =   4575
  26.       Begin VB.CommandButton Command1 
  27.          Caption         =   "English"
  28.          Height          =   375
  29.          Left            =   840
  30.          TabIndex        =   0
  31.          Top             =   480
  32.          Width           =   1095
  33.       End
  34.       Begin VB.CommandButton Command2 
  35.          Caption         =   "Fran
  36.          Height          =   375
  37.          Left            =   840
  38.          TabIndex        =   1
  39.          Top             =   960
  40.          Width           =   1095
  41.       End
  42.       Begin VB.CommandButton Command3 
  43.          Caption         =   "Deutsch"
  44.          Height          =   375
  45.          Left            =   840
  46.          TabIndex        =   2
  47.          Top             =   1440
  48.          Width           =   1095
  49.       End
  50.       Begin VB.CommandButton Command4 
  51.          Caption         =   "Italiano"
  52.          Height          =   375
  53.          Left            =   3000
  54.          TabIndex        =   3
  55.          Top             =   480
  56.          Width           =   1095
  57.       End
  58.       Begin VB.CommandButton Command5 
  59.          Caption         =   "Espa
  60.          Height          =   375
  61.          Left            =   3000
  62.          TabIndex        =   4
  63.          Top             =   960
  64.          Width           =   1095
  65.       End
  66.       Begin VB.CommandButton Command6 
  67.          Caption         =   "Japan"
  68.          Height          =   375
  69.          Left            =   3000
  70.          TabIndex        =   5
  71.          Top             =   1440
  72.          Visible         =   0   'False
  73.          Width           =   1095
  74.       End
  75.       Begin VB.Image Image 
  76.          Height          =   375
  77.          Index           =   0
  78.          Left            =   360
  79.          Picture         =   "OPENBANK.frx":000C
  80.          Stretch         =   -1  'True
  81.          Top             =   480
  82.          Width           =   375
  83.       End
  84.       Begin VB.Image Image 
  85.          Height          =   375
  86.          Index           =   1
  87.          Left            =   360
  88.          Picture         =   "OPENBANK.frx":0316
  89.          Stretch         =   -1  'True
  90.          Top             =   960
  91.          Width           =   375
  92.       End
  93.       Begin VB.Image Image 
  94.          Height          =   375
  95.          Index           =   2
  96.          Left            =   360
  97.          Picture         =   "OPENBANK.frx":0620
  98.          Stretch         =   -1  'True
  99.          Top             =   1440
  100.          Width           =   375
  101.       End
  102.       Begin VB.Image Image 
  103.          Height          =   375
  104.          Index           =   3
  105.          Left            =   2520
  106.          Picture         =   "OPENBANK.frx":092A
  107.          Stretch         =   -1  'True
  108.          Top             =   480
  109.          Width           =   375
  110.       End
  111.       Begin VB.Image Image 
  112.          Height          =   375
  113.          Index           =   4
  114.          Left            =   2520
  115.          Picture         =   "OPENBANK.frx":0C34
  116.          Stretch         =   -1  'True
  117.          Top             =   960
  118.          Width           =   375
  119.       End
  120.       Begin VB.Image Image 
  121.          Height          =   375
  122.          Index           =   5
  123.          Left            =   2520
  124.          Picture         =   "OPENBANK.frx":0F3E
  125.          Stretch         =   -1  'True
  126.          Top             =   1440
  127.          Visible         =   0   'False
  128.          Width           =   375
  129.       End
  130.    End
  131.    Begin VB.Label Label5 
  132.       Alignment       =   2  'Center
  133.       Caption         =   """Custom service around the world"""
  134.       BeginProperty Font 
  135.          name            =   "MS Sans Serif"
  136.          charset         =   0
  137.          weight          =   700
  138.          size            =   9.6
  139.          underline       =   0   'False
  140.          italic          =   0   'False
  141.          strikethrough   =   0   'False
  142.       EndProperty
  143.       Height          =   240
  144.       Left            =   135
  145.       TabIndex        =   9
  146.       Top             =   840
  147.       Width           =   4700
  148.    End
  149.    Begin VB.Label Label4 
  150.       Alignment       =   2  'Center
  151.       Caption         =   "Automated Teller Machine"
  152.       BeginProperty Font 
  153.          name            =   "MS Sans Serif"
  154.          charset         =   0
  155.          weight          =   700
  156.          size            =   9.6
  157.          underline       =   0   'False
  158.          italic          =   0   'False
  159.          strikethrough   =   0   'False
  160.       EndProperty
  161.       Height          =   240
  162.       Left            =   135
  163.       TabIndex        =   8
  164.       Top             =   600
  165.       Width           =   4700
  166.    End
  167.    Begin VB.Label Label3 
  168.       Alignment       =   2  'Center
  169.       Caption         =   "Welcome to the "
  170.       BeginProperty Font 
  171.          name            =   "MS Sans Serif"
  172.          charset         =   0
  173.          weight          =   700
  174.          size            =   9.6
  175.          underline       =   0   'False
  176.          italic          =   0   'False
  177.          strikethrough   =   0   'False
  178.       EndProperty
  179.       Height          =   240
  180.       Left            =   135
  181.       TabIndex        =   7
  182.       Top             =   120
  183.       Width           =   4700
  184.    End
  185.    Begin VB.Label Label1 
  186.       Alignment       =   2  'Center
  187.       Caption         =   "WORLD TRAVELER BANK"
  188.       BeginProperty Font 
  189.          name            =   "MS Sans Serif"
  190.          charset         =   0
  191.          weight          =   700
  192.          size            =   9.6
  193.          underline       =   0   'False
  194.          italic          =   0   'False
  195.          strikethrough   =   0   'False
  196.       EndProperty
  197.       Height          =   240
  198.       Left            =   135
  199.       TabIndex        =   6
  200.       Top             =   360
  201.       Width           =   4700
  202.    End
  203. Attribute VB_Name = "frmOpen"
  204. Attribute VB_Creatable = False
  205. Attribute VB_Exposed = False
  206. ' Each command button represents a language. If the user chooses English, the application
  207. ' will load arguments with ID numbers from 16 to 47.
  208. Sub command1_click()
  209.     i = 16              ' User chose English.
  210.     frmInput.Show 1
  211. End Sub
  212. Sub Command2_Click()
  213.     i = 48              ' User chose French.
  214.     frmInput.Show 1
  215. End Sub
  216. Sub Command3_Click()
  217.     i = 80              ' User chose German.
  218.     frmInput.Show 1
  219. End Sub
  220. Sub Command4_Click()
  221.     i = 112              ' User chose Italian.
  222.     frmInput.Show 1
  223. End Sub
  224. Sub Command5_Click()
  225.     i = 144              ' User chose Spanish.
  226.     frmInput.Show 1
  227. End Sub
  228. Sub Command6_Click()     ' Japanese is only available on DBCS systems
  229.     i = 176              ' User chose Japanese.
  230.     frmInput.Show 1
  231. End Sub
  232. Private Sub Form_Load()
  233.     ' Initialize the currency conversion table.
  234.     ConversionTable_Initialize
  235.     ' Initialize the mouse icon cursor for the button.
  236.     Cursor_Initialize
  237.     SetCursor Command1
  238.     SetCursor Command2
  239.     SetCursor Command3
  240.     SetCursor Command4
  241.     SetCursor Command5
  242.     SetCursor Command6
  243. End Sub
  244.