16,553
社区成员
发帖
与我相关
我的任务
分享这段VBA程序如何转换成VB.NET?
Function isLoaded(sFormname As String) As Integer
On Error GoTo Err_isLoaded
Dim counter As Integer
For counter = 0 To Forms.Count - 1
If Forms(counter).name = sFormname Then
isLoaded = True
Exit Function
End If
Next
Exit Function
Err_isLoaded:
MsgBox Err.Description & Err.Number, vbInformation, APP_NAVN
isLoaded = False
Exit Function
End Function
程序功能是传递窗体名称进来,然后判断这个窗体是否被加载.
On Error GoTo Err_isLoaded
Dim counter As Integer
For counter = 0 To Forms.Count - 1
If Forms(counter).name = sFormname Then
isLoaded = True
Exit Function
End If
Next
Exit Function
Err_isLoaded:
MsgBox Err.Description & Err.Number, vbInformation, APP_NAVN
isLoaded = False
Exit Function
End Function
程序功能是传递窗体名称进来,然后判断这个窗体是否被加载.
...全文
请发表友善的回复…
发表回复
