Skip to content
  • Categories
  • Recent
  • Tags
  • Popular
  • World
  • Users
  • Groups
Skins
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • Default (No Skin)
  • No Skin
Collapse
Code Project
CODE PROJECT For Those Who Code
  • Home
  • Articles
  • FAQ
Community
  1. Home
  2. General Programming
  3. Visual Basic
  4. using ErrorProvider in VB HELP!! [modified]

using ErrorProvider in VB HELP!! [modified]

Scheduled Pinned Locked Moved Visual Basic
helpdatabasequestion
1 Posts 1 Posters 0 Views 1 Watching
  • Oldest to Newest
  • Newest to Oldest
  • Most Votes
Reply
  • Reply as topic
Log in to reply
This topic has been deleted. Only users with topic management privileges can see it.
  • V Offline
    V Offline
    vbDiggerz
    wrote on last edited by
    #1

    using ErrorProvider in VB HELP!! My problem is the errorProvider show but it doesn't stay visible? it is just visible for a split of second after the MSGBOX has been click OK then after that? it seems it automatically dispose or hide itself that it wasn't mean to be??? I don't know why?? Please anyone with a kind heart to help me with this difficulties of mine?? please be patience about my bit of ignorance with this control i've just used this control for the first time.. ehehe.. ERRORPROVIDER in VB... ************** Sub OnErrorMessage(ByVal controlOnError As Control, _ ByVal errorMessage As String) ErrorProvider.SetError(controlOnError, errorMessage) MsgBox(errorMessage, MsgBoxStyle.Exclamation) controlOnError.Focus() End Sub Function DataFieldValidation() As Boolean Dim valid As Boolean = True Try If String.IsNullOrEmpty(txtboxLastname.Text) Then OnErrorMessage(txtboxLastname, _ "LastName TextField is required and could not be empty..") valid = False Exit Try End If Catch ex As Exception MsgBox(ex.ToString()) End Try Return valid End Function Friend Sub UpdateRecord() Try Me.Cursor = Cursors.WaitCursor If DataFieldValidation() = False Then Me.Cursor = Cursors.Default Exit Sub End If ' i've ommitted other database transaction codes here ' to minimize this post Me.Cursor = Cursors.Default Catch ex As Exception MsgBox(ex.ToString()) End Try End sub ************** advance thank you so much to any reply.. please... -- modified at 22:21 Friday 19th October, 2007

    1 Reply Last reply
    0
    Reply
    • Reply as topic
    Log in to reply
    • Oldest to Newest
    • Newest to Oldest
    • Most Votes


    • Login

    • Don't have an account? Register

    • Login or register to search.
    • First post
      Last post
    0
    • Categories
    • Recent
    • Tags
    • Popular
    • World
    • Users
    • Groups