日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
談?wù)刅B.NET API函數(shù)應(yīng)用

大家都知道VB開發(fā)的好處，而且它在Windows環(huán)境下越來越多的開發(fā)者采用。但如果要開發(fā)出專業(yè)的Windows軟件，還需采用大量的VB.NET API函數(shù)，以下結(jié)合開發(fā)管理軟件的經(jīng)驗(yàn)談幾點(diǎn)體會。

程序中判定Windows的版本
眾所周知，Windows3.x各版本或多或少會有些差別，為了使開發(fā)程序避免出現(xiàn)莫名其妙的錯(cuò)誤，***在程序運(yùn)行前自動判定Windows的版本。采用API提供的函數(shù)getversion很容易實(shí)現(xiàn)這一點(diǎn)。函數(shù)聲明如下： Declare Function GetVersion Lib"Kernel"() As Integer 此函數(shù)沒有參數(shù)，返回值為Windows的版本號，其中版本號的低位字節(jié)為Windows的主版本號，版本號的高位字節(jié)返回Windows的次版本號。判別過程如下：

 
 
 
      
  
  
  1. Private Sub Form_Load ()   
    2.   
  
  
  2. Dim ver As Integer   
    3.   
  
  
  3. Dim major As Integer   
    4.   
  
  
  4. Dim minor As Integer   
    5.   
  
  
  5. Ver = GetVersion ()   
    6.   
  
  
  6. major = ver And ＆HFF   
    7.   
  
  
  7. minor = (ver And ＆HFF00) \ 256   
    8.   
  
  
  8. If major <> 3 And minor <> 10 Then   
    9.   
  
  
  9. MsgBox "版本不正確!"   
    10.   
  
  
  10. Exit Sub   
    11.   
  
  
  11. End If   
    12.   
  
  
  12. End Sub  
    13.

程序中判斷Windows的安裝目錄
一般VB開發(fā)出來的程序包含vbrun300.dll等輔助文件和.vbx文件，它們均需安裝到Windows目錄(c:\windows)或Windows的系統(tǒng)目錄(c:\windows\system)下，但因?yàn)橛脩舭惭bWindows時(shí)可能會改變Windows的目錄名(如c:\windows)，使用安裝軟件后，不能正確運(yùn)行.API中提供的GetwinDowsdirectory或GetSystemDirectory較好地解決了這個(gè)問題。函數(shù)聲明如下：

 
 
 
      
  
  
  1. Declare Function GetSystemDirectory Lib "Kernel"(ByVal lpBuffer As   
    2.   
  
  
  2. String,ByVal nSize As Integer) As Integer  
    3.

其中參數(shù)lpbuffer為字串變量，將返回實(shí)際Windows目錄或Windows的系統(tǒng)目錄，nsize為lpbuffer的字串變量的大小，函數(shù)返回值均為實(shí)際目錄的長度。檢查VB.NET API函數(shù)如下：

 
 
 
      
  
  
  1. Function checkdir() As Boolean   
    2.   
  
  
  2. Dim windir As String ＊ 200   
    3.   
  
  
  3. Dim winsys As String ＊ 200   
    4.   
  
  
  4. Dim winl As Integer   
    5.   
  
  
  5. Dim wins As Integer   
    6.   
  
  
  6. Dim s1 As String   
    7.   
  
  
  7. Dim s2 As String   
    8.   
  
  
  8. winl = GetWindowsDirectory(windir,200)   
    9.   
  
  
  9. winl = GetSystemDirectory(winsys,200)   
    10.   
  
  
  10. s1 = Mid ＄(windir,1,winl)   
    11.   
  
  
  11. s2 = Mid ＄(winsys,1,wins)   
    12.   
  
  
  12. If Wins = 0 Or wins = 0 Then   
    13.   
  
  
  13. checkdir = False   
    14.   
  
  
  14. Exit Function   
    15.   
  
  
  15. End If   
    16.   
  
  
  16. If s1 <> "C:\WINDOWS" Or s2 <> "C:\WINDOWS\SYSTEM" Then   
    17.   
  
  
  17. checkdir = False   
    18.   
  
  
  18. Exit Function   
    19.   
  
  
  19. End If   
    20.   
  
  
  20. checkdir = True   
    21.   
  
  
  21. End Function  
    22.

shell 出現(xiàn)的問題
通常編程時(shí)要調(diào)用外部程序，VB提供了shell()函數(shù)，但是如果shell調(diào)用的外部程序找不到，則運(yùn)行的程序失去控制，VB給出提示"filenotfound"，改變這種現(xiàn)象，要在程序中加入onerrorgoto，比較麻煩，VB.NET API函數(shù)中的winexec很好地解決了這個(gè)問題。函數(shù)聲明如下：

 
 
 
      
  
  
  1. Declare Function WinExec Lib "Kernel"(ByVal lpCmdLine As String,   
    2.   
  
  
  2. ByVal nCmdShow As Integer) As Integer  
    3.

其中l(wèi)pCmdline為調(diào)用的外部文件名，NcmdShow為外部程序的運(yùn)行狀態(tài)，如隱藏窗口、最小化窗口等等。如返回值大于32表示執(zhí)行功能，否則返回錯(cuò)誤碼。例程如下：

 
 
 
      
  
  
  1. sub command1_click   
    2.   
  
  
  2. ds i as integer   
    3.   
  
  
  3. i=winexec("notepad.exe","c:\wst.txt",9)   
    4.   
  
  
  4. '參數(shù)9 即SW_RESTORE,也就是激活并顯示窗口   
    5.   
  
  
  5. if i>32 then   
    6.   
  
  
  6. msgbox "調(diào)用正確!!"   
    7.   
  
  
  7. else   
    8.   
  
  
  8. msgbox "調(diào)用錯(cuò)誤!!"   
    9.   
  
  
  9. end if   
    10.   
  
  
  10. end sub  
    11.

【編輯推薦】

  1. 介紹VB.NET繪圖方法的三個(gè)方面
  2. 快捷簡單的VB.NET編程事件方法介紹
  3. 簡單簡述VB.NET繪制圖形
  4. 三個(gè)案例揭秘VB.NET語法規(guī)則
  5. VB.NET實(shí)例教程對關(guān)于Array問題的解決

名稱欄目：談?wù)刅B.NET API函數(shù)應(yīng)用
本文URL：http://www.5511xx.com/article/djejijh.html