Sorry your browser is not supported!

        static string Encode(string text)
        {
            byte[] tmp = System.Text.Encoding.UTF8.GetBytes(text);
            return System.Text.Encoding.Default.GetString(tmp);
        }

            Agk.LoadFont(1, "/media/ARIALUNI.TTF");
            if (Agk.IsFontExists(1))
            {
                Agk.CreateEditBox(1);
                Agk.SetEditBoxPosition(1, 100f, 100f);
                Agk.SetEditBoxFont(1, 1);
                Agk.SetEditBoxText(1, Encode("包要干什么"));
             }

            Agk.LoadFont(1, "/media/ARIALUNI.TTF");
            if (Agk.IsFontExists(1))
            {
                Agk.CreateEditBox(1);
                Agk.SetEditBoxPosition(1, 100f, 100f);
                Agk.SetEditBoxFont(1, 1);
                Agk.SetEditBoxText(1, Encode("包要干什么"));

                Agk.CreateText(1, Encode(System.Windows.Clipboard.GetText())); // will work
                //Agk.CreateText(1, System.Windows.Clipboard.GetText()); // will not work
                //Agk.CreateText(1, Encode(Agk.GetClipboardText())); // will not work
                Agk.SetTextSize(1, 16);
                Agk.SetTextPosition(1, 100, 84);
                Agk.SetTextFont(1, 1);
            }

var img = Agk.ShowChooseImageScreen();
MessageBox.Show(Agk.GetImageFilename(img));

...
var img = SelectImage();
MessageBox.Show(Agk.GetImageFilename(img));
 ...
static public uint SelectImage()
{
	if(Agk.ShowChooseImageScreen() == 1)
	{
		while(Agk.IsChoosingImage() == 1) // Dialog is Open, Wait
		{
			Agk.Sync();
		}
		
		return Agk.GetChosenImage();
	}
	
	return 0;
}

Imports System.Drawing
Imports System.Windows.Forms

Imports AgkSharp

Module MainModule

    #Region "Module Level Event Declarations"

        Private WithEvents moMoveRightButton  As New Button()

    #End Region


    #Region "Module Level Variable Declarations"

        Private msScrollDirection  As String = ""  ' R=right, L=left, D=down, U=up

    #End Region


    Sub Main()

        ' ---
        ' Variable Declarations
        ' ---
        Dim lboolGameLoopControl  As Boolean = True
        Dim liX                   As Integer = 0
        Dim liY                   As Integer = 0
        Dim liDirection           As Integer = 0

        Dim lsnglMouseSelectedX   As Single = 0.0

        Dim loCore                As New Core()
        Dim loWindow              As New Window()
        Dim loForm                As New Windows.Forms.Form()
        

        ' ---
        ' Create the initial window\form for the game
        ' ---
        loForm = loWindow.Create_WindowForm(1000, 1000, "My Test WIndow")

        ' Test the newly created handle for the form object to ensure that it has been created
        '   * This code will probably not be required for AGK Editor users
        If loForm.Handle <> vbNull Then
            Agk.InitGL(loForm.Handle)
        End If

        'AddHandler moMoveRightButton.MouseDown, AddressOf MyButton_MouseDown
        AddHandler moMoveRightButton.Click, AddressOf MyButton_Click
            moMoveRightButton.Height = 26
            moMoveRightButton.Width = 26
            moMoveRightButton.BackColor = Color.White
            moMoveRightButton.Text = "R"
        loForm.Controls.Add(moMoveRightButton)

        ' ---
        ' Set the parameters for the display, which are internally related to the newly created
        ' window\form from the code above
        ' ---
        Agk.SetVirtualResolution(1200, 1200)
        Agk.CreateSprite(1, AgkSharp.Agk.LoadImage("Images/HexagonEngineMap.png"))
        Agk.SetSpriteSize(1, 2256, 7236)
        Agk.SetSpritePosition(1, 0, 0)
        Agk.SetSyncRate(0, 0)
        Agk.SetScissor(0, 0, 0, 0)


        ' ---
        ' Master Game Loop Code
        ' ...
        ' Automatically scroll the image in the display area.  This scrolling will primarily move the 
        ' image from the top left corner towards the bottom right corner.
        ' 
        ' ---
        

        While Core.LoopAGK() = True
            Agk.SetViewOffset(liX, liY)

            Select Case (msScrollDirection)
                Case "R" :
                    liX = liX + 6
            End Select

            'Get_XLocation()
            If (Agk.GetPointerPressed() = 1) Then
                lsnglMouseSelectedX = Agk.GetPointerX()
                MessageBox.Show(lsnglMouseSelectedX.ToString())
                'Agk.Print(lsnglMouseSelectedX.ToString())
            End If

            Agk.Sync()
        End While

        Core.CleanUp()
    End Sub


    Private Sub MyButton_MouseDown(ByVal sender As Object, ByVal loEventArgs As EventArgs)
        msScrollDirection = "R"
        moMoveRightButton.BackColor = Color.Red
    End Sub

    Private Sub MyButton_Click(ByVal sender As Object, ByVal loEventArgs As EventArgs)

        If (msScrollDirection.Equals("R")) Then
            msScrollDirection = ""
            moMoveRightButton.BackColor = Color.White
        Else
            msScrollDirection = "R"
            moMoveRightButton.BackColor = Color.Red
        End If
    End Sub

    Private Sub Get_XLocation()

        Dim liMouseSelectedX  As Integer = 0


        If (Agk.GetPointerPressed() <> 0) Then
            liMouseSelectedX = Agk.GetPointerX()
            MessageBox.Show(liMouseSelectedX)
        End If
    End Sub

