VS2103 VB

[Shadow]

I am trying to program a RL game and looking for a fast drawing face. I found SFML that can support .net calling so I download and tried it. The progress is slow, but would like to use SFML for it.

Currently, I am running into a font creation problem, I would like to see if anyone had a similar setting like me and able to load the font properly in VB.

Thanks,
Shadow

[Nexus]

What exactly is the problem?

I think the number of SFML VB programmers is very low, but there are certainly many experienced with SFML.NET and the .NET framework in general.

[zsbzsb]

Well I know VB6 and VB.NET (its where I started before C#)... But as Nexus said, what exactly is the problem? Can you please describe it in full detail and if it is a code issue then please post a complete and minimal example that shows the problem.

[Shadow]

Thanks Zsbzsb and Nexus.

I just return to home and recompile the code, this time it did not give out any error, but I fond the example use a method to draw text on screen cannot be found. Moreover, the event handler looks like not fired for close.

Here is my code, I just try to make it as simple as possible.

Module TestWithSFML

    Dim WithEvents NewWindow As RenderWindow

    Sub Main()

        Dim NewWindow As RenderWindow = New RenderWindow(New SFML.Window.VideoMode(1024, 768), "My New Window")
        Dim windowsFont As Font
        windowsFont = New Font("tahoma.ttf")
        Dim text = New Text("Hello", windowsFont)
        While (NewWindow.IsOpen())

            NewWindow.DispatchEvents()
            text.Position = New SFML.System.Vector2f(250.0F, 450.0F)
            text.Color = New Color(255, 255, 255, 170)

        End While


    End Sub

    ''' <summary>
    ''' Function called when the window is closed
    ''' </summary>
    Sub App_Closed(ByVal sender As Object, ByVal e As EventArgs) Handles NewWindow.Closed
        Dim window = CType(sender, RenderWindow)
        window.Close()
    End Sub

    ''' <summary>
    ''' Function called when a key is pressed
    ''' </summary>
    Sub App_KeyPressed(ByVal sender As Object, ByVal e As KeyEventArgs) Handles NewWindow.KeyPressed
        Dim window = CType(sender, RenderWindow)
        If e.Code = Keyboard.Key.Escape Then
            window.Close()
        End If
    End Sub

End Module
 

Thanks.
Shadow

[zsbzsb]

You should take another look at the official tutorials and examples. You need to call clear / draw (on your text object) / display every frame or nothing will be displayed on the screen.

[Laurent]

... except the VB example, which is massively outdated.

http://en.sfml-dev.org/forums/index.php?topic=15003.msg110775#msg110775

[zsbzsb]

Well it isn't anymore 

[Laurent]

Well it isn't anymore 

... in the latest development revision.

[Shadow]

I will try to look into some video to see how I can proceed.

Thanks for comment.

Shadow