回复 2楼iceman的帖子
你好,
复选框功能 VB 6 代码如下:
- 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"
复制代码
字体需要设置为 Wingdings。 |