Visual Basic

DrawMode' is not a member of 'WindowsApplication1.FontClass'

<ToolStripItemDesignerAvailability(ToolStripItemDesignerAvailability.ToolStrip)> _
Public Class ToolStripCustomCombo
    Inherits ToolStripControlHost

    Public Sub New()
        MyBase.New(New CustomCombo)
    End Sub
End Class

Imports System.Drawing
Imports System.Windows.Forms
Imports System.Windows.Forms.Design

<ToolStripItemDesignerAvailability(ToolStripItemDesignerAvailability.ToolStrip)> _
Public Class ToolStripmyFontCombo
    Inherits ToolStripControlHost

    Public Sub New()
        MyBase.New(New FontClass)
    End Sub
End Class


Public Class FontClass
    Inherits ComboBox
    Dim wait As Boolean
    Public Sub New()
        Me.DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
        Me.DropDownStyle = ComboBoxStyle.DropDownList
        Me.Text = ""
        Dim ff As FontFamily
        Dim fc As New FontConverter

        For Each ff In FontFamily.Families
            Dim comboitem As New ComboBoxItem
            If ff.IsStyleAvailable(FontStyle.Regular) Then
                comboitem.Text = ff.Name
                comboitem.Font = fc.ConvertFromString(ff.Name)
                Me.Items.Add(comboitem)

            End If
        Next

    End Sub

    Protected Overrides Sub OnDrawItem(ByVal e As System.Windows.Forms.DrawItemEventArgs)
        e.DrawBackground()
        e.DrawFocusRectangle()
        Dim item As New ComboBoxItem
        Dim bounds As New Rectangle
        bounds = e.Bounds
        Try
            item = Me.Items(e.Index)
            e.Graphics.DrawString(item.Text, item.Font, New SolidBrush(e.ForeColor), bounds.Left, bounds.Top)

        Catch ex As Exception
            If (e.Index <> -1) Then
                e.Graphics.DrawString((e.Index).ToString(), e.Font, New SolidBrush(e.ForeColor), bounds.Left, bounds.Top)
            Else
                e.Graphics.DrawString(Text, e.Font, New SolidBrush(e.ForeColor), bounds.Left, bounds.Top)
            End If

        End Try

        MyBase.OnDrawItem(e)
    End Sub

    Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
        wait = False
        MyBase.OnMouseLeave(e)
    End Sub

    Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
        wait = False
        MyBase.OnMouseUp(e)
    End Sub


    Protected Overrides Sub OnSelectedIndexChanged(ByVal e As System.EventArgs)
        Try
            If wait = False Then
                Dim fc As New FontConverter

                Me.Font = fc.ConvertFromString(Me.Text)
            End If
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
    End Sub



End Class

Public Class ComboBoxItem

    Private ctext As String
    Private cSelFont As Font

    Property Text() As String
        Get
            Return ctext
        End Get
        Set(ByVal Value As String)
            ctext = Value
        End Set
    End Property
    Property Font() As Font
        Get
            Return cSelFont
        End Get
        Set(ByVal Value As Font)
            cSelFont = Value
        End Set
    End Property
    Public Overrides Function ToString() As String
        Return ctext
    End Function



End Class

Warning	1	Constructor on type 'System.Windows.Forms.ToolStripControlHost' not found.		0	0	

DBConn.ConnectionString = "Provider=SQLNCLI;AttachDBFileName=" & App.Path & "\newdb.mdf;Database=newdb;User Instance=true;Trusted_connection=Yes;"

thatraja wrote:

Looks like you have posted this question multiple times

geekgautam wrote:

how to implement using Zedgraph

e.FormattingApplied = True