江疏影视频新模式,林志玲三级视频在线,用各种工具调教美女视频

VB編程步步高－雜類(lèi)篇（一）

作者 : 甘冀平

　　原文出處：http://www.vb-helper.com/tips13.htm

　　按照百分秒格式顯示時(shí)間

　　你可以編寫(xiě)下面的代碼來(lái)顯示時(shí)間，其中包括百分秒格式：

　　 txt = Format$(Time, "hh:mm:ss") & Format$(Timer - Fix(Timer), ".00")

　　注意：Timer函數(shù)不能顯示百分秒格式的時(shí)間，它只能精確到50毫秒。

　　簡(jiǎn)易安裝注冊(cè)表項(xiàng)目

　　這里有一個(gè)安裝程序時(shí)設(shè)置注冊(cè)表項(xiàng)目的簡(jiǎn)單方法。首先，在機(jī)器上手工創(chuàng)建一個(gè)項(xiàng)目，比盡可能地將之放在所屬的子路徑下面。然后，使用注冊(cè)表編輯器輸出這個(gè)包含項(xiàng)目的子路徑，這就會(huì)創(chuàng)建一個(gè).REG文件。最后，將這個(gè)文件打包在安裝向?qū)С绦蛑?。這樣做后，當(dāng)進(jìn)行安裝時(shí)，安裝向?qū)С绦蚓涂梢宰詣?dòng)地完成注冊(cè)表項(xiàng)目的創(chuàng)建了。

　　快速獲取ASCII碼

　　你是否經(jīng)常要獲取一個(gè)字符的ASCII碼數(shù)值？下面告訴你一個(gè)簡(jiǎn)單方法：

　　 1、在VB編程主窗口中，選擇菜單“視圖”，再點(diǎn)擊“立即窗口”，或者直接按“CTRL+G”,在屏幕底部就顯示出“立即窗口”。

