vb中的listList框问题 [英] listList box problem in vb

问题描述

在我的项目中我有一个列表框和三个表格在我的第一个表单中我添加了lisbox

第二个和第三个相同

当我将项目添加到列表框中form1 textbox1为空，然后添加列表框项目并复制list1.textbox1中的列表框项目名称

如果form1.textbox1.text已满或form2.textbox1为空，则添加列表框项目并复制form2中的列表框项目名称.textbox1

else msgbox

这是我的代码但没有工作

  Dim  new_item  As   String  = InputBox（  新值& vbCrLf&  注意： - 插入值必须有一个字母& vbCrLf&  否则您的值不会添加， 新& _ 
  值）
 如果 不 ListBox1.Items.Contains（new_item）和 new_item.Length>  3  和 Form17.TextBox1.Text =   然后 
 Clipboard.SetText（new_item.ToString）
 Form15.ComboBox3 .Items.Add（new_item）
 ListBox1.Items.Add（new_item）
 Form17.Show（）
 Form17.TextBox1.Text = My.Computer.Clipboard.GetText 
 
  ElseIf  不 ListBox1.Items.Contains（new_item）和 new_item.Length>  3  和 Form18.TextBox1.Text =   然后 
 Clipboard.SetText（new_item.ToString）
 
 Form15.ComboBox3.Items.Add（new_item）
 ListBox1.Items.Add（new_item）
 Form18.Show（）
 Form18.TextBox1.Text = My.Computer.Clipboard.GetText 
  Else  
 MsgBox（  Item未添加： - ）
 
 plz help 

解决方案

最好使用参数化构造函数New（ByRef myString As String）创建表单并在表单对象中传递您的字符串而不是将其复制到剪贴板有可能丢失数据



例如： Dim objForm1 As New（myString）Form1;



public sub New（ByRef myString As String）



Me.Te xtbox1.Text = myString



End Sub

不知道我的答案

请帮帮我紧急

Hy in my project i have 1 listbox and three forms in my first form i add lisbox
second one and third one same
when i add item to listbox if form1 textbox1 is empty then listbox item added and copy listbox item name in form1.textbox1
if form1.textbox1.text is full or form2.textbox1 is empty then listbox item added and copy listbox item name in form2.textbox1
else msgbox
this is my code but not working

Dim new_item As String = InputBox("New Value" & vbCrLf & "NOTE:- Insert Value Must Have One Letter" & vbCrLf & "Otherwise Your Value Is Not Add", "New " & _
   "Value")
If Not ListBox1.Items.Contains(new_item) And new_item.Length > 3 And Form17.TextBox1.Text = "" Then
    Clipboard.SetText(new_item.ToString)
    Form15.ComboBox3.Items.Add(new_item)
    ListBox1.Items.Add(new_item)
    Form17.Show()
    Form17.TextBox1.Text = My.Computer.Clipboard.GetText

ElseIf Not ListBox1.Items.Contains(new_item) And new_item.Length > 3 And Form18.TextBox1.Text = "" Then
    Clipboard.SetText(new_item.ToString)

    Form15.ComboBox3.Items.Add(new_item)
    ListBox1.Items.Add(new_item)
    Form18.Show()
    Form18.TextBox1.Text = My.Computer.Clipboard.GetText
Else
    MsgBox("Item Not Added:-")

plz help

解决方案

It is better to use a parameterized constructor New(ByRef myString As String) to create forms and pass your string in form object instead of copying it to clipboard there is a chance of data loss

Eg: Dim objForm1 As New(myString) Form1;

public sub New(ByRef myString As String)

Me.Textbox1.Text=myString

End Sub

Not One know My Answer
please help me its urgent

这篇关于vb中的listList框问题的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！