vb.net enum的應(yīng)用

這個貌似是屬性語法錯了吧……

創(chuàng)新互聯(lián)建站堅持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：網(wǎng)站制作、成都網(wǎng)站設(shè)計、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時代的北碚網(wǎng)站設(shè)計、移動媒體設(shè)計的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

應(yīng)該這樣寫，絕對不會有問題

Property ReadMonth

Get

Return ……

End Get

Set(value As Month)

…… = value

End Set

End Property

Property ... (... As ...)這么寫是錯的

在 Excel VBA 中定義類模塊，要如何才能自定義 Open 方法或函數(shù)？ （因?yàn)樵?VBE 中 Open 是保留字）

不能的，在 VB 中 Open 只能是關(guān)鍵字，

在調(diào)用時如果某一過程名不符合 VB 的要求，則需要在其兩側(cè)加方括號：

Dim MyCollection As New Collection

Dim NextEnum As Object

Set NextEnum = MyCollection.[_NewEnum]

照理說，與關(guān)鍵字可能發(fā)生沖突，也需要加方括號，

但我試了一下，實(shí)際不用。

可是，如果在聲明一個不符合 VB 的要求的過程名稱時，

加方括號卻遇到了問題：

Public Sub [Open]() '編譯錯誤

因此 VB 6.0（或是 VBA 6.0）是不支持聲明不符合要求的過程名稱的。

但在 VB.NET 中是可以的（雖然這么做不被推薦），例如：

Public Sub [Sub]()

Public Function [Property]() As Object

Dim [___] As Long

不過目前還沒有見到 VB.NET 取代 VBA 的位置。

除過在 Office 2010 的 InfoPath 中的代碼可以在 VB.NET 環(huán)境中編輯以外，

甚至 Office 2010 的 Word 還在用 VBA 6.0……

而至于人家 Workbooks，

因?yàn)槿思矣玫牟皇?VB，而是 C，

因此沒有這么嚴(yán)格的限制。

所以只能將就一下了……

起個 OpenWorkbook 或是 OpenSheet 之類的，

只要避開關(guān)鍵字就行……

VB.NET的枚舉求教解決方法

這個功能實(shí)現(xiàn)起來其實(shí)也很簡單，就是通過反射去讀取 DescriptionAttribute 的 Description 屬性的值，代碼如下所示：

/// summary

/// 返回枚舉項的描述信息。

/// /summary

/// param name="value"要獲取描述信息的枚舉項。/param

/// returns枚舉想的描述信息。/returns

public static string GetDescription(Enum value)

{

Type enumType = value.GetType();

// 獲取枚舉常數(shù)名稱。

string name = Enum.GetName(enumType, value);

if (name != null)

{

// 獲取枚舉字段。

FieldInfo fieldInfo = enumType.GetField(name);

if (fieldInfo != null)

{

// 獲取描述的屬性。

DescriptionAttribute attr = Attribute.GetCustomAttribute(fieldInfo,

typeof(DescriptionAttribute), false) as DescriptionAttribute;

if (attr != null)

{

return attr.Description;

}

}

}

return null;

}

這段代碼還是很容易看懂的，這里取得枚舉常數(shù)的名稱使用的是 Enum.GetName() 而不是 ToString()，因?yàn)榍罢吒欤覍τ诓皇敲杜e常數(shù)的值會返回 null，不用進(jìn)行額外的反射。

當(dāng)然，這段代碼僅是一個簡單的示例，接下來會進(jìn)行更詳細(xì)的分析。