在“标点”处略停顿---按“句”滚动字幕的提词器改进

文章中的标点符号，在空间上只占1个字的位置，但在时间上却往往不止1个字。虽然不同的标点，停顿的时间不同，但总比1个字要略长。为了比1个字略长，又不使程序过于复杂，我这里定为 3 个字。（读者可以修改源代码）请注意原来的代码行 Tmin=0 我全部改为 Tmin = -3。另外，其他界面、按键等有些改进，读者可以自行比较。

这次上传的资源名称：提词器程序与VB源代码.rar

主要核心过程，是一个“文章的每一句，都要被拿来处理的过程”，我把这段代码写在下面。你如果能完全理解、读懂的话，理解其他的代码就完全没有问题了。也希望读者对这个程序有所改进。

Private Sub Displ() '更新显示红色★每一句子都要执行的子过程
'停止计时--红变灰--移动到新起点--灰变红--开始计时
Dim k As Long
Timer1.Enabled = False
RT1.Span "，。？！；", True, True '找标点  朝旧红色串方向(文尾方向)，选中了经过的句子。
DoEvents
RT1.SelLength = RT1.SelLength + 1 '选中包含“标点”
RT1.SelColor = RGB(150, 150, 150) '旧红串变灰色
RT1.SelUnderline = False
RT1.SelStart = RT1.SelStart + RT1.SelLength '起点进到下一句
RT1.Span "，。？！；", True, True '向文尾方向找标点，选中了经过的句子
DoEvents
RT1.SelLength = RT1.SelLength + 1 ''选中包含“标点”
Tmax = RT1.SelLength
'----
If Tmax > 100 Or Tmax = 0 Then '★文本结束
        Timer1.Enabled = False
        Exit Sub
End If
'----
RT1.SelColor = RGB(255, 0, 0) '选中的句子红色
RT1.SelUnderline = False
RT1.SelLength = 0
Tmin = -3 '0
Timer1.Enabled = True '★★★开始计时★★★
End Sub

Private Sub Timer1_Timer()
Tmin = Tmin + 1
If Tmin > 0 Then RT1.SelLength = Tmin '★红句逐字
RT1.SelUnderline = True '红句逐字加下划线
If Tmin > Tmax Then
    RT1.SelUnderline = False
    Timer1.Enabled = False
    Tmin = -3 '0★
    Displ
End If
End Sub