.NET (Core and Framework)

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim i As Integer

        For i = 1 To 200
            ComboBox1.Items.Add(i)
        Next

    End Sub

    Private Sub ComboBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem

        If e.Index = -1 Then
            Exit Sub
        End If

        e.DrawBackground()

        e.Graphics.DrawString(ComboBox1.Items(e.Index).ToString(), e.Font, Brushes.Black, e.Bounds.X, e.Bounds.Y)

    End Sub

End Class

Public Class Form1
    Private m_fBold As Font
    Private WithEvents m_cboCustom1 As CustomCombo

    Private Sub m_cboCustom1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles m_cboCustom1.DrawItem

        If e.Index = -1 Then
            Exit Sub
        End If

        e.DrawBackground()

        If e.Index Mod 4 = 0 Then
            e.Graphics.DrawString(m_cboCustom1.Items(e.Index).ToString(), m_fBold, Brushes.Black, e.Bounds)
        Else
            e.Graphics.DrawString(m_cboCustom1.Items(e.Index).ToString(), e.Font, Brushes.Black, e.Bounds)
        End If

        LogDrawItem(e.Index, e.State, e.Bounds)

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


        Me.DoubleBuffered = True

        m_cboCustom1 = New CustomCombo
        m_cboCustom1.Location = New Point(30, 30)
        m_cboCustom1.DropDownStyle = ComboBoxStyle.DropDownList
        m_cboCustom1.DrawMode = DrawMode.OwnerDrawVariable
        m_cboCustom1.MaxDropDownItems = 20
        Me.Controls.Add(m_cboCustom1)

        m_fBold = New Font(m_cboCustom1.Font, FontStyle.Bold)

        Dim i As Integer

        For i = 1 To 200
            m_cboCustom1.Items.Add(i)
        Next

    End Sub

    Private Sub LogDrawItem(ByVal iIndexDrawn As Integer, ByVal iState As System.Windows.Forms.DrawItemState, ByVal rect1 As Rectangle)

        Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter(Application.StartupPath & "\drawitemlog.txt", True)

        sw.WriteLine("DrawItem method ran for index: " & iIndexDrawn.ToString() & vbTab & "bounds: " & rect1.ToString() & vbTab & "at " & Now().ToLongDateString & " " & Now().ToLongTimeString())

        sw.Close()

    End Sub
End Class

Public Class CustomCombo
    Inherits System.Windows.Forms.ComboBox

    Public Sub New()

        Me.DoubleBuffered = True

    End Sub
End Class

deadcell_6 wrote:

private void listBox1_SelectedIndexChanged(object sender, EventArgs e)

deadcell_6 wrote:

if (listBox1.SelectedItem == (object)"New DVD")

if (listBox1.SelectedIndex>=0) {
    string filename=listBox1.Items[listBox1.SelectedIndex];
    string s=File.ReadAllText(filename);
    myTextBox.Text=s;
}

deadcell_6 wrote:

private void listBox1_SelectedIndexChanged(object sender, EventArgs e)
{
if (listBox1.SelectedItem == (object)"DVD 1")
{
TextBox1 <--- and i want to display dvd 1.txt

}
else if (listBox1.SelectedItem == (object)"DVD 2")
TextBox1 <---- and i want to display dvd 2.txt

else if (listBox1.SelectedItem == (object)"DVD 3")
...

eyeshield21 wrote:

the display (image) become not good