C#

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports System.Diagnostics

Public Module Module1
    Public Sub AutoBreakPoint()
        ProcessFile()
    End Sub

    Function ProcessFile()

        Dim selection As EnvDTE.TextSelection
        Dim projectItem As ProjectItem
        Dim fileCodeModel As FileCodeModel
        Dim codeElement As CodeElement
        Dim i As Integer

        Dim currentFunction As CodeFunction

        projectItem = DTE.ActiveDocument.ProjectItem

        fileCodeModel = projectItem.FileCodeModel
        For i = 1 To fileCodeModel.CodeElements.Count
            codeElement = fileCodeModel.CodeElements.Item(i)
            ProcessCodeElement(codeElement)
        Next

        selection = DTE.ActiveDocument.Selection
        selection.SelectAll()
        selection.SmartFormat()

    End Function

    Sub ProcessNamespace(ByVal namespaceElement As CodeNamespace)
        Dim i As Integer
        Dim codeElement As CodeElement

        For i = 1 To namespaceElement.Members.Count
            codeElement = namespaceElement.Members.Item(i)
            ProcessCodeElement(codeElement)
        Next
    End Sub
    Sub ProcessCodeElement(ByVal codeElement As CodeElement)
        If codeElement.Kind = vsCMElement.vsCMElementNamespace Then
            ProcessNamespace(codeElement)
        ElseIf codeElement.Kind = vsCMElement.vsCMElementClass Then
            ProcessType(codeElement)
        ElseIf codeElement.Kind = vsCMElement.vsCMElementFunction Then
            ProcessMethod(codeElement)
        End If
    End Sub
    Sub ProcessType(ByVal typeElement As CodeClass)
        Dim i As Integer
        Dim codeElement As CodeElement

        For i = 1 To typeElement.Members.Count
            codeElement = typeElement.Members.Item(i)
            If codeElement.Kind = vsCMElement.vsCMElementFunction Then
                ProcessMethod(codeElement)
            ElseIf codeElement.Kind = vsCMElement.vsCMElementClass Then
                ProcessType(codeElement)
            End If
        Next
    End Sub

    Sub ProcessMethod(ByVal methodElement As CodeFunction)
        Dim selection As EnvDTE.TextSelection
        Dim editPoint As EnvDTE.EditPoint
        Dim verifyPoint As EnvDTE.TextPoint
        Dim endPointAbsCharOffset As Integer
        Dim column As Integer
        Dim methodRunNotifierSignature As String
        Dim functionStartCode As String
        Dim functionEndCode As String
        Dim parameters As String
        Dim parameter As EnvDTE80.CodeParameter2
        Dim i As Integer

        If methodElement.MustImplement Then
            Return
        End If

        selection = DTE.ActiveDocument.Selection
        editPoint = selection.ActivePoint.CreateEditPoint()
        verifyPoint = selection.ActivePoint.CreateEditPoint()

        ' Move to start of method
        editPoint.MoveToPoint(methodElement.GetStartPoint(vsCMPart.vsCMPartBody))
        selection.MoveToPoint(editPoint)
        verifyPoint.MoveToPoint(methodElement.GetStartPoint(vsCMPart.vsCMPartBody))

        DTE.Debugger.Breakpoints.Add(methodElement.Name)

    End Sub
End Module

vijaylumar wrote:

Unable to update the database bcoz it is in read only

vijaylumar wrote:

I m using Ms Access

enginço wrote:

So, How can I get correct port list (without com3)?

ManagementObjectSearcher searcher =
  new ManagementObjectSearcher("SELECT Name FROM Win32_SerialPort");

foreach (ManagementObject mo in searcher.Get())
    Console.WriteLine(mo.GetPropertyValue("Name"));

Console.ReadKey();

I are troll

bLoading = true;

if(bloading)
{return;}