End Module

Imports System.Text
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Runtime.InteropServices

Imports AgkSharp

Friend Class Core

    #Region "Constructor(s)"

        Friend Sub New()

        End Sub

    #End Region


    #Region "Class Level Declarations"

        Private cboolBreakLoop  As Boolean = False

    #End Region


    #Region "Friend Methods"
        Friend Shared Function LoopAGK() As Boolean

            Application.DoEvents()

            'If (Agk.IsCapturingImage()) > 0 Then
                System.Threading.Thread.Sleep(10)
            'End If

            Return (True)
        End Function

        Friend Shared Sub CleanUp()

            Agk.CleanUp()
        End Sub

    #End Region

End Class

Imports System.Drawing
Imports System.Windows.Forms

Imports AgkSharp


Friend Class Window

    #Region "Class Level Event Declarations"

        'Private WithEvents coWindowsForm  As New Windows.Forms.Form()

    #End Region


    #Region "Constructor(s)"

        Friend Sub New()

        End Sub

    #End Region


    #Region "Friend Methods"

        Friend Sub Initialze_Window(ByVal piWidth As Integer,
                                    ByVal piHeight As Integer,
                                    ByVal psWindowTitle As String,
                                    ByVal piClearColorR As Integer,
                                    ByVal piClearColorG As Integer,
                                    ByVal piClearColorB As Integer)

            ' set the window's dimensions
            If (piWidth.Equals(0) And piHeight.Equals(0)) Then
                AgkSharp.Agk.SetWindowSize(0, 0, 1)
            Else
                AgkSharp.Agk.SetWindowSize(piWidth, piHeight, 0)
            End If

            ' set the window's title
            AgkSharp.Agk.SetWindowTitle(psWindowTitle)

            ' set the aspect ration
            AgkSharp.Agk.SetDisplayAspect(1.0 * piWidth / piHeight)

            ' clear the screen to initial color
            AgkSharp.Agk.SetClearColor(piClearColorR, piClearColorG, piClearColorB)
            AgkSharp.Agk.ClearScreen()

            ' use vector fonts
            AgkSharp.Agk.UseNewDefaultFonts(1)
        End Sub


        Friend Function Create_WindowForm(ByVal piWidth As Integer,
                                          ByVal piHeight As Integer,
                                          ByVal psWindowTitle As String) As Windows.Forms.Form

            Dim loForm As New Windows.Forms.Form()


            AddHandler loForm.MouseDown, AddressOf Form_OnMouseDown
            AddHandler loForm.MouseUp, AddressOf Form_OnMouseUp

            loForm.ClientSize = New Size(piWidth, piHeight)
            loForm.Text = psWindowTitle
            loForm.StartPosition = Windows.Forms.FormStartPosition.CenterScreen

            If (piWidth.Equals(0) And piHeight.Equals(0)) Then
                loForm.WindowState = Windows.Forms.FormWindowState.Normal
                loForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None
                loForm.Bounds = Windows.Forms.Screen.PrimaryScreen.Bounds
            End If

            loForm.Show()

            Return (loForm)
        End Function

    #End Region


	Private Sub Form_OnMouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)

        Dim lsnglMouseSelectedX   As Single = 0.0


		If e.Button = MouseButtons.Left Then
			Agk.MouseLeftButton(0, 1)
		End If
		If e.Button = MouseButtons.Right Then
			Agk.MouseRightButton(0, 1)
		End If
		If e.Button = MouseButtons.Middle Then
			Agk.MouseMiddleButton(0, 1)
		End If
	End Sub

	Private Sub Form_OnMouseUp(ByVal sender As Object, ByVal e As MouseEventArgs)

		If e.Button = MouseButtons.Left Then
			Agk.MouseLeftButton(0, 0)
		End If
		If e.Button = MouseButtons.Right Then
			Agk.MouseRightButton(0, 0)
		End If
		If e.Button = MouseButtons.Middle Then
			Agk.MouseMiddleButton(0, 0)
		End If
	End Sub

