VB程序設(shè)計報告格式.doc

Visual Basic程序設(shè)計題目：看圖工具學(xué)生姓名： 學(xué)生班級： 1102 指導(dǎo)教師： 提交日期：1. 看圖工具介紹（四號字，宋體，加粗） 實現(xiàn)簡單的看圖2. 程序界面圖1 看圖工具主界面3. 程序設(shè)計3.1 變量說明 定義一個記錄文件名及其路徑的變量 Dim strFilePath As String 用于設(shè)于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 使文件列表框的內(nèi)容跟著目錄列表框的選擇而變化 l DirListBox1_SelectedIndexChanged（）l 賦初值，記下PictureBox1控件相對其容器左上角的距離l Form1_Load（）l 使目錄列表框的內(nèi)容跟著驅(qū)動器列表框的選擇而變化l DriveListBox1_SelectedIndexChanged（）l 使目錄列表框的內(nèi)容跟著驅(qū)動器列表框的選擇變化而變化l DriveListBox1_TextChanged（）l 使文件列表框的內(nèi)容跟著目錄列表框的選擇而變化l DirListBox1_SelectedIndexChanged（）l 單擊文件列表框的某項內(nèi)容時記下該文件的路徑及其名稱l FileListBox1_Click（）雙擊文件列表框某個圖片，使之在圖片框中顯示 FileListBox1_DoubleClick（）4. 源碼說明 使目錄列表框的內(nèi)容跟著驅(qū)動器列表框的選擇而變化 Private Sub DriveListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DriveListBox1.SelectedIndexChanged DirListBox1.Path = DriveListBox1.Drive End Sub 使目錄列表框的內(nèi)容跟著驅(qū)動器列表框的選擇變化而變化 Private Sub DriveListBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DriveListBox1.TextChanged DirListBox1.Path = DriveListBox1.Drive End Sub 使文件列表框的內(nèi)容跟著目錄列表框的選擇而變化 Private Sub DirListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DirListBox1.SelectedIndexChanged FileListBox1.Path = DirListBox1.Path End Sub 使文件列表框的內(nèi)容跟著目錄列表框的選擇變化而變化 Private Sub DirListBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DirListBox1.TextChanged FileListBox1.Path = DirListBox1.Path End Sub 單擊文件列表框的某項內(nèi)容時記下該文件的路徑及其名稱 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) 在狀態(tài)欄中顯示此圖片文件的路徑及文件名 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 定義處理鼠標釋放的事件 處理鼠標按鍵釋放的事件，根據(jù)鼠標按下時保存的鼠標位置，和當前鼠標的位置，計算鼠標移動偏移量，借此調(diào)用移動圖片的函數(shù)，移動圖片 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 根據(jù)偏移量計算出圖片位置，重畫圖片 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 當窗體大小發(fā)生變化時保證窗體上的界面元素不亂 Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize 使文件列表框的高度等于窗體高度一般，且會靠著底部顯示（由于Dock屬性設(shè)置為Bottom） FileListBox1.Height = Me.Height / 2 使目錄列表框的高度等于窗體高度一般再減去驅(qū)動器列表框的高度，即讓它們緊挨著排列 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