我用3个文本框来实现了这个功能,但如果用变量的话,变样写代码呢?
Private Sub List0_AfterUpdate()
Text4.Value = Text6.Value
End Sub
Private Sub List0_BeforeUpdate(Cancel As Integer)
Text4.Value = 文字变化.Value
End Sub
Private Sub List0_DblClick(Cancel As Integer)
文字变化.Value = List0.Value
Text6.Value = Text4.Value & 文字变化.Value
Text1.Value = "字数(含标点):" & Len(Text6.Value)
End Sub