End Class

        static void Core_OnMouseMove(object sender, MouseEventArgs e)
        {
            Agk.MouseMove(0, e.X, e.Y);
        }

private void AgkFormTemplate_Shown(object sender, EventArgs e)
        {
            if (!init)
            {
                Agk.InitGL(AGKScreen.Handle);
                Core.LoopInputs(AGKScreen);
                init = true;

                Agk.SetVirtualResolution(AGKScreen.Width, AGKScreen.Height);
                Agk.SetCameraPosition(1, 0, 1, -2);

                Agk.CreateObjectBox(2, (float)0.5, 2, (float)0.5);
                Agk.SetObjectColor(2, 255, 0, 0, 127);
                Agk.SetObjectTransparency(2, E3DTransparencyMode.Opaque);

                agkSyncTimer.Tick += new EventHandler(SyncTimer);
                agkSyncTimer.Interval = 33;     // ~ 30 fps
                agkSyncTimer.Start();
            }
        }

        Agk.SetVirtualResolution(1200, 1200)

        loHexTileMap.Create_TileMap()

            Friend Sub Draw_HexTile(ByRef poHexTile As Structures.HexTile, _
                                    ByVal piCalculatedMapTileX As Integer, _
                                    ByVal piCalculatedMapTileY As Integer, _
                                    ByVal piMapTileHexWidthInPixels As Integer, _
                                    ByVal piMapTileHexHeightInPixels As Integer)

				' ---
				' Notes:
				'  The first sprite-batch-draw below will always draw the original tile.  If the
                ' ---

                Dim liSpriteId       As Integer = 0

                Dim lsHexTileImageId  As String = ""   

                Dim loAgkImage        As AgkSharp.AgkImage
                Dim loAgkSprite       As AgkSharp.AgkSprite


                ' get actual hex tile image to be drawn from dictionary list
                Try
                    lsHexTileImageId = Get_HexTileImagePositionLookupIdFromDictionaryList(poHexTile.TILE_ID)

				    If lsHexTileImageId.Trim().Equals("???") Then
					    lsHexTileImageId = "BASE_HEX_DARKGRASS"
                    Else
                        lsHexTileImageId = poHexTile.TILE_ID
				    End If

                    loAgkImage = Globals.HEX_TILE_IMAGE_LOOKUP_DICTIONARY_LIST(lsHexTileImageId)
                    loAgkSprite = New AgkSharp.AgkSprite(loAgkImage)

                    loAgkSprite.SetSize(72, 72)
                    loAgkSprite.SetPosition(piCalculatedMapTileX, piCalculatedMapTileY)

                    loAgkSprite.Visible = True
                    loAgkSprite.Draw()

				    ' update hex tile in array pixel positions on map board
				    'If Not cboolTileMapDrawn Then
				    '	Update_HexTileArrayListPixelPositions(poHexTile, piCalculatedMapTileX, piCalculatedMapTileY)
				    'End If
                Catch loException As Exception
                    Return
                End Try
            End Sub

		For Each loHexTileImageDataStructure As Structures.HexTileImageDataStructure In loHexTileImageStructuresArrayList
                    loAgkImage = New AgkSharp.AgkImage()
                    loAgkImage.Load("Images/" + loHexTileImageDataStructure.IMAGE_CONTENT_NAME + ".png")

                    loHexTileImageLookupDictionaryList.Add(loHexTileImageDataStructure.IMAGE_CONTENT_NAME, loAgkImage) ' <-- second variable is new AgkImage 
                Next 

Dim img As AgkImage
img = New AgkImage()

...
        '       line 105 - 108
        Dim loHexTile             As New Structures.HexTile()
        Dim loHexTileMap          As New Classes.HexTileMap(True)
        '        Dim loHexTileUtilities As New Classes.HexTileLoadUtilities(Globals.ACTUAL_MAP_HEIGHT_IN_TILES, Globals.ACTUAL_MAP_WIDTH_IN_TILES)
        Dim loHexTileUtilities As Classes.HexTileLoadUtilities
