使用下面的方法画线:
ActiveDocumentShapesAddLine BeginX:=0, BeginY:=0, EndX:=150, EndY:=150
也可以直接写成:
ActiveDocumentShapesAddLine 0, 0, 150, 150
我们知道,两点确定一条直接,所以,AddLine 该函数的第一个参数是起始点的X坐标,第二个参数是起始点的Y坐标,第三个参数是终止点的X坐标,第四个参数是终止点的Y坐标。通过这四个参数,可以画任意直线。
当然,也可以画其它的形状,如圆:
ActiveDocumentShapesAddShape Type:=msoShapeOval, Left:=25, Top:=25, Width:=150, Height:=150
希望对你有用。
Const HKLM = &H80000002
Set oReg = GetObject("winmgmts:\\\root\default:StdRegProv")
oRegSetStringValue HKLM, "hardware\DeviceMap\SerialComm", "\Device\Serial0", "COM1"
这个应该就能用用啊~为什么不能用 Text1Text = q & "\"
&前后要有空格,注意后面的"\"为西文字符,应该没问题的,不能用就太奇怪了,起码肯定可以加上反斜杠
sstr=form1text1text
filename = Right(sstr, Len(sstr) - InStrRev(sstr, "\"))
form2text2text=left(filename,len(filename)-4)
VB中的除法程序代码------难以理解。
VB有基本的程序描述方法,我想你问的是不是运算符?VB除的运算符有整除与非整除之分,整除运算符是英文的反斜杠--\,非整除英文的斜杠--/
例如 VB中运算结果是: 3\2=1, 3/2=15
以上就是关于vb在word中如何在固定位置插入斜线全部的内容,包括:vb在word中如何在固定位置插入斜线、求助 VB添加带斜杠的注册表信息、vb 给文件路径加上反斜杠等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)