1,486
社区成员
发帖
与我相关
我的任务
分享
Private Sub Timer1_Timer()
With VBInstance
If Not (.ActiveCodePane Is Nothing) Then
'Text2.Text = .ActiveCodePane.Name
Text2.Text = .ActiveCodePane.CodeModule.Lines(1, .ActiveCodePane.CodeModule.CountOfLines)
End If
End With
End Sub