我找到了這樣一段處理方法,希望對你有所幫助:
十年的文山州網(wǎng)站建設經(jīng)驗,針對設計、前端、開發(fā)、售后、文案、推廣等六對一服務,響應快,48小時及時工作處理。網(wǎng)絡營銷推廣的優(yōu)勢是能夠根據(jù)用戶設備顯示端的尺寸不同,自動調整文山州建站的顯示方式,使網(wǎng)站能夠適用不同顯示終端,在瀏覽器中調整網(wǎng)站的寬度,無論在任何一種瀏覽器上瀏覽網(wǎng)站,都能展現(xiàn)優(yōu)雅布局與設計,從而大程度地提升瀏覽體驗。成都創(chuàng)新互聯(lián)公司從事“文山州網(wǎng)站設計”,“文山州網(wǎng)站推廣”以來,每個客戶項目都認真落實執(zhí)行。
枚舉類型如下:
Public Enum ConcertCode
BEIJING
SHANGHAI
GUANGZHOU
End Enum
如果要將比如“beijing”字符串轉換為ConcertCode.BEIJING的話,可以通過如下方法:
Dim c As ConcertCode = CType(Enum.Parse(Type.GetType(ConcertCode),字符串的變量,True), ConcertCode)
為什么增加的回答這么久還沒顯示。
我想知道你為什么要枚舉這些方法,是需要打印出來還是只是為了查看和調用?
1,如果只是為了查看和調用的話,不需要用代碼就能知道了。
打開VS,視圖-》對象瀏覽器。然后開了后,點瀏覽右邊的“。。。”,開了后。選COM活頁,再在里面選ThunderAgent 1.0 Type Library。再點添加。
添加好之后。在左邊的瀏覽窗口內就有了,展開THUNDERAGENTLib下面有幾個類和接口,展開類就有方法了。
2,如果是需要用代碼枚舉并打印。網(wǎng)上有相關的代碼,C#寫的。我就不帖了。自己搜一下。改成vb.net相信應該不會太難。
祝你好運。
Enum Week
周日 = 0
周一 = 1
周二 = 2
周三 = 3
周四 = 4
周五 = 5
周六 = 6
End Enum
Sub Main()
Dim myType As Type = GetType(Week)
MsgBox(Week.GetName(myType, Week.周二))
End Sub
沒有辦法直接取枚舉名,只能根據(jù)枚舉值,自己賦值
Private Enum duihuaA As Integer
第一個
第二個
第三個
第四個
第五個
第六個
第七個
第八個
End Enum
調用:
Select case X
case duihuaA.第一個
Return "第一個"
case duihuaA.第二個
Return "第二個"
..............
這個功能實現(xiàn)起來其實也很簡單,就是通過反射去讀取 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(),因為前者更快,而且對于不是枚舉常數(shù)的值會返回 null,不用進行額外的反射。
當然,這段代碼僅是一個簡單的示例,接下來會進行更詳細的分析。