As Any 都是在 Declare sub 中看見
一直很想知道 VB6 自己寫出的 Sub 能不能產生As Any 這種呼叫法
例如
Sub Form1_Load
dim ar1(11) as long
call QQQQ( ar1 )
End Sub
sub QQQQ( ar() As Any ) '請問有辦法實作這種寫法嗎
End Sub
uj5u.com熱心網友回復：
Declare 陳述句
用于在模塊級別中宣告對元件 (DLL) 中外部程序的參考。
語法 1
[Public | Private] Declare Sub name Lib "libname" [Alias "aliasname"] [([arglist])]
語法 2
[Public | Private] Declare Function name Lib "libname" [Alias "aliasname"] [([arglist])] [As type]
Declare 陳述句的語法包含下面部分：
部分 描述
Public 可選的。用于宣告對所有模塊中的所有其它程序都可以使用的程序。
Private 可選的。用于宣告只能在包含該宣告的模塊中使用的程序。
Sub 可選的（但 Sub 或 Function 二者需選其一）。表示該程序沒有回傳值。
Function 可選的（但 Sub 或 Function 二者需選其一）。表示該程序會回傳一個可用于運算式的值。
name 必需的。任何合法的程序名。注意元件的入口處（entry points）區分大小寫。
Lib 必需的。指明包含所宣告程序的元件或代碼資源。所有宣告都需要 Lib 子句。
libname 必需的。包含所宣告的程序元件名或代碼資源名。
Alias 可選的。表示將被呼叫的程序在元件 (DLL) 中還有另外的名稱。當外部程序名與某個關鍵字重名時，就可以使用這個引數。當元件的程序與同一范圍內的公用變數、常數或任何其它程序的名稱相同時，也可以使用 Alias。如果該元件程序中的某個字符不符合元件的命名約定時，也可以使用 Alias。
aliasname 可選的。元件或代碼資源中的程序名。如果首字符不是數字符號 (#)，則 aliasname 是元件中該程序的入口處的名稱。如果首字符是 (#)，則隨后的字符必須指定該程序的入口處的順序號。
arglist 可選的。代表呼叫該程序時需要傳遞的引數的變數表。
type 可選的。Function 程序回傳值的資料型別；可以是 Byte、布爾、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（只支持變長）或 Variant，用戶定義型別，或物件型別。
arglist 引數的語法以及語法各個部分如下：
[Optional] [ByVal | ByRef] [ParamArray] varname[( )] [As type]
部分 描述
Optional 可選的。表示引數不是必需的。如果使用該選項，則 arglist 中的后續引數都必需是可選的，而且必須都使用 Optional 關鍵字宣告。如果使用了 ParamArray，則任何引數都不能使用 Optional。
ByVal 可選的。表示該引數按值傳遞。
ByRef 表示該引數按地址傳遞。 ByRef 是 Visual Basic 的預設選項。
ParamArray 可選的。只用于 arglist 的最后一個引數，表示最后的引數是一個 Variant 元素的 Optional 的陣列。使用 ParamArray 關鍵字可以提供任意數目的引數。ParamArray 關鍵字不能與 ByVal、ByRef或 Optional 一起使用。
varname 必需的。代表傳給該程序的引數的變數名；遵循標準的變數命名約定。
( ) 對陣列變數是必需的。指明 varname 是一個陣列。
type 可選的。傳遞給該程序的引數的資料型別；可以是 Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（只支持變長）、Object、Variant、用戶自定義的型別或物件型別。
說明
對Function 程序而言，程序的資料型別決定其回傳值的資料型別。可以在 arglist 之后使用 As 子句來指定函式回傳值的資料型別。在 arglist 中，可以使用 As 子句來指定任何傳給該程序的引數的資料型別。不單可以指定為任何標準資料型別，還可以在 arglist 中指定 As Any 來禁止型別檢查，從而允許將任意資料型別傳遞給該程序。
空圓括號表示該 Sub 或 Function 程序沒有引數，且 Visual Basic 應確保不會傳遞任何引數。在下面的示例中，First 不帶任何引數。如果對 First 的呼叫中使用了引數，就會產生錯誤：
Declare Sub First Lib "MyLib" ()
如果帶引數表，則每次呼叫該程序時都要檢查引數的個數和型別。在下面的示例中，First 有一個 Long 引數：
Declare Sub First Lib "MyLib" (X As Long)
注意 在 Declare 陳述句的引數表中不能有定長的字串；只有變長的字串才能傳給程序。定長的字串可以作為程序引數使用，但在傳遞前都要被轉換為變長的字串。
注意 當所呼叫的外部程序需要一個值為 0 的字串時，就要使用 vbNullString 常數。該常數與零長度字串 ("") 是不相同的。
uj5u.com熱心網友回復：
VB6中的 Any 僅用于在API宣告中的，不能用在自定義程序或函式的引數中宣告變數型別。API宣告中的引數型別為 Any ，一般來說就代表那個引數值是一個32位指標值，
在呼叫陳述句中，通常用“變數參考”形式傳遞引數；或者用 ByVal Varptr( xxx ) 的方式傳遞給API使用。
uj5u.com熱心網友回復：
如果你自己寫出那種“標準DLL”，并且你能正確處理傳入的引數，當然也能”產生這種呼叫法“。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/73758.html
標籤：VB基礎類