gissoft
دوشنبه 09 فروردین 1389, 10:46 صبح
لطفا این کد رو در به سی شارپ ترجمه کنید (قسمت Set a = f.Parent ان در سی شارپ معادل چیست ، همجنین nothingمعادل چیست؟)
private Sub Form_Load()
Dim f As IDocument
Dim a As IVbaApplication
Set f = New MxDocument
Set a = f.Parent
a.CreateCodeModule "project", "my"
Dim s As String
s = "public sub m " & vbNewLine & "msgbox application.document.title" & vbNewLine & "end sub"
a.InsertCode "project", "my", s
a.RunVBAMacro "project", "my", "m", Nothing
End Sub
private Sub Form_Load()
Dim f As IDocument
Dim a As IVbaApplication
Set f = New MxDocument
Set a = f.Parent
a.CreateCodeModule "project", "my"
Dim s As String
s = "public sub m " & vbNewLine & "msgbox application.document.title" & vbNewLine & "end sub"
a.InsertCode "project", "my", s
a.RunVBAMacro "project", "my", "m", Nothing
End Sub