首先：
Imports System
.Runtime
.InteropServices
然后：
Private Declare Function EbExecuteLine Lib "
VBA
6.DLL" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
' <DllImport("
VBA
6.DLL", EntryPoint:="EbExecuteLine", SetlastError:=True, CharSet:=CharSet
.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention
.StdCall)> Public Shared Function EbExecuteLine(ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
'<DllImport("D:\
vba
6.dll", CharSet:=CharSet
.Ansi, SetlastError:=True)> Public Shared Function EbExecuteLine(ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
'End Function
'<DllImport("
vba
6.dll", CharSet:=CharSet
.Ansi, SetlastError:=True)>
'Public Shared Function EbExecuteLine(ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
'End Function
'定义StrPtr函数，实现获取字符串地址功能
Private Function StrPtr(ByVal e As Object) As Int32
Dim GC As System
.Runtime
.InteropServices
.GCHandle = System
.Runtime
.InteropServices
.GCHandle
.Alloc(e, System
.Runtime
.InteropServices
.GCHandleType
.Pinned)
Dim GC2 As Int32 = GC
.AddrOfPinnedObject
.ToInt32
GC
.Free()
Return GC2
End Function
Function ExecuteLine(ByVal sCode As String, Optional ByVal fCheckOnly As Boolean = True) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode),
0,
0,
0)
End Function
Private Sub Button1_Click(ByVal sender As System
.Object, ByVal e As System
.EventArgs) Handles Button1
.Click
Dim dm() As String
Dim i As Long
dm = Split(TextBox
.Text, ";")
For i =
0 To UBound(dm)
If Len(dm(i)) <>
0 Then
Dim Result As Boolean
Result = ExecuteLine(dm(i))
If Result = False Then Debug
.Print(i + 1 &
vbTab & "行执行错误")
Else
Debug
.Print(i + 1 &
vbTab & "行代码错误")
End If
Next
End Sub
本文深入探讨了从VB6到VB.NET的变化，特别是从面向过程到面向对象的转变，以及命名空间概念的引入如何通过imports关键字简化了代码的组织与访问。此外，文章还对比了OCX控件与COM组件在VB.NET中的整合，阐述了.NET框架如何将这些组件封装为类，从而提供了更便捷的引用方式。
扫一扫
2191
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
