熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

用VB.net2008編寫幻燈片程序

2022-06-13   來源: .NET編程 
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控件輸入以下文字(作為菜單選項)如圖

  <播放幻燈片>

  <前一張>

  <後一張>

  <暫停>

  
用2008編寫幻燈片程序

  接下來我們需要選擇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
    推薦文章
    Copyright © 2005-2022 電腦知識網 Computer Knowledge   All rights reserved.