強力鎯頭 VB BLOG

如何在 C# 中調用 VB.Net 2005 的 My 物件及其他函數

相信玩過 VB 2005 的朋友都知道它內建了個 My 物件，功能強大使用方便。

My 物件將特定功能封裝，無需宣告，不用建個體，直接使用，提供 VB 開發者輕鬆建構應用程式。

物 件	動 作
My.Application 物件	存取應用程式資訊和服務。
My.Computer 物件	存取主機電腦及其資源、服務和資料。
My.Forms 物件	存取目前專案中的表單。
My.Log 物件	存取應用程式記錄檔。
My.Request 物件	存取目前的 Web 要求。
My.Resources 物件	存取資源項目。
My.Response 物件	存取目前的 Web 回應。
My.Settings 物件	存取使用者和應用程式層級設定。
My.User 物件	存取目前使用者的安全性內容。
My.WebServices 物件	存取目前專案所參考的 XML Web Service。

詳細使用請參考 MSDN

================================================================

話說 .Net 上的工具，可跨語言整合使用.. 那要如何在 C# 中來使用 VB 的 My 物件或函數ㄋ ??

參考底下 Sample

注意 :

請先加入參考 "Microsoft.VisualBasic"

using Microsoft.VisualBasic;

using Microsoft.VisualBasic.ApplicationServices;

using Microsoft.VisualBasic.CompilerServices;

using Microsoft.VisualBasic.Devices;

using Microsoft.VisualBasic.FileIO;

using Microsoft.VisualBasic.Logging;

using Microsoft.VisualBasic.MyServices;

Sample 1 :

C# 調用VB.Net 2005 My 物件Computer.Network.IsAvailable來檢查目前網路連線狀態

C#

if (new Computer().Network.IsAvailable)

{

MessageBox.Show("網路連線正常!!");

}

else

{

MessageBox.Show("無法連線網路!!");

}

================================================================

Sample 2 :

C# 調用VB.Net 2005 My 物件Computer.Network.Ping("168.95.192.1") 來Ping 某台主機位置

C#

if (new Computer().Network.Ping("168.95.192.1"))

{

MessageBox.Show("Ping 的到主機!!");

}

else

{

MessageBox.Show("Ping 不到主機!!");

}

================================================================

Sample 3 :

C# 調用VB.Net 2005 StrConv 來進行繁簡字體轉換

VB.Net

Dim strData As String

strData = StrConv("強力鎯頭的VB部落", VbStrConv.SimplifiedChinese, 2052)

MessageBox.Show (strData) ' 顯示簡體中文字

C#

string strData;

strData = Strings.StrConv("強力鎯頭的VB部落", VbStrConv.SimplifiedChinese, 2052);

MessageBox.Show (strData); // 顯示簡體中文字

PS : 簡體中文(GB2312) 系統的 LocaleID (LCID) 為2052

================================================================

其他功能都大同小異! 依此類推即可囉 !