C#

Singan wrote:

To be frank the tell me 'u get hangups multi threeding in VB.NET ... i doesn't work'

using System;
using System.IO;
using System.Runtime.InteropServices;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
            Shown += new EventHandler(Form1_Shown);
        }

        void Form1_Shown(object sender, EventArgs e)
        {
            DoPlay();
        }

        private const int MM_MCINOTIFY = 0x3B9;

        [DllImport("winmm.dll")]
        private static extern int mciSendString(string lpstrCommand, string lpstrReturnString, uint uReturnLength, IntPtr hwndCallback);

        public bool PlayMidiFile(string midiFile) 
        { 
            if (File.Exists(midiFile)) 
            { 
                mciSendString("stop midi", string.Empty, 0, IntPtr.Zero);
                mciSendString("close midi", string.Empty, 0, IntPtr.Zero);
                mciSendString("open sequencer!" + midiFile + " alias midi", string.Empty, 0, IntPtr.Zero);
                int rtn = mciSendString("play midi notify", string.Empty, 0, this.Handle);
                return (rtn == 0);
            } 
            else 
                return false;
        }

        void DoPlay()
        {
            PlayMidiFile(@"C:\Windows\Media\town.mid");
        }

        protected override void WndProc(ref Message m)
        {
            base.WndProc(ref m);
            if (m.Msg == MM_MCINOTIFY)
                DoPlay();
        }
    }
}

// Turning img into bytes
Bitmap bmp = new Bitmap( FILENAME );
MemoryStream ms = new MemoryStream();
bmp.Save( ms, SOMEIMAGEFORMAT );
byte[] imgBytes = ms.ToArray();

// Turning the bytes back into an image
byte[] imgBytes = DirectCast( row["IMAGECOLUMN"], byte());
MemoryStream ms = new MemoryStream( imgBytes );
Bitmap bmp = new Bitmap( ms );

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