- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
3#
發表於 2017-7-13 08:42
| 只看該作者
本帖最後由 GBKEE 於 2017-7-13 08:44 編輯
回復 1# rouber590324 - Option Explicit
- Sub Ex()
- Dim St(1 To 4)
- MsgBox "1.找不到\\Pcbfs04\SYS\APS\cfs-2w-4w-gerber\s17294-co.txt" & vbLf & "2.請檢查您的拼字與路徑" & vbLf & "3.若此為2W料號，請忽略此訊息"
- St(1) = "1.找不到\\Pcbfs04\SYS\APS\cfs-2w-4w-gerber\s17294-co.txt"
- St(2) = "2.請檢查您的拼字與路徑"
- St(3) = "3.若此為2W料號，請忽略此訊息"
- MsgBox Join(St, vbLf)
-
- MsgBox Join(St, Chr(10))
- End Sub
- Miscellaneous 常數
- 以下的常數是由 Visual Basic for Applications 中的型態程式庫所定義，可使用於程式碼中的任何地方，以用來代替實際值：
- 常數 等於 說明
- vbCrLf Chr(13) + Chr(10) 結合換行字元與復位字元。
- vbCr Chr(13) 復位字元。
- vbLf Chr(10) 換行字元。
- vbNewLine Chr(13) + Chr(10) 作業平台所指定的新換行字元，其中任何一個皆適用目前的作業平台。
- vbNullChar Chr(0) 字元的值為 0。
- vbNullString 字串的值為 0。 通常用來呼叫外部程序；與長度為零的字串("")不一樣。
- vbObjectError -2147221504 使用者定義的錯誤號碼應該比此值大。例如：
- Err.Raise Number = vbObjectError + 1000
- vbTab Chr(9) 定位點字元。
- vbBack Chr(8) 退格字元。
- vbFormFeed Chr(12) 在 Microsoft Windows中沒有作用。
- vbVerticalTab Chr(11) 在 Microsoft Windows中沒有作用
|
|
發表於 2017-7-12 13:16
| 
