两个vb的问题,在线等待.

mikewolf2k · 发表于 2003-12-31 20:12:00

1.窗口上有n个textbox(在一个frame中)和一个commandbuttom,在第一个textbox上按回车(无论是否输入数值),光标自动移到下一个textbox.我想在最后一个textbox上回车后自动把焦点转移到commandbuttom上,这样再按回车就等于单击commandtuttom了,请问如何实现?试过setfocus,没用.
2.对于竖的椭圆(长轴在竖直方向上)能否创建?我现在是采用旋转的方法得到的,能不能不用旋转?对于椭圆弧,45度到135度的可以一次创建,那么-45度(即315度)到45度也可以一次创建么?

myfreemind · 发表于 2003-12-31 20:33:00

第一个问题很容易，你把第一个TEXTBOX的tabindex属性设置为1,第二个设置为2...以此类推，然后在每个TEXTBOX的KEYPRESS事件中写代码：
If KeyAscii = 13 Then SendKeys "{tab}"

leeyeafu · 发表于 2003-12-31 21:38:00

竖椭圆这样做：
Dim majAxis(0 To 2) As Double
Dim center(0 To 2) As Double
Dim radRatio As Double

center(0) = 5#: center(1) = 5#: center(2) = 0#
majAxis(0) = 0: majAxis(1) = 20#: majAxis(2) = 0#
radRatio = 0.5
ThisDrawing.ModelSpace.AddEllipse center, majAxis, radRatio

mikewolf2k · 发表于 2003-12-31 21:55:00

2楼,textbox之间连续切换不成问题,关键是最后一个到commandbotton过不去.
还有第二个问题,"-45度(即315度)到45度也可以一次创建么?"

leeyeafu · 发表于 2003-12-31 22:00:00

不过注意主轴方向：

copy


    Const PI = 3.14159265
    Dim EllObj As AcadEllipse
    Dim majAxis(0 To 2) As Double
    Dim center(0 To 2) As Double
    Dim radRatio As Double
        
    center(0) = 5: center(1) = 0: center(2) = 0
    majAxis(0) = 0: majAxis(1) = 30: majAxis(2) = 0
    radRatio = 0.5
    Set EllObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)
    'ZoomAll
    EllObj.StartAngle = -45 * (PI / 180)
    EllObj.EndAngle = 45 * (PI / 180)
    ThisDrawing.Application.Update