Question

vb2012列表框ListBox与复选列表框CheckedListBox选择后如何在弹出form2显示结果

建一个form1，一个ListBox1，一个CheckedListBox1，一个Button1。建一个form2，一个TextBox1。我想要的结果是列表框选择了AAAA后的Aaaa，然后弹出提示“这是Aaaa的结果”，但弹出的都是Caaa的结果这是怎么回事？你能帮我修改一下行吗？
我想要的结果是列表框listbox选择了AAAA后，在复选框CheckedListBox里显示Aaaa、Abbb等，然后选择Aaaa单击Button1,弹出提示“这是Aaaa的结果”，那位高手领教一下，谢谢！





Answer 1

VB6.02016年出了新的。
'跟VS2012没多大关系(无非是些组件)，
'不同版本的.NET Framework 不相同。

Private Sub ListBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseClick
Dim selectext As String
selectext = "NULL"
If ListBox1.SelectedItem.ToString = "AAAA" Then
selectext = "A"
ElseIf ListBox1.SelectedItem.ToString = "BBBB" Then
selectext = "B"
ElseIf ListBox1.SelectedItem.ToString = "CCCC" Then
selectext = "C"
End If
Me.CheckedListBox1.Items.Clear()
With Me.CheckedListBox1.Items
.Add(selectext & "aaa")
.Add(selectext & "bbb")
.Add(selectext & "ccc")
End With
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
My.Forms.Form2.TextBox1.Clear()
For i1 = 0 To CheckedListBox1.CheckedItems.Count - 1
My.Forms.Form2.TextBox1.AppendText("这是" & CheckedListBox1.CheckedItems(i1).ToString() & "的结果")
My.Forms.Form2.TextBox1.AppendText(vbCrLf)
Next
My.Forms.Form2.Visible = False
My.Forms.Form2.StartPosition = FormStartPosition.CenterParent
My.Forms.Form2.ShowDialog()
End Sub
'如果上面这些没有错误提示等就无需设置下面
{[如果没有解决方案管理器 , 视图(V) 菜单里有选项]
在 解决方案管理器里，
解决方案"…"( 个项目)下面 和 MyProject上面 的选项里就是 项目名，
右键 项目名-属性(R),目标框架(T):.NET Framework 4}

Answer 2

是其他地方的问题
应该问题不在这儿