VB.NET自定義函數(shù)

很簡(jiǎn)單森洞，在end select前再多加一種情況case else return "XXXx",因此冊(cè)枯為你只提供了0-9這10種情況

我們提供的服務(wù)有：網(wǎng)站設(shè)計(jì)、網(wǎng)站制作、微信公眾號(hào)開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、潮南ssl等。為成百上千企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的潮南網(wǎng)站制作公司

Public Function Zuhe(ByVal qa As String) As String

Select Case qa

Case "0"

Return "1"

Case "1"

Return "3"

Case "2"

Return "4"

Case "3"

Return "6"

Case "4"

Return "2"

Case "5"

Return "8"

Case "6"

Return "9"

Case "7"

Return "7"

Case "姿游8"

Return "5"

Case "9"

Return "0"

Case else

Return "XXXX"

End Select

End Function

在 VB.NET 中 SetWindowPos 應(yīng)如何使用?

因?yàn)閿?shù)據(jù)類型的不同，VB.NET調(diào)用系統(tǒng)API函數(shù)和VB6不太一樣，肢孝顫VB6是這樣：

Public?Declare?Function?SetWindowPos?Lib?"user32"?(ByVal?hwnd?As?Long,?ByVal?hWndInsertAfter?As?Long,?ByVal?X?As?Long,?ByVal?慎山Y(jié)?As?Long,?ByVal?cx?As?Long,?ByVal?cy?As?Long,?ByVal?wFlags?As?Long)?As?Long

在VB.NET中是這樣調(diào)用：

DllImport("歷敗user32.dll",?SetLastError:=True)?_

Public?Shared?Function?SetWindowPos(ByVal?hWnd?As?IntPtr,?ByVal?hWndInsertAfter?As?IntPtr,?ByVal?X?As?Integer,?ByVal?Y?As?Integer,?ByVal?cx?As?Integer,?ByVal?cy?As?Integer,?ByVal?uFlags?As?SetWindowPosFlags)?As?Boolean

End?Function

參考：

vb點(diǎn)虐 編寫一個(gè)函數(shù)

注意：參數(shù)頃困為動(dòng)態(tài)雀明念數(shù)槐春組；

Private Function MyF(ByRef d() As Integer)

ReDim d(4, 13) As Integer

Dim i As Integer

Dim j As Integer

Dim n As Integer

Dim MyNum(4) As Integer

For i = 1 To 4

MyNum(i) = 0

Next i

Randomize

For i = 1 To 4

For j = 1 To 13

n = Int(Rnd * 4 + 1)

Do While MyNum(n) = 13

n = Int(Rnd * 4 + 1)

Loop

d(i, j) = n

MyNum(n) = MyNum(n) + 1

Next j

Next i

End Function