如何為 VB 編寫自定義函式 我自學了最好的細節

你好！ VB應用採用事件驅動的操作機制，程式執行完畢後，系統等待乙個事件發生，然後去執行這個事件的事件程序。 有時，多個事件程序需要使用同一程式的一段，為了避免程式的重複編寫，提高使用者編寫程式的效率，可以將特定函式的實現定義為乙個獨立的功能模組，可以由多個時間程序呼叫。

這種獨立的功能模組可以由系統預先定義，如方法和本徵函式; 它也可以由使用者根據需要定義，稱為自定義過程（函式）。

自定義函式過程是以“function”關鍵字開頭的函式過程。

自定義函式過程的語法格式如下：

public|private] [static] 函式過程名稱 （[引數列表]） 作為型別]。

示例：例如，計算內圓和外圓之間的圓環面積。

private sub command1_click()

dim r1!,r2!,s1!,s2!它們代表內徑、外徑、內圓面積和外圓面積。

r1=val(

r2=val(

s1=area(r1)

s2=area(r2)

以固定格式顯示結果。

end sub

private function area(r!作為單身 這是建築的主要焦點。 area-custom 函式名稱 r！引數 + 引數型別。

dim s!

s=area=s

end function

0 0 所以房東大概明白了，不，我再詳細談談。

你只能使用前面的方法，如果必須使用函式來判斷它，你可以這樣做。

dim i as integer

private sub text1_gotfocus(index as integer)

i=index

end sub

private sub text1_lostfocus(index as integer)

i=-1end sub

public function changecolor(text as textbox) '自定義功能 - 焦點改變顏色，恢復失焦。

if then

vbredvbwhite

endifend function

changecolor (text1(1))

1.開啟它，建立乙個新專案，在表單中新增乙個命令按鈕，將標題分別改為“呼叫函式”，將表單form1的title屬性改為“自定義函式”，並將介面設定為如下圖所示：

2.雙擊表單form1進入**視窗，點選左側的下拉三角形，選擇常規。

3. 在常規部分輸入以下**：

public sub f1(n%, byval m%)n = n mod 10

m = m \ 10

end sub

並刪除表單載入事件。

上面**定義了函式f1，它包含兩個引數，型別為整數，%表示短整數，byval表示值傳遞方式，表示值傳遞，對應位址傳遞。 這也是預設的交付方法。

dim x%, y%

x = 12: y = 34

call f1(x, y)

print x, y

Yongcall呼叫該函式，引數與自定義函式中的引數相對應。

5.然後關閉**視窗，按F5執行程式，點選“呼叫函式”命令按鈕，在表格中列印出2 34，可以想想為什麼會這樣，這個結果和函式的值傳遞方式有關

VB 中的內建函式會在寫入時自動給出提示，包括每個引數的含義和型別。

讓我們從乙個簡單的開始。

下面是乙個自定義加法函式（給定 a 和 b，找到 x 的值：x=a+b） 私有函式 x（a as long， b as long） as long

x= a + b

end function

如何呼叫。 將乙個名為 command1 的按鈕新增到表單中，並具有如下單擊事件：private sub command1 click（）msgbox x（1， 2）。

end sub

執行後點選此按鈕，結果為3

描述函式的函式名稱是 x

函式的引數有兩個（a 和 b），用逗號分隔。

呼叫函式 x 時必須指定每個引數的值，引數必須用括號括起來，並且函式和引數有自己的型別，在這種情況下為 long，如果指定的引數值或計算結果超出 long 的取值範圍，就會發生溢位錯誤。

定義函式意味著定義段。 有乙個指定的函式允許傳入多個值並返回單個值。

當需要重用段時，需要函式。

變數是儲存指定值的記憶體。 此塊儲存的內容取決於型別。 VB的型別可以通過DIM按下

在 AAS 之後點選空格。 常見的變數型別包括：

integer 整數。

儲存介於 32766 -32767 之間的整數。

長整型。

儲存空間大於整數。

雙浮子精度。

帶小數點。 位數。

字串字串。

使用時必須轉換不同的變數。

要轉換為字串，您需要使用 vb 函式 cstr（） 轉換為 integer：cint（）。

轉換為數字：var（）。

例。 private

subcommand1_click()

convert(

執行函式並將返回值儲存在屬性中。 引數是。

endsub

private

function

convert(str

asstring)

asstring

onerror

gotoconverterrordimi

asinteger

定義乙個名為 i 的整數型別變數。 i

cint(str)

將 str 轉換為整數型別並儲存為變數 i。

在這種情況下，如果 str 字串中存在非數字字串，則會報告異常，並且訊息會自動重定向到 converterror 標記。 i

idimreturnstr

asstring

定義變數。 returnstr

cstr(i)

轉換為字串型別並儲存為 returnstr。

convert

returnstr

返回字串型別的值。

exitfunction

跳出函式，否則執行錯誤處理。

converterror:

當您輸入的數字不是數字時，它會自動提示。

msgbox

是否要確認您輸入的號碼是？ "

端功能附件：