本人很喜歡使用VB.NET啟動(dòng)Smartphone，在工作中也很喜歡總結(jié)關(guān)于VB.NET啟動(dòng)Smartphone的經(jīng)驗(yàn)教訓(xùn)，下面就這個(gè)問題來詳細(xì)說說吧。下面是一個(gè)簡(jiǎn)單示例，啟動(dòng)手機(jī)中的計(jì)算器程序，步驟如下：

1、啟動(dòng)VS.net2003，選Visual Basic 項(xiàng)目，在右邊的列表中選智能設(shè)備應(yīng)用程序，在下一個(gè)對(duì)話框中針對(duì)什么平臺(tái)選Smartphone，類型選Windows應(yīng)用程序。

2、將上面介紹的輔助類及API聲明的代碼做成兩個(gè)模塊。

3、為在form1的代碼模塊頂部加入如下語句：

Imports System.Runtime.InteropServices 

4、在 Form1的 load事件中加入啟動(dòng)計(jì)算器的代碼如下：

Private Sub Form1_Load(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles MyBase.Load  
Dim tudtShellExecuteInfo As New SHELLEXECUTEINFO  
Dim tstrExecutePath As String  
Dim tudtStartupInfo As STARTUPINFO  
Dim tudtProcessInfo As PROCESS_INFORMATION  
Dim tlngTempa As Int32  
 
With tudtStartupInfo  
.cb = Marshal.SizeOf(GetType(STARTUPINFO))  
End With  
 
With tudtShellExecuteInfo  
.cbSize = Marshal.SizeOf(GetType(SHELLEXECUTEINFO))  
.lpFile = clsDAMSMobileMarshal.fnStringToHLocalUni("/windows/calc.exe")  
.lpParameters = IntPtr.Zero 
'不使用參數(shù),如使用參數(shù)可按lpFile的方法申請(qǐng)字符串指針  
End With  
tlngTempa = ShellExecuteEx(tudtShellExecuteInfo) '啟動(dòng)程序  
 
tudtShellExecuteInfo.Dispose()  
If tlngTempa = 0 Then '使用shellexecuteex失敗，試圖使用createprocess再打開試試  
tlngTempa = CreateProcess("/windows/calc.exe", "/windows/calc.exe", IntPtr.Zero, 
IntPtr.Zero, _  0, 0, IntPtr.Zero, IntPtr.Zero, tudtStartupInfo, tudtProcessInfo)  
If tlngTempa <> 0 Then  
Call CloseHandle(tudtProcessInfo.hThread)  
Call CloseHandle(tudtProcessInfo.hProcess)  
End If  
End If  
End Sub 

以上就是VB.NET啟動(dòng)Smartphone中的應(yīng)用程序的常規(guī)方法，代碼在本人的計(jì)算機(jī)上測(cè)試通過，本人的計(jì)算機(jī)系統(tǒng)配置為WIN2000 高級(jí)服務(wù)器版+Visual Studio 2003（完全安裝）+Smartphone 2003 SDK(開發(fā)Smartphone應(yīng)用程序必備，在微軟的網(wǎng)站可以下載，微軟提供的免費(fèi)軟件啊！我喜歡8-)，網(wǎng)址如下： http://msdn.microsoft.com/mobility/downloads/sdks/default.aspx)。

【編輯推薦】

1. 實(shí)例講述VB.NET使用Log4Net
2. 三分鐘學(xué)會(huì)VB.NET轉(zhuǎn)換形態(tài)
3. VB.NET獲取硬盤信息四大法寶
4. 講述VB.NET調(diào)用Excel的好處
5. 簡(jiǎn)單例子概述VB.NET新窗體