Posts by Pgmer

Private Shared _Instance As Form1 = Nothing

    Public Shared Function Instance() As Boolean
        If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
            _Instance = New Form1
            Return False
        End If
        _Instance.BringToFront()
        Return True
    End Function

Try this

Sorry there is no such method called instance.
We need to write custome code to check.

Use the instance method of the object(form) to check one instance is already running..

How ur binding data to combobox?

Use IF EXISTS method in sql
if EXISTS returns true then rerun -1 or boolean as false... then give the message box appropriately...

Hi, Use instr method and substring method to get ur out put...
Happy coding... )

oohhh Sorry Vineeth i think i have not understood your question properly..
and myt have given wrong answer..:(

Hi Vineeth,
In Vb i dont think so u can EDIT the application like this. You need to make the changes whatever you want and build the application and need to give the exe... just cant edit the published version becoz once you pulbish the version your application will be in GAC and ur application will be looking for reference and other info from the old Menifest file.

ur welcum:) Please mark the thread as solved if it is solved.

' Form level variable 
Dim index As Integer = 1
    Dim dt As New DataTable
    Dim dc As New DataColumn("Numbers")
    Dim NoOfRows As Integer = 0

' Put it in form load event
            dc.DataType = System.Type.GetType("System.String")
            dt.Columns.Add(dc)
            DataGridView1.DataSource = dt
'' in Button add Click
             Try
            Dim dr As DataRow
            dr = dt.NewRow
            dr.Item(0) = index
            dt.Rows.Add(dr)
            DataGridView1.DataSource = dt
            index = index + 1
            NoOfRows = NoOfRows + 1
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
'' In buton remove click
            Try

            index = 1
            DataGridView1.DataSource = Nothing
            dt.Clear()
            For i As Integer = 0 To NoOfRows - 2
                Dim dr As DataRow
                dr = dt.NewRow
                dr.Item(0) = index
                dt.Rows.Add(dr)

                index = index + 1
            Next
            DataGridView1.DataSource = dt
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

try this out in seperate test project and u can try in ur main project later..

Cheers...Please mark the thread as solved if it is solved..:)

Go to the design mode of form to which u want to add tree view
In common controls tab u will find the treeview control just drag and add to the form

Please mark thread as solved if it is solved.

If CheckBox1.CheckState = CheckState.Checked Then
               If CheckBox1.CheckState = CheckState.Checked Then
                For i As Int16 = 1 To 5
                    ListBox1.Items.Add(i).ToString()
                Next
            Else
                ListBox1.Items.Clear()
            End If            End If

Write this code in CheckBox1_CheckStateChanged Event

Yes @@identity will give you the the New id after insert

try to increase the command.timeout

The 3rd pc has been installed with the frame work?

That button should be publicaly decalred.
if it is publically availabele then
in child form closing event

Mdiform.cmdmenu.disabled=true

if u just want to open MS Word u can use
system.diagnostic.process.start("winword") no need to give path..
if u want to run in other machine also it works only thing is that machine must have msword installed.

Exactly what u want to do? do u want to automate msowrd?

You have to add com object reference in your appliction
i.e microsoft word 9.0 object library and in namspace
iimports the word so that you can use the ms word object in ur code as you like
just try it out.

To make text box to accept only numbers, in key press event of that textbox u can code like this

If Char.IsDigit(e.KeyChar) = False And Char.IsControl(e.KeyChar) = False Then
e.Handled = True
MsgBox("Please enter valid number ")
End If

i think u can mannage other one..

Do u want all Charecters of textbox in upper case?

Hi.
u can use masked text box for ur requirement