kkai 发表于 2004-3-3 10:44:00

请问大虾，这代码怎么不能运行？

代码如下，帮忙改正 谢谢


Dim Bold As Boolean<BR>Dim Italic As Boolean<BR>Dim charSet As Long<BR>Dim PitchandFamily As Long


Text = "Arial"<BR>Bold = False<BR>Italic = True<BR>charSet = 0<BR>PitchandFamily = 34


ThisDrawing.ActiveTextStyle.SetFont Text, Bold, Italic, charSet, PitchandFamily<BR>ThisDrawing.Regen acActiveViewport

efan2000 发表于 2004-3-3 10:56:00

可以啊，可能是Text变量没有声明，而你使用了Option Explicit。
页: [1]
查看完整版本: 请问大虾，这代码怎么不能运行？