Click here to Skip to main content
12,831,391 members (36,136 online)

Visual Basic

 
GeneralRe: How can I distribute a VB6 application with NSIS? Pin
Dave Kreskowiak28-Sep-12 2:16
mvpDave Kreskowiak28-Sep-12 2:16 
GeneralRe: How can I distribute a VB6 application with NSIS? Pin
fancyRocko28-Sep-12 2:25
memberfancyRocko28-Sep-12 2:25 
AnswerRe: How can I distribute a VB6 application with NSIS? Pin
jrumage5-Oct-12 3:00
memberjrumage5-Oct-12 3:00 
QuestionPrinting Datagridview content plus header and footer in vb.net 2010 Pin
sali2226-Sep-12 21:40
groupsali2226-Sep-12 21:40 
AnswerRe: Printing Datagridview content plus header and footer in vb.net 2010 Pin
Abhinav S26-Sep-12 22:00
mvpAbhinav S26-Sep-12 22:00 
AnswerRe: Printing Datagridview content plus header and footer in vb.net 2010 Pin
sali2226-Sep-12 22:13
groupsali2226-Sep-12 22:13 
QuestionBefore a Control loses focus can I detect the next focus target? Pin
Richard Fairhurst26-Sep-12 10:05
memberRichard Fairhurst26-Sep-12 10:05 
AnswerRe: Before a Control loses focus can I detect the next focus target? Pin
Richard Fairhurst26-Sep-12 11:32
memberRichard Fairhurst26-Sep-12 11:32 
I found an answer to my question. The Delegate delayed processing until after the OnDropDown event of the DateTimePicker fired. I already had an override of the OnDropDown event to set flags to track the calendar state, so I was able to use one of the flags in the Delegate to suspend it from firing when the Calendar was already being dropped dowm. For anyone's information here is how the events ended up looking:

Private m_bCalAbort As Boolean = False
    Private m_bInCal As Boolean = False
    
Protected Overrides Sub OnDropDown(ByVal eventargs As System.EventArgs)
        m_bInCal = True
        m_bCalAbort = False
        MyBase.OnDropDown(eventargs)
    End Sub

    Protected Overrides Sub OnCloseUp(ByVal eventargs As System.EventArgs)
        'If m_dCalDate <> MyBase.Value Then
        If Not m_bCalAbort Then
          'Do Stuff
        End If
        m_bInCal = False
        MyBase.OnCloseUp(eventargs)
    End Sub

         Delegate Sub MyDelegate(ByVal myControl As Label, ByVal myArg2 As String)

        Friend Sub DelegateMethod(ByVal myControl As Label, ByVal myCaption As String)
            If Not m_DTP.m_bInCal Then
                m_DTP.Select()
                SendKeys.Send("%{DOWN}")
            End If
        End Sub 'DelegateMethod

        Protected Overrides Sub OnValidating(ByVal e As System.ComponentModel.CancelEventArgs)
            m_LastEvent = LastEvents.Validating
            If Not DateEmpty() And ue.GetDate(Text) Is Nothing Then ' check for an invalid date
                Ping()
                Dim myArray(1) As Object

                myArray(0) = New Label()
                myArray(1) = "Enter a Value"
                m_DTP.BeginInvoke(New MyDelegate(AddressOf DelegateMethod), myArray)
            ElseIf Not DateEmpty() And ue.GetDate(Text) IsNot Nothing Then
                Dim tempdate As DateTime = ue.GetDate(Text)
                If tempdate < m_DTP.MinDate Or tempdate > m_DTP.MaxDate Then
                    Ping()
                    Dim myArray(1) As Object

                    myArray(0) = New Label()
                    myArray(1) = "Enter a Value"
                    m_DTP.BeginInvoke(New MyDelegate(AddressOf DelegateMethod), myArray)
                End If
             End If

            MyBase.OnValidating(e)
        End Sub


modified 26-Sep-12 17:57pm.

QuestionTelephone Tracking system through GPS Pin
waner michaud26-Sep-12 9:12
memberwaner michaud26-Sep-12 9:12 
AnswerRe: Telephone Tracking system through GPS Pin
Eddy Vluggen27-Sep-12 1:16
memberEddy Vluggen27-Sep-12 1:16 
QuestionDatagrid row count equals zero Pin
Cesar00226-Sep-12 7:49
memberCesar00226-Sep-12 7:49 
AnswerRe: Datagrid row count equals zero Pin
Cesar00226-Sep-12 11:05
memberCesar00226-Sep-12 11:05 
QuestionRe: Datagrid row count equals zero Pin
Eddy Vluggen26-Sep-12 11:32
memberEddy Vluggen26-Sep-12 11:32 
AnswerRe: Datagrid row count equals zero Pin
Cesar00226-Sep-12 17:28
memberCesar00226-Sep-12 17:28 
QuestionTricky SQL Question Pin
ttocsmi25-Sep-12 11:42
memberttocsmi25-Sep-12 11:42 
AnswerRe: Tricky SQL Question Pin
Martijn Kok25-Sep-12 12:40
memberMartijn Kok25-Sep-12 12:40 
GeneralRe: Tricky SQL Question Pin
ttocsmi25-Sep-12 15:13
memberttocsmi25-Sep-12 15:13 
GeneralRe: Tricky SQL Question Pin
Bernhard Hiller26-Sep-12 0:13
memberBernhard Hiller26-Sep-12 0:13 
GeneralRe: Tricky SQL Question Pin
Martijn Kok26-Sep-12 0:27
memberMartijn Kok26-Sep-12 0:27 
GeneralRe: Tricky SQL Question Pin
ttocsmi1-Oct-12 2:56
memberttocsmi1-Oct-12 2:56 
GeneralRe: Tricky SQL Question Pin
ttocsmi1-Oct-12 2:51
memberttocsmi1-Oct-12 2:51 
AnswerRe: Tricky SQL Question Pin
Bernhard Hiller26-Sep-12 0:15
memberBernhard Hiller26-Sep-12 0:15 
GeneralRe: Tricky SQL Question Pin
ttocsmi1-Oct-12 3:12
memberttocsmi1-Oct-12 3:12 
AnswerRe: Tricky SQL Question Pin
ttocsmi1-Oct-12 5:34
memberttocsmi1-Oct-12 5:34 
GeneralRe: Tricky SQL Question Pin
Martijn Kok1-Oct-12 6:13
memberMartijn Kok1-Oct-12 6:13 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.


Advertise | Privacy | Mobile
Web02 | 2.8.170326.1 | Last Updated 30 Mar 2017
Copyright © CodeProject, 1999-2017
All Rights Reserved. Terms of Service
Layout: fixed | fluid