4个回答
2011-11-15
展开全部
用seltext,会替换RichTextBox的选中部分,只插入不替换的话,可以这么写
Private Sub Command1_Click()
With RichTextBox1
.Text = Left(.Text, .SelStart + .SelLength) & Now & Mid(.Text, .SelStart + .SelLength + 1)
End With
End Sub
Private Sub Command1_Click()
With RichTextBox1
.Text = Left(.Text, .SelStart + .SelLength) & Now & Mid(.Text, .SelStart + .SelLength + 1)
End With
End Sub
展开全部
private sub button1_click()
richtextbox1.seltext=time()
end sub
richtextbox1.seltext=time()
end sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2011-11-15
展开全部
标记,同求~
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询