frmabout.frm

猜字迷的游戏

VERSION 5.00
Begin VB.Form frmAbout 
   Caption         =   "关于  大家来玩猜数字"
   ClientHeight    =   3690
   ClientLeft      =   1995
   ClientTop       =   1605
   ClientWidth     =   5505
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   246
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   367
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Height          =   372
      Left            =   3960
      TabIndex        =   1
      Top             =   3240
      Width           =   1212
   End
   Begin VB.Label Label1 
      Caption         =   "大家来玩猜数字  网路对战版"
      Height          =   2772
      Left            =   720
      TabIndex        =   0
      Top             =   240
      Width           =   4452
   End
   Begin VB.Image imgIcon 
      Height          =   480
      Left            =   120
      Picture         =   "frmAbout.frx":0000
      Top             =   240
      Width           =   480
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'VB爱好者乐园整理 yingzi007.126.com

Option Explicit

Private Sub cmdOK_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim x, y
x = (Screen.Width - Me.Width) / 2
y = (Screen.Height - Me.Height) / 2
Me.Move x, y

Label1.Caption = "大家来玩猜数字  网路对战版" & vbCrLf
Label1.Caption = Label1.Caption & "本软体由 D.J. Studio - South Wind所撰写" & vbCrLf
Label1.Caption = Label1.Caption & "在非商业行为、不侵害作者权益的基准下" & vbCrLf
Label1.Caption = Label1.Caption & "一切内容皆可免费散播、使用" & vbCrLf
Label1.Caption = Label1.Caption & "本软体特别感谢 李宗鑫作者公布电脑AI的设计逻辑" & vbCrLf
Label1.Caption = Label1.Caption & "不过这个逻辑AI实在是强的一塌糊途....." & vbCrLf
Label1.Caption = Label1.Caption & "不知到有没有更人性化一点的AI......" & vbCrLf
Label1.Caption = Label1.Caption & "另外关于网路对战部份没有办法测试的太详细" & vbCrLf
Label1.Caption = Label1.Caption & "有问题还请通知我一声,谢谢罗!" & vbCrLf
Label1.Caption = Label1.Caption & "欢迎光临我的网站" & vbCrLf
Label1.Caption = Label1.Caption & "D.J. Studio   http://go.to/dj-studio/" & vbCrLf
Label1.Caption = Label1.Caption & "South Wind    [e-mail]" & vbCrLf
Label1.Caption = Label1.Caption & "李宗鑫作者的网址是 http://welcome.to/vampire/"
End Sub