電腦學習園地

Dim DirInfo As IO.DirectoryInfo
DirInfo = New IO.DirectoryInfo("D:\test")
For Each file In DirInfo.GetFiles("*.*", IO.SearchOption.TopDirectoryOnly)
'設定抓檔案(*.jpg)限定在此資料夾下不包含子資料夾
If ListBox1.Items.Contains(Microsoft.VisualBasic.Right(file.Name, Len(file.Name) - InStr(1, file.Name, "."))) = False Then
ListBox1.Items.Add(Microsoft.VisualBasic.Right(file.Name, Len(file.Name) - InStr(1, file.Name, ".")))
End If
Next file

http://club.excelhome.net/dispbbs.asp?BoardID=2&ID=170390&replyID=&skin=0
VBA語句集100句(第1輯)我將學習VBA過程中常用的語句進行了歸納,希望能對Excel愛好者和VBA初學者有所幫助. VBA語句集
(第1輯) 定製模塊行為
(1) Option Explicit '強制對模塊內所有變量進行聲明
Option Private Module '標記模塊為私有，僅對同一工程中其它模塊有用，在宏對話框中不顯示
Option Compare Text '字符串不區分大小寫
Option Base 1 '指定數組的第一個下標為1
(2) On Error Resume Next '忽略錯誤繼續執行VBA代碼,避免出現錯誤消息
(3) On Error GoTo ErrorHandler '當錯誤發生時跳轉到過程中的某個位置
(4) On Error GoTo 0 '恢復正常的錯誤提示
(5) Application.DisplayAlerts=False '在程序執行過程中使出現的警告框不顯示
(6) Application.ScreenUpdating=False '關閉屏幕刷新
Application.ScreenUpdating=True '打開屏幕刷新
(7) Application.Enable.CancelKey=xlDisabled '禁用Ctrl+Break中止宏運行的功能

在Visual Basic應用程式建立動畫需要使用Timer計時器控制項，它可以控制繪圖或圖片顯示。 Timer控制項是在指定間隔時間自動產生事件，以便事件處理程序能夠建立動畫效果。 在Visual Basic應用程式只需使用計時器控制項，配合圖片載入與顯示，每次調整圖片位置後，就可以建立圖片移動的動畫效果。 Timer控制項常用屬性與事件

狀態列控制項 在Windows應用程式表單的最下方可以新增狀態列控制項，其主要目的是顯示一些程式執行的狀態資訊， Visual Basic是StatusStrip控制項，只需在「工具箱」視窗按二下StatusStrip控制項，就可以在表單新增狀態列控制項。 StatusStrip控制項的相關屬性說明

工具列控制項-項目 Visual Basic是使用ToolStrip控制項來建立工具列，它是一種容器控制項，可以新增各種項目控制項。

項目控制項

說明

ToolStripButton

建立工具列的按鈕控制項

ToolStripLabel

新增工具列的標籤控制項

ToolStripTextBox

新增工具列的文字方塊控制項

ToolStripSeparator

在工具列建立一條分隔線

功能表控制項 （MenuStrip）可以在表單上方的標題列下建立指定功能的功能表列，每一個功能表列的選項本身或選單中的選項都是ToolStripMenuItem控制項。 建立功能表控制項-新增

當在文字方塊控制項輸入文字內容時，控制項會觸發一系列鍵盤事件，如下表所示：

事件

說明

KeyDown

當使用者在控制項擁有焦點時，按下按鍵時產生的事件

KeyPress

當使用者按下和釋放ANSI字碼的按鍵時產生此事件，可以取得輸入的字元

KeyUp

當使用者在控制項擁有焦點時，放開按鍵時產生的事件

滑鼠事件是在表單或控制項上操作滑鼠時，移動、按一下和按二下等操作所觸發的一系列事件，如下表所示：

事件

說明

MouseEnter

當滑鼠進入控制項時，就會觸發此事件

MouseMove

當滑鼠移動時，就會觸發此事件

MouseDown

當按下滑鼠按鍵時，就會觸發此事件

Click

當滑鼠按一下時，就會觸發此事件

DoubleClick

當滑鼠按二下，即雙擊時，就會觸發此事件

MouseUp

當滑鼠按鍵放開時，就會觸發此事件

MouseLeave

當滑鼠離開控制項時，就會觸發此事件

表單和控制項預設的事件處理程序，如下表所示：

控制項種類

預設事件

預設的事件處理程序

表單（Form1）

Load

Form1_Load()

按鈕（Button1）

Click

Button1_Click()

標籤（Label1）

Click

Label1_Click()

文字方塊（TextBox1）

TextChanged

TextBox1_TextChanged()

核取方塊（CheckBox1）

CheckedChanged

CheckBox1_CheckedChanged()

選項按鈕（RadioButton1）

CheckedChanged

RadioButton1_CheckedChanged()

字串是String資料型態的變數或字串值，字串是0或多個依序的Char資料型態的字元，以雙引號括起的文字內容，如下所示：
Dim str As String ="Visual Basic 2010程式設計"
或
Dim str1 As String
str1 = "Visual Basic 2010程式設計"