1. 光标移至 combobox 的最后
Private Sub Timer1_Timer()
Me.ComboBox1.SelectionStart = Len(Me.ComboBox1.Text)
‘Me.Combo1.SelLength = 0
End Sub
2. 线程
Imports System.Threading.Thread
Public Class Form1
Delegate Sub SetText(ByVal text As String) '声¦¨´明¡Â一°?个?委¡¥托ªD
Dim i As Integer '定¡§义°?一°?个?变À?量¢?,ê?用®?来¤¡ä更¨¹新?button2的Ì?
text属º?性?
Private Sub Btn_text() '定¡§义°?一°?个?方¤?法¤¡§,ê?通ª¡§过y这a个?方¤?法¤
¡§调Ì¡Â用®?btn_settext来¤¡ä改?变À?button2的Ì?text属º?性?
Dim dh As SetText = New SetText(AddressOf Btn_SetText) '这a句?我¨
°也°2解a释º¨ª不?清?是º?什º2么¡ä意°a思?,ê?大䨮家¨°照?着Á?灵¢¨¦活?一°?点Ì?用®?
就¨ª是º?了¢?。¡ê
Me.Invoke(dh, New Object() {CStr(i)}) '和¨ª上¦?面?那?句?一°?样¨´
End Sub
Private Sub Btn_SetText(ByVal str As String) '这a个?大䨮家¨°都?可¨¦以°?
理¤¨ª解a了¢?,ê?给?属º?性?赋3值¦Ì
Me.ComboBox1.Text = str
End Sub
Sub Add_text()
For i = 0 To 100
Btn_text()
System.Threading.Thread.Sleep(100)
Next
End Sub
Dim dh As System.Threading.Thread '定¡§义°?一°?个?窗ä¡ã体¬?级?线?程¨¬
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
Me.ComboBox1.SelectionStart = Len(Me.ComboBox1.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
dh = New System.Threading.Thread(AddressOf Add_text) '创ä¡ä建¡§一
°?个?线?程¨¬的Ì?实º¦Ì例¤y
dh.Start() '开a始º?运?行D线?程¨¬
End Sub
Private Sub Form1_FormClosed(ByVal sender As System.Object, ByVal e