Dim str As String
str = InputBox("Enter you name")
TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest 'ติดตรง Textbox1
TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
Dim DataCollection As New AutoCompleteStringCollection()
addItems(DataCollection)
TextBox1.AutoCompleteCustomSource = DataCollection
ListBox1.Items.Add(Str)
ผมไม่รู้จะต้องแก้โค้ดยังไงให้ช่อง Textbox ใน Inputbox Function เป็น Autocomplete รบกวนด้วยครับ
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f As New frmInputBox 'ควรแก้ไขเป็นอะไรครับ หรือต้องเพิ่มอะไรรึเปล่า
Dim ReturningValue As String = ""
Try
If f.ShowDialog = Windows.Forms.DialogResult.OK Then
ReturningValue = f.TextBox1.Text
Else
MessageBox.Show("What you want to say if canceled")
End If
Finally
f.Dispose()
End Try
End Sub
Load balance : Server 04
