Visual Basic

Imports DevExpress.XtraEditors<br />
Imports System.Drawing<br />
Imports ZipsUtils<br />
<br />
Public Class ButtonBarButton<br />
<br />
#Region " Const "<br />
    Public Const kSpacing As Integer = 6<br />
<br />
    Public Const kButtonTopH As Integer = 3<br />
    Public Const kButtonLeftV As Integer = 6<br />
<br />
    Public Const kLabelTopH As Integer = 102<br />
    Public Const kLabelLeftV As Integer = 6<br />
    Public Const kLabelHeight As Integer = 13<br />
#End Region<br />
<br />
#Region " Variables "<br />
    Private mDevButton As SimpleButton<br />
    Private mLabel As DevExpress.XtraEditors.LabelControl<br />
    Private mButton As IZipsButtonBarButton<br />
    Private mContainer As XtraScrollableControl<br />
    Private mUseLabel As Boolean<br />
#End Region<br />
<br />
#Region " Propertys "<br />
    Public ReadOnly Property DevButton() As SimpleButton<br />
        Get<br />
            Return mDevButton<br />
        End Get<br />
    End Property<br />
<br />
    Public ReadOnly Property Label() As DevExpress.XtraEditors.LabelControl<br />
        Get<br />
            Return mLabel<br />
        End Get<br />
    End Property<br />
<br />
    Public ReadOnly Property ButtonBarButton() As IZipsButtonBarButton<br />
        Get<br />
            Return mButton<br />
        End Get<br />
    End Property<br />
#End Region<br />
<br />
#Region " Constructor "<br />
    Public Sub New(ByVal theButton As IZipsButtonBarButton, ByVal container As XtraScrollableControl, ByVal allignVerticaly As Boolean, ByVal theSize As Size, ByVal useLabels As Boolean)<br />
        mButton = theButton<br />
        mContainer = container<br />
        mUseLabel = useLabels<br />
<br />
        Dim numControls As Integer = mContainer.Controls.Count<br />
        If Not allignVerticaly Then<br />
            If mUseLabel Then<br />
                Dim x As Integer = CInt(((numControls >> 1) * (theSize.Width + kSpacing)) + kSpacing)<br />
<br />
                CreateButton(New Point(x, kButtonTopH), New Size(theSize.Width, theSize.Height), (numControls >> 1))<br />
                CreateLabel(New Point(x, kLabelTopH), New Size(theSize.Width, kLabelHeight), (numControls >> 1))<br />
            Else<br />
                Dim x As Integer = CInt(numControls * (theSize.Width + kSpacing))<br />
<br />
                CreateButton(New Point(x, kButtonTopH), New Size(theSize.Width, theSize.Height), numControls)<br />
            End If<br />
        Else<br />
            If mUseLabel Then<br />
                Dim y As Integer = ((kSpacing + ((numControls >> 1) * (theSize.Height + kSpacing))) + (kSpacing + ((numControls >> 1) * (kLabelHeight + kSpacing))))<br />
<br />
                CreateButton(New Point(kButtonLeftV, y), New Size(theSize.Width, theSize.Height), (numControls >> 1))<br />
                CreateLabel(New Point(kButtonLeftV, ((y + theSize.Height) + (kSpacing >> 1))), New Size(theSize.Width, kLabelHeight), (numControls >> 1))<br />
            Else<br />
                Dim y As Integer = (kSpacing + (numControls * (theSize.Height + kSpacing)))<br />
<br />
                CreateButton(New Point(kButtonLeftV, y), New Size(theSize.Width, theSize.Height), numControls)<br />
            End If<br />
        End If<br />
    End Sub<br />
#End Region<br />
<br />
#Region " Subs "<br />
    Public Sub CreateButton(ByVal location As Point, ByVal size As Size, ByVal incrementSeed As Integer)<br />
        Dim setImg As Image = Nothing<br />
        If Not mButton.Image Is Nothing Then<br />
            setImg = DBConLite.GetResizedImage(mButton.Image, New Size(size.Width, size.Height))<br />
        End If<br />
<br />
        mButton.Size = size<br />
<br />
        mDevButton = New DevExpress.XtraEditors.SimpleButton<br />
        With mDevButton<br />
            .Location = location<br />
            .Name = "SimpleButton" & incrementSeed<br />
            .Size = size<br />
            .TabIndex = 0<br />
<br />
            If Not setImg Is Nothing Then<br />
                .Image = setImg<br />
            Else<br />
                .Text = mButton.Name<br />
            End If<br />
<br />
            .Tag = Me<br />
        End With<br />
<br />
        mContainer.Controls.Add(mDevButton)<br />
    End Sub<br />
<br />
    Public Sub CreateLabel(ByVal location As Point, ByVal size As Size, ByVal incrementSeed As Integer)<br />
        mLabel = New DevExpress.XtraEditors.LabelControl<br />
        With mLabel<br />
            .Appearance.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))<br />
            .Appearance.Options.UseFont = True<br />
            .Appearance.Options.UseTextOptions = True<br />
            .Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center<br />
            .AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None<br />
            .Location = location<br />
            .Name = "LabelControl" & incrementSeed<br />
            .Size = size<br />
            .TabIndex = 0<br />
            .Text = mButton.Name<br />
            .Tag = Me<br />
        End With<br />
<br />
        mContainer.Controls.Add(mLabel)<br />
    End Sub<br />
<br />
    Public Sub Dispose()<br />
        mDevButton.Dispose()<br />
<br />
        If mUseLabel Then<br />
            mLabel.Dispose()<br />
        End If<br />
<br />
        mDevButton = Nothing<br />
        mLabel = Nothing<br />
        mButton = Nothing<br />
    End Sub<br />
#End Region<br />
<br />
End Class

Dim charIndex As Integer = RTB.GetCharIndexFromPosition(point)
RTB.Text = RTB.Text.Insert(characterIndex, newText)

Socheat.Net wrote:

You know any browsers they can detect icon and display on window form.