怎样设置页码

Txt text ActiveX v15.1 with Sp3   中怎样设置页码在页眉页脚中？

你看下面的代码是否满足你的需求：

1. Dim fieldNo Dim noPages  Private Sub Form_Load()
   
2.          TXTextControl1.HeaderFooter = txHeader
   
3.         TXTextControl1.HeaderFooterSelect txHeader
   
4.          TXTextControl1.Text = "Page:  of"
   
5.          TXTextControl1.SelStart = Len("Page: ")
   
6.          TXTextControl1.FieldInsert ("")
   
7.          TXTextControl1.FieldType(TXTextControl1.FieldCurrent) = txFieldPageNumber
   
8.          TXTextControl1.SelStart = Len("Page: x of ")
   
9.          TXTextControl1.FieldInsert ""
   
10.          fieldNo = TXTextControl1.FieldCurrent
    
11.          noPages = TXTextControl1.CurrentPages
    
12.          TXTextControl1.FieldText = Str(noPages)
    
13.         TXTextControl1.HeaderFooterSelect 0
    
14.   End Sub

复制代码

1. Private Sub TXTextControl1_Change()
   
2.       If (noPages <> -1) And (TXTextControl1.CurrentPages <> noPages) Then  
   
3.        noPages = TXTextControl1.CurrentPages  
   
4.        TXTextControl1.HeaderFooterSelect txHeader
   
5.        TXTextControl1.FieldCurrent = fieldNo
   
6.        TXTextControl1.FieldText = Str(noPages)
   
7.        TXTextControl1.HeaderFooterSelect 0
   
8.         TXTextControl1.Refresh
   
9.      End If  End Sub

复制代码

非常感谢

不客气，哈哈