乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 164|回复: 9

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

[复制链接]

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

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

使用道具 举报

41

主题

657

帖子

9

银币

中流砥柱

Rank: 25

铜币
821
发表于 2003-12-31 20:33:00 | 显示全部楼层
第一个问题很容易,你把第一个TEXTBOX的tabindex属性设置为1,第二个设置为2...以此类推,然后在每个TEXTBOX的KEYPRESS事件中写代码:
If KeyAscii = 13 Then  SendKeys "{tab}"
回复

使用道具 举报

14

主题

230

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
286
发表于 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
回复

使用道具 举报

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2003-12-31 21:55:00 | 显示全部楼层
2楼,textbox之间连续切换不成问题,关键是最后一个到commandbotton过不去.
还有第二个问题,"-45度(即315度)到45度也可以一次创建么?"
回复

使用道具 举报

14

主题

230

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
286
发表于 2003-12-31 22:00:00 | 显示全部楼层
不过注意主轴方向:
  1.     Const PI = 3.14159265
  2.     Dim EllObj As AcadEllipse
  3.     Dim majAxis(0 To 2) As Double
  4.     Dim center(0 To 2) As Double
  5.     Dim radRatio As Double
  6.         
  7.     center(0) = 5: center(1) = 0: center(2) = 0
  8.     majAxis(0) = 0: majAxis(1) = 30: majAxis(2) = 0
  9.     radRatio = 0.5
  10.     Set EllObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)
  11.     'ZoomAll
  12.     EllObj.StartAngle = -45 * (PI / 180)
  13.     EllObj.EndAngle = 45 * (PI / 180)
  14.     ThisDrawing.Application.Update

fwrshcvvyup.jpg

fwrshcvvyup.jpg

回复

使用道具 举报

41

主题

657

帖子

9

银币

中流砥柱

Rank: 25

铜币
821
发表于 2003-12-31 22:03:00 | 显示全部楼层

怎么会过不去?比如你最后一个TEXTBOX的tabindex是5,你就把commandbutton的tabindex设置为6就行了!
回复

使用道具 举报

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2003-12-31 22:25:00 | 显示全部楼层
6楼,这些textbox是在一个frame内.tabindex我试过,不行.

svbscyipag1.jpg

svbscyipag1.jpg

回复

使用道具 举报

41

主题

657

帖子

9

银币

中流砥柱

Rank: 25

铜币
821
发表于 2003-12-31 22:30:00 | 显示全部楼层

那就奇怪,我这边试了都OK的!我把窗体传上来,你试试!
请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:5xhodwym454.rar 
下载次数:0  文件大小:593 Bytes  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]

回复

使用道具 举报

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2003-12-31 23:01:00 | 显示全部楼层
textbox是在frame内,commandbutton在frame外
回复

使用道具 举报

41

主题

657

帖子

9

银币

中流砥柱

Rank: 25

铜币
821
发表于 2003-12-31 23:05:00 | 显示全部楼层

在外道理也是一样的,我试了,可以!
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-15 10:44 , Processed in 0.471662 second(s), 77 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表