home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vegask1a / statsfor.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-02-21  |  9.8 KB  |  295 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.Form statsform 
  4.    AutoRedraw      =   -1  'True
  5.    BackColor       =   &H00FFFFFF&
  6.    Caption         =   "Keno Ticket"
  7.    ClientHeight    =   5025
  8.    ClientLeft      =   4800
  9.    ClientTop       =   4215
  10.    ClientWidth     =   5325
  11.    Icon            =   "statsform.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   5025
  14.    ScaleWidth      =   5325
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin MSComDlg.CommonDialog CommonDialog1 
  18.       Left            =   240
  19.       Top             =   4080
  20.       _ExtentX        =   847
  21.       _ExtentY        =   847
  22.       _Version        =   393216
  23.       CancelError     =   -1  'True
  24.    End
  25.    Begin VB.CommandButton Command2 
  26.       Cancel          =   -1  'True
  27.       Caption         =   "&Cancel"
  28.       Height          =   495
  29.       Left            =   3000
  30.       TabIndex        =   10
  31.       Top             =   4320
  32.       Width           =   1335
  33.    End
  34.    Begin VB.CommandButton Command1 
  35.       Caption         =   "&Print"
  36.       Height          =   495
  37.       Left            =   960
  38.       Style           =   1  'Graphical
  39.       TabIndex        =   9
  40.       ToolTipText     =   "Print Stats Form"
  41.       Top             =   4320
  42.       Width           =   1335
  43.    End
  44.    Begin VB.Frame statsframe 
  45.       BackColor       =   &H00FFFFFF&
  46.       Caption         =   "Keno Stats"
  47.       ForeColor       =   &H000000FF&
  48.       Height          =   2670
  49.       Left            =   120
  50.       TabIndex        =   0
  51.       Top             =   1080
  52.       Width           =   5025
  53.       Begin VB.Label Label4 
  54.          Alignment       =   1  'Right Justify
  55.          BackStyle       =   0  'Transparent
  56.          Caption         =   "Total Bet this game.="
  57.          BeginProperty Font 
  58.             Name            =   "MS Sans Serif"
  59.             Size            =   12
  60.             Charset         =   0
  61.             Weight          =   700
  62.             Underline       =   0   'False
  63.             Italic          =   0   'False
  64.             Strikethrough   =   0   'False
  65.          EndProperty
  66.          ForeColor       =   &H00000000&
  67.          Height          =   270
  68.          Left            =   195
  69.          TabIndex        =   8
  70.          Top             =   825
  71.          Width           =   3615
  72.       End
  73.       Begin VB.Label bet_total 
  74.          BackStyle       =   0  'Transparent
  75.          Caption         =   "0"
  76.          BeginProperty Font 
  77.             Name            =   "MS Sans Serif"
  78.             Size            =   12
  79.             Charset         =   0
  80.             Weight          =   700
  81.             Underline       =   0   'False
  82.             Italic          =   0   'False
  83.             Strikethrough   =   0   'False
  84.          EndProperty
  85.          ForeColor       =   &H000000FF&
  86.          Height          =   240
  87.          Left            =   3885
  88.          TabIndex        =   7
  89.          Top             =   840
  90.          Width           =   735
  91.       End
  92.       Begin VB.Label payrate 
  93.          Alignment       =   2  'Center
  94.          AutoSize        =   -1  'True
  95.          BackStyle       =   0  'Transparent
  96.          BeginProperty Font 
  97.             Name            =   "MS Sans Serif"
  98.             Size            =   13.5
  99.             Charset         =   0
  100.             Weight          =   700
  101.             Underline       =   0   'False
  102.             Italic          =   0   'False
  103.             Strikethrough   =   0   'False
  104.          EndProperty
  105.          ForeColor       =   &H00FF0000&
  106.          Height          =   360
  107.          Left            =   3120
  108.          TabIndex        =   6
  109.          Top             =   330
  110.          Width           =   135
  111.       End
  112.       Begin VB.Label Label6 
  113.          Alignment       =   1  'Right Justify
  114.          BackStyle       =   0  'Transparent
  115.          Caption         =   "Your Return"
  116.          BeginProperty Font 
  117.             Name            =   "MS Sans Serif"
  118.             Size            =   13.5
  119.             Charset         =   0
  120.             Weight          =   700
  121.             Underline       =   0   'False
  122.             Italic          =   0   'False
  123.             Strikethrough   =   0   'False
  124.          EndProperty
  125.          ForeColor       =   &H00000000&
  126.          Height          =   465
  127.          Left            =   435
  128.          TabIndex        =   5
  129.          Top             =   315
  130.          Width           =   1980
  131.       End
  132.       Begin VB.Label Label2 
  133.          Alignment       =   1  'Right Justify
  134.          BackStyle       =   0  'Transparent
  135.          Caption         =   "Total Deals.="
  136.          BeginProperty Font 
  137.             Name            =   "MS Sans Serif"
  138.             Size            =   12
  139.             Charset         =   0
  140.             Weight          =   700
  141.             Underline       =   0   'False
  142.             Italic          =   0   'False
  143.             Strikethrough   =   0   'False
  144.          EndProperty
  145.          ForeColor       =   &H00000000&
  146.          Height          =   270
  147.          Left            =   -30
  148.          TabIndex        =   4
  149.          Top             =   1995
  150.          Width           =   3840
  151.       End
  152.       Begin VB.Label deals_label 
  153.          BackStyle       =   0  'Transparent
  154.          Caption         =   "0"
  155.          BeginProperty Font 
  156.             Name            =   "MS Sans Serif"
  157.             Size            =   12
  158.             Charset         =   0
  159.             Weight          =   700
  160.             Underline       =   0   'False
  161.             Italic          =   0   'False
  162.             Strikethrough   =   0   'False
  163.          EndProperty
  164.          ForeColor       =   &H000000FF&
  165.          Height          =   240
  166.          Left            =   3885
  167.          TabIndex        =   3
  168.          Top             =   2010
  169.          Width           =   735
  170.       End
  171.       Begin VB.Label Label5 
  172.          Alignment       =   1  'Right Justify
  173.          BackStyle       =   0  'Transparent
  174.          Caption         =   "Total Credits won this game.="
  175.          BeginProperty Font 
  176.             Name            =   "MS Sans Serif"
  177.             Size            =   12
  178.             Charset         =   0
  179.             Weight          =   700
  180.             Underline       =   0   'False
  181.             Italic          =   0   'False
  182.             Strikethrough   =   0   'False
  183.          EndProperty
  184.          ForeColor       =   &H00000000&
  185.          Height          =   270
  186.          Left            =   -30
  187.          TabIndex        =   2
  188.          Top             =   1410
  189.          Width           =   3840
  190.       End
  191.       Begin VB.Label credits_won 
  192.          BackStyle       =   0  'Transparent
  193.          Caption         =   "0"
  194.          BeginProperty Font 
  195.             Name            =   "MS Sans Serif"
  196.             Size            =   12
  197.             Charset         =   0
  198.             Weight          =   700
  199.             Underline       =   0   'False
  200.             Italic          =   0   'False
  201.             Strikethrough   =   0   'False
  202.          EndProperty
  203.          ForeColor       =   &H000000FF&
  204.          Height          =   240
  205.          Left            =   3885
  206.          TabIndex        =   1
  207.          Top             =   1425
  208.          Width           =   735
  209.       End
  210.    End
  211.    Begin VB.Label namelabel 
  212.       AutoSize        =   -1  'True
  213.       BackStyle       =   0  'Transparent
  214.       Caption         =   "Label3"
  215.       BeginProperty Font 
  216.          Name            =   "MS Sans Serif"
  217.          Size            =   12
  218.          Charset         =   0
  219.          Weight          =   700
  220.          Underline       =   0   'False
  221.          Italic          =   -1  'True
  222.          Strikethrough   =   0   'False
  223.       EndProperty
  224.       Height          =   300
  225.       Left            =   2280
  226.       TabIndex        =   12
  227.       Top             =   285
  228.       Width           =   960
  229.    End
  230.    Begin VB.Label Label1 
  231.       BackStyle       =   0  'Transparent
  232.       Caption         =   "Players Name:"
  233.       BeginProperty Font 
  234.          Name            =   "MS Sans Serif"
  235.          Size            =   13.5
  236.          Charset         =   0
  237.          Weight          =   700
  238.          Underline       =   0   'False
  239.          Italic          =   0   'False
  240.          Strikethrough   =   0   'False
  241.       EndProperty
  242.       Height          =   495
  243.       Left            =   120
  244.       TabIndex        =   11
  245.       Top             =   240
  246.       Width           =   2055
  247.    End
  248.    Begin VB.Menu newplayer 
  249.       Caption         =   "New Player"
  250.    End
  251. Attribute VB_Name = "statsform"
  252. Attribute VB_GlobalNameSpace = False
  253. Attribute VB_Creatable = False
  254. Attribute VB_PredeclaredId = True
  255. Attribute VB_Exposed = False
  256. Private Sub Command1_Click()
  257. Dim BeginPage, EndPage, NumCopies, i
  258.     ' Set Cancel to True
  259.   CommonDialog1.CancelError = True
  260.     On Error GoTo ErrHandler
  261.     ' Display the Print dialog box
  262.    CommonDialog1.ShowPrinter
  263.     ' Get user-selected values from the dialog box
  264.      NumCopies = CommonDialog1.Copies
  265.      For i = 1 To NumCopies
  266.    statsform.PrintForm
  267.     Next i
  268.     Exit Sub
  269. ErrHandler:
  270.     ' User pressed the Cancel button
  271.     Exit Sub
  272. End Sub
  273. Private Sub Command2_Click()
  274. Unload Me
  275. End Sub
  276. Private Sub form_load()
  277. playersname = GetSetting(App.Title, "Options", "playersname", "")
  278. If playersname = "" Then
  279. playersname = InputBox("Please enter Your Name.")
  280. namelabel.Caption = playersname
  281. SaveSetting App.Title, "options", "playersname", playersname
  282. namelabel.Caption = playersname
  283. End If
  284. bet_total.Caption = bettotal
  285. credits_won.Caption = hopperempty
  286. deals_label.Caption = totaldeals
  287. Call Options.returnrate
  288. payrate.Caption = percentagerate
  289. End Sub
  290. Private Sub newplayer_Click()
  291. playersname = InputBox("Please enter Your Name.")
  292. namelabel.Caption = playersname
  293. SaveSetting App.Title, "options", "playersname", playersname
  294. End Sub
  295.