在列表框中选择项目，并将绘制模式设置为所有者绘制固定

Question

我有一个列表框，我希望某些项目是不同的颜色，我知道要做到这一点，我必须将绘制模式设置为ownerdrawfixed。这工作正常，但是，现在我无法检索所选项目。将绘制模式设置为正常时，当我单击列表框中的某个项目时，我会将该文本放入文本框中。将绘制模式设置为 ownerdrawfix 后，当我单击一个项目时，我收到一个错误，指出"从类型'项目'到类型'字符串'的转换无效。此外，列表框不再排序，即使排序的属性设置为 true(在所有者绘制固定模式下(。

Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim ac As Integer
LstAll.DrawMode = DrawMode.OwnerDrawFixed
MaxRec = 708
ChkShow = True
FileOpen(1, "C:MyMov3MovData.mdt", OpenMode.Random, , , Len(Mv3Rec))
For x = 1 To MaxRec
FileGet(1, Mv3Rec, x + 1)
'This If loop for the colored text
If Mv3Rec.Rc3Mlti = True And ChkShwMlti.Checked = True Then
ac = Asc(Trim(Mv3Rec.Rc3MTitle))
If ac > 0 Then
Dim i As New Item()
i.ItmColor = Color.Red
i.Txt = Trim(Mv3Rec.Rc3MTitle)
LstAll.Items.Add(i)
End If
End If
If ChkShow = True Then
Dim i As New Item()             'Needed for the black text when in ownerdrawfixed mode
i.ItmColor = Color.Black        'Needed for the black text when in ownerdrawfixed mode
i.Txt = Trim(Mv3Rec.Rc3Title)   'Needed for the black text when in ownerdrawfixed mode
LstAll.Items.Add(i)             'Needed for the black text when in ownerdrawfixed mode
'LstAll.Items.Add(Trim(Mv3Rec.Rc3Title))        'This line adds the text when in normal mode
End If
Next
FileClose(1)
End Sub
Private Sub LstAll_DrawItem(sender As Object, e As System.Windows.Forms.DrawItemEventArgs) Handles LstAll.DrawItem
If e.Index < 0 Then Return
Dim i As Item
i = TryCast(LstAll.Items(e.Index), Item)
If i IsNot Nothing Then
e.Graphics.DrawString(i.Txt, e.Font, New SolidBrush(i.ItmColor), e.Bounds)
End If
End Sub
Private Sub LstAll_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles LstAll.SelectedIndexChanged
TextBox1.Text = LstAll.SelectedItem
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
End
End Sub
End Class
Public Class Item
Public Txt As String
Public ItmColor As Color
End Class

此代码只是基本部分。并在空白表单的新项目中进行了测试。带有列表框(重命名为 LstAll(文本框，复选框(重命名为 ChkShwMlti(。 这给出了与我需要它工作的程序中相同的错误。但是，它确实使用了一个我没有包含结构的文件...但我认为你可以明白这个想法。

Answer 1

我已经解决了这个问题。在 LstAll.SelectedIndexChanged

private sub LstAll_SelectedIndexChanged(sender as System.Object， e as System.EventArgs( handle lstAll.SelectedIndexChanged

Dim i As New Item
i = LstAll.SelectedItem
TextBox1.Text = i.Txt

结束子

这根据需要工作。