　　 2、在立即窗口中，輸入?asc("b"），然后回車(chē)，就可以得到字符b的ascii碼數(shù)值98了。又比如，想得到雙引號(hào)的ascii碼數(shù)值，請(qǐng)輸入?asc("""")，得到34。

　　創(chuàng)建新的工程模板文件

　　當(dāng)在VB中選擇文件新建工程命令后，就出現(xiàn)了一個(gè)包含多個(gè)模板的選擇窗口。你知道嗎？你可以非常簡(jiǎn)單地創(chuàng)建一個(gè)新的模板文件！

　　首先，按照你需要的形式，創(chuàng)建一個(gè)新工程。添加控件、工具條、表單，編寫(xiě)模塊與子程序，就象編寫(xiě)其他的工程文件時(shí)做你愿意做的事情。

　　接著，將工程保存到工程目錄。我不能確認(rèn)在其他系統(tǒng)中這個(gè)工程目錄位于何處，在我的系統(tǒng)中（WindowsNT/VB6），這個(gè)目錄是：

　　 C:Program FilesMicrosoft Visual StudioVb98TemplateProjects

　　就保存到這里！給出一個(gè)富有含義的名字?，F(xiàn)在，當(dāng)你從文件菜單中選擇新建工程時(shí)，就可以看到你剛剛建立的新模板了。

　　創(chuàng)建幫助文件

　　通常這是一個(gè)非常困難的話題。幫助編輯器是Visual Basic系統(tǒng)自帶的，你可以在Visual Basic光盤(pán)的ToolsHcw或者CommonToolsHcw目錄下找到它。

　　首先，創(chuàng)建一個(gè)包含幫助內(nèi)容的主題文件。你要使用一套神秘的由Microsoft定義的腳注來(lái)指示鏈接、主題標(biāo)題以及索引項(xiàng)目。然后，以RTF（Rich Text Format）格式保存，這種格式被包括Word在內(nèi)的許多高級(jí)編輯器所支持。

　　接著，創(chuàng)建一個(gè)工程文件，其中定義一些主題數(shù)目，并定義了幫助源文件。然后，啟動(dòng)幫助編輯器來(lái)創(chuàng)建最后的.HLP文件。

　　最后，在你的程序中可以使用CommonDialog控件的ShowHelp方法來(lái)顯示幫助文件。這里有一個(gè)例子程序，它的網(wǎng)絡(luò)路徑是：http://www.vb-helper.com/HowToBeg.htm，出現(xiàn)這個(gè)頁(yè)面后，再點(diǎn)擊鏈接Implement standard File and Help menu commands。

　　總之，創(chuàng)建幫助文件非常困難。幫助文件編譯器本身的用戶界面不很友好，而且運(yùn)行很慢，特別對(duì)于大的幫助文件。如果編譯過(guò)程中出現(xiàn)錯(cuò)誤，編譯器也不能提供足夠的信息。做為替代工具，許多第3方軟件能做得更好些。

　　你也許同時(shí)考慮到HTML形式的幫助文件，微軟公司正準(zhǔn)備在將來(lái)采取這個(gè)方法。然而，這并非意味著傳統(tǒng)的幫助不再有用。

VB編程步步高－雜類(lèi)篇（二）

作者 : 甘冀平

　　 Null, Empty, Nothing, and vbNullString的區(qū)別

　　以上這些奇怪的數(shù)值間有些微妙的不同含義：

　　 Null：Null是一個(gè)象Integer或者String一樣的變量類(lèi)型，它表示一個(gè)沒(méi)有合法數(shù)據(jù)的變量。這有別于zero、Nothing、Empty或者vbNullString。許多數(shù)值與Null結(jié)合在一起，都將產(chǎn)生Null結(jié)果。比如：

　　表達(dá)式結(jié)果
Null - Null Null
Null + 7  7
Null = Null Null

　　你可以使用IsNull語(yǔ)句來(lái)判斷表達(dá)式是否為Null：

　　 If IsNull(my_variable) Then ...

　　 Empty：這也是一個(gè)象Integer或者String一樣的變量類(lèi)型，它表示了一個(gè)還沒(méi)有進(jìn)行初始化的變量。它與Null的意義不同，Null表示沒(méi)有合法數(shù)據(jù)。

　　一個(gè)沒(méi)有初始化的變量的數(shù)值是Empty。你可以使用IsEmpty語(yǔ)句來(lái)判斷是否變量進(jìn)行了初始化：

　　 If IsEmpty(my_variant) Then ...

　　 Nothing：這是一個(gè)指向空對(duì)象的對(duì)象引用。將對(duì)象引用設(shè)置為Nothing，就釋放了那個(gè)對(duì)象。如果沒(méi)有其他的引用指向?qū)ο螅琕isual Basic就將銷(xiāo)毀這個(gè)對(duì)象。

　　 Dim obj As Form1
　　 :
　　 Set obj = Nothing 注釋?zhuān)?Free the object reference.

　　使用Is Nothing語(yǔ)句來(lái)判斷是否一個(gè)引用為Nothing：

　　 If obj Is Nothing Then ...

　　 vbNullString：這是個(gè)常量，表示一個(gè)empty字符串。它與空白字符串""不同，表示什么也沒(méi)有的字符串（nothing string）。對(duì)于許多場(chǎng)合，它被當(dāng)作一個(gè)empty字符串""處理，真正使用它的目的是傳遞null參數(shù)給庫(kù)函數(shù)。

　　 Null是一個(gè)很奇怪的數(shù)值，它不是zero,不是Nothing，不是vbNullString。它是沒(méi)有定義的東西。

　　判斷字符串是否為空白

　　有以下幾種方法判斷一個(gè)字符串是否為空白：

    Dim txt As String
    Dim blank As String

        blank = ""
            :
        If Len(txt) = 0 Then ...
        If txt = vbNullString Then ...
        If txt = "" Then ...
        If txt = blank Then ...

　　經(jīng)過(guò)測(cè)試，Len(txt)=0的方法要比其他方法快20％多。

　　從字符串尾部搜索匹配子串

　　在Visual Basic 版本6中，可以使用InStrRev函數(shù)實(shí)現(xiàn)從字符串尾部搜索匹配子串的功能。在早期的版本中，沒(méi)有這個(gè)函數(shù)，做為替換，請(qǐng)使用下面的代碼：

    Function LastInStr(txt As String, pattern As String)
    Dim pos1 As Integer
    Dim pos2 As Integer

        pos2 = 0
        Do
            pos1 = pos2
            pos2 = InStr(pos1 + 1, txt, pattern)
        Loop While pos2 > 0
        LastInStr = pos1
    End Function

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。

国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看