开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 其他游戏 > 查看源码
Form1.frm
资源名称：七八个vb游戏.rar　[点击查看]
上传用户：tashmp
上传日期：2010-04-03
资源大小：882k
文件大小：13k
源码类别：

其他游戏

开发平台：

Visual Basic

Form1.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "三子棋"
  4.    ClientHeight    =   3000
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   6060
  8.    Icon            =   "Form1.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3000
  11.    ScaleWidth      =   6060
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CommandButton Command3 
  14.       Caption         =   "退出"
  15.       Height          =   495
  16.       Left            =   4680
  17.       TabIndex        =   12
  18.       Top             =   2400
  19.       Width           =   1335
  20.    End
  21.    Begin VB.CommandButton Command2 
  22.       Caption         =   "开始"
  23.       Height          =   495
  24.       Left            =   2880
  25.       TabIndex        =   10
  26.       Top             =   2400
  27.       Width           =   1575
  28.    End
  29.    Begin VB.CommandButton Command1 
  30.       Caption         =   "Command1"
  31.       Height          =   735
  32.       Index           =   8
  33.       Left            =   2040
  34.       TabIndex        =   8
  35.       Top             =   2040
  36.       Width           =   735
  37.    End
  38.    Begin VB.CommandButton Command1 
  39.       Caption         =   "Command1"
  40.       Height          =   735
  41.       Index           =   7
  42.       Left            =   1080
  43.       TabIndex        =   7
  44.       Top             =   2040
  45.       Width           =   735
  46.    End
  47.    Begin VB.CommandButton Command1 
  48.       Caption         =   "Command1"
  49.       Height          =   735
  50.       Index           =   6
  51.       Left            =   120
  52.       TabIndex        =   6
  53.       Top             =   2040
  54.       Width           =   735
  55.    End
  56.    Begin VB.CommandButton Command1 
  57.       Caption         =   "Command1"
  58.       Height          =   735
  59.       Index           =   5
  60.       Left            =   2040
  61.       TabIndex        =   5
  62.       Top             =   1080
  63.       Width           =   735
  64.    End
  65.    Begin VB.CommandButton Command1 
  66.       Caption         =   "Command1"
  67.       Height          =   735
  68.       Index           =   4
  69.       Left            =   1080
  70.       TabIndex        =   4
  71.       Top             =   1080
  72.       Width           =   735
  73.    End
  74.    Begin VB.CommandButton Command1 
  75.       Caption         =   "Command1"
  76.       Height          =   735
  77.       Index           =   3
  78.       Left            =   120
  79.       TabIndex        =   3
  80.       Top             =   1080
  81.       Width           =   735
  82.    End
  83.    Begin VB.CommandButton Command1 
  84.       Caption         =   "Command1"
  85.       Height          =   735
  86.       Index           =   2
  87.       Left            =   2040
  88.       TabIndex        =   2
  89.       Top             =   120
  90.       Width           =   735
  91.    End
  92.    Begin VB.CommandButton Command1 
  93.       Caption         =   "Command1"
  94.       Height          =   735
  95.       Index           =   1
  96.       Left            =   1080
  97.       TabIndex        =   1
  98.       Top             =   120
  99.       Width           =   735
  100.    End
  101.    Begin VB.CommandButton Command1 
  102.       Caption         =   "Command1"
  103.       Height          =   735
  104.       Index           =   0
  105.       Left            =   120
  106.       TabIndex        =   0
  107.       Top             =   120
  108.       Width           =   735
  109.    End
  110.    Begin VB.Image Image2 
  111.       Height          =   480
  112.       Left            =   5520
  113.       Picture         =   "Form1.frx":08CA
  114.       Top             =   960
  115.       Width           =   480
  116.    End
  117.    Begin VB.Label Label6 
  118.       Caption         =   "0"
  119.       BeginProperty Font 
  120.          Name            =   "MS Sans Serif"
  121.          Size            =   12
  122.          Charset         =   0
  123.          Weight          =   700
  124.          Underline       =   0   'False
  125.          Italic          =   0   'False
  126.          Strikethrough   =   0   'False
  127.       EndProperty
  128.       ForeColor       =   &H000000FF&
  129.       Height          =   375
  130.       Left            =   4560
  131.       TabIndex        =   16
  132.       Top             =   1080
  133.       Width           =   615
  134.    End
  135.    Begin VB.Label Label5 
  136.       Caption         =   "O方胜利次数"
  137.       BeginProperty Font 
  138.          Name            =   "MS Sans Serif"
  139.          Size            =   12
  140.          Charset         =   0
  141.          Weight          =   700
  142.          Underline       =   0   'False
  143.          Italic          =   0   'False
  144.          Strikethrough   =   0   'False
  145.       EndProperty
  146.       Height          =   375
  147.       Left            =   2880
  148.       TabIndex        =   15
  149.       Top             =   1080
  150.       Width           =   1575
  151.    End
  152.    Begin VB.Image Image1 
  153.       Height          =   480
  154.       Left            =   5520
  155.       Picture         =   "Form1.frx":1194
  156.       Top             =   0
  157.       Width           =   480
  158.    End
  159.    Begin VB.Label Label4 
  160.       Caption         =   "0"
  161.       BeginProperty Font 
  162.          Name            =   "MS Sans Serif"
  163.          Size            =   12
  164.          Charset         =   0
  165.          Weight          =   700
  166.          Underline       =   0   'False
  167.          Italic          =   0   'False
  168.          Strikethrough   =   0   'False
  169.       EndProperty
  170.       ForeColor       =   &H000000FF&
  171.       Height          =   495
  172.       Left            =   4440
  173.       TabIndex        =   14
  174.       Top             =   120
  175.       Width           =   855
  176.    End
  177.    Begin VB.Label Label3 
  178.       Caption         =   "X方胜利次数"
  179.       BeginProperty Font 
  180.          Name            =   "MS Sans Serif"
  181.          Size            =   12
  182.          Charset         =   0
  183.          Weight          =   700
  184.          Underline       =   0   'False
  185.          Italic          =   0   'False
  186.          Strikethrough   =   0   'False
  187.       EndProperty
  188.       Height          =   375
  189.       Left            =   2880
  190.       TabIndex        =   13
  191.       Top             =   120
  192.       Width           =   1455
  193.    End
  194.    Begin VB.Label Label2 
  195.       BeginProperty Font 
  196.          Name            =   "MS Sans Serif"
  197.          Size            =   18
  198.          Charset         =   0
  199.          Weight          =   700
  200.          Underline       =   0   'False
  201.          Italic          =   0   'False
  202.          Strikethrough   =   0   'False
  203.       EndProperty
  204.       ForeColor       =   &H000000FF&
  205.       Height          =   495
  206.       Left            =   4200
  207.       TabIndex        =   11
  208.       Top             =   1800
  209.       Width           =   1695
  210.    End
  211.    Begin VB.Label Label1 
  212.       Caption         =   "胜者："
  213.       BeginProperty Font 
  214.          Name            =   "MS Sans Serif"
  215.          Size            =   13.5
  216.          Charset         =   0
  217.          Weight          =   400
  218.          Underline       =   0   'False
  219.          Italic          =   0   'False
  220.          Strikethrough   =   0   'False
  221.       EndProperty
  222.       Height          =   375
  223.       Left            =   3000
  224.       TabIndex        =   9
  225.       Top             =   1800
  226.       Width           =   975
  227.    End
  228.    Begin VB.Line Line4 
  229.       X1              =   1920
  230.       X2              =   1920
  231.       Y1              =   120
  232.       Y2              =   2760
  233.    End
  234.    Begin VB.Line Line3 
  235.       X1              =   120
  236.       X2              =   2760
  237.       Y1              =   1920
  238.       Y2              =   1920
  239.    End
  240.    Begin VB.Line Line2 
  241.       X1              =   960
  242.       X2              =   960
  243.       Y1              =   120
  244.       Y2              =   2760
  245.    End
  246.    Begin VB.Line Line1 
  247.       X1              =   120
  248.       X2              =   2760
  249.       Y1              =   960
  250.       Y2              =   960
  251.    End
  252. End
  253. Attribute VB_Name = "Form1"
  254. Attribute VB_GlobalNameSpace = False
  255. Attribute VB_Creatable = False
  256. Attribute VB_PredeclaredId = True
  257. Attribute VB_Exposed = False
  258. Dim Times_number As Integer
  259. Dim win_X As Integer
  260. Dim win_O As Integer
  261. Dim winer As Boolean
  262. Private Sub Command1_Click(Index As Integer)
  263. '下棋的次数
  264. Times_number = Times_number + 1
  265. Command1(Index).Enabled = False
  266. If Times_number Mod 2 <> 0 Then
  267. Command1(Index).Caption = "X"
  268. Else
  269. Command1(Index).Caption = "O"
  270. End If
  271. '<1> 0-1-2
  272. If (Command1(0).Caption = Command1(1).Caption) And _
  273.     (Command1(1).Caption = Command1(2).Caption) And _
  274.     (Command1(0).Caption <> "" And Command1(1).Caption <> "" And Command1(2).Caption <> "") Then
  275.     
  276. Label2.Caption = "为:" + Command1(Index).Caption
  278. Command2.Enabled = True
  279. '**************************
  280. If Command1(Index).Caption = "X" Then
  281. win_X = win_X + 1
  282. Label4.Caption = Str(win_X)
  283. Else
  284. win_O = win_O + 1
  285. Label6.Caption = Str(win_O)
  286. End If
  287. winer = True
  288. '************************
  289. ' MsgBox "0-1-2"
  290.  '<2> 0-4-8
  291.  ElseIf (Command1(0).Caption = Command1(4).Caption) And _
  292.     (Command1(4).Caption = Command1(8).Caption) And _
  293.        (Command1(0).Caption <> "" And Command1(4).Caption <> "" And Command1(8).Caption <> "") Then
  294. Label2.Caption = "为:" + Command1(Index).Caption
  295. Command2.Enabled = True
  296. '**************************
  297. If Command1(Index).Caption = "X" Then
  298. win_X = win_X + 1
  299. Label4.Caption = Str(win_X)
  300. Else
  301. win_O = win_O + 1
  302. Label6.Caption = Str(win_O)
  303. End If
  304. '************************
  305.  ' MsgBox "0-4-8"
  306.  '<3> 0-3-6
  307.  ElseIf (Command1(0).Caption = Command1(3).Caption) And _
  308.     (Command1(3).Caption = Command1(6).Caption) And _
  309.        (Command1(0).Caption <> "" And Command1(3).Caption <> "" And Command1(6).Caption <> "") Then
  310. Label2.Caption = "为:" + Command1(Index).Caption
  311. Command2.Enabled = True
  312. '**************************
  313. If Command1(Index).Caption = "X" Then
  314. win_X = win_X + 1
  315. Label4.Caption = Str(win_X)
  316. Else
  317. win_O = win_O + 1
  318. Label6.Caption = Str(win_O)
  319. End If
  320. winer = True
  321. '************************
  322.  ' MsgBox "0-3-6"
  323.  '<4> 1-4-7
  324.   ElseIf (Command1(1).Caption = Command1(4).Caption) And _
  325.     (Command1(4).Caption = Command1(7).Caption) And _
  326.        (Command1(1).Caption <> "" And Command1(4).Caption <> "" And Command1(7).Caption <> "") Then
  327. Label2.Caption = "为:" + Command1(Index).Caption
  328. Command2.Enabled = True
  329. '**************************
  330. If Command1(Index).Caption = "X" Then
  331. win_X = win_X + 1
  332. Label4.Caption = Str(win_X)
  333. Else
  334. win_O = win_O + 1
  335. Label6.Caption = Str(win_O)
  336. End If
  337. winer = True
  338. '************************
  339. '<>2-4-6
  340.  ElseIf (Command1(2).Caption = Command1(4).Caption) And _
  341.     (Command1(4).Caption = Command1(6).Caption) And _
  342.        (Command1(2).Caption <> "" And Command1(4).Caption <> "" And Command1(6).Caption <> "") Then
  343. Label2.Caption = "为:" + Command1(Index).Caption
  344. Command2.Enabled = True
  345. '**************************
  346. If Command1(Index).Caption = "X" Then
  347. win_X = win_X + 1
  348. Label4.Caption = Str(win_X)
  349. Else
  350. win_O = win_O + 1
  351. Label6.Caption = Str(win_O)
  352. End If
  353. winer = True
  354. ''''''''''''''''''''''''''''''''''''
  356.  ' MsgBox "1-4-7"
  357.  '<5> 2-5-8
  358.   ElseIf (Command1(2).Caption = Command1(5).Caption) And _
  359.     (Command1(5).Caption = Command1(8).Caption) And _
  360.        (Command1(2).Caption <> "" And Command1(5).Caption <> "" And Command1(8).Caption <> "") Then
  361. Label2.Caption = "为:" + Command1(Index).Caption
  362. Command2.Enabled = True
  363. '**************************
  364. If Command1(Index).Caption = "X" Then
  365. win_X = win_X + 1
  366. Label4.Caption = Str(win_X)
  367. Else
  368. win_O = win_O + 1
  369. Label6.Caption = Str(win_O)
  370. End If
  371. winer = True
  372. '************************
  373.  ' MsgBox "2-5-8"
  374.  '<6> 3-4-5
  375.   ElseIf (Command1(3).Caption = Command1(4).Caption) And _
  376.     (Command1(4).Caption = Command1(5).Caption) And _
  377.        (Command1(3).Caption <> "" And Command1(4).Caption <> "" And Command1(5).Caption <> "") Then
  378. Label2.Caption = "为:" + Command1(Index).Caption
  379. Command2.Enabled = True
  380. '**************************
  381. If Command1(Index).Caption = "X" Then
  382. win_X = win_X + 1
  383. Label4.Caption = Str(win_X)
  384. Else
  385. win_O = win_O + 1
  386. Label6.Caption = Str(win_O)
  387. End If
  388. winer = True
  389. '************************
  390.  ' MsgBox "3-4-5"
  391.  '<7> 6-7-8
  392.  ElseIf (Command1(6).Caption = Command1(7).Caption) And _
  393.     (Command1(7).Caption = Command1(8).Caption) And _
  394.        (Command1(6).Caption <> "" And Command1(7).Caption <> "" And Command1(8).Caption <> "") Then
  395. Label2.Caption = "为:" + Command1(Index).Caption
  396. Command2.Enabled = True
  397. '**************************
  398. If Command1(Index).Caption = "X" Then
  399. win_X = win_X + 1
  400. Label4.Caption = Str(win_X)
  401. Else
  402. win_O = win_O + 1
  403. Label6.Caption = Str(win_O)
  404. End If
  405. winer = True
  406. '************************
  407. ' MsgBox "6-7-8"
  408.  End If
  409.  If Times_number = 9 And winer <> True Then
  410.  Label2.Caption = "双方平局"
  411.  Command2.Enabled = True
  412.  End If
  413. End Sub
  414. '开始
  415. Private Sub Command2_Click()
  416. Dim i As Integer
  418. For i = 0 To 8 Step 1
  419. Command1(i).Caption = ""
  420. Command1(i).Enabled = True
  422. Next i
  423. Command2.Enabled = False
  425. Label2.Caption = ""
  426. winer = False
  427. Times_number = 0
  428. End Sub
  430. Private Sub Command3_Click()
  431. End
  433. End Sub
  435. Private Sub Form_Load()
  436. Dim i As Integer
  437. For i = 0 To 8 Step 1
  438. Command1(i).Enabled = False
  439. Command1(i).Caption = ""
  440. Command1(i).FontSize = 25
  441. Next i
  442. Times_nmumber = 0
  443. win_X = 0
  444. win_O = 0
  445. 'winer 判断是否有一方胜利
  446. winer = fase
  447. Show
  448. Form1.Left = (Screen.Width - Form1.Width) / 2
  449. Form1.Top = (Screen.Height - Form1.Height) / 2 - 1300
  450. End Sub