Visual Basic

eg_Anubhava wrote:

and I m using on error resume next for error resloving.

eg_Anubhava wrote:

mailto: anubhava.prodata@gmail.com

if not (Me.txtNvs.SelectionStart = txtInput.text.length -1) then      <br />
      Me.txtNvs.SelectionStart = txtInput.text.length -1<br />
      Me.txtNvs.SelectionLength = 0<br />
end if

Dim intMouseClickCounter As Integer = 0
Private Sub txtInput_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtInput.GotFocus
    Dim strAutoLabel As String = gblstrUserName.Trim & " - " & Now.ToString("M/d/yy")

    'If the textbox does not contain the auto label, add it
    If Not txtInput.Text.Contains(strAutoLabel) Then
        If txtInput.Text.Trim.Length <> 0 Then txtInput.Text &= vbCrLf & vbCrLf
        txtInput.Text &= strAutoLabel & vbCrLf
        txtInput.SelectionStart = txtInput.Text.Length
        txtInput.ScrollToCaret()

        'Set counter to one so the mouseclick event will scroll to the bottom
        intMouseClickCounter = 0
    Else
        'Set counter to one so the mouse click will not scroll to the bottom
        intMouseClickCounter = 1
    End If

End Sub

Private Sub txtSpecialReport_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles txtInput.MouseClick
    If intMouseClickCounter = 0 _
    AndAlso Not (txtInput.SelectionStart = txtInput.Text.Length) Then
        txtInput.SelectionStart = txtInput.Text.Length
        txtInput.SelectionLength = 0
        txtInput.ScrollToCaret()
    End If

    'Increment counter so if user clicks inside textbox after focus has already been set,
    'the code to scroll to the bottom will not run again
    intMouseClickCounter += 1

End Sub

Private Sub txtInput_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtInput.LostFocus
    intMouseClickCounter = 0 'Reset counter
End Sub

Dim processClass2 As ManagementClass = New ManagementClass("Win32_Process")
processClass2.Scope = scope
Dim inParams2 As ManagementBaseObject = processClass2.GetMethodParameters("Create")
Dim startup As ManagementClass = New ManagementClass("WIN32_ProcessStartup")
startup.Scope = scope
inParams2("CommandLine") = patchcommand
inParams2("ProcessStartupInformation") = startup
Dim outParams As ManagementBaseObject = processClass2.InvokeMethod("Create", inParams2, Nothing)


'Check for an error
If (outParams("ReturnValue").ToString) <> "0" Then
    'Add error to listview
    Dim itms1 As New Windows.Forms.ListViewItem.ListViewSubItem _
        (itmp, "Could not start process. Error code " & (outParams("ReturnValue").ToString))
    itmp.ForeColor = Color.Red
    itmp.SubItems.Add(itms1)
    itmp.Checked = True
    'Skip to next file
    GoTo skipfile
End If