Visual Studio
與Visual Studio
的區別並不是非常大
但是不得不說Visual Studio
確實要比之前的Visual Studio
更加人性化和實用化了
但是唯一的缺點是Visual Studio
需要配置比較高的PC才能發揮出真正的效率
對於使開發平台的人們來說
使用Visual Studio
進行開發是更好的一種選擇
也是一種趨勢
Visual Studio所有系列的產品都附帶了大量的控件
這些控件都擁有非常強大的功能
利用這些控件我們完全可以編寫出一款好的軟件
本文將通過一個完整的程序實例來讓讀者了解到編寫一個基本的幻燈片應用程序所需要用到的控件和界面的布局等
希望這篇文章對初學者還是擁有一定經驗的編程人員會有所幫助
打開 Visual Studio
在文件 (File) 菜單上
單擊新建項目 (New Project)
在新建項目 (New Project) 對話框的模板 (Templates) 窗格中
單擊 Windows 應用程序(Windows Application)
單擊確定 (OK)如圖
選擇Form
窗體進行如下屬性的修改
WindowState
Maximized
AutoScaleMode
Inherit
在Form
窗體中添加MenuStrip
Timer
和PictureBox
控件
選中MenuStrip
控件輸入以下文字(作為菜單選項)如圖
<播放幻燈片>
<前一張>
<後一張>
<暫停>
接下來我們需要選擇Timer控件將Interval設置為:
隨後我們需要選擇PictureBox控件適當的填充到窗體中選擇Dock=Fill即可
好了界面工作已經完成接下來我們需要輸入代碼了隨後我們可以隨意放入張精美的圖片需要特別注意的是我們需要在程序根目錄中建立一個存放圖片文件的文件夾(在調試環境下需要存放在\bin\Debug)名字命名為images將放入的圖片文件名重命名為數字進行編號（如等格式為jpg）否則無法顯示出圖片
首先進行聲明
Public Class Form
Inherits SystemWindowsFormsForm
Dim i As Integer =
進入Form_Load事件
Private Sub Form_Load(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles MyBaseLoad
PictureBoxImage = ImageFromFile(images// + jpg)
End Sub
進入幻燈片播放ToolStripMenuItem_Click事件
Private Sub 幻燈片播放ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 幻燈片播放ToolStripMenuItemClick
TimerEnabled = True
End Sub
進入前一張ToolStripMenuItem_Click事件
Private Sub 前一張ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 前一張ToolStripMenuItemClick
If i = Then 設置默認圖片為張
i =
End If
i += 每次加調用圖片
PictureBoxImage = ImageFromFile(images// + iToString + jpg) 圖片的路徑
End Sub
進入後一張ToolStripMenuItem_Click事件
Private Sub 後一張ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 後一張ToolStripMenuItemClick
i =
If i = Then
i =
End If
PictureBoxImage = ImageFromFile(images// + iToString + jpg)
End Sub
進入暫停ToolStripMenuItem_Click事件
Private Sub 暫停ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 暫停ToolStripMenuItemClick
TimerEnabled = False
End Sub
進入Timer_Tick事件
Private Sub Timer_Tick(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles TimerTick
If i <> Then
i +=
PictureBoxImage = ImageFromFile(images// + iToString + jpg)
Else
i =
End If
End Sub
進入PictureBox_MouseDown事件
If eButton = WindowsFormsMouseButtonsRight Then
i =
If i = Then
i =
End If
PictureBoxImage = ImageFromFile(images// + iToString + jpg)
End If
If eButton = WindowsFormsMouseButtonsLeft Then
If i = Then
i =
End If
i +=
PictureBoxImage = ImageFromFile(images// + iToString + jpg)
End If
End Sub
代碼輸入完畢我們運行程序進行測試如圖
程序運行正常能夠進行幻燈片式播放圖片如果有感興趣的朋友還可以對程序進行修改如自定義添加圖片等功能使得程序功能更多
From:http://tw.wingwit.com/Article/program/net/201311/13286.html
