home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 April / PCWorld_1999-04_cd.bin / Software / Vyzkuste / BegVisB / BeginVBSW / BVBProjects / VB6Projects / Sample.Frm (.txt) < prev    next >
Visual Basic Form  |  1999-01-26  |  16KB  |  489 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSample 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Beginning Visual Basic - Sample"
  5.    ClientHeight    =   5100
  6.    ClientLeft      =   645
  7.    ClientTop       =   1020
  8.    ClientWidth     =   7035
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   5100
  14.    ScaleWidth      =   7035
  15.    Begin VB.Frame fraColor 
  16.       Caption         =   "Color"
  17.       BeginProperty Font 
  18.          Name            =   "MS Sans Serif"
  19.          Size            =   9.75
  20.          Charset         =   0
  21.          Weight          =   700
  22.          Underline       =   0   'False
  23.          Italic          =   0   'False
  24.          Strikethrough   =   0   'False
  25.       EndProperty
  26.       Height          =   1095
  27.       Left            =   2760
  28.       TabIndex        =   0
  29.       Top             =   2760
  30.       Width           =   2775
  31.       Begin VB.OptionButton optBlack 
  32.          Caption         =   "Black"
  33.          BeginProperty Font 
  34.             Name            =   "MS Sans Serif"
  35.             Size            =   9.75
  36.             Charset         =   0
  37.             Weight          =   400
  38.             Underline       =   0   'False
  39.             Italic          =   0   'False
  40.             Strikethrough   =   0   'False
  41.          EndProperty
  42.          Height          =   375
  43.          Left            =   1440
  44.          TabIndex        =   4
  45.          Top             =   600
  46.          Width           =   1215
  47.       End
  48.       Begin VB.OptionButton optGreen 
  49.          Caption         =   "Green"
  50.          BeginProperty Font 
  51.             Name            =   "MS Sans Serif"
  52.             Size            =   9.75
  53.             Charset         =   0
  54.             Weight          =   400
  55.             Underline       =   0   'False
  56.             Italic          =   0   'False
  57.             Strikethrough   =   0   'False
  58.          EndProperty
  59.          Height          =   375
  60.          Left            =   1440
  61.          TabIndex        =   3
  62.          Top             =   240
  63.          Width           =   1215
  64.       End
  65.       Begin VB.OptionButton optRed 
  66.          Caption         =   "Red"
  67.          BeginProperty Font 
  68.             Name            =   "MS Sans Serif"
  69.             Size            =   9.75
  70.             Charset         =   0
  71.             Weight          =   400
  72.             Underline       =   0   'False
  73.             Italic          =   0   'False
  74.             Strikethrough   =   0   'False
  75.          EndProperty
  76.          Height          =   375
  77.          Left            =   240
  78.          TabIndex        =   2
  79.          Top             =   600
  80.          Width           =   1215
  81.       End
  82.       Begin VB.OptionButton optBlue 
  83.          Caption         =   "Blue"
  84.          BeginProperty Font 
  85.             Name            =   "MS Sans Serif"
  86.             Size            =   9.75
  87.             Charset         =   0
  88.             Weight          =   400
  89.             Underline       =   0   'False
  90.             Italic          =   0   'False
  91.             Strikethrough   =   0   'False
  92.          EndProperty
  93.          Height          =   375
  94.          Left            =   240
  95.          TabIndex        =   1
  96.          Top             =   240
  97.          Width           =   1215
  98.       End
  99.    End
  100.    Begin VB.CommandButton cmdBall 
  101.       Caption         =   "Start"
  102.       BeginProperty Font 
  103.          Name            =   "MS Sans Serif"
  104.          Size            =   9.75
  105.          Charset         =   0
  106.          Weight          =   400
  107.          Underline       =   0   'False
  108.          Italic          =   0   'False
  109.          Strikethrough   =   0   'False
  110.       EndProperty
  111.       Height          =   495
  112.       Left            =   6120
  113.       TabIndex        =   18
  114.       Top             =   4560
  115.       Width           =   735
  116.    End
  117.    Begin VB.Timer timBall 
  118.       Enabled         =   0   'False
  119.       Interval        =   100
  120.       Left            =   3840
  121.       Top             =   4680
  122.    End
  123.    Begin VB.PictureBox picBall 
  124.       BackColor       =   &H0000FFFF&
  125.       Height          =   4335
  126.       Left            =   6120
  127.       ScaleHeight     =   4275
  128.       ScaleWidth      =   675
  129.       TabIndex        =   17
  130.       Top             =   120
  131.       Width           =   735
  132.       Begin VB.Shape shpBall 
  133.          BackColor       =   &H000000FF&
  134.          BackStyle       =   1  'Opaque
  135.          FillColor       =   &H00FF0000&
  136.          FillStyle       =   7  'Diagonal Cross
  137.          Height          =   495
  138.          Left            =   120
  139.          Shape           =   3  'Circle
  140.          Top             =   1560
  141.          Width           =   495
  142.       End
  143.    End
  144.    Begin VB.Frame fraPick 
  145.       Caption         =   "Pick a Number"
  146.       BeginProperty Font 
  147.          Name            =   "MS Sans Serif"
  148.          Size            =   9.75
  149.          Charset         =   0
  150.          Weight          =   700
  151.          Underline       =   0   'False
  152.          Italic          =   0   'False
  153.          Strikethrough   =   0   'False
  154.       EndProperty
  155.       Height          =   1095
  156.       Left            =   120
  157.       TabIndex        =   13
  158.       Top             =   2760
  159.       Width           =   1815
  160.       Begin VB.HScrollBar hsbPick 
  161.          Height          =   255
  162.          LargeChange     =   10
  163.          Left            =   360
  164.          Max             =   100
  165.          TabIndex        =   15
  166.          Top             =   720
  167.          Width           =   1095
  168.       End
  169.       Begin VB.Label lblPick 
  170.          Alignment       =   2  'Center
  171.          BackColor       =   &H00FFFFFF&
  172.          BorderStyle     =   1  'Fixed Single
  173.          Caption         =   "0"
  174.          BeginProperty Font 
  175.             Name            =   "MS Sans Serif"
  176.             Size            =   12
  177.             Charset         =   0
  178.             Weight          =   400
  179.             Underline       =   0   'False
  180.             Italic          =   0   'False
  181.             Strikethrough   =   0   'False
  182.          EndProperty
  183.          Height          =   375
  184.          Left            =   360
  185.          TabIndex        =   14
  186.          Top             =   360
  187.          Width           =   1095
  188.       End
  189.    End
  190.    Begin VB.Frame fraStuff 
  191.       Caption         =   "Stuff"
  192.       BeginProperty Font 
  193.          Name            =   "MS Sans Serif"
  194.          Size            =   9.75
  195.          Charset         =   0
  196.          Weight          =   700
  197.          Underline       =   0   'False
  198.          Italic          =   0   'False
  199.          Strikethrough   =   0   'False
  200.       EndProperty
  201.       Height          =   2535
  202.       Left            =   120
  203.       TabIndex        =   7
  204.       Top             =   120
  205.       Width           =   1575
  206.       Begin VB.CheckBox chkCard 
  207.          Caption         =   "Card"
  208.          BeginProperty Font 
  209.             Name            =   "MS Sans Serif"
  210.             Size            =   9.75
  211.             Charset         =   0
  212.             Weight          =   400
  213.             Underline       =   0   'False
  214.             Italic          =   0   'False
  215.             Strikethrough   =   0   'False
  216.          EndProperty
  217.          Height          =   375
  218.          Left            =   120
  219.          TabIndex        =   16
  220.          Top             =   1320
  221.          Width           =   1095
  222.       End
  223.       Begin VB.CheckBox chkFootball 
  224.          Caption         =   "Football"
  225.          BeginProperty Font 
  226.             Name            =   "MS Sans Serif"
  227.             Size            =   9.75
  228.             Charset         =   0
  229.             Weight          =   400
  230.             Underline       =   0   'False
  231.             Italic          =   0   'False
  232.             Strikethrough   =   0   'False
  233.          EndProperty
  234.          Height          =   375
  235.          Left            =   120
  236.          TabIndex        =   12
  237.          Top             =   2040
  238.          Width           =   1095
  239.       End
  240.       Begin VB.CheckBox chkBaseball 
  241.          Caption         =   "Baseball"
  242.          BeginProperty Font 
  243.             Name            =   "MS Sans Serif"
  244.             Size            =   9.75
  245.             Charset         =   0
  246.             Weight          =   400
  247.             Underline       =   0   'False
  248.             Italic          =   0   'False
  249.             Strikethrough   =   0   'False
  250.          EndProperty
  251.          Height          =   375
  252.          Left            =   120
  253.          TabIndex        =   11
  254.          Top             =   1680
  255.          Width           =   1335
  256.       End
  257.       Begin VB.CheckBox chkHouse 
  258.          Caption         =   "House"
  259.          BeginProperty Font 
  260.             Name            =   "MS Sans Serif"
  261.             Size            =   9.75
  262.             Charset         =   0
  263.             Weight          =   400
  264.             Underline       =   0   'False
  265.             Italic          =   0   'False
  266.             Strikethrough   =   0   'False
  267.          EndProperty
  268.          Height          =   375
  269.          Left            =   120
  270.          TabIndex        =   10
  271.          Top             =   960
  272.          Width           =   1095
  273.       End
  274.       Begin VB.CheckBox chkTruck 
  275.          Caption         =   "Truck"
  276.          BeginProperty Font 
  277.             Name            =   "MS Sans Serif"
  278.             Size            =   9.75
  279.             Charset         =   0
  280.             Weight          =   400
  281.             Underline       =   0   'False
  282.             Italic          =   0   'False
  283.             Strikethrough   =   0   'False
  284.          EndProperty
  285.          Height          =   375
  286.          Left            =   120
  287.          TabIndex        =   9
  288.          Top             =   600
  289.          Width           =   1095
  290.       End
  291.       Begin VB.CheckBox chkCar 
  292.          Caption         =   "Car"
  293.          BeginProperty Font 
  294.             Name            =   "MS Sans Serif"
  295.             Size            =   9.75
  296.             Charset         =   0
  297.             Weight          =   400
  298.             Underline       =   0   'False
  299.             Italic          =   0   'False
  300.             Strikethrough   =   0   'False
  301.          EndProperty
  302.          Height          =   375
  303.          Left            =   120
  304.          TabIndex        =   8
  305.          Top             =   240
  306.          Width           =   1095
  307.       End
  308.    End
  309.    Begin VB.TextBox txtBox 
  310.       BeginProperty Font 
  311.          Name            =   "MS Sans Serif"
  312.          Size            =   9.75
  313.          Charset         =   0
  314.          Weight          =   400
  315.          Underline       =   0   'False
  316.          Italic          =   0   'False
  317.          Strikethrough   =   0   'False
  318.       EndProperty
  319.       Height          =   1095
  320.       Left            =   120
  321.       MultiLine       =   -1  'True
  322.       ScrollBars      =   2  'Vertical
  323.       TabIndex        =   6
  324.       Top             =   3960
  325.       Width           =   2775
  326.    End
  327.    Begin VB.CommandButton cmdBeep 
  328.       Caption         =   "Beep!"
  329.       BeginProperty Font 
  330.          Name            =   "Arial"
  331.          Size            =   12
  332.          Charset         =   0
  333.          Weight          =   700
  334.          Underline       =   0   'False
  335.          Italic          =   0   'False
  336.          Strikethrough   =   0   'False
  337.       EndProperty
  338.       Height          =   495
  339.       Left            =   3960
  340.       TabIndex        =   5
  341.       Top             =   4080
  342.       Width           =   975
  343.    End
  344.    Begin VB.Image imgFootball 
  345.       Height          =   1095
  346.       Left            =   4680
  347.       Picture         =   "Sample.frx":0000
  348.       Stretch         =   -1  'True
  349.       Top             =   1560
  350.       Visible         =   0   'False
  351.       Width           =   1335
  352.    End
  353.    Begin VB.Image imgBaseball 
  354.       Height          =   1095
  355.       Left            =   3240
  356.       Picture         =   "Sample.frx":08A2
  357.       Stretch         =   -1  'True
  358.       Top             =   1560
  359.       Visible         =   0   'False
  360.       Width           =   1335
  361.    End
  362.    Begin VB.Image imgTruck 
  363.       Height          =   1095
  364.       Left            =   3240
  365.       Picture         =   "Sample.frx":1AA4
  366.       Stretch         =   -1  'True
  367.       Top             =   240
  368.       Visible         =   0   'False
  369.       Width           =   1335
  370.    End
  371.    Begin VB.Image imgCard 
  372.       Height          =   1095
  373.       Left            =   1800
  374.       Picture         =   "Sample.frx":3AE6
  375.       Stretch         =   -1  'True
  376.       Top             =   1560
  377.       Visible         =   0   'False
  378.       Width           =   1335
  379.    End
  380.    Begin VB.Image imgHouse 
  381.       Height          =   1095
  382.       Left            =   4680
  383.       Picture         =   "Sample.frx":4888
  384.       Stretch         =   -1  'True
  385.       Top             =   240
  386.       Visible         =   0   'False
  387.       Width           =   1335
  388.    End
  389.    Begin VB.Image imgCar 
  390.       Height          =   1095
  391.       Left            =   1800
  392.       Picture         =   "Sample.frx":4F2A
  393.       Stretch         =   -1  'True
  394.       Top             =   240
  395.       Visible         =   0   'False
  396.       Width           =   1335
  397.    End
  398. Attribute VB_Name = "frmSample"
  399. Attribute VB_GlobalNameSpace = False
  400. Attribute VB_Creatable = False
  401. Attribute VB_PredeclaredId = True
  402. Attribute VB_Exposed = False
  403. Option Explicit
  404. Dim BallY As Integer, BallDir As Integer
  405. Private Sub chkBaseball_Click()
  406. If chkBaseball.Value = vbChecked Then
  407.   imgBaseball.Visible = True
  408.   imgBaseball.Visible = False
  409. End If
  410. End Sub
  411. Private Sub chkCar_Click()
  412. If chkCar.Value = vbChecked Then
  413.   imgcar.Visible = True
  414.   imgcar.Visible = False
  415. End If
  416. End Sub
  417. Private Sub chkCard_Click()
  418. If chkCard.Value = vbChecked Then
  419.   imgCard.Visible = True
  420.   imgCard.Visible = False
  421. End If
  422. End Sub
  423. Private Sub chkFootball_Click()
  424. If chkFootball.Value = vbChecked Then
  425.   imgFootball.Visible = True
  426.   imgFootball.Visible = False
  427. End If
  428. End Sub
  429. Private Sub chkHouse_Click()
  430. If chkHouse.Value = vbChecked Then
  431.   imgHouse.Visible = True
  432.   imgHouse.Visible = False
  433. End If
  434. End Sub
  435. Private Sub chkTruck_Click()
  436. If chkTruck.Value = vbChecked Then
  437.   imgTruck.Visible = True
  438.   imgTruck.Visible = False
  439. End If
  440. End Sub
  441. Private Sub cmdBall_Click()
  442. If timBall.Enabled = True Then
  443.   timBall.Enabled = False
  444.   cmdBall.Caption = "Start"
  445.   timBall.Enabled = True
  446.   cmdBall.Caption = "Stop"
  447. End If
  448. End Sub
  449. Private Sub cmdBeep_Click()
  450. End Sub
  451. Private Sub Form_Load()
  452. optBlue.Value = True
  453. frmSample.BackColor = vbBlue
  454. BallY = picBall.ScaleHeight - shpBall.Height
  455. shpBall.Top = BallY
  456. BallDir = -1
  457. End Sub
  458. Private Sub hsbPick_Change()
  459. lblPick.Caption = Str(hsbPick.Value)
  460. End Sub
  461. Private Sub hsbPick_Scroll()
  462. lblPick.Caption = Str(hsbPick.Value)
  463. End Sub
  464. Private Sub optBlack_Click()
  465. frmSample.BackColor = vbBlack
  466. End Sub
  467. Private Sub optBlue_Click()
  468. frmSample.BackColor = vbBlue
  469. End Sub
  470. Private Sub optGreen_Click()
  471. frmSample.BackColor = vbGreen
  472. End Sub
  473. Private Sub optRed_Click()
  474. frmSample.BackColor = vbRed
  475. End Sub
  476. Private Sub timBall_Timer()
  477. BallY = BallY + BallDir * picBall.ScaleHeight / 50
  478. If BallY < 0 Then
  479.   Beep
  480.   BallY = 0
  481.   BallDir = 1
  482. ElseIf BallY > picBall.ScaleHeight - shpBall.Height Then
  483.   Beep
  484.   BallY = picBall.ScaleHeight - shpBall.Height
  485.   BallDir = -1
  486. End If
  487. shpBall.Top = BallY
  488. End Sub
  489.