回复 1楼ajax1995的帖子
ajax1995 你好,
checkbox 实现方式如下:
- TXTextControl1.FieldInsert "¨"
- TXTextControl1.FieldType(TXTextControl1.FieldCurrent) = txFieldMSWord
- TXTextControl1.FieldEditAttr(TXTextControl1.FieldCurrent) = &H10
- TXTextControl1.FieldTypeData(TXTextControl1.FieldCurrent) = "FORMCHECKBOX" + Chr(9) + "w:name"
- TXTextControl1.SelStart = TXTextControl1.FieldStart - 1
- TXTextControl1.SelLength = Len(TXTextControl1.FieldText)
- TXTextControl1.FormatSelection = True
- TXTextControl1.FontName = "Wingdings"
复制代码
下拉列表可以尝试通过插入 OLE object 实现。 |