扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
成都创新互联公司成立于2013年,是专业互联网技术服务公司,拥有项目做网站、网站设计网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元常宁做网站,已为上家服务,为常宁各地企业和个人服务,联系电话:13518219792
If e.KeyChar.ToString() = Chr(13) Then
Dim str As String = TextBox1.Text
If Not ListBox1.Items.Contains(str) Then
ListBox1.Items.Add(str)
End If
End If
End Sub
Private Sub btn_Remove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ListBox1.SelectedIndex 0 Then
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
End If
End Sub
Private Sub btn_Clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Clear()
End Sub
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then
List1.RemoveItem (i)
End If
Next i
用列表框的方法list.delete。
List1.RemoveItem 0 '删除第1项
List1.RemoveItem 1 '删除第2项
List1.RemoveItem 2 '删除第3项
List1.Clear '全部清空
扩展资料:
注意事项
获取单选按钮的值
$('input:radio:checked').val();
获取下拉框的值
$('#id option:selected').val();
重置清空值
$("#id")[0].reset();
$("#id").find(':input[type=text]').val(); $('#id').find(':text').val();
重置清空下拉框的值
方式1:
$('#id' option:first').prop('selected','selected');
$('#id').trigger('change.select2');
方式2:
$('#id').val('03').trigger("change");
清除单选框的checked属性
$("input[type='radio']").removeAttr('checked');
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流