VB程序设计报告格式.docVIP

Visual Basic程序设计 题目：看图工具 学生姓名： 学生班级： 1102 指导教师： 提交日期： 看图工具介绍（四号字，宋体，加粗） 实现简单的看图 程序界面 图1 看图工具主界面 程序设计 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 Integer Dim m_DriftY As Integer3.2 过程说明 '使文件列表框的内容跟着目录列表框的选择而变化 DirListBox1_SelectedIndexChanged（） '赋初值，记下PictureBox1控件相对其容器左上角的距离 Form1_Load（） '使目录列表框的内容跟着驱动器列表框的选择而变化 DriveListBox1_SelectedIndexChanged（） '使目录列表框的内容跟着驱动器列表框的选择变化而变化 DriveListBox1_TextChanged（） '使文件列表框的内容跟着目录列表框的选择而变化 DirListBox1_SelectedIndexChanged（） '单击文件列表框的某项内容时记下该文件的路径及其名称 FileListBox1_Click（） '双击文件列表框某个图片，使之在图片框中显示 FileListBox1_DoubleClick（） 源码说明 '使目录列表框的内容跟着驱动器列表框的选择而变化 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