VisualBasic軟件設(shè)計中的幾個問題

2019-11-18 17:44:12

字體：大中小

供稿：網(wǎng)友

在軟件開發(fā)過程中，有一些看似很簡單的問題，卻很容易被一般的開發(fā)人員所忽略，這些“Bugs”的存在，影響我們軟件走向商品化。下面所列出的是筆者在使用VisualBasic開發(fā)軟件時，碰到了幾個這類問題，這里給出其解決方法，供大家探討交流。

一防止應(yīng)用程序加載兩份
當我們的應(yīng)用程序在Windows下運行后，在操作過程中，有時會把它最小化隱藏起來，或者切換到程序管理器下進行其它操作，而后又想進入原來的應(yīng)用程序，這時如果忘記了剛才啟動的應(yīng)用程序，又去重新啟動該應(yīng)用程序，在內(nèi)存中就同時加載了兩份同樣的應(yīng)用程序，這樣不但占用了內(nèi)存空間，而且容易引起誤操作，造成數(shù)據(jù)的損失。為了避免這種情況發(fā)生，就需要程序能夠給出提示“已經(jīng)加載過”或直接進入第一次被加載的應(yīng)用程序中。對于這個問題，看起來比較難辦，其實我們只要對Windows管理應(yīng)用程序的機理有所了解，就很容易解決。
我們知道，對于每一個運行著的應(yīng)用程序，Windows都分配給一個唯一的“句柄(Handle)”和一個模塊代碼(Module)。當同時運行兩份相同的程序時，兩份程序的模塊代碼都相同，因此，只要找到內(nèi)存中兩個相同的模塊代碼，我們就知道有兩份程序在運行，從而可以控制它。Windows提供的兩個接口函數(shù)GetModuleHandle和GetModuleUsage可以完成此任務(wù)。具體方法如下，首先在一個新的模塊文件(*.Bas)中聲明API函數(shù)。

DeclareFunctionGetModuleHandleLib"Kernel"(ByVallpPRogName$)

DeclareFunctionGetModuleUsageLib"Kernel"(ByValhModule)

同時建立一個子過程，名字為main，子過程中的代碼如下：

SubMain()
OnErrorGoToerrMain‘錯誤處理
DimhModule‘模塊句柄
DimAppCount‘應(yīng)用程序的個數(shù)
appPath$=app.Path "/"‘應(yīng)用程序的啟動路徑
hModule=GetModuleHandle(appPath$ app.EXEName ".exe")‘獲得該程序的句柄。
AppCount=GetModuleUsage(hModule)‘獲得模塊代碼，即運行的應(yīng)用程序數(shù)目。
lfAppCount>1Then‘同一應(yīng)用程序數(shù)大于1
MsgBox"程序已經(jīng)加載",64
End‘結(jié)束當前啟動的應(yīng)用程序
Elsc
mainForm.Show‘mainForm是程序的主窗體
Endlf
ExitSub
errMain:
lfErr<>0Then
MsgBox"啟動程序時發(fā)生錯誤"，64
ExitSub
Endlf
EndSub
該過程完成后，在VB3.0主菜單［options］下，選擇［Project］菜單項，設(shè)定［StartupFrom］項為Submain，即程序運行時，最先從Submain子程序開始。這樣保證上面的代碼一定被執(zhí)行。Submain是VB3.0約定的子過程名，不能用其它的名字來代替。
重新生成EXE文件，在程序管理器下，啟動該應(yīng)用程序，然后把產(chǎn)生的窗體最小化，接著從程序管理器下再運行它，用戶將看到一個消息框，告訴用戶，應(yīng)用程序已被加載過了，第二份程序終止執(zhí)行。上面的程序僅用來防止加載二份程序，但還沒有做到當不能啟動第二份時，自動進入到第一份程序。要做到這一點，所涉及的程序較復(fù)雜，這里就不詳細介紹了。

