将Word 中的VBA代码转换成VB.Net代码？

Public Function DrawDot(ByVal x1 As Double, ByVal y1 As Double, Optional ByVal r As Double = 1) As Object

创新互联秉承实现全网价值营销的理念，以专业定制企业官网，成都网站设计、做网站，小程序开发，网页设计制作，手机网站制作设计，营销型网站建设帮助传统企业实现“互联网+”转型升级专业定制企业官网,公司注重人才、技术和管理，汇聚了一批优秀的互联网技术人才,对客户都以感恩的心态奉献自己的专业和所长。

Dim oWord As Word.Application

Dim TempX As Double

Dim TempY As Double

Dim TempR As Double

TempX = Ox + (x1 * 10)

TempY = Oy - (y1 * 10)

TempR = r * 10

DialogDisplay = False

If (TempX - TempR Ox - Lx /掘唤 2) Or (TempX + TempR 运消 Ox + Lx / 2) Or (TempY - TempR Oy - Ly / 2) Or (TempY + TempR 判悄凯 Oy + Ly / 2) Then

DialogDisplay = True

MsgBox("超出了边界！", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "提示")

DrawFlag = False

DrawDot = Nothing

Exit Function

End If

DrawDot = oWord.ActiveDocument.Shapes.AddShape(9, TempX - TempR, TempY - TempR, 2 * TempR, 2 * TempR)

DrawFlag = True

End Function

set gp = RDGp() 在VBA 中是什么意思？改写成VB点虐 应该怎么写呢？

RDGp()在vba中没有这个函数，这个应该人定义的函数的，set gp = RDGp()很明显就是将gp设置这个函数。如果这个是类模块的，就要新建对象，在又对象调用函数。不过从这句话中，这个春慎应该是模块里面的自定亮早义的函数。具体的还要看代码结构。改成VB点虐 写法是扒键敬一样的

VB,VBA, VB点虐 都有什么区别和共同点?

VB是是一种编程语言。VBA主要VB是office上的应用，VB点虐 可以说是VB的最新版本，如果就是业余或者刚入门的话，语法什么的和VB几乎完全一样。只是语法上面，要求比VB要求规范，比方说VB6.0里面Text1="1"读的出来，VB点虐 就会报错，一定要textbox1.text="1"才可以。对于初学者来说，VB点虐 这种规范要求有益无害。

如果你咐扮想学的话，最好学VB点虐 ，一来功能强，二来，能帮助你学习基本概念。比方说我学VB的时候，什么是类一点概念都没有。都是学了点虐 之后才懂得。三来么，学会了VB点虐 .学其他都很方便的。

但是如果就是用用excel的话么，VBA就可以了。不过说句老实话，光学VBA的话，很多东西理解起来比较难。我是最后学VBA的，看了书一个礼拜之后就能随便运蚂编了。但是书上很多代码的，我旁简埋猜如果没有VB基础，估计看不懂

网站栏目：vba转换vb点虐 vba转换器安装
转载来源：http://azwzsj.com/article/ddpjchs.html