面向对象程序设计(VB)-作业管理系统.doc

1、实 验 报 告 课程名称 面向对象程序设计(VB) 实验学期 2008 至 2009 学年 第 一 学期学生所在系部 计算机系 年级 大二 专业班级 * 学生姓名 * 学号 * 任课教师 * 实验成绩 计算机系制 面向对象程序设计(VB)课程综合性实验报告开课实验室：软件开发室一 2008年12月31日实验题目作业管理系统一、实验目的使学生巩固和加深对面向对象程序设计(VB)理论知识的理解，进一步掌握编程技巧和方法，能融会贯通所学知识，提高编程和调试程序的水平，从而培养学生理论与实践相结合，独立操作与综合应用知识的能力。通过实验的操作以此系统掌握面向对象程序设计(VB)的方法和要点，实验中要能

2、熟练运用相关控件；掌握基本控制结构和编写程序的语言代码；进行界面设计，如建立通用对话框，菜单设计和建立工具栏，状态栏；学会对文件，图形的操作和建立控件数组。应而设计出来的小型系统具有实用价值。二、设备与环境PC兼容机、Windows操作系统、VB软件等。三、实验内容实验内容分为：1建立主控程序，调用各章作业。主程序界面通过上弹菜单，级联菜单和下拉菜单，调用并运行各章作业。2各章作业按章分组归纳并经过整理，各个作业窗口都已进行美化处理，各章作业的格调保持一致；各作业窗体被添加到工程中，适应多窗体的操作；各窗体的关闭不影响到主窗体的操作。3在系统中，通过对系统的规划布局，使系统更加丰富多彩。系统中

3、还能根据自己的想法进行有条件的调用程序。4可调用一个文件编辑器，通过菜单和工具栏实现对文本的编辑。5生成可执行文件（.exe文件）。四、实验结果及分析1功能模块简介和系统结构图： 学生作业管理系统文本编辑器文本编辑器精彩推荐实验各个实验娱乐型经典例题2程序的主要代码：主程序的主要代码：Private Sub Command1_Click()frmMDI.ShowfrmMDIChild.ShowEnd SubPrivate Sub Command2_Click()List2.Visible = Not List2.VisibleEnd SubPrivate Sub Command3_Click(

4、)List3.Visible = Not List3.VisibleEnd SubPrivate Sub Command4_Click()Form2.ShowEnd SubPrivate Sub Timer1_Timer()Label1.ForeColor = QBColor(15 * Rnd)Label2.ForeColor = QBColor(15 * Rnd)Label3.ForeColor = QBColor(15 * Rnd)Label4.Move Label4.Left - 50Label4.ForeColor = QBColor(15 * Rnd)If Label4.Left 4

5、000 ThenLabel4.Left = 10080b = Int(Rnd * 2000 - 200)Label4.ForeColor = QBColor(15 * Rnd)Label4.Top = Label1.Top + bEnd Ifimage1.Move image1.Left - 50If image1.Left 1700 Thenimage1.Left = 10080End IfEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)Status

6、Bar1.Panels(2).Text = xStatusBar1.Panels(4).Text = yEnd SubPrivate Sub List1_Click()If List1.ListIndex = 0 Then画线.ShowEnd IfPrivate Sub List2_Click()If List1.ListIndex = 0 Then画线.ShowEnd IfPrivate Sub List3_Click()If List1.ListIndex = 0 Then学生成绩管理.ShowEnd IfPrivate Sub Test11_Click()简单动画例.ShowEnd Su

7、b子程序代码:文本编辑器：Private Sub FileNew_Click()FileNewProcEnd SubPrivate Sub FileOpen_Click()FileOpenProcEnd SubPrivate Sub FileSave_Click()FileSaveProcEnd SubPrivate Sub FilePrint_Click()On Error GoTo nofilefrmMDI.ActiveForm.CommonDialog1.ShowPrinterFor i = 1 To frmMDI.ActiveForm.CommonDialog1.CopiesPrint

8、er.Print RichTextBox1.TextNext iPrinter.EndDocExit Subnofile:If Err.Number = 32755 Then Exit SubEnd SubPrivate Sub FileExit_Click()Unload MeEnd SubPrivate Sub EditCopy_Click()Clipboard.SetText frmMDI.ActiveForm.ActiveControl.SelTextEnd SubPrivate Sub EditCut_Click()Clipboard.SetText frmMDI.ActiveFor

9、m.ActiveControl.SelTextfrmMDI.ActiveForm.ActiveControl.SelText = End SubPrivate Sub EditPaste_Click()frmMDI.ActiveForm.ActiveControl.SelText = Clipboard.GetTextEnd SubPrivate Sub FontName_Click()With frmMDI.ActiveForm.CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects.FontSize = ActiveForm.RichTextBox1

