找回密码
 立即注册

QQ登录

只需一步,快速开始

ajax1995

新手上路

1

主题

1

帖子

21

积分

新手上路

积分
21
  • 20

    金币

  • 主题

  • 帖子

最新发帖
ajax1995
新手上路   /  发表于:2013-6-8 22:35  /   查看:5041  /  回复:1
在输入的时候,可以弹出下拉列表框,让用户选吗?还有checkbox,radiobox那些可以实现吗?

1 个回复

倒序浏览
iceman
社区贡献组   /  发表于:2013-6-9 18:10:00
沙发
回复 1楼ajax1995的帖子

ajax1995 你好,

checkbox 实现方式如下:

  1. TXTextControl1.FieldInsert "¨"
  2.   TXTextControl1.FieldType(TXTextControl1.FieldCurrent) = txFieldMSWord
  3.   TXTextControl1.FieldEditAttr(TXTextControl1.FieldCurrent) = &H10
  4.   TXTextControl1.FieldTypeData(TXTextControl1.FieldCurrent) = "FORMCHECKBOX" + Chr(9) + "w:name"
  5.   TXTextControl1.SelStart = TXTextControl1.FieldStart - 1
  6.   TXTextControl1.SelLength = Len(TXTextControl1.FieldText)
  7.   TXTextControl1.FormatSelection = True
  8.   TXTextControl1.FontName = "Wingdings"

复制代码


下拉列表可以尝试通过插入 OLE object  实现。
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 立即注册
返回顶部