home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / PGUIDE / ATM / OPENBANK.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-02-03  |  7.4 KB  |  242 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOpen 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "
  5.  (A.T.M.)"
  6.    ClientHeight    =   3765
  7.    ClientLeft      =   1455
  8.    ClientTop       =   2460
  9.    ClientWidth     =   5070
  10.    Icon            =   "openbank.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3765
  15.    ScaleWidth      =   5070
  16.    Begin VB.Frame Label2 
  17.       Caption         =   "
  18.       Height          =   2175
  19.       Left            =   240
  20.       TabIndex        =   10
  21.       Top             =   1320
  22.       Width           =   4575
  23.       Begin VB.CommandButton Command1 
  24.          Caption         =   "English"
  25.          Height          =   375
  26.          Left            =   840
  27.          TabIndex        =   0
  28.          Top             =   480
  29.          Width           =   1095
  30.       End
  31.       Begin VB.CommandButton Command2 
  32.          Caption         =   "Fran
  33.          Height          =   375
  34.          Left            =   840
  35.          TabIndex        =   1
  36.          Top             =   960
  37.          Width           =   1095
  38.       End
  39.       Begin VB.CommandButton Command3 
  40.          Caption         =   "Deutsch"
  41.          Height          =   375
  42.          Left            =   840
  43.          TabIndex        =   2
  44.          Top             =   1440
  45.          Width           =   1095
  46.       End
  47.       Begin VB.CommandButton Command4 
  48.          Caption         =   "Italiano"
  49.          Height          =   375
  50.          Left            =   3000
  51.          TabIndex        =   3
  52.          Top             =   480
  53.          Width           =   1095
  54.       End
  55.       Begin VB.CommandButton Command5 
  56.          Caption         =   "Espa
  57.          Height          =   375
  58.          Left            =   3000
  59.          TabIndex        =   4
  60.          Top             =   960
  61.          Width           =   1095
  62.       End
  63.       Begin VB.CommandButton Command6 
  64.          Caption         =   "
  65.          Height          =   375
  66.          Left            =   3000
  67.          TabIndex        =   5
  68.          Top             =   1440
  69.          Width           =   1095
  70.       End
  71.       Begin VB.Image Image 
  72.          Height          =   375
  73.          Index           =   0
  74.          Left            =   360
  75.          Picture         =   "openbank.frx":000C
  76.          Stretch         =   -1  'True
  77.          Top             =   480
  78.          Width           =   375
  79.       End
  80.       Begin VB.Image Image 
  81.          Height          =   375
  82.          Index           =   1
  83.          Left            =   360
  84.          Picture         =   "openbank.frx":0316
  85.          Stretch         =   -1  'True
  86.          Top             =   960
  87.          Width           =   375
  88.       End
  89.       Begin VB.Image Image 
  90.          Height          =   375
  91.          Index           =   2
  92.          Left            =   360
  93.          Picture         =   "openbank.frx":0620
  94.          Stretch         =   -1  'True
  95.          Top             =   1440
  96.          Width           =   375
  97.       End
  98.       Begin VB.Image Image 
  99.          Height          =   375
  100.          Index           =   3
  101.          Left            =   2520
  102.          Picture         =   "openbank.frx":092A
  103.          Stretch         =   -1  'True
  104.          Top             =   480
  105.          Width           =   375
  106.       End
  107.       Begin VB.Image Image 
  108.          Height          =   375
  109.          Index           =   4
  110.          Left            =   2520
  111.          Picture         =   "openbank.frx":0C34
  112.          Stretch         =   -1  'True
  113.          Top             =   960
  114.          Width           =   375
  115.       End
  116.       Begin VB.Image Image 
  117.          Height          =   375
  118.          Index           =   5
  119.          Left            =   2520
  120.          Picture         =   "openbank.frx":0F3E
  121.          Stretch         =   -1  'True
  122.          Top             =   1440
  123.          Width           =   375
  124.       End
  125.    End
  126.    Begin VB.Label Label5 
  127.       Alignment       =   2  'Center
  128.       Caption         =   """
  129.       BeginProperty Font 
  130.          Name            =   "
  131.          Size            =   9.75
  132.          Charset         =   134
  133.          Weight          =   700
  134.          Underline       =   0   'False
  135.          Italic          =   0   'False
  136.          Strikethrough   =   0   'False
  137.       EndProperty
  138.       Height          =   240
  139.       Left            =   135
  140.       TabIndex        =   9
  141.       Top             =   840
  142.       Width           =   4700
  143.    End
  144.    Begin VB.Label Label4 
  145.       Alignment       =   2  'Center
  146.       Caption         =   "
  147.       BeginProperty Font 
  148.          Name            =   "
  149.          Size            =   9.75
  150.          Charset         =   134
  151.          Weight          =   700
  152.          Underline       =   0   'False
  153.          Italic          =   0   'False
  154.          Strikethrough   =   0   'False
  155.       EndProperty
  156.       Height          =   240
  157.       Left            =   135
  158.       TabIndex        =   8
  159.       Top             =   600
  160.       Width           =   4700
  161.    End
  162.    Begin VB.Label Label3 
  163.       Alignment       =   2  'Center
  164.       Caption         =   "
  165.       BeginProperty Font 
  166.          Name            =   "
  167.          Size            =   9.75
  168.          Charset         =   134
  169.          Weight          =   700
  170.          Underline       =   0   'False
  171.          Italic          =   0   'False
  172.          Strikethrough   =   0   'False
  173.       EndProperty
  174.       Height          =   240
  175.       Left            =   135
  176.       TabIndex        =   7
  177.       Top             =   120
  178.       Width           =   4700
  179.    End
  180.    Begin VB.Label Label1 
  181.       Alignment       =   2  'Center
  182.       Caption         =   "
  183.       BeginProperty Font 
  184.          Name            =   "
  185.          Size            =   9.75
  186.          Charset         =   134
  187.          Weight          =   700
  188.          Underline       =   0   'False
  189.          Italic          =   0   'False
  190.          Strikethrough   =   0   'False
  191.       EndProperty
  192.       Height          =   240
  193.       Left            =   135
  194.       TabIndex        =   6
  195.       Top             =   360
  196.       Width           =   4700
  197.    End
  198. Attribute VB_Name = "frmOpen"
  199. Attribute VB_GlobalNameSpace = False
  200. Attribute VB_Creatable = False
  201. Attribute VB_PredeclaredId = True
  202. Attribute VB_Exposed = False
  203. Sub command1_click()
  204.     i = 16              ' 
  205.     frmInput.Show 1
  206. End Sub
  207. Sub Command2_Click()
  208.     i = 48              ' 
  209.     frmInput.Show 1
  210. End Sub
  211. Sub Command3_Click()
  212.     i = 80              ' 
  213.     frmInput.Show 1
  214. End Sub
  215. Sub Command4_Click()
  216.     i = 112              ' 
  217.     frmInput.Show 1
  218. End Sub
  219. Sub Command5_Click()
  220.     i = 144              ' 
  221.     frmInput.Show 1
  222. End Sub
  223. Sub Command6_Click()     ' 
  224.  DBCS 
  225.     i = 176              ' 
  226.     frmInput.Show 1
  227. End Sub
  228. Private Sub Form_Load()
  229.     ' 
  230.     ConversionTable_Initialize
  231.     ' 
  232.     Cursor_Initialize
  233.     SetCursor Command1
  234.     SetCursor Command2
  235.     SetCursor Command3
  236.     SetCursor Command4
  237.     SetCursor Command5
  238.     SetCursor Command6
  239. End Sub
  240. Private Sub Label4_Click()
  241. End Sub
  242.