两个vb的问题,在线等待.
1.窗口上有n个textbox(在一个frame中)和一个commandbuttom,在第一个textbox上按回车(无论是否输入数值),光标自动移到下一个textbox.我想在最后一个textbox上回车后自动把焦点转移到commandbuttom上,这样再按回车就等于单击commandtuttom了,请问如何实现?试过setfocus,没用.2.对于竖的椭圆(长轴在竖直方向上)能否创建?我现在是采用旋转的方法得到的,能不能不用旋转?对于椭圆弧,45度到135度的可以一次创建,那么-45度(即315度)到45度也可以一次创建么? 第一个问题很容易，你把第一个TEXTBOX的tabindex属性设置为1,第二个设置为2...以此类推，然后在每个TEXTBOX的KEYPRESS事件中写代码：
If KeyAscii = 13 ThenSendKeys "{tab}" 竖椭圆这样做：
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 2楼,textbox之间连续切换不成问题,关键是最后一个到commandbotton过不去.
还有第二个问题,"-45度(即315度)到45度也可以一次创建么?"
-45度到45度椭圆弧也可以一次绘制
不过注意主轴方向：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
mikewolf2k发表于2003-12-31 21:55:00static/image/common/back.gif2楼,textbox之间连续切换不成问题,关键是最后一个到commandbotton过不去.
还有第二个问题,"-45度(即315度)到45度也可以一次创建么?"
怎么会过不去？比如你最后一个TEXTBOX的tabindex是5，你就把commandbutton的tabindex设置为6就行了！ 6楼,这些textbox是在一个frame内.tabindex我试过,不行. mikewolf2k发表于2003-12-31 22:25:00static/image/common/back.gif6楼,这些textbox是在一个frame内.tabindex我试过,不行.3572
那就奇怪，我这边试了都OK的！我把窗体传上来，你试试！
textbox是在frame内,commandbutton在frame外 mikewolf2k发表于2003-12-31 23:01:00static/image/common/back.giftextbox是在frame内,commandbutton在frame外
在外道理也是一样的，我试了，可以！
页:
[1]
2