home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / solitaire_1792319112004.psc / Solitaire.frm < prev    next >
Text File  |  2004-09-11  |  23KB  |  780 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "solitaire 13"
  4.    ClientHeight    =   7305
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   8175
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   7305
  10.    ScaleWidth      =   8175
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command1 
  13.       Caption         =   "New game"
  14.       BeginProperty Font 
  15.          Name            =   "Tahoma"
  16.          Size            =   8.25
  17.          Charset         =   0
  18.          Weight          =   700
  19.          Underline       =   0   'False
  20.          Italic          =   0   'False
  21.          Strikethrough   =   0   'False
  22.       EndProperty
  23.       Height          =   495
  24.       Left            =   0
  25.       TabIndex        =   5
  26.       Top             =   840
  27.       Width           =   1335
  28.    End
  29.    Begin VB.ListBox List1 
  30.       BeginProperty Font 
  31.          Name            =   "Tahoma"
  32.          Size            =   8.25
  33.          Charset         =   0
  34.          Weight          =   400
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       Height          =   1620
  40.       Left            =   1560
  41.       TabIndex        =   0
  42.       Top             =   4440
  43.       Visible         =   0   'False
  44.       Width           =   1095
  45.    End
  46.    Begin VB.Label Label4 
  47.       Caption         =   "score:"
  48.       BeginProperty Font 
  49.          Name            =   "Tahoma"
  50.          Size            =   15.75
  51.          Charset         =   0
  52.          Weight          =   700
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   495
  58.       Left            =   0
  59.       TabIndex        =   4
  60.       Top             =   0
  61.       Width           =   1215
  62.    End
  63.    Begin VB.Label Label3 
  64.       Caption         =   "0"
  65.       BeginProperty Font 
  66.          Name            =   "Tahoma"
  67.          Size            =   15.75
  68.          Charset         =   0
  69.          Weight          =   700
  70.          Underline       =   0   'False
  71.          Italic          =   0   'False
  72.          Strikethrough   =   0   'False
  73.       EndProperty
  74.       Height          =   495
  75.       Left            =   1320
  76.       TabIndex        =   3
  77.       Top             =   0
  78.       Width           =   855
  79.    End
  80.    Begin VB.Image Image3 
  81.       Height          =   1455
  82.       Left            =   120
  83.       Top             =   5400
  84.       Width           =   1095
  85.    End
  86.    Begin VB.Image Image2 
  87.       Height          =   1455
  88.       Left            =   6840
  89.       Top             =   120
  90.       Width           =   1095
  91.    End
  92.    Begin VB.Label Label2 
  93.       Caption         =   "pile"
  94.       BeginProperty Font 
  95.          Name            =   "Tahoma"
  96.          Size            =   8.25
  97.          Charset         =   0
  98.          Weight          =   400
  99.          Underline       =   0   'False
  100.          Italic          =   0   'False
  101.          Strikethrough   =   0   'False
  102.       EndProperty
  103.       Height          =   255
  104.       Left            =   120
  105.       TabIndex        =   2
  106.       Top             =   6960
  107.       Width           =   1095
  108.    End
  109.    Begin VB.Label Label1 
  110.       Caption         =   "garbage"
  111.       BeginProperty Font 
  112.          Name            =   "Tahoma"
  113.          Size            =   8.25
  114.          Charset         =   0
  115.          Weight          =   400
  116.          Underline       =   0   'False
  117.          Italic          =   0   'False
  118.          Strikethrough   =   0   'False
  119.       EndProperty
  120.       Height          =   255
  121.       Left            =   7080
  122.       TabIndex        =   1
  123.       Top             =   1560
  124.       Width           =   1095
  125.    End
  126.    Begin VB.Image Image1 
  127.       Height          =   1440
  128.       Index           =   51
  129.       Left            =   5640
  130.       OLEDragMode     =   1  'Automatic
  131.       OLEDropMode     =   1  'Manual
  132.       Top             =   5400
  133.       Width           =   1065
  134.    End
  135.    Begin VB.Image Image1 
  136.       Height          =   1440
  137.       Index           =   50
  138.       Left            =   4440
  139.       OLEDragMode     =   1  'Automatic
  140.       OLEDropMode     =   1  'Manual
  141.       Top             =   5400
  142.       Width           =   1065
  143.    End
  144.    Begin VB.Image Image1 
  145.       Height          =   1440
  146.       Index           =   49
  147.       Left            =   3240
  148.       OLEDragMode     =   1  'Automatic
  149.       OLEDropMode     =   1  'Manual
  150.       Top             =   5400
  151.       Width           =   1065
  152.    End
  153.    Begin VB.Image Image1 
  154.       Height          =   1440
  155.       Index           =   48
  156.       Left            =   5640
  157.       OLEDragMode     =   1  'Automatic
  158.       OLEDropMode     =   1  'Manual
  159.       Top             =   5400
  160.       Width           =   1065
  161.    End
  162.    Begin VB.Image Image1 
  163.       Height          =   1440
  164.       Index           =   47
  165.       Left            =   4440
  166.       OLEDragMode     =   1  'Automatic
  167.       OLEDropMode     =   1  'Manual
  168.       Top             =   5400
  169.       Width           =   1065
  170.    End
  171.    Begin VB.Image Image1 
  172.       Height          =   1440
  173.       Index           =   46
  174.       Left            =   3240
  175.       OLEDragMode     =   1  'Automatic
  176.       OLEDropMode     =   1  'Manual
  177.       Top             =   5400
  178.       Width           =   1065
  179.    End
  180.    Begin VB.Image Image1 
  181.       Height          =   1440
  182.       Index           =   45
  183.       Left            =   5640
  184.       OLEDragMode     =   1  'Automatic
  185.       OLEDropMode     =   1  'Manual
  186.       Top             =   5400
  187.       Width           =   1065
  188.    End
  189.    Begin VB.Image Image1 
  190.       Height          =   1440
  191.       Index           =   44
  192.       Left            =   4440
  193.       OLEDragMode     =   1  'Automatic
  194.       OLEDropMode     =   1  'Manual
  195.       Top             =   5400
  196.       Width           =   1065
  197.    End
  198.    Begin VB.Image Image1 
  199.       Height          =   1440
  200.       Index           =   43
  201.       Left            =   3240
  202.       OLEDragMode     =   1  'Automatic
  203.       OLEDropMode     =   1  'Manual
  204.       Top             =   5400
  205.       Width           =   1065
  206.    End
  207.    Begin VB.Image Image1 
  208.       Height          =   1440
  209.       Index           =   42
  210.       Left            =   5640
  211.       OLEDragMode     =   1  'Automatic
  212.       OLEDropMode     =   1  'Manual
  213.       Top             =   5400
  214.       Width           =   1065
  215.    End
  216.    Begin VB.Image Image1 
  217.       Height          =   1440
  218.       Index           =   41
  219.       Left            =   4440
  220.       OLEDragMode     =   1  'Automatic
  221.       OLEDropMode     =   1  'Manual
  222.       Top             =   5400
  223.       Width           =   1065
  224.    End
  225.    Begin VB.Image Image1 
  226.       Height          =   1440
  227.       Index           =   40
  228.       Left            =   3240
  229.       OLEDragMode     =   1  'Automatic
  230.       OLEDropMode     =   1  'Manual
  231.       Top             =   5400
  232.       Width           =   1065
  233.    End
  234.    Begin VB.Image Image1 
  235.       Height          =   1440
  236.       Index           =   39
  237.       Left            =   5640
  238.       OLEDragMode     =   1  'Automatic
  239.       OLEDropMode     =   1  'Manual
  240.       Top             =   5400
  241.       Width           =   1065
  242.    End
  243.    Begin VB.Image Image1 
  244.       Height          =   1440
  245.       Index           =   38
  246.       Left            =   4440
  247.       OLEDragMode     =   1  'Automatic
  248.       OLEDropMode     =   1  'Manual
  249.       Top             =   5400
  250.       Width           =   1065
  251.    End
  252.    Begin VB.Image Image1 
  253.       Height          =   1440
  254.       Index           =   37
  255.       Left            =   3240
  256.       OLEDragMode     =   1  'Automatic
  257.       OLEDropMode     =   1  'Manual
  258.       Top             =   5400
  259.       Width           =   1065
  260.    End
  261.    Begin VB.Image Image1 
  262.       Height          =   1440
  263.       Index           =   36
  264.       Left            =   5640
  265.       OLEDragMode     =   1  'Automatic
  266.       OLEDropMode     =   1  'Manual
  267.       Top             =   5400
  268.       Width           =   1065
  269.    End
  270.    Begin VB.Image Image1 
  271.       Height          =   1440
  272.       Index           =   35
  273.       Left            =   4440
  274.       OLEDragMode     =   1  'Automatic
  275.       OLEDropMode     =   1  'Manual
  276.       Top             =   5400
  277.       Width           =   1065
  278.    End
  279.    Begin VB.Image Image1 
  280.       Height          =   1440
  281.       Index           =   34
  282.       Left            =   3240
  283.       OLEDragMode     =   1  'Automatic
  284.       OLEDropMode     =   1  'Manual
  285.       Top             =   5400
  286.       Width           =   1065
  287.    End
  288.    Begin VB.Image Image1 
  289.       Height          =   1440
  290.       Index           =   33
  291.       Left            =   5640
  292.       OLEDragMode     =   1  'Automatic
  293.       OLEDropMode     =   1  'Manual
  294.       Top             =   5400
  295.       Width           =   1065
  296.    End
  297.    Begin VB.Image Image1 
  298.       Height          =   1440
  299.       Index           =   32
  300.       Left            =   4440
  301.       OLEDragMode     =   1  'Automatic
  302.       OLEDropMode     =   1  'Manual
  303.       Top             =   5400
  304.       Width           =   1065
  305.    End
  306.    Begin VB.Image Image1 
  307.       Height          =   1440
  308.       Index           =   31
  309.       Left            =   3240
  310.       OLEDragMode     =   1  'Automatic
  311.       OLEDropMode     =   1  'Manual
  312.       Top             =   5400
  313.       Width           =   1065
  314.    End
  315.    Begin VB.Image Image1 
  316.       Height          =   1455
  317.       Index           =   30
  318.       Left            =   5640
  319.       OLEDragMode     =   1  'Automatic
  320.       OLEDropMode     =   1  'Manual
  321.       Top             =   5400
  322.       Width           =   1065
  323.    End
  324.    Begin VB.Image Image1 
  325.       Height          =   1440
  326.       Index           =   29
  327.       Left            =   4440
  328.       OLEDragMode     =   1  'Automatic
  329.       OLEDropMode     =   1  'Manual
  330.       Top             =   5400
  331.       Width           =   1065
  332.    End
  333.    Begin VB.Image Image1 
  334.       Height          =   1440
  335.       Index           =   28
  336.       Left            =   3240
  337.       OLEDragMode     =   1  'Automatic
  338.       OLEDropMode     =   1  'Manual
  339.       Top             =   5400
  340.       Width           =   1065
  341.    End
  342.    Begin VB.Image Image1 
  343.       Height          =   1440
  344.       Index           =   27
  345.       Left            =   360
  346.       OLEDragMode     =   1  'Automatic
  347.       OLEDropMode     =   1  'Manual
  348.       Top             =   2880
  349.       Width           =   1065
  350.    End
  351.    Begin VB.Image Image1 
  352.       Height          =   1440
  353.       Index           =   26
  354.       Left            =   1440
  355.       OLEDragMode     =   1  'Automatic
  356.       OLEDropMode     =   1  'Manual
  357.       Top             =   2880
  358.       Width           =   1065
  359.    End
  360.    Begin VB.Image Image1 
  361.       Height          =   1440
  362.       Index           =   25
  363.       Left            =   2520
  364.       OLEDragMode     =   1  'Automatic
  365.       OLEDropMode     =   1  'Manual
  366.       Top             =   2880
  367.       Width           =   1065
  368.    End
  369.    Begin VB.Image Image1 
  370.       Height          =   1440
  371.       Index           =   24
  372.       Left            =   3600
  373.       OLEDragMode     =   1  'Automatic
  374.       OLEDropMode     =   1  'Manual
  375.       Top             =   2880
  376.       Width           =   1065
  377.    End
  378.    Begin VB.Image Image1 
  379.       Height          =   1440
  380.       Index           =   23
  381.       Left            =   4680
  382.       OLEDragMode     =   1  'Automatic
  383.       OLEDropMode     =   1  'Manual
  384.       Top             =   2880
  385.       Width           =   1065
  386.    End
  387.    Begin VB.Image Image1 
  388.       Height          =   1440
  389.       Index           =   22
  390.       Left            =   5760
  391.       OLEDragMode     =   1  'Automatic
  392.       OLEDropMode     =   1  'Manual
  393.       Top             =   2880
  394.       Width           =   1065
  395.    End
  396.    Begin VB.Image Image1 
  397.       Height          =   1440
  398.       Index           =   21
  399.       Left            =   6840
  400.       OLEDragMode     =   1  'Automatic
  401.       OLEDropMode     =   1  'Manual
  402.       Top             =   2880
  403.       Width           =   1065
  404.    End
  405.    Begin VB.Image Image1 
  406.       Height          =   1440
  407.       Index           =   20
  408.       Left            =   840
  409.       OLEDragMode     =   1  'Automatic
  410.       OLEDropMode     =   1  'Manual
  411.       Top             =   2400
  412.       Width           =   1065
  413.    End
  414.    Begin VB.Image Image1 
  415.       Height          =   1440
  416.       Index           =   19
  417.       Left            =   1920
  418.       OLEDragMode     =   1  'Automatic
  419.       OLEDropMode     =   1  'Manual
  420.       Top             =   2400
  421.       Width           =   1065
  422.    End
  423.    Begin VB.Image Image1 
  424.       Height          =   1440
  425.       Index           =   18
  426.       Left            =   3000
  427.       OLEDragMode     =   1  'Automatic
  428.       OLEDropMode     =   1  'Manual
  429.       Top             =   2400
  430.       Width           =   1065
  431.    End
  432.    Begin VB.Image Image1 
  433.       Height          =   1440
  434.       Index           =   17
  435.       Left            =   4080
  436.       OLEDragMode     =   1  'Automatic
  437.       OLEDropMode     =   1  'Manual
  438.       Top             =   2400
  439.       Width           =   1065
  440.    End
  441.    Begin VB.Image Image1 
  442.       Height          =   1440
  443.       Index           =   16
  444.       Left            =   5160
  445.       OLEDragMode     =   1  'Automatic
  446.       OLEDropMode     =   1  'Manual
  447.       Top             =   2400
  448.       Width           =   1065
  449.    End
  450.    Begin VB.Image Image1 
  451.       Height          =   1440
  452.       Index           =   15
  453.       Left            =   6240
  454.       OLEDragMode     =   1  'Automatic
  455.       OLEDropMode     =   1  'Manual
  456.       Top             =   2400
  457.       Width           =   1065
  458.    End
  459.    Begin VB.Image Image1 
  460.       Height          =   1440
  461.       Index           =   14
  462.       Left            =   1320
  463.       OLEDragMode     =   1  'Automatic
  464.       OLEDropMode     =   1  'Manual
  465.       Top             =   1920
  466.       Width           =   1065
  467.    End
  468.    Begin VB.Image Image1 
  469.       Height          =   1440
  470.       Index           =   13
  471.       Left            =   2400
  472.       OLEDragMode     =   1  'Automatic
  473.       OLEDropMode     =   1  'Manual
  474.       Top             =   1920
  475.       Width           =   1065
  476.    End
  477.    Begin VB.Image Image1 
  478.       Height          =   1440
  479.       Index           =   12
  480.       Left            =   3480
  481.       OLEDragMode     =   1  'Automatic
  482.       OLEDropMode     =   1  'Manual
  483.       Top             =   1920
  484.       Width           =   1065
  485.    End
  486.    Begin VB.Image Image1 
  487.       Height          =   1440
  488.       Index           =   11
  489.       Left            =   4560
  490.       OLEDragMode     =   1  'Automatic
  491.       OLEDropMode     =   1  'Manual
  492.       Top             =   1920
  493.       Width           =   1065
  494.    End
  495.    Begin VB.Image Image1 
  496.       Height          =   1440
  497.       Index           =   10
  498.       Left            =   5640
  499.       OLEDragMode     =   1  'Automatic
  500.       OLEDropMode     =   1  'Manual
  501.       Top             =   1920
  502.       Width           =   1065
  503.    End
  504.    Begin VB.Image Image1 
  505.       Height          =   1440
  506.       Index           =   9
  507.       Left            =   1800
  508.       OLEDragMode     =   1  'Automatic
  509.       OLEDropMode     =   1  'Manual
  510.       Top             =   1440
  511.       Width           =   1065
  512.    End
  513.    Begin VB.Image Image1 
  514.       Height          =   1440
  515.       Index           =   8
  516.       Left            =   2880
  517.       OLEDragMode     =   1  'Automatic
  518.       OLEDropMode     =   1  'Manual
  519.       Top             =   1440
  520.       Width           =   1065
  521.    End
  522.    Begin VB.Image Image1 
  523.       Height          =   1440
  524.       Index           =   7
  525.       Left            =   3960
  526.       OLEDragMode     =   1  'Automatic
  527.       OLEDropMode     =   1  'Manual
  528.       Top             =   1440
  529.       Width           =   1065
  530.    End
  531.    Begin VB.Image Image1 
  532.       Height          =   1440
  533.       Index           =   6
  534.       Left            =   5040
  535.       OLEDragMode     =   1  'Automatic
  536.       OLEDropMode     =   1  'Manual
  537.       Top             =   1440
  538.       Width           =   1065
  539.    End
  540.    Begin VB.Image Image1 
  541.       Height          =   1440
  542.       Index           =   5
  543.       Left            =   2280
  544.       OLEDragMode     =   1  'Automatic
  545.       OLEDropMode     =   1  'Manual
  546.       Top             =   960
  547.       Width           =   1065
  548.    End
  549.    Begin VB.Image Image1 
  550.       Height          =   1440
  551.       Index           =   4
  552.       Left            =   3360
  553.       OLEDragMode     =   1  'Automatic
  554.       OLEDropMode     =   1  'Manual
  555.       Top             =   960
  556.       Width           =   1065
  557.    End
  558.    Begin VB.Image Image1 
  559.       Height          =   1440
  560.       Index           =   3
  561.       Left            =   4440
  562.       OLEDragMode     =   1  'Automatic
  563.       OLEDropMode     =   1  'Manual
  564.       Top             =   960
  565.       Width           =   1065
  566.    End
  567.    Begin VB.Image Image1 
  568.       Height          =   1440
  569.       Index           =   2
  570.       Left            =   3960
  571.       OLEDragMode     =   1  'Automatic
  572.       OLEDropMode     =   1  'Manual
  573.       Top             =   480
  574.       Width           =   1065
  575.    End
  576.    Begin VB.Image Image1 
  577.       Height          =   1440
  578.       Index           =   1
  579.       Left            =   2880
  580.       OLEDragMode     =   1  'Automatic
  581.       OLEDropMode     =   1  'Manual
  582.       Top             =   480
  583.       Width           =   1065
  584.    End
  585.    Begin VB.Image Image1 
  586.       Height          =   1440
  587.       Index           =   0
  588.       Left            =   3360
  589.       OLEDragMode     =   1  'Automatic
  590.       OLEDropMode     =   1  'Manual
  591.       Top             =   0
  592.       Width           =   1065
  593.    End
  594. End
  595. Attribute VB_Name = "Form1"
  596. Attribute VB_GlobalNameSpace = False
  597. Attribute VB_Creatable = False
  598. Attribute VB_PredeclaredId = True
  599. Attribute VB_Exposed = False
  600. Public dragged, draggedIndex, points, cardno&
  601.  
  602.  
  603.  
  604. Function Is13(cardone, cardtwo) As Boolean
  605. If cardone = "" Then cardone = -1
  606. Do
  607. If cardone > 12 Then cardone = cardone - 13
  608. If cardtwo > 12 Then cardtwo = cardtwo - 13
  609. Loop Until cardone < 13 And cardtwo < 13
  610.  
  611. cardone = cardone + 1
  612. cardtwo = cardtwo + 1
  613. 'MsgBox cardone
  614. If cardone + cardtwo = 13 Then
  615. Is13 = True
  616.  
  617. If cardtwo = 13 Then
  618. points = points + 1
  619. Else
  620. points = points + 2
  621. End If
  622. Label3.Caption = points
  623. If points = 52 Then MsgBox "YOU WIN!"
  624. If points > 34 Then Image2.Picture = LoadResPicture(156, 0): Exit Function
  625. If points > 17 Then Image2.Picture = LoadResPicture(155, 0): Exit Function
  626. If points > 0 Then Image2.Picture = LoadResPicture(154, 0): Exit Function
  627.  
  628. End If
  629.  
  630. dragged = ""
  631. End Function
  632.  
  633. Private Sub Command1_Click()
  634. newgame
  635. End Sub
  636.  
  637. Private Sub Form_Load()
  638.  
  639. newgame
  640. End Sub
  641. Public Sub newgame()
  642. Randomize
  643. For i = 28 To 51
  644. Image1(i).Visible = False
  645. List1.Clear
  646. Next
  647. For i = 0 To 27
  648. Image1(i).Visible = True
  649. Next
  650.  
  651. For i = 0 To 20
  652. Image1(i).Enabled = False
  653. Next
  654. Do
  655. bla = Int(Rnd * 52)
  656. List1.Text = bla
  657. If List1.Text <> bla Then List1.AddItem bla
  658. Loop Until List1.ListCount = 52
  659. For i = 0 To 51
  660. Image1(i).Picture = LoadResPicture(101 + List1.List(i), 0)
  661. Image1(i).Tag = List1.List(i)
  662. Next
  663. points = 0
  664. Label3.Caption = "0"
  665. cardno& = 27
  666. Image2.Picture = LoadResPicture(153, 0)
  667. Image3.Picture = LoadResPicture(156, 0)
  668. Image3.Enabled = True
  669. End Sub
  670.  
  671.  
  672. Private Sub Image1_DblClick(Index As Integer)
  673.  
  674. If Is13("", Image1(Index).Tag) Then
  675. Image1(Index).Visible = False
  676. If Index < 28 Then EnableOpen (Index)
  677. End If
  678. End Sub
  679.  
  680. Private Sub Image1_OLECompleteDrag(Index As Integer, Effect As Long)
  681. If Is13(dragged, Image1(Index).Tag) Then
  682. Image1(Index).Visible = False
  683. Image1(draggedIndex).Visible = False
  684. EnableOpen draggedIndex
  685. EnableOpen Index
  686.  
  687. End If
  688. End Sub
  689.  
  690. Private Sub Image1_OLEDragDrop(Index As Integer, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
  691. dragged = Image1(Index).Tag
  692. draggedIndex = Index
  693. End Sub
  694. Sub EnableOpen(card)
  695.  
  696. Select Case card
  697. Case 21
  698. If Image1(22).Visible = False Then Image1(15).Enabled = True
  699. Case 22
  700. If Image1(21).Visible = False Then Image1(15).Enabled = True
  701. If Image1(23).Visible = False Then Image1(16).Enabled = True
  702. Case 23
  703. If Image1(22).Visible = False Then Image1(16).Enabled = True
  704. If Image1(24).Visible = flase Then Image1(17).Enabled = True
  705. Case 24
  706. If Image1(23).Visible = False Then Image1(17).Enabled = True
  707. If Image1(25).Visible = False Then Image1(18).Enabled = True
  708. Case 25
  709. If Image1(24).Visible = False Then Image1(18).Enabled = True
  710. If Image1(26).Visible = False Then Image1(19).Enabled = True
  711. Case 26
  712. If Image1(25).Visible = False Then Image1(19).Enabled = True
  713. If Image1(27).Visible = False Then Image1(20).Enabled = True
  714. Case 27
  715. If Image1(26).Visible = False Then Image1(20).Enabled = True
  716. Case 15
  717. If Image1(16).Visible = False Then Image1(10).Enabled = True
  718. Case 16
  719. If Image1(15).Visible = False Then Image1(10).Enabled = True
  720. If Image1(17).Visible = False Then Image1(11).Enabled = True
  721. Case 17
  722. If Image1(16).Visible = False Then Image1(11).Enabled = True
  723. If Image1(18).Visible = False Then Image1(12).Enabled = True
  724. Case 18
  725. If Image1(17).Visible = False Then Image1(12).Enabled = True
  726. If Image1(19).Visible = False Then Image1(13).Enabled = True
  727. Case 19
  728. If Image1(18).Visible = False Then Image1(13).Enabled = True
  729. If Image1(20).Visible = False Then Image1(14).Enabled = True
  730. Case 20
  731. If Image1(19).Visible = False Then Image1(14).Enabled = True
  732. Case 10
  733. If Image1(11).Visible = False Then Image1(6).Enabled = True
  734. Case 11
  735. If Image1(10).Visible = False Then Image1(6).Enabled = True
  736. If Image1(12).Visible = False Then Image1(7).Enabled = True
  737. Case 12
  738. If Image1(11).Visible = False Then Image1(7).Enabled = True
  739. If Image1(13).Visible = False Then Image1(8).Enabled = True
  740. Case 13
  741. If Image1(12).Visible = False Then Image1(8).Enabled = True
  742. If Image1(14).Visible = False Then Image1(9).Enabled = True
  743. Case 14
  744. If Image1(13).Visible = False Then Image1(9).Enabled = True
  745. Case 6
  746. If Image1(7).Visible = False Then Image1(3).Enabled = True
  747. Case 7
  748. If Image1(6).Visible = False Then Image1(3).Enabled = True
  749. If Image1(8).Visible = False Then Image1(4).Enabled = True
  750. Case 8
  751. If Image1(7).Visible = False Then Image1(4).Enabled = True
  752. If Image1(9).Visible = False Then Image1(5).Enabled = True
  753. Case 9
  754. If Image1(8).Visible = False Then Image1(5).Enabled = True
  755. Case 3
  756. If Image1(4).Visible = False Then Image1(2).Enabled = True
  757. Case 4
  758. If Image1(3).Visible = False Then Image1(2).Enabled = True
  759. If Image1(5).Visible = False Then Image1(1).Enabled = True
  760. Case 5
  761. If Image1(4).Visible = False Then Image1(1).Enabled = True
  762. Case 2
  763. If Image1(1).Visible = False Then Image1(0).Enabled = True
  764. Case 1
  765. If Image1(2).Visible = False Then Image1(0).Enabled = True
  766. End Select
  767. End Sub
  768.  
  769. Private Sub Image3_DblClick()
  770.  
  771. For i = 1 To 3
  772. cardno = cardno + 1
  773. Image1(cardno).Visible = True
  774. Next
  775.  
  776. If cardno = 51 Then Image3.Picture = LoadResPicture(153, 0): Image3.Enabled = False: Exit Sub
  777. If cardno > 43 Then Image3.Picture = LoadResPicture(154, 0): Exit Sub
  778. If cardno > 35 Then Image3.Picture = LoadResPicture(155, 0): Exit Sub
  779. End Sub
  780.