Sorry your browser is not supported!

Public Class zone

    Private _x As Integer ' The x coordinate of the zone
    Private _y As Integer ' The x coordinate of the zone
    Private _width As Integer ' The width of the zone
    Private _height As Integer ' The height of the zone

    Private _mouseInZone As Boolean = False

    Public Event MouseEnter()
    Public Event MouseLeave()

    Public Sub New(ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
        _x = x
        _y = y
        _width = width
        _height = height
    End Sub

    Public Sub MouseCoord(ByVal mx As Integer, ByVal my As Integer)
        Dim inZone As Boolean = False
        If mx >= _x And mx <= (_x + Width) Then
            If my >= _y And my <= (_y + Height) Then
                inZone = True
            End If
        End If
        If inZone = True Then
            If _mouseInZone = False Then
                _mouseInZone = True
                RaiseEvent MouseEnter()
            End If
        Else
            If _mouseInZone = True Then
                _mouseInZone = False
                RaiseEvent MouseLeave()
            End If
        End If
    End Sub

    Public Property X() As Integer
        Get
            Return _x
        End Get
        Set(ByVal value As Integer)
            _x = value
        End Set
    End Property

    Public Property Y() As Integer
        Get
            Return _y
        End Get
        Set(ByVal value As Integer)
            _y = value
        End Set
    End Property

    Public Property Width() As Integer
        Get
            Return _width
        End Get
        Set(ByVal value As Integer)
            _width = value
        End Set
    End Property

    Public Property Height() As Integer
        Get
            Return _height
        End Get
        Set(ByVal value As Integer)
            _height = value
        End Set
    End Property

End Class

Public Class Message

    ' Declare internal veriables
    Private _to As String   ' This is the Process ID to where the message needs to be sent
    Private _from As String       ' This is the Process ID of the sender of the message
    Private _messageID As String    ' This is an optionial id to tie a message with a reply.
    Private _type As String         ' This is the type of message (could be error, status etc.)
    Private _detail As String       ' This is the detail of the message.

    ' RecieverID - This is the ID of the reciever of the message.
    Public Property ToID() As String
        Get
            Return _to
        End Get
        Set(ByVal value As String)
            _to = value
        End Set
    End Property

    ' FromID - This is the ID of the sender of the message
    Public Property FromID() As String
        Get
            Return _from
        End Get
        Set(ByVal value As String)
            _from = value
        End Set
    End Property

    ' MessageID - This is an optional ID to tied messages and replys together.
    Public Property MessageID() As String
        Get
            Return _messageID
        End Get
        Set(ByVal value As String)
            _messageID = value
        End Set
    End Property

    ' Type - This is the Type of message and can be used by the reciever
    ' to do what it needs to do with the message.
    Public Property Type() As String
        Get
            Return _type
        End Get
        Set(ByVal value As String)
            _type = value
        End Set
    End Property

    ' Detail - If the message type wasn't enough, then this detail can contain
    ' any extra informaton require. (Like an error message or a status update)
    Public Property Detail() As String
        Get
            Return _detail
        End Get
        Set(ByVal value As String)
            _detail = value
        End Set
    End Property
End Class

Public Class PostOffice
    ' Declare a Send Message Event
    Public Event SendMessage(ByVal aMessage As Message)

    ' Declare a delegate for leaving messages.
    Public Delegate Sub DelegateNewMessage(ByVal aMessage As Message)

    ' Routine to handle the new message delegate.
    Public Sub NewMessage(ByVal aMessage As Message)
        ' If there is no ID assume UI is the ID.
        If aMessage.RecieverID = "" Then
            aMessage.RecieverID = "UI"
        End If

        ' Firstly get a list of process ID's that the message is for
        Dim IDs() As String = aMessage.RecieverID.Split(Chr(254))

        ' For each of the ID's raise a Message event
        Dim id As String
        For Each id In IDs
            RaiseEvent SendMessage(aMessage)
        Next
    End Sub

    ' This just allows the host form to get a reference to this class for raising a message event.
    Public ReadOnly Property GetReference() As PostOffice
        Get
            Return Me
        End Get
    End Property

End Class

Public Interface dgdkComponentInterface

    Sub MouseEnter()
    Sub MouseLeave()
    Sub MouseButtonDown()
    Sub MouseButtonUp()
    Sub KeyPress(ByVal key As Char)
    Sub RefreshDisplay()

    Property Selected() As Boolean
    Property X() As Integer
    Property Y() As Integer
    Property Height() As Integer
    Property Width() As Integer


End Interface

Public Class dgdkComponent
    Implements dgdkComponentInterface

    Private _x As Integer
    Private _y As Integer
    Private _width As Integer
    Private _height As Integer
    Private _selected As Boolean

    Public Overridable Sub KeyPress(ByVal key As Char) Implements dgdkComponentInterface.KeyPress

    End Sub

    Public Overridable Sub MouseButtonDown() Implements dgdkComponentInterface.MouseButtonDown

    End Sub

    Public Overridable Sub MouseButtonUp() Implements dgdkComponentInterface.MouseButtonUp

    End Sub

    Public Overridable Sub MouseEnter() Implements dgdkComponentInterface.MouseEnter

    End Sub

    Public Overridable Sub MouseLeave() Implements dgdkComponentInterface.MouseLeave

    End Sub

    Public Overridable Sub RefreshDisplay() Implements dgdkComponentInterface.RefreshDisplay

    End Sub

    Public Property Selected() As Boolean Implements dgdkComponentInterface.Selected
        Get
            Return _selected
        End Get
        Set(ByVal value As Boolean)
            _selected = value
        End Set
    End Property

    Public Property Height() As Integer Implements dgdkComponentInterface.Height
        Get
            Return _height
        End Get
        Set(ByVal value As Integer)
            _height = value
        End Set
    End Property

    Public Property Width() As Integer Implements dgdkComponentInterface.Width
        Get
            Return _width
        End Get
        Set(ByVal value As Integer)
            _width = value
        End Set
    End Property

    Public Property X() As Integer Implements dgdkComponentInterface.X
        Get
            Return _x
        End Get
        Set(ByVal value As Integer)
            _x = value
        End Set
    End Property

    Public Property Y() As Integer Implements dgdkComponentInterface.Y
        Get
            Return _y
        End Get
        Set(ByVal value As Integer)
            _y = value
        End Set
    End Property

End Class

Public Class dgdkButton
    Inherits dgdkComponent

    Private _buttonUpImageID As String
    Private _buttonDownImageID As String
    Private _buttonPressed As Boolean

    Public Overrides Sub MouseEnter()
        MessageBox.Show(String.Format("X={0}, Y={1}", X, Y))
    End Sub

    Public Overrides Sub RefreshDisplay()
        ' code to re-draw button
    End Sub

    Public Property ButtonUpImageID() As String
        Get
            Return _buttonUpImageID
        End Get
        Set(ByVal value As String)
            _buttonUpImageID = value
        End Set
    End Property

    Public Property ButtonDownImageID() As String
        Get
            Return _buttonDownImageID
        End Get
        Set(ByVal value As String)
            _buttonUpImageID = value
        End Set
    End Property
End Class

Public Class dgdkTextBox
    Inherits dgdkComponent

    Private _text As String

    Public Overrides Sub KeyPress(ByVal key As Char)
        _text &= CStr(key)
    End Sub

    Public Overrides Sub RefreshDisplay()
        ' code to re-draw text box
    End Sub


End Class

        Dim aButton As New dgdkButton
        Dim aTextBox As New dgdkTextBox

        Dim coll As New Collection

        aButton.X = 10
        aButton.Y = 10
        aButton.ButtonDownImageID = "test"
        aTextBox.X = 20
        aTextBox.Y = 30

        coll.Add(aButton)
        coll.Add(aTextBox)

        For Each comp As dgdkComponent In coll
            comp.MouseEnter()
        Next

Public Class dgdkButton
    Inherits dgdkComponent

    Private _buttonUpImageID As String
    Private _buttonDownImageID As String
    Private _buttonPressed As Boolean

    Public Sub New(ByVal buttonID As String, ByVal buttonX As Integer, ByVal buttonY As Integer, ByVal buttonUpImageID As String, ByVal buttonDownImageID As String, ByVal showNow As Boolean)
        ID = buttonID
        X = buttonX
        Y = buttonY
        _buttonUpImageID = buttonUpImageID
        _buttonDownImageID = buttonDownImageID
        _buttonPressed = False
        ImageLoad(buttonDownImageID)
        ImageLoad(buttonUpImageID)
        If showNow = True Then
            RefreshDisplay()
        End If
    End Sub

    Public Sub New(ByVal buttonID As String, ByVal buttonX As Integer, ByVal buttonY As Integer, ByVal buttonUpImageID As String, ByVal buttonDownImageID As String)
        Me.New(buttonID, buttonX, buttonY, buttonUpImageID, buttonDownImageID, False)
    End Sub

    Public Overrides Sub RefreshDisplay()
        If _buttonPressed = True Then
            ImagePaste(X, Y, ButtonDownImageID)
        Else
            ImagePaste(X, Y, ButtonUpImageID)
        End If
    End Sub

    Public Overrides Function MouseAction(ByVal mouseX As Integer, ByVal mouseY As Integer, ByVal mouseButton As Integer) As dgdkEvent
        Dim anEvent As New dgdkEvent
        anEvent.EventSource = ID
            ' Code to process the mouse information
        Return anEvent
    End Function

    Public Property ButtonUpImageID() As String
        Get
            Return _buttonUpImageID
        End Get
        Set(ByVal value As String)
            _buttonUpImageID = value
        End Set
    End Property

    Public Property ButtonDownImageID() As String
        Get
            Return _buttonDownImageID
        End Get
        Set(ByVal value As String)
            _buttonUpImageID = value
        End Set
    End Property

End Class

        Dim anEvent As New dgdkEvent
        anEvent.ToID = STR_EventHandler
        anEvent.Type = dgdkEvent.EventType.Create
        anEvent.Catagory = dgdkEvent.EventCatagory.MessageBox
        Dim aMessage As New tyMessageBox("testMessage", 100, 100, 300, "This is a test message box message to see if the code is working ok", tyMessageBox.ButtonTypes.Ok)
        anEvent.EventObject = aMessage
        SendEvent(anEvent, STR_CORE)

        Dim anEvent As New dgdkEvent
        anEvent.ToID = STR_EventHandler
        anEvent.Type = dgdkEvent.EventType.Create
        anEvent.Catagory = dgdkEvent.EventCatagory.Menu
        Dim menuItems() As String = {"New Character", "Edit Character", "Start Game", "Quit Game"}
        Dim aMenu As New tyMenu("testMenu", "Main Menu", 100, 100, menuItems)
        anEvent.EventObject = aMenu
        SendEvent(anEvent, STR_CORE)

                    Case dgdkEvent.EventType.Create
                        Dim aComponent As tyComponent = CType(anEvent.EventObject, tyComponent)
                        AddComponent(aComponent)

    Public Sub AddComponent(ByVal component As tyComponent)
        component.RefreshDisplay()
        SyncLock _components
            _components.Add(component.ID, component)
        End SyncLock
    End Sub

    Private Sub EventHandler()
        While LoopGDK() = True
            ProcessEvents()
            UpdateComponents()
            Sync()
            Thread.Sleep(10)
            If _abort = True Then
                Exit Sub
            End If
        End While

    End Sub

    Private Sub UpdateComponents()
        For Each dictEntry As DictionaryEntry In _components
            Dim acomponent As tyComponent = CType(dictEntry.Value, tyComponent)
            Dim resultEvent As dgdkEvent = aComponent.MouseAction(MouseX, MouseY, MouseButton)
            If resultEvent.Catagory <> dgdkEvent.EventCatagory.Empty Then
                resultEvent.ToID = STR_CORE
                SendEvent(resultEvent, _ProcessID)
            End If
        Next
    End Sub

    Public Sub SetupValidKeys()
        Dim keys As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 !'-,."
        Dim ch() As Char = keys.ToCharArray
        _validKeys.Clear()
        For Each aKey As Char In ch
            _validKeys.Add(aKey.ToString, aKey.ToString)
        Next
    End Sub

    Public Function IsValidKey(ByVal akey As String) As Boolean
        If _validKeys.Contains(akey) Then
            Return True
        Else
            Return False
        End If
    End Function

    Private Sub UpdateComponents()
        For Each dictEntry As DictionaryEntry In _components
            Dim acomponent As tyComponent = CType(dictEntry.Value, tyComponent)
            Dim resultEvent As dgdkEvent = aComponent.MouseAction(MouseX, MouseY, MouseButton)
            If resultEvent.Catagory <> dgdkEvent.EventCatagory.Empty Then
                resultEvent.ToID = STR_CORE
                SendEvent(resultEvent, _ProcessID)
            End If
            Dim key As String = oDBInput.Entry
            oDBInput.ClearEntryBuffer()
            If oDBInput.ReturnKey = 1 Then
                key = Chr(13)
            End If

            If key <> "" Then
                If String.IsNullOrEmpty(_key) Then
                    _key = key
                End If
            Else
                If Not String.IsNullOrEmpty(_key) Then
                    resultEvent = acomponent.KeyPress(_key)
                    If resultEvent.Catagory <> dgdkEvent.EventCatagory.Empty Then
                        resultEvent.ToID = STR_CORE
                        SendEvent(resultEvent, _ProcessID)
                    End If
                    _key = ""
                End If
            End If

        Next
    End Sub

    Public Overrides Function KeyPress(ByVal key As String) As dgdkEvent
        Dim anEvent As New dgdkEvent
        If _isActive Then
            Dim bits() As Char = key.ToCharArray
            Dim aKey As Char = bits(0)
            If IsValidKey(aKey.ToString) = True Then
                addChar(aKey)
            Else
                Select Case aKey
                    Case Chr(8)
                        RemoveChar()
                    Case Chr(13)
                        anEvent.Catagory = dgdkEvent.EventCatagory.TextBox
                        anEvent.Type = dgdkEvent.EventType.text_updated
                        anEvent.EventObject = _text.Text.Substring(0, _pos)
                        anEvent.EventSource = ID
                End Select
            End If

        End If
        Return anEvent
    End Function