Re: Any one can help me - Visual Basic Discussion Boards

Re: searching for: VBS for uninstalling symantec antivirus and liveupdate as well

Mycroft Holmes27-Feb-08 18:02

27-Feb-08 18:02

I beleive there is a tool for uninstalling symantec - I know it is a pig to get rid of.

A script to uninstall AV software, I don't think so Mad | :mad:

Problem converting c# to vb.net [modified]

Jan Sommer27-Feb-08 7:01

Jan Sommer

27-Feb-08 7:01

Hi
I'm trying to convert http://www.codeproject.com/KB/tabs/tabstrips.aspx[^] to vb.net, but have encountered a few problems.. There's 8 errors that i just can't figure out how to deal with, so maybe some of you can solve it.. Here's the code (the errors at bottom):

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms.VisualStyles
Imports VisualStyles = System.Windows.Forms.VisualStyles
Imports System.ComponentModel
Imports System.ComponentModel.Design
Imports System.Collections
Imports System.Windows.Forms.Design

Namespace Messir.Windows.Forms
    Public Class SelectedTabChangedEventArgs
        Inherits EventArgs
        Public SelectedTab As TabStripButton

        Public Sub SelectedTabChangedEventArgs(ByVal tab As TabStripButton)
            SelectedTab = tab
        End Sub
    End Class

    ''' <summary>
    ''' Represents a TabStrip control
    ''' </summary>
    Public Class TabStrip
        Inherits ToolStrip

        Private myRenderer As New TabStripRenderer()
        Protected mySelTab As TabStripButton
        Dim insPage As DesignerVerb = Nothing

        Public Sub TabStrip()
            'MyBase.new()
            InitControl()
        End Sub

        Public Sub New(ByVal ParamArray buttons() As TabStripButton)
            MyBase.New(buttons)
            InitControl()
        End Sub

        Protected Sub InitControl()
            MyBase.RenderMode = ToolStripRenderMode.ManagerRenderMode
            MyBase.Renderer = myRenderer
            myRenderer.RenderMode = Me.RenderStyle
            insPage = New DesignerVerb("Insert tab page", New EventHandler(AddressOf OnInsertPageClicked))
        End Sub

        Public Overrides Property Site() As ISite
            Get
                Dim curSite As ISite = MyBase.Site
                If ((Not (curSite) Is Nothing) _
                            AndAlso curSite.DesignMode) Then
                    Dim comp As IContainer = curSite.Container
                    If (Not (comp) Is Nothing) Then
                        Dim host As IDesignerHost = CType(comp, IDesignerHost)
                        If (Not (host) Is Nothing) Then
                            Dim designer As IDesigner = host.GetDesigner(curSite.Component)
                            If ((Not (designer) Is Nothing) _
                                        AndAlso Not designer.Verbs.Contains(insPage)) Then
                                designer.Verbs.Add(insPage)
                            End If
                        End If
                    End If
                End If
                Return curSite
            End Get
            Set(ByVal value As ISite)
                MyBase.Site = value
            End Set
        End Property

        Protected Sub OnInsertPageClicked(ByVal sender As Object, ByVal e As EventArgs)
            Dim site As ISite = MyBase.Site
            If Not site Is Nothing And site.DesignMode Then
                Dim container As IContainer = site.Container
                If Not container Is Nothing Then
                    Dim btn As TabStripButton = New TabStripButton()
                    container.Add(btn)
                    btn.Text = btn.Name
                End If

            End If
        End Sub

        ''' <summary>
        ''' Gets custom renderer for TabStrip. Set operation has no effect
        ''' </summary>
        Public Shadows Property Renderer() As ToolStripRenderer
            Get
                Return myRenderer
            End Get
            Set(ByVal value As ToolStripRenderer)
                MyBase.Renderer = myRenderer
            End Set
        End Property

        ''' <summary>
        ''' Gets or sets layout style for TabStrip control
        ''' </summary>
        Public Shadows Property LayoutStyle() As ToolStripLayoutStyle
            Get
                Return MyBase.LayoutStyle
            End Get
            Set(ByVal value As ToolStripLayoutStyle)
                Select Case (value)
                    Case ToolStripLayoutStyle.StackWithOverflow, ToolStripLayoutStyle.HorizontalStackWithOverflow, ToolStripLayoutStyle.VerticalStackWithOverflow
                        MyBase.LayoutStyle = ToolStripLayoutStyle.StackWithOverflow
                    Case ToolStripLayoutStyle.Table
                        MyBase.LayoutStyle = ToolStripLayoutStyle.Table
                    Case ToolStripLayoutStyle.Flow
                        MyBase.LayoutStyle = ToolStripLayoutStyle.Flow
                    Case Else
                        MyBase.LayoutStyle = ToolStripLayoutStyle.StackWithOverflow
                End Select
            End Set
        End Property

        ''' <summary>
        ''' 
        ''' </summary>
        <Obsolete("Use RenderStyle instead"), _
         Browsable(False)> _
        Public Shadows Property RenderMode() As ToolStripRenderMode
            Get
                Return MyBase.RenderMode
            End Get
            Set(ByVal value As ToolStripRenderMode)
                RenderStyle = value
            End Set
        End Property

        ''' <summary>
        ''' Gets or sets render style for TabStrip, use it instead of 
        ''' </summary>
        <Category("Appearance"), _
         Description("Gets or sets render style for TabStrip. You should use this property instead of RenderMode.")> _
        Public Property RenderStyle() As ToolStripRenderMode
            Get
                Return myRenderer.RenderMode
            End Get
            Set(ByVal value As ToolStripRenderMode)
                myRenderer.RenderMode = value
                Me.Invalidate()
            End Set
        End Property

        Protected Overrides ReadOnly Property DefaultPadding() As Padding
            Get
                Return Padding.Empty
            End Get
        End Property

        <Browsable(False)> _
        Public Shadows Property Padding() As Padding
            Get
                Return DefaultPadding
            End Get
            Set(ByVal value As Padding)

            End Set
        End Property

        ''' <summary>
        ''' Gets or sets if control should use system visual styles for painting items
        ''' </summary>
        <Category("Appearance"), _
         Description("Specifies if TabStrip should use system visual styles for painting items")> _
        Public Property UseVisualStyles() As Boolean
            Get
                Return myRenderer.UseVS
            End Get
            Set(ByVal value As Boolean)
                myRenderer.UseVS = value
                Me.Invalidate()
            End Set
        End Property

        ''' <summary>
        ''' Gets or sets if TabButtons should be drawn flipped
        ''' </summary>
        <Category("Appearance"), _
         Description("Specifies if TabButtons should be drawn flipped (for right- and bottom-aligned TabStrips)")> _
        Public Property FlipButtons() As Boolean
            Get
                Return myRenderer.Mirrored
            End Get
            Set(ByVal value As Boolean)
                myRenderer.Mirrored = value
                Me.Invalidate()
            End Set
        End Property

        ''' <summary>
        ''' Gets or sets currently selected tab
        ''' </summary>
        Public Property SelectedTab() As TabStripButton
            Get
                Return mySelTab
            End Get
            Set(ByVal value As TabStripButton)
                If (value Is Nothing) Then
                    Return
                End If
                If mySelTab = value Then
                    Return
                End If
                If (value.Owner <> Me) Then
                    Throw New ArgumentException("Cannot select TabButtons that do not belong to this TabStrip")
                End If
                OnItemClicked(New ToolStripItemClickedEventArgs(value))
            End Set
        End Property

        Public Event SelectedTabChanged As EventHandler

        Protected Sub OnTabSelected(ByVal tab As TabStripButton)
            Me.Invalidate()
            If Not SelectedTabChanged Is Nothing Then SelectedTabChanged(Me, New SelectedTabChangedEventArgs(tab))
        End Sub

        Protected Overrides Sub OnItemAdded(ByVal e As ToolStripItemEventArgs)
            MyBase.OnItemAdded(e)
            If (TypeOf e.Item Is TabStripButton) Then
                SelectedTab = CType(e.Item, TabStripButton)
            End If
        End Sub

        Protected Overrides Sub OnItemClicked(ByVal e As ToolStripItemClickedEventArgs)
            Dim clickedBtn As TabStripButton = CType(e.ClickedItem, TabStripButton)
            If (Not (clickedBtn) Is Nothing) Then
                Me.SuspendLayout()
                mySelTab = clickedBtn
                Me.ResumeLayout()
                OnTabSelected(clickedBtn)
            End If
            MyBase.OnItemClicked(e)
        End Sub

    End Class

    ''' <summary>
    ''' Represents a renderer class for TabStrip control
    ''' </summary>
    Class TabStripRenderer
        Inherits ToolStripRenderer

        Private Const selOffset As Integer = 2

        Private currentRenderer As ToolStripRenderer = Nothing
        Public renderMode As ToolStripRenderMode = ToolStripRenderMode.Custom
        Public mirrored As Boolean = False
        Public useVS As Boolean = Application.RenderWithVisualStyles

        ''' <summary>
        '''Gets or sets render mode for this renderer
        ''' </summary>
        Public Property RenderMode() As ToolStripRenderMode
            Get
                Return renderMode
            End Get
            Set(ByVal value As ToolStripRenderMode)
                renderMode = value
                Select renderMode
                    Case ToolStripRenderMode.Professional
                        currentRenderer = New ToolStripProfessionalRenderer()
                    Case ToolStripRenderMode.System
                        currentRenderer = New ToolStripSystemRenderer()
                    Case Else
                        currentRenderer = Nothing
                End Select
            End Set
        End Property

        ''' <summary>
        ''' Gets or sets whether to mirror background
        ''' </summary>
        ''' <remarks>Use false for left and top positions, true for right and bottom</remarks>
        Public Property Mirrored() As Boolean
            Get
                Return mirrored
            End Get
            Set(ByVal value As Boolean)
                mirrored = value
            End Set
        End Property

        ''' <summary>
        ''' Returns if visual styles should be applied for drawing
        ''' </summary>
        Public Property UseVS() As Boolean
            Get
                Return useVS
            End Get
            Set(ByVal value As Boolean)
                If (value _
                            AndAlso Not Application.RenderWithVisualStyles) Then
                    Return
                End If
                useVS = value
            End Set
        End Property

        Protected Overrides Sub Initialize(ByVal ts As ToolStrip)
            MyBase.Initialize(ts)
        End Sub

        Protected Overrides Sub OnRenderToolStripBorder(ByVal e As ToolStripRenderEventArgs)
            Dim c As Color = SystemColors.AppWorkspace
            If (UseVS) Then
                Dim rndr As VisualStyleRenderer = New VisualStyleRenderer(VisualStyleElement.Tab.Pane.Normal)
                c = rndr.GetColor(ColorProperty.BorderColorHint)
            End If

            Dim p As Pen = New Pen(c)
            Dim p2 As Pen = New Pen(e.BackColor)
            Dim r As Rectangle = e.ToolStrip.Bounds
            Dim x1 As Integer
            Dim y1 As Integer
            If mirrored = False Then x1 = 0 Else x1 = r.Width - 1 - e.ToolStrip.Padding.Horizontal
            If mirrored = False Then y1 = 0 Else y1 = r.Height - 1

            If (e.ToolStrip.Orientation = Orientation.Horizontal) Then
                e.Graphics.DrawLine(p, 0, y1, r.Width, y1)
            Else
                e.Graphics.DrawLine(p, x1, 0, x1, r.Height)
                If Not (mirrored) Then
                    Dim i As Integer = (x1 + 1)
                    Do While (i < r.Width)
                        e.Graphics.DrawLine(p2, i, 0, i, r.Height)
                        i = (i + 1)
                    Loop
                End If
                For Each x As ToolStripItem In e.ToolStrip.Items

                    If (x.IsOnOverflow) Then Continue For
                    'TabStripButton btn = x as TabStripButton;
                    Dim btn As TabStripButton = TryCast(x, TabStripButton)
                    If btn Is Nothing Then Continue For
                    Dim rc As Rectangle = btn.Bounds
                    Dim x2 As Integer
                    Dim y2 As Integer
                    If mirrored Then x2 = rc.Left Else x2 = rc.Right
                    If mirrored Then y2 = rc.Top Else y2 = rc.Bottom - 1

                    Dim addXY As Integer
                    If mirrored Then addXY = 0 Else addXY = 1

                    If e.ToolStrip.Orientation = Orientation.Horizontal Then
                        e.Graphics.DrawLine(p, rc.Left, y2, rc.Right, y2)
                        If (btn.Checked) Then e.Graphics.DrawLine(p2, rc.Left + 2 - addXY, y2, rc.Right - 2 - addXY, y2)
                    Else
                        e.Graphics.DrawLine(p, x2, rc.Top, x2, rc.Bottom)
                        If (btn.Checked) Then e.Graphics.DrawLine(p2, x2, rc.Top + 2 - addXY, x2, rc.Bottom - 2 - addXY)
                    End If
                Next
            End If
        End Sub

        Protected Overrides Sub OnRenderToolStripBackground(ByVal e As ToolStripRenderEventArgs)
            If (Not (currentRenderer) Is Nothing) Then currentRenderer.DrawToolStripBackground(e) Else MyBase.OnRenderToolStripBackground(e)
        End Sub

        Protected Overrides Sub OnRenderButtonBackground(ByVal e As ToolStripItemRenderEventArgs)
            Dim g As Graphics = e.Graphics
            Dim tabs As TabStrip = CType(e.ToolStrip, TabStrip)
            Dim tab As TabStripButton = CType(e.Item, TabStripButton)
            If ((tabs Is Nothing) _
                        OrElse (tab Is Nothing)) Then
                If (Not (currentRenderer) Is Nothing) Then
                    currentRenderer.DrawButtonBackground(e)
                End If
            Else
                MyBase.OnRenderButtonBackground(e)
                Return
            End If

            Dim selected As Boolean = tab.Checked
            Dim hovered As Boolean = tab.Selected
            Dim top As Integer = 0
            Dim left As Integer = 0
            Dim width As Integer = (tab.Bounds.Width - 1)
            Dim height As Integer = (tab.Bounds.Height - 1)
            Dim drawBorder As Rectangle


            If (useVS) Then
                If tabs.Orientation = Orientation.Horizontal Then
                    If Not selected Then
                        top = selOffset
                        height -= (selOffset - 1)
                    Else
                        top = 1
                        drawBorder = New Rectangle(0, 0, width, height)
                    End If
                Else
                    If Not selected Then
                        left = selOffset
                        width -= (selOffset - 1)
                    Else
                        left = 1
                        drawBorder = New Rectangle(0, 0, height, width)
                    End If
                End If

                Dim b As Bitmap = New Bitmap(drawBorder.Width, drawBorder.Height)

                Dim el As VisualStyleElement = VisualStyleElement.Tab.TabItem.Normal

                If (selected) Then el = VisualStyleElement.Tab.TabItem.Pressed
                If (hovered) Then el = VisualStyleElement.Tab.TabItem.Hot
                If Not tab.Enabled Then el = VisualStyleElement.Tab.TabItem.Disabled

                If Not selected Or hovered Then drawBorder.Width += 1 Else drawBorder.Height += 1

                Dim gr As Graphics = Graphics.FromImage(b)
                Dim rndr As VisualStyleRenderer = New VisualStyleRenderer(el)
                rndr.DrawBackground(gr, drawBorder)

                If tabs.Orientation = Orientation.Vertical Then
                    If (mirrored) Then
                        b.RotateFlip(RotateFlipType.Rotate270FlipXY)
                    Else
                        b.RotateFlip(RotateFlipType.Rotate270FlipNone)
                    End If
                Else
                    If (mirrored) Then
                        b.RotateFlip(RotateFlipType.RotateNoneFlipY)
                    End If
                    If (mirrored) Then
                        left = tab.Bounds.Width - b.Width - left
                        top = tab.Bounds.Height - b.Height - top
                    End If
                    g.DrawImage(b, left, top)
                End If
            Else
                If tabs.Orientation = Orientation.Horizontal Then
                    If Not selected Then
                        top = selOffset
                        height -= (selOffset - 1)
                    Else
                        top = 1
                        If (mirrored) Then
                            left = 1
                            top = 0
                        Else
                            top += 1
                            width -= 1
                        End If
                    End If
                else
                    If Not selected Then
                        left = selOffset
                        width -= 1
                    Else
                        left = 1
                        If (mirrored) Then
                            left = 0
                            top = 1
                        End If
                    End If
                    height -= 1
                    drawBorder = New Rectangle(left, top, width, height)

                    Dim gp As GraphicsPath = New GraphicsPath()
                    If (mirrored And tabs.Orientation = Orientation.Horizontal) Then
                        gp.AddLine(drawBorder.Left, drawBorder.Top, drawBorder.Left, drawBorder.Bottom - 2)
                        gp.AddArc(drawBorder.Left, drawBorder.Bottom - 3, 2, 2, 90, 90)
                        gp.AddLine(drawBorder.Left + 2, drawBorder.Bottom, drawBorder.Right - 2, drawBorder.Bottom)
                        gp.AddArc(drawBorder.Right - 2, drawBorder.Bottom - 3, 2, 2, 0, 90)
                        gp.AddLine(drawBorder.Right, drawBorder.Bottom - 2, drawBorder.Right, drawBorder.Top)
                    ElseIf (Not mirrored And tabs.Orientation = Orientation.Horizontal) Then
                        gp.AddLine(drawBorder.Left, drawBorder.Bottom, drawBorder.Left, drawBorder.Top + 2)
                        gp.AddArc(drawBorder.Left, drawBorder.Top + 1, 2, 2, 180, 90)
                        gp.AddLine(drawBorder.Left + 2, drawBorder.Top, drawBorder.Right - 2, drawBorder.Top)
                        gp.AddArc(drawBorder.Right - 2, drawBorder.Top + 1, 2, 2, 270, 90)
                        gp.AddLine(drawBorder.Right, drawBorder.Top + 2, drawBorder.Right, drawBorder.Bottom)
                    ElseIf (mirrored And tabs.Orientation = Orientation.Vertical) Then
                        gp.AddLine(drawBorder.Left, drawBorder.Top, drawBorder.Right - 2, drawBorder.Top)
                        gp.AddArc(drawBorder.Right - 2, drawBorder.Top + 1, 2, 2, 270, 90)
                        gp.AddLine(drawBorder.Right, drawBorder.Top + 2, drawBorder.Right, drawBorder.Bottom - 2)
                        gp.AddArc(drawBorder.Right - 2, drawBorder.Bottom - 3, 2, 2, 0, 90)
                        gp.AddLine(drawBorder.Right - 2, drawBorder.Bottom, drawBorder.Left, drawBorder.Bottom)
                    Else
                        gp.AddLine(drawBorder.Right, drawBorder.Top, drawBorder.Left + 2, drawBorder.Top)
                        gp.AddArc(drawBorder.Left, drawBorder.Top + 1, 2, 2, 180, 90)
                        gp.AddLine(drawBorder.Left, drawBorder.Top + 2, drawBorder.Left, drawBorder.Bottom - 2)
                        gp.AddArc(drawBorder.Left, drawBorder.Bottom - 3, 2, 2, 90, 90)
                        gp.AddLine(drawBorder.Left + 2, drawBorder.Bottom, drawBorder.Right, drawBorder.Bottom)
                    End If

                    If (selected Or hovered) Then
                        Dim fill As Color
                        If (hovered) Then fill = Color.WhiteSmoke Else fill = Color.White

                        If (renderMode = ToolStripRenderMode.Professional) Then
                            If (hovered) Then fill = ProfessionalColors.ButtonCheckedGradientBegin Else fill = ProfessionalColors.ButtonCheckedGradientEnd

                            Dim br As LinearGradientBrush = New LinearGradientBrush(tab.ContentRectangle, fill, ProfessionalColors.ButtonCheckedGradientMiddle, LinearGradientMode.Vertical)
                            g.FillPath(br, gp)
                        Else
                            Dim br As SolidBrush = New SolidBrush(fill)
                            g.FillPath(br, gp)
                        End If
                    End If

                    'using (Pen p = new Pen((selected) ? ControlPaint.Dark(SystemColors.AppWorkspace) : SystemColors.AppWorkspace))
                    Dim p As Pen = New Pen(Color.Blue)
                    If selected Then p.Color = ControlPaint.Dark(SystemColors.AppWorkspace) Else p.Color = SystemColors.AppWorkspace
                    g.DrawPath(p, gp)
                End If
            End If
        End Sub

        Protected Overrides Sub OnRenderItemImage(ByVal e As ToolStripItemImageRenderEventArgs)
            Dim rc As Rectangle = e.ImageRectangle
            Dim btn As TabStripButton = CType(e.Item, TabStripButton)
            If (Not (btn) Is Nothing) Then
                'int delta = ((Mirrored) ? -1 : 1) * ((btn.Checked) ? 1 : selOffset);
                Dim delta As Integer
                Dim theOffset As Integer
                If btn.checked = True Then theOffset = 1 Else theOffset = selOffset
                If mirrored Then delta = -1 * theOffset Else delta = 1 * theOffset

                If (e.ToolStrip.Orientation = Orientation.Horizontal) Then
                    'rc.Offset((Mirrored) ? 2 : 1, delta + ((Mirrored) ? 1 : 0));
                    If mirrored Then
                        rc.Offset(2, delta + 1)
                    Else
                        rc.Offset(1, delta)
                    End If
                Else
                    rc.Offset(delta + 2, 0)
                End If
                Dim x As ToolStripItemImageRenderEventArgs = New ToolStripItemImageRenderEventArgs(e.Graphics, e.Item, e.Image, rc)
                If (Not currentRenderer Is Nothing) Then
                    currentRenderer.DrawItemImage(x)
                Else
                    MyBase.OnRenderItemImage(x)
                End If
            End If
        End Sub

        Protected Overrides Sub OnRenderItemText(ByVal e As ToolStripItemTextRenderEventArgs)
            Dim rc As Rectangle = e.TextRectangle
            Dim btn As TabStripButton = CType(e.Item, TabStripButton)
            Dim c As Color = e.TextColor
            Dim f As Font = e.TextFont
            If (Not (btn) Is Nothing) Then
                'int delta = ((Mirrored) ? -1 : 1) * ((btn.Checked) ? 1 : selOffset);
                Dim delta As Integer
                Dim theOffset As Integer
                If btn.checked = True Then theOffset = 1 Else theOffset = selOffset
                If mirrored Then delta = -1 * theOffset Else delta = 1 * theOffset

                If (e.ToolStrip.Orientation = Orientation.Horizontal) Then
                    'rc.Offset((Mirrored) ? 2 : 1, delta + ((Mirrored) ? 1 : -1));
                    If mirrored Then
                        rc.Offset(2, delta + 1)
                    Else
                        rc.Offset(1, delta - 1)
                    End If
                Else
                    rc.Offset(delta + 2, 0)
                    If (btn.Selected) Then
                        c = btn.HotTextColor
                    ElseIf (btn.Checked) Then
                        c = btn.SelectedTextColor
                    End If
                    If (btn.Checked) Then
                        f = btn.SelectedFont
                    End If

                    Dim x As ToolStripItemTextRenderEventArgs = New ToolStripItemTextRenderEventArgs(e.Graphics, e.Item, e.Text, rc, c, f, e.TextFormat)
                    x.TextDirection = e.TextDirection
                    If Not currentRenderer Is Nothing Then
                        currentRenderer.DrawItemText(x)
                    Else
                        MyBase.OnRenderItemText(x)
                    End If
                End If
            End If
        End Sub

        Protected Overrides Sub OnRenderArrow(ByVal e As ToolStripArrowRenderEventArgs)
            If (Not (currentRenderer) Is Nothing) Then currentRenderer.DrawArrow(e) Else MyBase.OnRenderArrow(e)
        End Sub

        Protected Overrides Sub OnRenderDropDownButtonBackground(ByVal e As ToolStripItemRenderEventArgs)
            If (Not (currentRenderer) Is Nothing) Then currentRenderer.DrawDropDownButtonBackground(e) Else MyBase.OnRenderDropDownButtonBackground(e)
        End Sub

        Protected Overrides Sub OnRenderGrip(ByVal e As ToolStripGripRenderEventArgs)
            If (Not (currentRenderer) Is Nothing) Then currentRenderer.DrawGrip(e) Else MyBase.OnRenderGrip(e)
        End Sub

        Protected Overrides Sub OnRenderImageMargin(ByVal e As ToolStripRenderEventArgs)
            If (Not (currentRenderer) Is Nothing) Then currentRenderer.DrawImageMargin(e) Else MyBase.OnRenderImageMargin(e)
        End Sub

        Protected Overrides Sub OnRenderItemBackground(ByVal e As ToolStripItemRenderEventArgs)
            If (Not (currentRenderer) Is Nothing) Then currentRenderer.DrawItemBackground(e) Else MyBase.OnRenderItemBackground(e)
        End Sub

        Protected Overrides Sub OnRenderItemCheck(ByVal e As ToolStripItemImageRenderEventArgs)
            If (Not (currentRenderer) Is Nothing) Then currentRenderer.DrawItemCheck(e) Else MyBase.OnRenderItemCheck(e)
        End Sub

        Protected Overrides Sub OnRenderLabelBackground(ByVal e As ToolStripItemRenderEventArgs)
            If (Not (currentRenderer) Is Nothing) Then currentRenderer.DrawLabelBackground(e) Else MyBase.OnRenderLabelBackground(e)
        End Sub

        Protected Overrides Sub OnRenderMenuItemBackground(ByVal e As ToolStripItemRenderEventArgs)
            If (Not (currentRenderer) Is Nothing) Then currentRenderer.DrawMenuItemBackground(e) Else MyBase.OnRenderMenuItemBackground(e)
        End Sub

        Protected Overrides Sub OnRenderOverflowButtonBackground(ByVal e As ToolStripItemRenderEventArgs)
            If (Not (currentRenderer) Is Nothing) Then currentRenderer.DrawOverflowButtonBackground(e) Else MyBase.OnRenderOverflowButtonBackground(e)
        End Sub

        Protected Overrides Sub OnRenderSeparator(ByVal e As ToolStripSeparatorRenderEventArgs)
            If (Not (currentRenderer) Is Nothing) Then currentRenderer.DrawSeparator(e) Else MyBase.OnRenderSeparator(e)
        End Sub

        Protected Overrides Sub OnRenderSplitButtonBackground(ByVal e As ToolStripItemRenderEventArgs)
            If (Not (currentRenderer) Is Nothing) Then currentRenderer.DrawSplitButton(e) Else MyBase.OnRenderSplitButtonBackground(e)
        End Sub

        Protected Overrides Sub OnRenderStatusStripSizingGrip(ByVal e As ToolStripRenderEventArgs)
            If (Not (currentRenderer) Is Nothing) Then currentRenderer.DrawStatusStripSizingGrip(e) Else MyBase.OnRenderStatusStripSizingGrip(e)
        End Sub

        Protected Overrides Sub OnRenderToolStripContentPanelBackground(ByVal e As ToolStripContentPanelRenderEventArgs)
            If (Not (currentRenderer) Is Nothing) Then currentRenderer.DrawToolStripContentPanelBackground(e) Else MyBase.OnRenderToolStripContentPanelBackground(e)
        End Sub

        Protected Overrides Sub OnRenderToolStripPanelBackground(ByVal e As ToolStripPanelRenderEventArgs)
            If (Not (currentRenderer) Is Nothing) Then currentRenderer.DrawToolStripPanelBackground(e) Else MyBase.OnRenderToolStripPanelBackground(e)
        End Sub

        Protected Overrides Sub OnRenderToolStripStatusLabelBackground(ByVal e As ToolStripItemRenderEventArgs)
            If (Not (currentRenderer) Is Nothing) Then currentRenderer.DrawToolStripStatusLabelBackground(e) Else MyBase.OnRenderToolStripStatusLabelBackground(e)
        End Sub
    End Class

    ''' <summary>
    ''' Represents a TabButton for TabStrip control
    ''' </summary>
    <ToolStripItemDesignerAvailability(ToolStripItemDesignerAvailability.ToolStrip)> _
    Public Class TabStripButton
        Inherits ToolStripButton

        Public Sub New()
            MyBase.New()
            InitButton()
        End Sub

        Public Sub New(ByVal image As Image)
            MyBase.New(image)
            InitButton()
        End Sub

        Public Sub New(ByVal text As String)
            MyBase.New(text)
            InitButton()
        End Sub

        Public Sub New(ByVal text As String, ByVal image As Image)
            MyBase.New(text, image)
            InitButton()
        End Sub

        Public Sub New(ByVal Text As String, ByVal Image As Image, ByVal Handler As EventHandler)
            MyBase.New(Text, Image, Handler)
            InitButton()
        End Sub

        Public Sub New(ByVal Text As String, ByVal Image As Image, ByVal Handler As EventHandler, ByVal name As String)
            MyBase.New(Text, Image, Handler, name)
            InitButton()
        End Sub

        Private Sub InitButton()
            m_SelectedFont = Me.Font
        End Sub

        Public Overrides Function GetPreferredSize(ByVal constrainingSize As Size) As Size
            Dim sz As Size = MyBase.GetPreferredSize(constrainingSize)
            If ((Not (Me.Owner) Is Nothing) _
                        AndAlso (Me.Owner.Orientation = Orientation.Vertical)) Then
                sz.Width = (sz.Width + 3)
                sz.Height = (sz.Height + 10)
            End If
            Return sz
        End Function

        Protected Overrides ReadOnly Property DefaultMargin() As Padding
            Get
                Return New Padding(0)
            End Get
        End Property

        <Browsable(False)> _
        Public Shadows Property Margin() As Padding
            Get
                Return MyBase.Margin
            End Get
            Set(ByVal value As Padding)

            End Set
        End Property

        <Browsable(False)> _
        Public Shadows Property Padding() As Padding
            Get
                Return MyBase.Padding
            End Get
            Set(ByVal value As Padding)

            End Set
        End Property


        Dim m_HotTextColor As Color = Control.DefaultForeColor


        Private m_SelectedTextColor As Color = Control.DefaultForeColor

        <Category("Appearance"), _
         Description("Text color when TabButton is highlighted")> _
        Public Property HotTextColor() As Color
            Get
                Return m_HotTextColor
            End Get
            Set(ByVal value As Color)
                m_HotTextColor = value
            End Set
        End Property

        <Category("Appearance"), _
         Description("Text color when TabButton is selected")> _
        Public Property SelectedTextColor() As Color
            Get
                Return m_SelectedTextColor
            End Get
            Set(ByVal value As Color)
                m_SelectedTextColor = value
            End Set
        End Property


        Dim m_SelectedFont As Font

        <Category("Appearance")> _
        <Description("Font when TabButton is selected")> _
        Public Property SelectedFont() As Font
            Get
                If m_SelectedFont Is Nothing Then m_SelectedFont = MyBase.Font
                Return (m_SelectedFont)
            End Get
            Set(ByVal value As Font)
                m_SelectedFont = value
            End Set
        End Property

        <Browsable(False), _
           DefaultValue(False)> _
          Public Shadows Property Checked() As Boolean
            Get
                Return IsSelected
            End Get
            Set(ByVal value As Boolean)

            End Set
        End Property

        ''' <summary>
        ''' Gets or sets if this TabButton is currently selected
        ''' </summary>
        <Browsable(False)> _
        Public Property IsSelected() As Boolean
            Get
                Dim owner As TabStrip = CType(Me.Owner, TabStrip)
                If (Not (owner) Is Nothing) Then
                    Return (Me = Me.Owner.SelectedTab)
                End If
                Return False
            End Get
            Set(ByVal value As Boolean)
                If (value = False) Then
                    Return
                End If
                Dim owner As TabStrip = CType(Me.Owner, TabStrip)
                If (owner Is Nothing) Then
                    Return
                End If
                owner.SelectedTab = Me
            End Set
        End Property

        Protected Overrides Sub OnOwnerChanged(ByVal e As EventArgs)
            If ((Not (Owner) Is Nothing) _
                        AndAlso Not (TypeOf Owner Is TabStrip)) Then
                Throw New Exception(("Cannot add TabStripButton to " + Owner.GetType.Name))
            End If
            MyBase.OnOwnerChanged(e)
        End Sub

    End Class

End Namespace

And the errors:

Error	2	Operator '=' is not defined for types 'LuceneSearch.Messir.Windows.Forms.TabStripButton' and 'LuceneSearch.Messir.Windows.Forms.TabStripButton'.		207<br />
<br />
Error	3	Operator '<>' is not defined for types 'System.Windows.Forms.ToolStrip' and 'LuceneSearch.Messir.Windows.Forms.TabStrip'.		210<br />
<br />
Error	4	'Public Event SelectedTabChanged(sender As Object, e As System.EventArgs)' is an event, and cannot be called directly. Use a 'RaiseEvent' statement to raise an event.		221<br />
<br />
Error	5	Too many arguments to 'Public Sub New()'.					221<br />
Error	6	'RenderMode' is already declared as 'Public renderMode As System.Windows.Forms.ToolStripRenderMode' in this class.		260<br />
Error	7	'Mirrored' is already declared as 'Public mirrored As Boolean' in this class.	281<br />
<br />
Error	8	'UseVS' is already declared as 'Public useVS As Boolean' in this class.		293<br />
<br />
Error	9	'SelectedTab' is not a member of 'System.Windows.Forms.ToolStrip'.		787

I really hope someone know's how to deal with this, because i'm very eager to use this control.

modified on Wednesday, February 27, 2008 1:07 PM

Re: Problem converting c# to vb.net

Christian Graus27-Feb-08 9:00

Christian Graus

27-Feb-08 9:00

No-one is going to trawl through all this source to try to find which line is 207.

I'd guess that the operator = error has to do with VB doing an implicit conversion to a type that does have operator =.

Error 4 is self explanatory. VB sucks. It won't let you call an event, you have to call RaiseEvent.

Error 5 looks like the convertor has failed to properly convert a constructor, at a guess

Error 6, 7, and 8 are all because VB sucks and is not case sensitive. The original code had Mirrored and mirrored defined ( probably as a private variable and a public property. Change mirrored to _mirrored through the code, and then they will not collide.

Christian Graus - Microsoft MVP - C++

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

Re: Problem converting c# to vb.net

Jan Sommer28-Feb-08 4:51

Jan Sommer

28-Feb-08 4:51

You're right about noone is going to debug all that code. Guess i was a little naive to believe in that. I've found another control that does pretty much the same and in vb.net.

But thanks for trying to help. Maybe i should try out c# some day Smile | :)

How to identifying the VB powerpacks controls in panel

VB 8.027-Feb-08 3:15

VB 8.0

27-Feb-08 3:15

Hi ,

I am having a panel at runtime , i am adding these oval ,rect ,line to panel at runtime .

Now the problem is i am not able to find the powerpacks controls in a panel

Normally i am able to find controls but these are hiding .

????

Thanks

vb

Re: How to identifying the VB powerpacks controls in panel

Dave Kreskowiak27-Feb-08 6:27

Dave Kreskowiak

27-Feb-08 6:27

You can't add the line drawing controls directly to a panel or other container. You have to first add the drawing control's "Surface" or "Drawing Container" control to the panel control, then add the line and oval controls to that surface control.

I can't remember what it's called, but it's quite obvious what it is if you look through the power pack library the line and oval controls are in.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Any one can help me

suresh v.p27-Feb-08 2:42

suresh v.p

27-Feb-08 2:42

Hi
i want to show the listview particular row data into the gridview .that gridview and listview in the same form
For Ex

List view having many data (row by row).in that i wil double click on that particular row that row data should go to gridview in the same form

i thing in listview double click event i want to write coding for this
but i dont know any one help me

iam using vb.net 2005

Re: Any one can help me

Dave Kreskowiak27-Feb-08 6:30

Dave Kreskowiak

27-Feb-08 6:30

So where is the data in the ListView comming from??

Handle the SelectedIndexChanged event of the ListView to get the index of the item in the ListViews Items collection. Once you have that, you can grab the data from the ListViewItem in the collection, and all of the SubItems of the ListViewItem that was selected. You'll have to populate the grid manually with this data or put it into a DataTable object that you build and bind the DataGridView to that.

There's a bunch of different ways of doing this...

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Threading event control question

cstrader23227-Feb-08 2:36

cstrader232

27-Feb-08 2:36

If I run a control method on a BGW why don't the event callbacks that it creates run on the background thread? They seem to fire on the main thread.

Thanks

Re: Threading event control question

Dave Kreskowiak27-Feb-08 6:17

Dave Kreskowiak

27-Feb-08 6:17

You're question is a bit confusing. Which event callbacks are you talking about?? Are you referring to the ProgressChanged, RunWorkCompleted, ..., events exposed by the BGW?? Or are you talking about the events exposed by your other controls method??

If the BGW events, then those events are automatically marshaled back to the UI thread so the developer doesn't have to do anything different than any other controls in order to handler them. It's just an ease of use requirement when the BGW was designed.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Re: Threading event control question

cstrader23228-Feb-08 2:09

cstrader232

28-Feb-08 2:09

Sorry, let me be more specific. I have a third party control that causes events to be fired. Even if I start that method on a BGW the events fire on the main thread. I guess my question is how does an event know which thread it was called on? Is it possible to make a method fire its events on a separate thread?

Thanks again.

Re: Threading event control question

Dave Kreskowiak28-Feb-08 3:07

Dave Kreskowiak

28-Feb-08 3:07

cstrader232 wrote:
I guess my question is how does an event know which thread it was called on?

If the control was created by the UI thread, or dropped on the form, it stays on the UI thread. Events cannot be made to arbitrarily fire on a different thread.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

adding progress bar

johnjsm27-Feb-08 2:09

johnjsm

27-Feb-08 2:09

Hi,
I need to add a progress bar that will progress with the amount of bytes read of a file. I am performing a CRC32 on a large file and I would like to display the progress using the progress bar and also text displaying the percentage done. The crc32 is already running on a seperate thread. Can anyone help.

This is the code for getting the crc32

Dim f As FileStream = New FileStream(path, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
crc = c32.GetCrc32(f)
lblCRC32V.Text = Hex(crc)
f.Close()

Thanks

Re: adding progress bar

Dave Kreskowiak27-Feb-08 6:08

Dave Kreskowiak

27-Feb-08 6:08

If this CRC library you're using exposes a method to report progress, you'll be in business. If not, you won't be able to do this unless you have access to the source code for the library and add support for reporting progress.

Does the library support this?

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Re: adding progress bar

johnjsm27-Feb-08 11:17

johnjsm

27-Feb-08 11:17

Hi Dave,
This is the code used for generating the CRC32

Public Class CRC32<br />
<br />
' This is v2 of the VB CRC32 algorithm provided by Paul<br />
<br />
' (wpsjr1@succeed.net) - much quicker than the nasty<br />
<br />
' original version I posted. Excellent work!<br />
<br />
Private crc32Table() As Integer<br />
<br />
Private Const BUFFER_SIZE As Integer = 1024<br />
<br />
Public Function GetCrc32(ByRef stream As System.IO.Stream) As Integer<br />
<br />
Dim crc32Result As Integer<br />
<br />
crc32Result = &HFFFFFFFF<br />
<br />
Dim buffer(BUFFER_SIZE) As Byte<br />
<br />
Dim readSize As Integer = BUFFER_SIZE<br />
<br />
Dim count As Integer = stream.Read(buffer, 0, readSize)<br />
<br />
Dim i As Integer<br />
<br />
Dim iLookup As Integer<br />
<br />
Dim tot As Integer = 0<br />
<br />
Do While (count > 0)<br />
<br />
For i = 0 To count - 1<br />
<br />
iLookup = (crc32Result And &HFF) Xor buffer(i)<br />
<br />
crc32Result = ((crc32Result And &HFFFFFF00) \ &H100) And &HFFFFFF ' nasty shr 8 with vb :/<br />
<br />
crc32Result = crc32Result Xor crc32Table(iLookup)<br />
<br />
Next i<br />
<br />
count = stream.Read(buffer, 0, readSize)<br />
<br />
Loop<br />
<br />
GetCrc32 = Not (crc32Result)<br />
<br />
End Function<br />
<br />
Public Sub New()<br />
<br />
' This is the official polynomial used by CRC32 in PKZip.<br />
<br />
' Often the polynomial is shown reversed (04C11DB7).<br />
<br />
Dim dwPolynomial As Integer = &HEDB88320<br />
<br />
Dim i As Integer, j As Integer<br />
<br />
ReDim crc32Table(256)<br />
<br />
Dim dwCrc As Integer<br />
<br />
For i = 0 To 255<br />
<br />
dwCrc = i<br />
<br />
For j = 8 To 1 Step -1<br />
<br />
If (dwCrc And 1) Then<br />
<br />
dwCrc = ((dwCrc And &HFFFFFFFE) \ 2&) And &H7FFFFFFF<br />
<br />
dwCrc = dwCrc Xor dwPolynomial<br />
<br />
Else<br />
<br />
dwCrc = ((dwCrc And &HFFFFFFFE) \ 2&) And &H7FFFFFFF<br />
<br />
End If<br />
<br />
Next j<br />
<br />
crc32Table(i) = dwCrc<br />
<br />
Next i<br />
<br />
End Sub<br />
<br />
End Class<br />
<br />
Public Class GetCRC32OF<br />
<br />
Public Sub CRC32File()<br />
<br />
End Sub<br />
<br />
End Class

Re: adding progress bar

Dave Kreskowiak28-Feb-08 3:05

Dave Kreskowiak

28-Feb-08 3:05

OK. So add a little code to the main processing loop to fire an event every so often reporting the percentage complete.

You consumer code should create an instance of this class, wireup the event you write and use the data from that event to update the progress bar.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Seeking VB sample using GPS Intermediate Driver parsed API

twoods27-Feb-08 1:32

twoods

27-Feb-08 1:32

Newbie here, "Hello" forum.

As the title suggests I'm looking to use the GPS Intermediate Driver parsed API through VB. I'm not a C programmer so this would be a great solution for us VBers...

The API appears to have just 4 functions and eliminates having to directly code to the com port, perfect. (http://msdn2.microsoft.com/en-us/library/bb202033.aspx)

GPSOpenDevice
GPSGetPosition
GPSGetDeviceState
GPSCloseDevice

I'm not familiar enough with how to implement the API to be able to get off the ground, I'm hoping somebody might be able to help out.

Thanks.

TW,

Re: Seeking VB sample using GPS Intermediate Driver parsed API

Dave Kreskowiak27-Feb-08 6:39

Dave Kreskowiak

27-Feb-08 6:39

VB.NET examples using this library are a bit difficult to come by.

I did find the PInvoke signatures of a couple of those functions here[^]. You can figure out the other two using the documentation on the functions are the URL you posted.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Strange problem about msinet while using getheader method

Member 438462427-Feb-08 1:02

Member 4384624

27-Feb-08 1:02

i have got a Strange problem about msinet.ocx while using getheader method.
it is:
i write this code

Private Sub Inet1_StateChanged(ByVal State As Integer)<br />
Select Case State<br />
  Case 8<br />
  If app_status = 1 Then<br />
    'xnei_header = Inet1.GetHeader<br />
    Text3.Text = Text3.Text & vbCrLf & "error: " & vbCrLf & xnei_header<br />
    app_status = 2<br />
  Else<br />
    xnei_header = Inet1.GetHeader<br />
    Text3.Text = Text3.Text & vbCrLf & "error: " & vbCrLf & xnei_header<br />
  End If<br />
  If app_status = 3 Then<br />
    Text6.Text = Text6.Text & vbCrLf & "error: " & vbCrLf & xnei_header<br />
    app_status = 4<br />
  End If<br />
  Case 12<br />
    If app_status = 2 Then<br />
      Text3.Text = Text3.Text & ResponseInfo & vbCrLf & vbCrLf & Inet1.GetHeader<br />
    End If<br />
    If app_status = 4 Then<br />
      Text6.Text = Text6.Text & ResponseInfo & vbCrLf & vbCrLf & Inet1.GetHeader<br />
    End If<br />
End Select<br />
End Sub

the code write for auto_login to a website
when i post the correct user/pwd data to the site,it will return a http
header with values=302 and if the user/pwd wrong,it will be 200
then inet1 will go on fetching the site
i found i can use getheader method to see if the return value is 302 or 200 while state change to 8
and these code work normally at my home PC(it use a adsl net)
but can not work at my school PC(it use a lan net and after a route)
the vbide show error like this:
RUNTIME ERROR : "35756"
Unable to complete request!

it seems a error accur at xnei_header = Inet1.GetHeader

some people told it is because my pc is after a route
isn't it?
if it is ,please tell me how to solve it, thx

Re: Strange problem about msinet while using getheader method

Dave Kreskowiak27-Feb-08 6:42

Dave Kreskowiak

27-Feb-08 6:42

It probably has something to do with a proxy or firewall server in your schools network. You'll have to examine the returned page data from the proxy in order to figure this one out. It's possible you're not even getting to the page at all because it may be blocked by the proxy.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Re: Strange problem about msinet while using getheader method

Member 438462427-Feb-08 16:19

Member 4384624

27-Feb-08 16:19

yes.all the data will be send by the router,it's ip is 192.168.0.1
but i think other people's gateway might be anyother like 192.168.1.1
so if there some method to get the gateway's ip???

Re: Strange problem about msinet while using getheader method

Dave Kreskowiak28-Feb-08 3:03

Dave Kreskowiak

28-Feb-08 3:03

You don't need it. The TCP/IP configuration is usually setup with the proper gateway address already. The gateway has nothing to do with a proxy anyway. That's seperate, but on smaller broadband routers for the home, a proxy/NAT/firewall is usually found on the same device at the same address.

If Internet Explorer works for outside sites, you don't have to worry about setting up proxy settings. The Inet control uses the proxy settings in IE automatically.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Re: Strange problem about msinet while using getheader method

Member 438462429-Feb-08 7:14

Member 4384624

29-Feb-08 7:14

but how to solve the problem whitch i have meet

Re: Strange problem about msinet while using getheader method

Dave Kreskowiak29-Feb-08 18:26

Dave Kreskowiak

29-Feb-08 18:26

I already told you, you're going to have to examine the page headers and content returned from the page request so you can figure out where the difference is when you request the page via the proxy compared to when you aren't forced to use a proxy.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Re: Strange problem about msinet while using getheader method

Member 438462429-Feb-08 19:38

Member 4384624

29-Feb-08 19:38

ok,i'll get a try,i'am sorry my english is poor

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.