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

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

其他游戏

开发平台：

Visual Basic

aboutForm.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form aboutForm 
  3.    BackColor       =   &H00FFC0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "关于对话框"
  6.    ClientHeight    =   3210
  7.    ClientLeft      =   45
  8.    ClientTop       =   375
  9.    ClientWidth     =   6735
  10.    Icon            =   "aboutForm.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    Picture         =   "aboutForm.frx":0442
  15.    ScaleHeight     =   3210
  16.    ScaleWidth      =   6735
  17.    StartUpPosition =   3  '窗口缺省
  18.    Begin VB.CommandButton Command1 
  19.       BackColor       =   &H00FFC0C0&
  20.       Caption         =   "取消"
  21.       Height          =   615
  22.       Left            =   4800
  23.       Style           =   1  'Graphical
  24.       TabIndex        =   6
  25.       Top             =   1080
  26.       Width           =   1455
  27.    End
  28.    Begin VB.Line Line3 
  29.       X1              =   1680
  30.       X2              =   4320
  31.       Y1              =   2520
  32.       Y2              =   2520
  33.    End
  34.    Begin VB.Label Label6 
  35.       BackStyle       =   0  'Transparent
  36.       Caption         =   "驾照年审管理系统"
  37.       BeginProperty Font 
  38.          Name            =   "MS Sans Serif"
  39.          Size            =   13.5
  40.          Charset         =   0
  41.          Weight          =   700
  42.          Underline       =   0   'False
  43.          Italic          =   0   'False
  44.          Strikethrough   =   0   'False
  45.       EndProperty
  46.       Height          =   375
  47.       Left            =   1800
  48.       TabIndex        =   5
  49.       Top             =   2160
  50.       Width           =   3015
  51.    End
  52.    Begin VB.Label Label5 
  53.       BackColor       =   &H00FFC0C0&
  54.       Caption         =   "项目名称"
  55.       BeginProperty Font 
  56.          Name            =   "MS Sans Serif"
  57.          Size            =   12
  58.          Charset         =   0
  59.          Weight          =   700
  60.          Underline       =   0   'False
  61.          Italic          =   0   'False
  62.          Strikethrough   =   0   'False
  63.       EndProperty
  64.       Height          =   255
  65.       Left            =   240
  66.       TabIndex        =   4
  67.       Top             =   2160
  68.       Width           =   1215
  69.    End
  70.    Begin VB.Line Line2 
  71.       X1              =   1800
  72.       X2              =   2880
  73.       Y1              =   1680
  74.       Y2              =   1680
  75.    End
  76.    Begin VB.Label Label4 
  77.       BackStyle       =   0  'Transparent
  78.       Caption         =   "5月30日"
  79.       BeginProperty Font 
  80.          Name            =   "MS Sans Serif"
  81.          Size            =   13.5
  82.          Charset         =   0
  83.          Weight          =   700
  84.          Underline       =   0   'False
  85.          Italic          =   0   'False
  86.          Strikethrough   =   0   'False
  87.       EndProperty
  88.       Height          =   375
  89.       Left            =   1800
  90.       TabIndex        =   3
  91.       Top             =   1200
  92.       Width           =   1335
  93.    End
  94.    Begin VB.Label Label3 
  95.       BackColor       =   &H00FFC0C0&
  96.       Caption         =   "完成时间 "
  97.       BeginProperty Font 
  98.          Name            =   "MS Sans Serif"
  99.          Size            =   13.5
  100.          Charset         =   0
  101.          Weight          =   700
  102.          Underline       =   0   'False
  103.          Italic          =   0   'False
  104.          Strikethrough   =   0   'False
  105.       EndProperty
  106.       Height          =   495
  107.       Left            =   240
  108.       TabIndex        =   2
  109.       Top             =   1200
  110.       Width           =   1335
  111.    End
  112.    Begin VB.Line Line1 
  113.       X1              =   1680
  114.       X2              =   2640
  115.       Y1              =   720
  116.       Y2              =   720
  117.    End
  118.    Begin VB.Label Label2 
  119.       BackStyle       =   0  'Transparent
  120.       Caption         =   "舒毅"
  121.       BeginProperty Font 
  122.          Name            =   "MS Sans Serif"
  123.          Size            =   13.5
  124.          Charset         =   0
  125.          Weight          =   700
  126.          Underline       =   0   'False
  127.          Italic          =   0   'False
  128.          Strikethrough   =   0   'False
  129.       EndProperty
  130.       Height          =   495
  131.       Left            =   1800
  132.       TabIndex        =   1
  133.       Top             =   360
  134.       Width           =   735
  135.    End
  136.    Begin VB.Label Label1 
  137.       BackColor       =   &H00FFC0C0&
  138.       Caption         =   "作者"
  139.       BeginProperty Font 
  140.          Name            =   "MS Sans Serif"
  141.          Size            =   13.5
  142.          Charset         =   0
  143.          Weight          =   700
  144.          Underline       =   0   'False
  145.          Italic          =   0   'False
  146.          Strikethrough   =   0   'False
  147.       EndProperty
  148.       Height          =   495
  149.       Left            =   360
  150.       TabIndex        =   0
  151.       Top             =   360
  152.       Width           =   735
  153.    End
  154. End
  155. Attribute VB_Name = "aboutForm"
  156. Attribute VB_GlobalNameSpace = False
  157. Attribute VB_Creatable = False
  158. Attribute VB_PredeclaredId = True
  159. Attribute VB_Exposed = False
  160. Option Explicit
  162. Private Sub Command1_Click()
  163. Unload Me
  165. End Sub
  167. Private Sub Form_Load()
  168. Dim revalu As Long
  169. Me.Picture = LoadPicture("")
  170. revalu = SetWindowPos(aboutForm.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, _
  171.     1 / 15 * Me.Width, 1 / 15 * Me.Height, SWP_SHOWWINDOW)
  172.   
  173.    Me.Left = (Screen.Width - Me.Width) / 2 - 150
  174.    Me.Top = (Screen.Height - Me.Height) / 2 - 150
  175. End Sub