form12.frm

用java编写的学生信息管理系统

VERSION 5.00
Begin VB.Form AbortMe 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "关于作者"
   ClientHeight    =   3090
   ClientLeft      =   5040
   ClientTop       =   5430
   ClientWidth     =   4680
   LinkTopic       =   "Form12"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   154.5
   ScaleLeft       =   1000
   ScaleMode       =   0  'User
   ScaleTop        =   1000
   ScaleWidth      =   234
   Begin VB.CommandButton Command1 
      Appearance      =   0  'Flat
      Caption         =   "确定"
      Height          =   375
      Left            =   1680
      TabIndex        =   1
      Top             =   2520
      Width           =   1215
   End
   Begin VB.Label Label7 
      Caption         =   "QQ:252899199"
      Height          =   255
      Left            =   2400
      TabIndex        =   7
      Top             =   1080
      Width           =   1095
   End
   Begin VB.Label Label6 
      Caption         =   "[e-mail]"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   1920
      MouseIcon       =   "Form12.frx":0000
      MousePointer    =   99  'Custom
      TabIndex        =   6
      Top             =   2040
      Width           =   1335
   End
   Begin VB.Label Label5 
      Caption         =   "电子邮件："
      Height          =   255
      Left            =   840
      TabIndex        =   5
      Top             =   2040
      Width           =   975
   End
   Begin VB.Label Label4 
      Caption         =   "我们的网址："
      Height          =   255
      Left            =   840
      TabIndex        =   4
      Top             =   1680
      Width           =   1095
   End
   Begin VB.Label Label3 
      Caption         =   "psite.vicp.cc"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   2040
      MouseIcon       =   "Form12.frx":030A
      MousePointer    =   99  'Custom
      TabIndex        =   3
      Top             =   1680
      Width           =   1215
   End
   Begin VB.Label Label2 
      Caption         =   "作者：潘太华"
      Height          =   255
      Left            =   720
      TabIndex        =   2
      Top             =   1080
      Width           =   1575
   End
   Begin VB.Label Label1 
      Caption         =   "学生信息管理系统v 1.0"
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   1200
      TabIndex        =   0
      Top             =   360
      Width           =   2055
   End
End
Attribute VB_Name = "AbortMe"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()

Label3.FontUnderline = True
End Sub

Private Sub Label3_Click()
Shell "explorer.exe http://psite.vicp.cc", vbNormalFocus
End Sub

Private Sub Label6_Click()
 
  ShellExecute 0, "open", "mailto:[e-mail]?subject=发给我的题目&Body=发给我的文字", "", "", 1

End Sub