vb6中使text控件的光标随着增加的内容向下移动

vb6中使text控件的光标随着增加的内容向下移动

Dim i As Integer

Private Sub Command1_Click()
Text1.Text = Text1.Text + "test..." + CStr(i) + Chr(13) + Chr(10)
i = i + 1
End Sub
Private Sub Form_Load()
i = 1
End Sub
Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...