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

mikewolf2k

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

myfreemind

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

leeyeafu

竖椭圆这样做：
    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

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

leeyeafu

不过注意主轴方向：

2.     Const PI = 3.14159265
   
3.     Dim EllObj As AcadEllipse
   
4.     Dim majAxis(0 To 2) As Double
   
5.     Dim center(0 To 2) As Double
   
6.     Dim radRatio As Double
   
7.         
   
8.     center(0) = 5: center(1) = 0: center(2) = 0
   
9.     majAxis(0) = 0: majAxis(1) = 30: majAxis(2) = 0
   
10.     radRatio = 0.5
    
11.     Set EllObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)
    
12.     'ZoomAll
    
13.     EllObj.StartAngle = -45 * (PI / 180)
    
14.     EllObj.EndAngle = 45 * (PI / 180)
    
15.     ThisDrawing.Application.Update
    

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

myfreemind

mikewolf2k发表于2003-12-31 21:55:002楼,textbox之间连续切换不成问题,关键是最后一个到commandbotton过不去.
还有第二个问题,&quot;-45度(即315度)到45度也可以一次创建么?&quot;

怎么会过不去？比如你最后一个TEXTBOX的tabindex是5，你就把commandbutton的tabindex设置为6就行了！

mikewolf2k

6楼,这些textbox是在一个frame内.tabindex我试过,不行.

myfreemind

mikewolf2k发表于2003-12-31 22:25:006楼,这些textbox是在一个frame内.tabindex我试过,不行.3572

那就奇怪，我这边试了都OK的！我把窗体传上来，你试试！

mikewolf2k

textbox是在frame内,commandbutton在frame外

myfreemind

mikewolf2k发表于2003-12-31 23:01:00textbox是在frame内,commandbutton在frame外

在外道理也是一样的，我试了，可以！