frmabout.frm

1. 观察计算机显示系统构成

VERSION 5.00
Begin VB.Form frmAbout 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "关于我的应用程序"
   ClientHeight    =   3150
   ClientLeft      =   2340
   ClientTop       =   1935
   ClientWidth     =   5265
   ClipControls    =   0   'False
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2174.186
   ScaleMode       =   0  'User
   ScaleWidth      =   4944.107
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton cmdOK 
      BackColor       =   &H0000FF00&
      Cancel          =   -1  'True
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   345
      Left            =   3840
      MouseIcon       =   "frmAbout.frx":0000
      MousePointer    =   99  'Custom
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   1065
      Width           =   1185
   End
   Begin VB.PictureBox Picture1 
      Height          =   1575
      Left            =   0
      MouseIcon       =   "frmAbout.frx":030A
      MousePointer    =   99  'Custom
      Picture         =   "frmAbout.frx":0614
      ScaleHeight     =   1515
      ScaleWidth      =   1575
      TabIndex        =   2
      Top             =   0
      Width           =   1635
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00FF0000&
      Caption         =   "有事Q我(&Q)"
      Height          =   375
      Left            =   1320
      MouseIcon       =   "frmAbout.frx":141F
      MousePointer    =   99  'Custom
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   2145
      Width           =   1095
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H000000FF&
      Caption         =   "给我邮件(&E)"
      Height          =   375
      Left            =   3360
      MouseIcon       =   "frmAbout.frx":1729
      MousePointer    =   99  'Custom
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   2145
      Width           =   1335
   End
   Begin VB.Label lblDisclaimer 
      BackStyle       =   0  'Transparent
      Caption         =   "版权所有:杨扬工作室  作者：小杨"
      ForeColor       =   &H00000000&
      Height          =   330
      Left            =   1245
      TabIndex        =   6
      Top             =   1905
      Width           =   3750
   End
   Begin VB.Label lblTitle 
      BackStyle       =   0  'Transparent
      Caption         =   "客户管理系统  "
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   360
      Left            =   2400
      TabIndex        =   5
      Top             =   480
      Width           =   1815
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "我的主页：http://home.xiaonei.com/Home.do"
      ForeColor       =   &H00FF00FF&
      Height          =   330
      Left            =   1200
      TabIndex        =   4
      Top             =   2670
      Width           =   4005
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Index           =   0
      X1              =   0
      X2              =   5775.168
      Y1              =   1232.039
      Y2              =   1232.039
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   1
      X1              =   0
      X2              =   5394.852
      Y1              =   1232.039
      Y2              =   1232.039
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdOK_Click()
Unload Me
End Sub

Private Sub Command1_Click()
On Error Resume Next
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://wpa.qq.com/msgrd?V=1&Uin=26509803&Site=@杨扬@&Menu=yes"
End Sub


Private Sub Command2_Click()
On Error Resume Next
Shell "explorer.exe mailto:[e-mail]"
End Sub

Private Sub Form_Load()
frm主窗体.StatusBar1.Panels(1) = Me.Caption
End Sub

Private Sub Form_Unload(Cancel As Integer)
   frm主窗体.Enabled = True
   frm主窗体.StatusBar1.Panels(1) = "杨扬工作室 作者:小杨"
End Sub

Private Sub Label1_Click()
On Error Resume Next
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://http://home.xiaonei.com/Home.do"
End Sub

Private Sub Picture1_Click()
On Error Resume Next
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://http://home.xiaonei.com/Home.do"
End Sub