西安交通大学实验报告

西安交通大学实验报告
课程__程序设计_实验名称_第十二周实验__第页共页
系别____临床医学_____________________ 实验日期 2007-06-17
专业班级___65___________组别_____________ 实验报告日期 2007-06-17
姓名____李晨________学号__06201096___ 报告退发 ( 订正、重做 ) 同组人_________________________________ 教师审批签字
一.实验目的
练习画图工具和菜单的创建。

二、实验内容
（－）实验题目一名称：
1．窗体设计
2．控件属性
在画图事件中，设置如下：
绿色画笔，黄色画笔（8象素），红色刷子，黑色刷子，30号黑体字，坐标点ptP1(15,10),ptP2(234,150)
绘制图形：
直线两条 (55,40)到（200，100）的绿色线和ptP1到ptP2的黄色线
黄色矩形左上点（55,50) ,长和宽为100
绿色椭圆左上点（0，0），外接矩形长200，宽400
黄色椭圆左上点（300，0），外接矩形长100，宽300
红色填充椭圆左上点（155，100），外接矩形长和宽为100
黑色填充椭圆，左上点（0，200），外接矩形长400，宽300
文字“看看我的作品”，用30号黑色字体，在（0,500)处
3．程序源代码
Public Class Form1
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim g As Graphics = e.Graphics
Dim pengreen As Pen = New Pen(Color.Green)
Dim penyellow As Pen = New Pen(Color.Yellow, 8)
Dim brushSolid1 As SolidBrush = New SolidBrush(Color.Red)
Dim brushSolid2 As SolidBrush = New SolidBrush(Color.Black)
Dim fontMyfavor As Font = New Font("黑体", 30, FontStyle.Italic)
Dim ptP1 As Point = New Point(15, 10)
Dim ptP2 As Point = New Point(234, 150)
g.DrawLine(pengreen, 55, 40, 200, 100)
g.DrawLine(penyellow, ptP1, ptP2)
g.DrawRectangle(penyellow, 55, 50, 100, 100)
g.DrawEllipse(pengreen, 0, 0, 200, 400)
g.DrawEllipse(penyellow, 300, 0, 100, 300)
g.FillEllipse(brushSolid1, 155, 100, 100, 100)
g.FillEllipse(brushSolid2, 0, 200, 400, 300)
g.DrawString("看看我的作品！", fontMyfavor, brushSolid1, 0, 500)
End Sub
End Class
4．实验结果
（二）实验题目二：创建菜单
5．窗体设计
菜单控件和一个文本框
6．控件属性
菜单中包含画图，输出文字和退出三项，画图中包含画直线，矩形和椭圆三个命令，输出文字中包含问候和显示时间，退出则关闭程序。

7．程序源代码
Public Class Form1
Private Sub问候ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles问候ToolStripMenuItem.Click
MsgBox("您好")
End Sub
Private Sub显示时间ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles显示时间ToolStripMenuItem.Click
MsgBox("现在时间是" & Now)
End Sub
Private Sub退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles退出ToolStripMenuItem.Click
End
End Sub
Private Sub画直线ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles画直线ToolStripMenuItem.Click
Dim g As Graphics
Dim redpen As Pen = New Pen(Color.Red)
g = TextBox1.CreateGraphics
g.DrawLine(redpen, 55, 55, 224, 99)
End Sub
Private Sub画矩形ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles画矩形ToolStripMenuItem.Click
Dim g As Graphics
g = TextBox1.CreateGraphics
Dim redpen As Pen = New Pen(Color.Red)
g.DrawRectangle(redpen, 55, 100, 100, 100)
End Sub
Private Sub画椭圆ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles画椭圆ToolStripMenuItem.Click
Dim g As Graphics
g = TextBox1.CreateGraphics
Dim redpen As Pen = New Pen(Color.Red)
g.DrawEllipse(redpen, 0, 0, 40, 30)
End Sub
End Class
8．实验结果
（三）实验题目三：写入文本
9．窗体设计
两个文本框，一个输入文字，一个输入文件路径；一个按钮控制写入。

10．控件属性
无特殊设置。

11．程序源代码
Imports System.io
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim writefile As New StreamWriter(TextBox2.Text)
Dim i As Integer
writefile.WriteLine(TextBox1.Text)
writefile.Close()
MsgBox("文本框的内容已写入指定的文件")
End Sub
End Class
12．实验结果
（四）实验题目四：读出文本
13．窗体设计
两个文本框，一个显示读出的文字，一个输入文件路径；一个按钮控制读出。

14．控件属性
无特殊设置。

15．程序源代码
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim readfile As New StreamReader(TextBox2.Text)
TextBox1.Text = readfile.ReadToEnd()
readfile.Close()
MsgBox("指定的文件内容已读出到文本框") End Sub
End Class
16．实验结果
三、个人小结
实验过程基本顺利，没有出现困难。