...
        ' ---
        ' Set the parameters for the display, which are internally related to the newly created
        ' window\form from the code above
        ' ---
        Agk.SetVirtualResolution(1200, 1200)

        loHexTileUtilities = New Classes.HexTileLoadUtilities(Globals.ACTUAL_MAP_HEIGHT_IN_TILES, Globals.ACTUAL_MAP_WIDTH_IN_TILES)

        ' ---
        ' Load hex map tile array (basic data)
        ' ---
        Globals.MAP_HEX_TILE_ARRAY = loHexTileUtilities.Load_MapHexTileArray()
        'Globals.MAP_HEX_TILE_ARRAY = loHexTileUtilities.Load_MapHexTileArrayWithPositionalLookupData(Globals.MAP_HEX_TILE_ARRAY)

        ' ---
        ' Load hex map image dictionary list
        ' ---
        Globals.HEX_TILE_IMAGE_LOOKUP_DICTIONARY_LIST = loHexTileUtilities.Load_HexTileImageLookupDictionaryList()


        ' ---
        ' Load hex tile positional lookup dictionary list
        ' ---
        Globals.HEX_TILE_IMAGE_POSITION_LOOKUP_DICTIONARY_LIST = loHexTileUtilities.Load_HexImageTilePositionLookupDictionaryList()

        loHexTileMap.Create_TileMap()
...

loForm = loWindow.Create_WindowForm(1200, 1200, "My Test WIndow")

                var mesh = Agk.CreateMemblockFromObjectMesh(primitive.Id, 1);
                var verts = Agk.GetMemblockInt(mesh, 0);

                MessageBox.Show("verts = " + verts);

                for (uint i = 0; i < verts; i++)
                {
                    var x = Agk.GetMeshMemblockVertexX(mesh, i);
                    var y = Agk.GetMeshMemblockVertexY(mesh, i);
                    var z = Agk.GetMeshMemblockVertexZ(mesh, i);

                    MessageBox.Show("x = " + x + Environment.NewLine
                        + "y = " + y + Environment.NewLine
                        + "z = " + z + Environment.NewLine);
                }

    static class Program
    {
        /// <summary>
        /// Der Haupteinstiegspunkt für die Anwendung.
        /// </summary>
        [STAThread]
        static void Main()
        {
            Core.CreateWindow(AppInfo.WIN_TITLE, 640, 480, false);
            if (!Core.InitAGK())
                return;
            Agk.SetClearColor(64, 64, 96);

            Agk.SetVirtualResolution(640, 480);
            Agk.SetVSync(0);
            Agk.SetSyncRate(0, false);

            var id = Agk.CreateObjectBox(10, 10, 10);
            var mesh = Agk.CreateMemblockFromObjectMesh(id, 1);
            var verts = Agk.GetMemblockInt(mesh, 0);

            System.Windows.Forms.MessageBox.Show("verts = " + verts);

            for (uint i = 0; i < verts; i++)
            {
                var x = Agk.GetMeshMemblockVertexX(mesh, i);
                var y = Agk.GetMeshMemblockVertexY(mesh, i);
                var z = Agk.GetMeshMemblockVertexZ(mesh, i);

                System.Windows.Forms.MessageBox.Show("x = " + x + Environment.NewLine
                    + "y = " + y + Environment.NewLine
                    + "z = " + z + Environment.NewLine);
            }

            while (Core.LoopAGK())
            {
                Agk.Print(Agk.ScreenFPS());

                Agk.Sync();
            }

            Core.CleanUp();
        }

    static class Program
    {
        /// <summary>
        /// Der Haupteinstiegspunkt für die Anwendung.
        /// </summary>
        [STAThread]
        static void Main()
        {
            Core.CreateWindow(AppInfo.WIN_TITLE, 640, 480, false);
            if (!Core.InitAGK())
                return;
            Agk.SetClearColor(64, 64, 96);

            Agk.SetVirtualResolution(640, 480);
            Agk.SetVSync(0);
            Agk.SetSyncRate(0, false);

            var id = Agk.CreateObjectBox(10, 10, 10);
            var obj = new AgkObject3D(Agk.GetObjectPtr(id));
            var mesh = obj.GetMesh(0);

            System.Windows.Forms.MessageBox.Show(string.Format("v:{0} a:{1} i:{2}",
                mesh.NumVertices, mesh.NumAttributes, mesh.NumIndices));

            var vertAttrib = mesh.GetVertexAttribute("position");
            for (uint i = 0; i < mesh.NumVertices; i++)
            {
                var vert = vertAttrib.GetDataVec3(i);

                System.Windows.Forms.MessageBox.Show(string.Format("x = {0}\ny = {1}\nz = {2}",
                    vert.X, vert.Y, vert.Z));
            }

            while (Core.LoopAGK())
            {
                Agk.Print(Agk.ScreenFPS());

                Agk.Sync();
            }

            Core.CleanUp();
        }