二判斷Windows的安裝路徑
在我們開發(fā)的軟件中，有時會直接調(diào)用Windows提供的小應(yīng)用程序，如計算器、計事本等；或需要把一些特殊的文件放到Windows或SYSTEM的路徑下。通常，Windows都安裝在C:＼WINDOWS目錄下，但用戶可以任意修改Windows的主目錄名，因此，在我們的軟件中，就需要判斷Windows的安裝路徑。對于這個問題，Windows提供了兩個API函數(shù)：GetWindowsDirectory和GetSystemDirectory，可以返回Windows目錄和SYSTEM目錄的名稱。
為此，編制一個通用函數(shù)GetWinDir，它返回Windows的安裝目錄名稱。類似，可以寫出GetSysDir，略。

在*.BAS模塊文件中聲明API函數(shù)

DeclareFunctionGetWindowsDirectoryLib"Kernel"(ByValipBufferAsString,ByValnSizeAsInteger)asIntegerFunctionGetWinDir()AsStringDimWindir$Windir$=Space$(144)‘144是WINDOWS目錄名稱理論上的最大長度。

lfGetWindowsDirectory(Windir$,144)=0Then
MsgBox"不能確定WINDOWS的安裝路徑"，16
GetWinDir=""
Else
Windir$=ALLTrim$(Windir$)
ifRight$(Windir$,1)<>“/”thenWindir$=Windir$ “/”
‘加上反斜杠
GetWinDir=Windir$
Endlf
EndFunction
其中ALLTRIM是用來去掉字符串中空字符的函數(shù)
FunctionALLTrim(FatStr$)AsString
'thisFunctiondeleteSpacecharinstringofFatStr$
DimSlimStr$,I
SlimStr$=FatStr$
I=lnStr(SlimStr$,Chr$(0))‘空格的位置
IfIThenSlimStr$=Left$(SlimStr$,I-1)
SlimStr$=Ltrim$(Rtrim$)(SlimStr$))
AIITrim$=SlimStr$
EndFunction
三在關(guān)掉窗體前提示保存數(shù)據(jù)
一般說來，通常用5種方式可以關(guān)閉一個應(yīng)用程序：
1.用戶選擇了當前窗體ControlBox中的［關(guān)閉］命令
2.激發(fā)程序中的結(jié)束命令代碼(如End，Unload)
3.退出Windows
4.在Windows的任務(wù)列表中關(guān)閉應(yīng)用程序。
5.多文檔操作時，關(guān)閉主MDI窗體，引起子MDI窗體關(guān)閉。
在關(guān)閉一個應(yīng)用程序前，我們要給用戶一個機會，提示“是否保存數(shù)據(jù)”，或者取消“關(guān)閉”的操作。在VB中，窗體的關(guān)閉引發(fā)的是Form_Unload事件，我們可以對該事件進行編程，來控制“關(guān)閉”操作。假設(shè)現(xiàn)已有一個過程FileSave用來保存文件，則可以這樣來編寫程序。
SubForm_Unload(CancelAslnteger)
selectcastMsagbox(“是否保存數(shù)據(jù)?”，3 32)
‘Yes，No，Cnacel三種選擇
case6‘YES
FileSave‘保存數(shù)據(jù)
case2‘cancel
Cancel=TRUE‘取消關(guān)閉操作
caseelse‘NO‘不保存，執(zhí)行關(guān)閉操作
Endselect
EndSub
上面代碼中的Cancel變量，是Form_unload事件本身的固有傳出變量，它給Windows控制過程傳遞消息，從而控制程序的走向。

上面三個例子，只是軟件完善過程中的一些小問題，要使軟件穩(wěn)定可靠，需要做大量細致認真的工作。有些問題，我們可以通過發(fā)掘VB本身的潛力，深入掌握一些過程的操作技巧來解決；而有些較復(fù)雜的問題，涉及到Windows底層方面的操作，采用Windows的API函數(shù)，可以很容易實現(xiàn)。當然這需要對Windows的函數(shù)和機理有一定的了解。隨著Windows編程水平的提高，我們會逐漸學會并喜歡利用API函數(shù)來輔助完成程序編碼。->

上一篇：VB編程問與答

下一篇：VB編程的一些心得