10、.SelFontSize.FontName = ActiveForm.RichTextBox1.SelFontName.Action = 4End WithWith frmMDI.ActiveForm.RichTextBox1.SelFontName = ActiveForm.CommonDialog1.FontName.SelFontSize = ActiveForm.CommonDialog1.FontSize.SelBold = ActiveForm.CommonDialog1.FontBold.SelItalic = ActiveForm.CommonDialog1.FontItali

11、c.SelUnderline = ActiveForm.CommonDialog1.FontUnderline.SelStrikeThru = ActiveForm.CommonDialog1.FontStrikethru.SelColor = ActiveForm.CommonDialog1.ColorEnd WithEnd SubPrivate Sub FontColor_Click()frmMDI.ActiveForm.CommonDialog1.Action = 3frmMDI.ActiveForm.RichTextBox1.SelColor = frmMDI.ActiveForm.C

12、ommonDialog1.ColorEnd SubPrivate Sub PutPicture_Click() With frmMDI.ActiveForm.CommonDialog1.Filter = *.bmp|*.bmp.Action = 1frmMDI.ActiveForm.RichTextBox1.OLEObjects.Add , , .FileNameEnd WithEnd SubPrivate Sub ViewStatusBar_Click()ViewStatusBar.Checked = Not ViewStatusBar.CheckedStatusBar1.Visible =

13、 Not ViewStatusBar.CheckedEnd SubPrivate Sub Floor_Click()Arrange 0End SubPrivate Sub HorizontalFloor_Click()Arrange 1End SubPrivate Sub VerticalFloor_Click()Arrange 2End SubPrivate Sub Help_Click()With frmMDI.ActiveForm.CommonDialog1.HelpCommand = cdlHelpContents.HelpFile = C:windowshelpnotepad.hlp

14、.HelpKey = 创建文本.ShowHelpEnd WithEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)If frmMDI.ActiveForm Is Nothing Then FileNewProcWith frmMDI.ActiveForm.ActiveControlSelect Case Button.KeyCase TNewFileNewProcCase TOpenFileOpenProcCase TSaveFileSaveProcCase TPrintfrmMDI.Activ

15、eForm.CommonDialog1.ShowPrinterCase TCutClipboard.SetText frmMDI.ActiveForm.ActiveControl.SelTextfrmMDI.ActiveForm.ActiveControl.SelText = Case TCopyClipboard.SetText frmMDI.ActiveForm.ActiveControl.SelTextCase TPastefrmMDI.ActiveForm.ActiveControl.SelText = Clipboard.GetTextCase TBold.SelBold = Not

16、 .SelBoldCase TUnderline.SelUnderline = Not .SelUnderlineCase TItalic.SelItalic = Not .SelItalicCase TLeft.SelAlignment = 0Case TRight.SelAlignment = 1End SelectEnd WithEnd SubPrivate Sub Combo1_Click()frmMDI.ActiveForm.RichTextBox1.SelFontSize = Val(Combo1.Text)End SubPublic Sub FileNewProc()Dim Ne

17、wDoc As New frmMDIChildStatic No As IntegerNo = No + 1NewDoc.Caption = no & NoNewDoc.ShowEnd SubPublic Sub FileOpenProc()If frmMDI.ActiveForm Is Nothing Then FileNewProcWith frmMDI.ActiveForm.CommonDialog1.Filter = Rtf文件(*.rtf)|*.rtf|Txt文件(*.txt)|*.txt.CommonDialog1.Action = 1If .CommonDialog1.Filte

18、rIndex = 1 Then.RichTextBox1.LoadFile .CommonDialog1.FileNameElse.RichTextBox1.LoadFile .CommonDialog1.FileName, 1End If.Caption = .CommonDialog1.FileNameEnd WithEnd SubPublic Sub FileSaveProc()With frmMDI.ActiveForm.CommonDialog1.Filter = Rtf文件（*.rtf)|*.rtf|Txt文件（*.txt)|*.txt.CommonDialog1.ShowSave

19、If .CommonDialog1.FilterIndex = 1 Then.RichTextBox1.SaveFile .CommonDialog1.FileNameElse.RichTextBox1.SaveFile .CommonDialog1.FileName, 1End IfEnd WithEnd Sub图片查看工具：Dim Tfilename As StringPrivate Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd Sub

20、Private Sub File1_Click()If Right(File1.Path, 1) = ThenTfilename = File1.Path + File1.FileNameElseTfilename = File1.Path + + File1.FileNameEnd IfPicture1.Picture = LoadPicture(Tfilename)Text1.Text = TfilenameEnd SubPrivate Sub File1_DblClick()If Right(File1.FileName, 3) = bmp ThenRetVal = Shell(C:WINDOWSsystem32mspaint.exe + File1.FileName, 1)End IfEnd SubPrivate Sub Form_Load()C