GameOverlay translation von C# zu vb.net

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von C.O.D.E.

    GameOverlay translation von C# zu vb.net

    Hallo,

    ich habe einen Code in C# gefunden der über DirectX ein Overlay in einem Spiel anzeigen lässt. Ich startete das Projekt in C# und es funktionierte problemlos. Nun habe ich versucht den Code mittels übersetzer in Vb.net zu Konvertieren und es kommen Fehler wo ich nicht genau weiß wie ich diese beheben soll. Ich hänge mal die funktionierende Program.cs dem Anhang an. (Für das Projekt brauch man das Nuget-Paket GameOverlay.Net)

    Dies ist mein Code den ich in vb.net Übersetzt habe:

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Collections.Generic
    3. Imports GameOverlay.Drawing
    4. Imports GameOverlay.Windows
    5. Imports SharpDX.Direct2D1
    7. Public Class frmMain
    9. Private ReadOnly _window As GraphicsWindow
    10. Private ReadOnly _graphics As Graphics
    11. Private ReadOnly _brushes As Dictionary(Of String, SolidBrush)
    12. Private ReadOnly _fonts As Dictionary(Of String, Font)
    13. Private ReadOnly _images As Dictionary(Of String, GameOverlay.Drawing.Image)
    15. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    17. End Sub
    19. Public Sub GraphicsWindowTest()
    20. _brushes = New Dictionary(Of String, SolidBrush)()
    21. _fonts = New Dictionary(Of String, Font)()
    22. _images = New Dictionary(Of String, GameOverlay.Drawing.Image)()
    23. _graphics = New Graphics() With {
    24. .MeasureFPS = True,
    25. .PerPrimitiveAntiAliasing = True,
    26. .TextAntiAliasing = True,
    27. .UseMultiThreadedFactories = False,
    28. .VSync = False,
    29. .WindowHandle = IntPtr.Zero
    30. }
    31. _window = New GraphicsWindow(_graphics) With {
    32. .IsTopmost = True,
    33. .IsVisible = True,
    34. .FPS = 30,
    35. .X = 0,
    36. .Y = 0,
    37. .Width = 200,
    38. .Height = 25
    39. }
    40. _window.SetupGraphics += _window_SetupGraphics()
    41. _window.DestroyGraphics += _window_DestroyGraphics()
    42. _window.DrawGraphics += _window_DrawGraphics()
    43. End Sub
    45. Class SurroundingClass
    46. Protected Overrides Sub Finalize()
    47. End Sub
    49. Public Sub Run()
    50. _window.Create()
    51. Console.WriteLine(_window.Handle.ToString("X"))
    52. End Sub
    54. Public Sub Join()
    55. _window.Join()
    56. End Sub
    58. Public Sub [Stop]()
    59. _window.Dispose()
    60. _graphics.Dispose()
    61. End Sub
    63. Public Sub ReCreate()
    64. _window.Recreate()
    65. End Sub
    66. End Class
    68. Private Sub _window_SetupGraphics(ByVal sender As Object, ByVal e As SetupGraphicsEventArgs)
    69. Dim gfx = e.Graphics
    70. _brushes("black") = gfx.CreateSolidBrush(0, 0, 0)
    71. _brushes("white") = gfx.CreateSolidBrush(255, 255, 255)
    72. _brushes("background") = gfx.CreateSolidBrush(0, &H27, &H31, 255.0F * 0.8F)
    73. Console.WriteLine(_window.Handle.ToString("X"))
    74. If e.RecreateResources Then Return
    75. _fonts.Add("arial", gfx.CreateFont("Arial", 12))
    76. End Sub
    78. Private Sub _window_DestroyGraphics(ByVal sender As Object, ByVal e As DestroyGraphicsEventArgs)
    79. For Each pair In _brushes
    80. pair.Value.Dispose()
    81. Next
    83. For Each pair In _fonts
    84. pair.Value.Dispose()
    85. Next
    87. For Each pair In _images
    88. pair.Value.Dispose()
    89. Next
    90. End Sub
    92. Private Sub _window_DrawGraphics(ByVal sender As Object, ByVal e As DrawGraphicsEventArgs)
    93. Dim gfx = e.Graphics
    94. gfx.ClearScene(_brushes("background"))
    95. gfx.DrawText(_fonts("arial"), 15, _brushes("white"), 5, 5, $"677: 70/70")
    96. Dim device = TryCast(gfx.GetRenderTarget(), WindowRenderTarget)
    97. Dim factory = gfx.GetFactory()
    98. Dim geometry = New PathGeometry(factory)
    99. Dim sink = geometry.Open()
    100. sink.SetFillMode(FillMode.Winding)
    101. sink.BeginFigure(New SharpDX.Mathematics.Interop.RawVector2(200, 200), FigureBegin.Filled)
    102. sink.AddLine(New SharpDX.Mathematics.Interop.RawVector2(300, 200))
    103. sink.AddArc(New ArcSegment() With {
    104. .ArcSize = ArcSize.Small,
    105. .Point = New SharpDX.Mathematics.Interop.RawVector2(300, 300),
    106. .RotationAngle = 0.0F,
    107. .Size = New SharpDX.Size2F(16.0F, 16.0F),
    108. .SweepDirection = SweepDirection.Clockwise
    109. })
    110. sink.AddLine(New SharpDX.Mathematics.Interop.RawVector2(200, 300))
    111. sink.AddArc(New ArcSegment() With {
    112. .ArcSize = ArcSize.Small,
    113. .Point = New SharpDX.Mathematics.Interop.RawVector2(200, 200),
    114. .RotationAngle = 0.0F,
    115. .Size = New SharpDX.Size2F(16.0F, 16.0F),
    116. .SweepDirection = SweepDirection.Clockwise
    117. })
    118. sink.EndFigure(FigureEnd.Open)
    119. sink.Close()
    120. sink.Dispose()
    121. Dim options = New LayerParameters() With {
    122. .GeometricMask = geometry
    123. }
    124. Dim layer = New Layer(device, New SharpDX.Size2F(gfx.Width, gfx.Height))
    125. device.PushLayer(options, layer)
    126. gfx.FillRectangle(_brushes("white"), 100, 100, 400, 400)
    127. device.PopLayer()
    128. layer.Dispose()
    129. geometry.Dispose()
    130. End Sub
    132. End Class



    Als Fehler kommen:
    Fehler BC30064 'ReadOnly-Variable kann nicht das Ziel einer Zuweisung sein. Ark.Auto.PlayerCount C:\Users\XXX\source\repos\Ark.Auto.PlayerCount\Ark.Auto.PlayerCount\frmMain.vb 20 Aktiv
    Und
    Fehler BC32022 "Public Event SetupGraphics As EventHandler(Of SetupGraphicsEventArgs)" ist ein Ereignis und kann nicht direkt aufgerufen werden. Verwenden Sie eine RaiseEvent-Anweisung, um ein Ereignis aufzurufen. Ark.Auto.PlayerCount C:\Users\XXX\source\repos\Ark.Auto.PlayerCount\Ark.Auto.PlayerCount\frmMain.vb 40 Aktiv

    Ich hoffe jemand kann mir helfen. Evetuell ja jemand der sich ein wenig mit C# auskennt.

    Liebe grüße,
    Daniel

    *Topic verschoben*
    Dateien
    Liebe Grüße,
    C.O.D.E

    Testautomatisierung (TA):
    5%
    Du findest meinen Beitrag Hilfreich? :thumbup: Dann drück auf Hilfreich!

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Folge den Fehlermeldungen.

    VB.NET-Quellcode

    1. Private ReadOnly _brushes As Dictionary(Of String, SolidBrush)
    2. '[…]
    3. Public Sub GraphicsWindowTest()
    4. _brushes = New Dictionary(Of String, SolidBrush)()
    Du deklarierst _brushes als ReadOnly, aber willst der Variable was außerhalb des Konstruktors zuweisen. Klar wird da gemeckert.

    VB.NET-Quellcode

    1. _window.SetupGraphics += _window_SetupGraphics()
    Das ist C#-Syntax, die die Konverter immer wieder falsch machen. Da müsstest Du mit AddHandler arbeiten:

    VB.NET-Quellcode

    1. AddHandler _window.SetupGraphics, AddressOf _window_SetupGraphics

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @C.O.D.E Nutze dazu den IlSpy.
    Öffne das Originalprojekt im Studio,
    öffne ein neues Projekt in VB.
    Transferiere die Formen und UserControls per C&P von cs nach vb, generiere die Eventhandler inm Designer und fülle sie mit dem Code aus dem IlSpy aus.
    (fast) feddich.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Danke für eure Tipps, probiere ich direkt aus und editiere sie hier rein. :)

    @VaporiZed Dadurch konnte ich wirklich viele Fehler beheben und es verbleieben nur noch 6 Stk mit dem gleichen ursprung.


    Fehler BC30469 Der Verweis auf einen nicht freigegebenen Member erfordert einen Objektverweis. Ark.Auto.PlayerCount C:\Users\XXX\source\repos\Ark.Auto.PlayerCount\Ark.Auto.PlayerCount\frmMain.vb 53 Aktiv

    Wäre cool wenn mir da jemand noch mal eine richtung geben könnte.

    Habt einen schönen Mittwoch!
    Bilder

    • 2021-09-29_152312.png

      47,35 kB, 1.194×686, 80 mal angesehen
    Liebe Grüße,
    C.O.D.E

    Testautomatisierung (TA):
    5%
    Du findest meinen Beitrag Hilfreich? :thumbup: Dann drück auf Hilfreich!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „C.O.D.E“ ()

    C.O.D.E schrieb:

    erfordert einen Objektverweis.
    Das ist so was wie:
    Form1.Text vs. Me.Text.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    In surroundingClass ist _window insofern eine Unbekannte, weil es Teil von frmMain ist, nicht von surroundingClass. Geschachtelte Klassen sind aber eh etwas, was ich argwöhnisch betrachte. Und warum heißt das Ding surroundingClass, wenn frmMain die umschließende Klasse ist?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Dieser Konverter macht das ziemlich gut:
    codeconverter.icsharpcode.net/
    Der Teleric ist da nicht so gut.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich habe jetzt einiges probiert aber bekomme einfach keine lauffähige Version hin. Wenn ich jetzt starte bekomme ich den Fehler:

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Collections.Generic
    3. Imports GameOverlay.Drawing
    4. Imports GameOverlay.Windows
    5. Imports SharpDX.Direct2D1
    7. Public Class frmMain
    9. Shared _window As GraphicsWindow
    10. Shared _graphics As Graphics
    11. Shared _brushes As Dictionary(Of String, SolidBrush)
    12. Shared _fonts As Dictionary(Of String, Font)
    13. Shared _images As Dictionary(Of String, GameOverlay.Drawing.Image)
    15. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    16. Run()
    17. End Sub
    19. Public Sub GraphicsWindowTest()
    20. _brushes = New Dictionary(Of String, SolidBrush)()
    21. _fonts = New Dictionary(Of String, Font)()
    22. _images = New Dictionary(Of String, GameOverlay.Drawing.Image)()
    23. _graphics = New Graphics() With {
    24. .MeasureFPS = True,
    25. .PerPrimitiveAntiAliasing = True,
    26. .TextAntiAliasing = True,
    27. .UseMultiThreadedFactories = False,
    28. .VSync = False,
    29. .WindowHandle = IntPtr.Zero
    30. }
    31. _window = New GraphicsWindow(_graphics) With {
    32. .IsTopmost = True,
    33. .IsVisible = True,
    34. .FPS = 30,
    35. .X = 0,
    36. .Y = 0,
    37. .Width = 200,
    38. .Height = 25
    39. }
    41. AddHandler _window.SetupGraphics, AddressOf _window_SetupGraphics
    42. AddHandler _window.DestroyGraphics, AddressOf _window_DestroyGraphics
    43. AddHandler _window.DrawGraphics, AddressOf _window_DrawGraphics
    45. End Sub
    47. Protected Overrides Sub Finalize()
    48. '_window.Dispose();
    49. '_graphics.Dispose();
    50. End Sub
    52. Public Sub Run()
    53. _window.Create()
    54. Console.WriteLine(_window.Handle.ToString("X"))
    55. End Sub
    57. Public Sub Join()
    58. _window.Join()
    59. End Sub
    61. Public Sub [Stop]()
    62. _window.Dispose()
    63. _graphics.Dispose()
    64. End Sub
    66. Public Sub ReCreate()
    67. _window.Recreate()
    68. End Sub
    70. Private Sub _window_SetupGraphics(ByVal sender As Object, ByVal e As SetupGraphicsEventArgs)
    71. Dim gfx = e.Graphics
    72. _brushes("black") = gfx.CreateSolidBrush(0, 0, 0)
    73. _brushes("white") = gfx.CreateSolidBrush(255, 255, 255)
    74. _brushes("background") = gfx.CreateSolidBrush(0, &H27, &H31, 255.0F * 0.8F)
    75. Console.WriteLine(_window.Handle.ToString("X"))
    76. If e.RecreateResources Then Return
    77. _fonts.Add("arial", gfx.CreateFont("Arial", 12))
    78. End Sub
    80. Private Sub _window_DestroyGraphics(ByVal sender As Object, ByVal e As DestroyGraphicsEventArgs)
    81. For Each pair In _brushes
    82. pair.Value.Dispose()
    83. Next
    85. For Each pair In _fonts
    86. pair.Value.Dispose()
    87. Next
    89. For Each pair In _images
    90. pair.Value.Dispose()
    91. Next
    92. End Sub
    94. Private Sub _window_DrawGraphics(ByVal sender As Object, ByVal e As DrawGraphicsEventArgs)
    95. Dim gfx = e.Graphics
    96. gfx.ClearScene(_brushes("background"))
    97. gfx.DrawText(_fonts("arial"), 15, _brushes("white"), 5, 5, $"677: 70/70")
    98. Dim device = TryCast(gfx.GetRenderTarget(), WindowRenderTarget)
    99. Dim factory = gfx.GetFactory()
    100. Dim geometry = New PathGeometry(factory)
    101. Dim sink = geometry.Open()
    102. sink.SetFillMode(FillMode.Winding)
    103. sink.BeginFigure(New SharpDX.Mathematics.Interop.RawVector2(200, 200), FigureBegin.Filled)
    104. sink.AddLine(New SharpDX.Mathematics.Interop.RawVector2(300, 200))
    105. sink.AddArc(New ArcSegment() With {
    106. .ArcSize = ArcSize.Small,
    107. .Point = New SharpDX.Mathematics.Interop.RawVector2(300, 300),
    108. .RotationAngle = 0.0F,
    109. .Size = New SharpDX.Size2F(16.0F, 16.0F),
    110. .SweepDirection = SweepDirection.Clockwise
    111. })
    112. sink.AddLine(New SharpDX.Mathematics.Interop.RawVector2(200, 300))
    113. sink.AddArc(New ArcSegment() With {
    114. .ArcSize = ArcSize.Small,
    115. .Point = New SharpDX.Mathematics.Interop.RawVector2(200, 200),
    116. .RotationAngle = 0.0F,
    117. .Size = New SharpDX.Size2F(16.0F, 16.0F),
    118. .SweepDirection = SweepDirection.Clockwise
    119. })
    120. sink.EndFigure(FigureEnd.Open)
    121. sink.Close()
    122. sink.Dispose()
    123. Dim options = New LayerParameters() With {
    124. .GeometricMask = geometry
    125. }
    126. Dim layer = New Layer(device, New SharpDX.Size2F(gfx.Width, gfx.Height))
    127. device.PushLayer(options, layer)
    128. gfx.FillRectangle(_brushes("white"), 100, 100, 400, 400)
    129. device.PopLayer()
    130. layer.Dispose()
    131. geometry.Dispose()
    132. End Sub
    134. End Class
    Bilder

    • 2021-09-29_221140.png

      59,54 kB, 1.310×877, 78 mal angesehen
    Liebe Grüße,
    C.O.D.E

    Testautomatisierung (TA):
    5%
    Du findest meinen Beitrag Hilfreich? :thumbup: Dann drück auf Hilfreich!

    Die Ist-Codereihenfolge:

    VB.NET-Quellcode

    1. Shared _window As GraphicsWindow
    2. '[…]
    3. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    4. Run()
    5. End Sub
    6. '[…]
    7. Public Sub Run()
    8. _window.Create()
    9. Console.WriteLine(_window.Handle.ToString("X"))
    10. End Sub

    _window ist also erstmal gar nix und soll dann irgendwas machen. Das geht nunmal nicht.
    Die einzige Stelle, an der Du aus _window was machst (nämlich mittels new eine echte Objektinstanz erstellen, die dann auch was kann bzw. mit der man was machen kann, z.B. deren Create-Methode aufrufen), ist in der Sub GraphicsWindowTest. Aber die rufst Du nicht auf.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende