VB程序设计报告格式.doc

Visual Basic程序设计题目：看图工具学生姓名： 学生班级： 1102 指导教师： 提交日期：1. 看图工具介绍（四号字，宋体，加粗） 实现简单的看图2. 程序界面图1 看图工具主界面3. 程序设计3.1 变量说明 定义一个记录文件名及其路径的变量 Dim strFilePath As String 用于设于PictureBox控件背景颜色变量 Dim bkcolor As Color 定义用于处理图片拖动的变量 PictureBox控件相对于其容器左上角的距离 Private m_Leftx As Integer Private m_Lefty As Integer 鼠标当前的位置 Dim m_MousePosX As Integer Dim m_MousePosY As Integer 图像移动的距离 Dim m_DriftX As IntegerDim m_DriftY As Integer3.2 过程说明l 使文件列表框的内容跟着目录列表框的选择而变化 l DirListBox1_SelectedIndexChanged（）l 赋初值，记下PictureBox1控件相对其容器左上角的距离l Form1_Load（）l 使目录列表框的内容跟着驱动器列表框的选择而变化l DriveListBox1_SelectedIndexChanged（）l 使目录列表框的内容跟着驱动器列表框的选择变化而变化l DriveListBox1_TextChanged（）l 使文件列表框的内容跟着目录列表框的选择而变化l DirListBox1_SelectedIndexChanged（）l 单击文件列表框的某项内容时记下该文件的路径及其名称l FileListBox1_Click（）双击文件列表框某个图片，使之在图片框中显示 FileListBox1_DoubleClick（）4. 源码说明 使目录列表框的内容跟着驱动器列表框的选择而变化 Private Sub DriveListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DriveListBox1.SelectedIndexChanged DirListBox1.Path = DriveListBox1.Drive End Sub 使目录列表框的内容跟着驱动器列表框的选择变化而变化 Private Sub DriveListBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DriveListBox1.TextChanged DirListBox1.Path = DriveListBox1.Drive End Sub 使文件列表框的内容跟着目录列表框的选择而变化 Private Sub DirListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DirListBox1.SelectedIndexChanged FileListBox1.Path = DirListBox1.Path End Sub 使文件列表框的内容跟着目录列表框的选择变化而变化 Private Sub DirListBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DirListBox1.TextChanged FileListBox1.Path = DirListBox1.Path End Sub 单击文件列表框的某项内容时记下该文件的路径及其名称 Private Sub FileListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FileListBox1.Click strFilePath = DirListBox1.Path & & FileListBox1.FileName End Sub 双击文件列表框某个图片，使之在图片框中显示 Private Sub FileListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles FileListBox1.DoubleClick Try PictureBox1.Image = Image.FromFile(strFilePath) 在状态栏中显示此图片文件的路径及文件名 filename.Text = strFilePath Catch ex As Exception End TryEnd Sub Private Sub 原图显示ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 原图显示ToolStripMenuItem.Click PictureBox1.SizeMode = PictureBoxSizeMode.Normal End Sub Private Sub 自动缩放图片ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 自动缩放图片ToolStripMenuItem.Click PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage End Sub Private Sub 图片居中ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 图片居中ToolStripMenuItem.Click PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 赋初值，记下PictureBox1控件相对其容器左上角的距离 定义处理鼠标按下的事件 当鼠标按下时，将鼠标变成手形，并且记录下当前鼠标的位置 Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown Try Me.Cursor = System.Windows.Forms.Cursors.Hand m_MousePosX = e.X m_MousePosY = e.Y Catch ex As Exception End Try End Sub 定义处理鼠标释放的事件 处理鼠标按键释放的事件，根据鼠标按下时保存的鼠标位置，和当前鼠标的位置，计算鼠标移动偏移量，借此调用移动图片的函数，移动图片 Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp Try 计算出鼠标的偏移量 m_DriftX = m_MousePosX - e.X m_DriftY = m_MousePosY - e.Y 计算出新的PictureBox1控件相对其容器左上角的距离 m_Leftx = m_Leftx - m_DriftX m_Lefty = m_Lefty - m_DriftY picturemove(sender, e) 当鼠标释放时，将鼠标还原为箭头形状 Me.Cursor = System.Windows.Forms.Cursors.Arrow Catch ex As Exception End Try End Sub 根据偏移量计算出图片位置，重画图片 Private Sub picturemove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Try Dim myBit As New System.Drawing.Bitmap(PictureBox1.Image) Dim myPicGrh As System.Drawing.Graphics = Me.PictureBox1.CreateGraphics 清除整个绘图画面，并已指定的背景颜色填充 myPicGrh.Clear(Me.PictureBox1.BackColor) 在指定的位置使用图像的原始物理大小绘制指定的图像 myPicGrh.DrawImageUnscaled(myBit, m_Leftx, m_Lefty) myBit.Dispose() myPicGrh.Dispose() Catch ex As Exception End Try End Sub Private Sub 自动缩放图片框ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 自动缩放图片框ToolStripMenuItem.Click PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize End Sub 当窗体大小发生变化时保证窗体上的界面元素不乱 Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize 使文件列表框的高度等于窗体高度一般，且会靠着底部显示（由于Dock属性设置为Bottom） FileListBox1.Height = Me.Height / 2 使目录列表框的高度等于窗体高度一般再减去驱动器列表框的高度，即让它们紧挨着排列 DirListBox1.Height = Me.Height / 2 - DriveListBox1.Height 使 Panel2控件宽度等于窗体宽度减去 Panel1宽度，为了界面美观再减去了 Panel2.Width = Me.Width - 199 PictureBox1.Width = Panel2.Width PictureBox1.Height = Panel2.Height End Sub Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click Me.Close() End Sub Private Sub 背景色ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As Syst