form0607_1.frm

VB实验教程源码

VERSION 5.00
Begin VB.Form FormCover 
   Caption         =   "学生信息管理"
   ClientHeight    =   2730
   ClientLeft      =   1485
   ClientTop       =   1365
   ClientWidth     =   5625
   LinkTopic       =   "Form1"
   ScaleHeight     =   2730
   ScaleWidth      =   5625
   Begin VB.CommandButton Command1 
      Caption         =   "输入系别"
      Height          =   615
      Index           =   2
      Left            =   3960
      TabIndex        =   3
      Top             =   1680
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "输入学生成绩"
      Height          =   615
      Index           =   1
      Left            =   2280
      TabIndex        =   2
      Top             =   1680
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "输入学生信息"
      Height          =   615
      Index           =   0
      Left            =   360
      TabIndex        =   1
      Top             =   1680
      Width           =   1575
   End
   Begin VB.Label Label1 
      Caption         =   "欢迎使用学生信息管理系统"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   720
      TabIndex        =   0
      Top             =   480
      Width           =   4095
   End
End
Attribute VB_Name = "FormCover"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub FormArg(C As CommandButton)
'显示窗体内容子过程
    Form1.Show
    Form1.Caption = C.Caption
    Form1.Label1.Caption = "欢迎使用" & Chr(10) + Chr(13) & C.Caption
End Sub

Private Sub Command1_Click(Index As Integer)
'单击按钮输入学生信息
    Call FormArg(Command1(Index))
End Sub