這篇文章給大家分享的是有關(guān)如何利用VB.NET啟動(dòng)Smartphone的內(nèi)容。小編覺(jué)得挺實(shí)用的，因此分享給大家做個(gè)參考，一起跟隨小編過(guò)來(lái)看看吧。

海曙網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),海曙網(wǎng)站設(shè)計(jì)制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為海曙上千余家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站制作要多少錢(qián)，請(qǐng)找那個(gè)售后服務(wù)好的海曙做網(wǎng)站的公司定做！

下面是一個(gè)簡(jiǎn)單示例，啟動(dòng)手機(jī)中的計(jì)算器程序，步驟如下：

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

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

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

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再打開(kāi)試試  
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 

感謝各位的閱讀！關(guān)于“如何利用VB.NET啟動(dòng)Smartphone”這篇文章就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，讓大家可以學(xué)到更多知識(shí)，如果覺(jué)得文章不錯(cuò)，可以把它分享出去讓更多的人看到吧！

網(wǎng)頁(yè)名稱(chēng)：如何利用VB.NET啟動(dòng)Smartphone
URL地址：http://www.chinadenli.net/article32/jcojpc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供全網(wǎng)營(yíng)銷(xiāo)推廣、響應(yīng)式網(wǎng)站、定制網(wǎng)站、外貿(mào)網(wǎng)站建設(shè)、搜索引擎優(yōu)化、營(yíng)銷(xiāo)型網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)