Visual Basic

fancyRocko wrote:

We have to live with VB6 there :/

Bastard Programmer from Hell
if you can't read my code, try converting it here[^]

    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

waner michaud wrote:

I have no prior knowledge with GPS and to implement it.

Location information may come from multiple providers, such as GPS, Wi-Fi triangulation, and cell phone tower triangulation.

waner michaud wrote:

this is an anti-kidnapping small app.

Bastard Programmer from Hell
if you can't read my code, try converting it here[^]

SELECT ArtworkID
FROM Artwork
WHERE DescriptionText In ("Start Switch","Stop Switch")
GROUP BY ArtworkID
HAVING COUNT(*)=2;

SELECT ArtworkID
FROM (SELECT DISTINCT ArtworkID, DescriptionText FROM Artwork) as t1
WHERE DescriptionText In ("Start Switch","Stop Switch")
GROUP BY ArtworkID
HAVING COUNT(*)=2;

SELECT a.ArtworkID
FROM Artwork a 
INNER JOIN Artwork b
ON a.ArtworkID=b.ArtworkID
WHERE a.DesciptionText="Start Switch" AND b.DescriptionText="Stop Switch"