VB.NET自定义函数

很简单森洞，在end select前再多加一种情况case else return "XXXx",因此册枯为你只提供了0-9这10种情况

我们提供的服务有：网站设计、网站制作、微信公众号开发、网站优化、网站认证、潮南ssl等。为成百上千企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的潮南网站制作公司

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 应如何使用?

因为数据类型的不同，VB.NET调用系统API函数和VB6不太一样，肢孝颤VB6是这样：

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

在VB.NET中是这样调用：

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点虐 编写一个函数

注意：参数顷困为动态雀明念数槐春组；

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