3D Modell auf/in eine Windows Form

  • VB.NET
  • .NET (FX) 4.0

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von Niko Ortner.

    3D Modell auf/in eine Windows Form

    Hallo zusammen,
    Ich würde gern ein 3D Modell erstellen und auf/in einer Windows Form benutzen.
    Ich hab mir mal OpenTK runtergeladen, nur leider funktiniert das nicht (Nicht mal die Beispiele)...
    Habt ihr vllt. andere Lösungen mit der ich 3D Modelle erstellen und einbinden kann?
    Ich bräuchte dann auch Beispiele dazu...

    Danke für die schnelle Antwort.
    Leider klappt der BeispielCode bei mir nciht.
    Dort steht auch, man muss folgendes davor machen:

    • Instanziierung der Graphics3D-Klasse und Übergabe der Zeichengröße
    • Festlegen der World-, View-, und Projection-Matrizen (wer schon einmal mit DX gearbeitet hat, sollte das kennen)

    Ich hab nur keine Ahnung wie :/

    Vermutlich so. Habs aber nicht getestet.

    VB.NET-Quellcode

    1. ' Initialisierung der Graphics3D-Instanz und der Matrizen
    2. Sample_Graphics = New Graphics3D(Me.ClientSize)
    3. Sample_Graphics.Transform_World = Matrix.Identity
    4. Sample_Graphics.Transform_View = Matrix.Translation(0, 0, -5)
    5. Sample_Graphics.Transform_Projection = Matrix.Projection(Math.PI / 4, Me.ClientSize.Width / Me.ClientSize.Height, 0.1, 1000)

    Warum eig. GDI+? Klar geht das, aber das ist doch lang nicht so performant, wie z. B. DirectX. Und mit 'nem anständigen Wrapper wie SharpDX lässt sich das ja implementieren. Dann ist's im Endeffekt auch nur noch Mathematik, die Du hier mit den Matrizen genauso brauchst.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    keine besonderen Modelle bzw. keine Detailierte Modelle...
    Z.B. würden mir schon Würfel, Dreiecke oder so, fürs erste, reichen.
    Mit was ich das mach, ist mir eigentlich egal. Ich sollte es nur ein bisschen verstehen und eben anwenden können ^^

    Ich konnte ein bzw. alle Beispiele nicht starten/anwenden.
    ANch nem Neustart funktioniert nun das beispiel ^^

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Explicit On
    3. Imports opentk
    4. Imports opentk.Graphics
    5. Imports opentk.Graphics.OpenGL
    6. Imports System.Drawing
    7. Imports System.Drawing.Imaging
    8. Imports System.Windows.Forms
    10. Public Class GLTexturedCube
    11. Inherits GameWindow
    13. Protected angle As Single
    14. Protected textures(1) As Integer
    16. Public Sub New()
    17. MyBase.New(468, 360, GraphicsMode.Default, "Textured Cube with OpenTK")
    18. End Sub
    20. Protected Sub LoadTexture(ByVal textureId As Integer, ByVal filename As String)
    21. Dim bmp As New Bitmap(filename)
    23. Dim data As BitmapData = bmp.LockBits(New Rectangle(0, 0, bmp.Width, bmp.Height),
    24. System.Drawing.Imaging.ImageLockMode.ReadOnly,
    25. System.Drawing.Imaging.PixelFormat.Format32bppArgb)
    27. GL.BindTexture(TextureTarget.Texture2D, textureId)
    28. GL.TexImage2D(TextureTarget.Texture2D, 0, PixelInternalFormat.Rgba,
    29. bmp.Width, bmp.Height, 0, OpenGL.PixelFormat.Bgra,
    30. PixelType.UnsignedByte, data.Scan0)
    32. bmp.UnlockBits(data)
    33. GL.TexParameter(TextureTarget.Texture2D, TextureParameterName.TextureMinFilter, TextureMinFilter.Linear)
    34. GL.TexParameter(TextureTarget.Texture2D, TextureParameterName.TextureMagFilter, TextureMagFilter.Linear)
    35. End Sub
    37. Protected Sub LoadTextures()
    38. GL.GenTextures(textures.Length, textures)
    39. LoadTexture(textures(0), "texture.png")
    40. End Sub
    42. Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
    43. MyBase.OnLoad(e)
    44. GL.ClearColor(0.5, 0.5, 0.6, 0)
    45. GL.Enable(EnableCap.DepthTest)
    46. GL.Enable(EnableCap.Texture2D)
    48. LoadTextures()
    49. End Sub
    51. Protected Overrides Sub OnResize(ByVal e As System.EventArgs)
    52. MyBase.OnResize(e)
    54. ' TODO: Perceber melhor sobre o glViewport()
    55. GL.Viewport(0, 0, Me.Width, Me.Height)
    57. Dim aspect As Single = CSng(Me.Width) / Me.Height
    58. Dim projMat As Matrix4 = Matrix4.CreatePerspectiveFieldOfView(MathHelper.PiOver4, aspect, 0.1, 100.0)
    60. GL.MatrixMode(MatrixMode.Projection)
    61. GL.LoadMatrix(projMat)
    63. GL.MatrixMode(MatrixMode.Modelview)
    64. GL.LoadIdentity()
    65. End Sub
    67. Protected Overrides Sub OnRenderFrame(ByVal e As opentk.FrameEventArgs)
    68. MyBase.OnRenderFrame(e)
    69. GL.Clear(ClearBufferMask.ColorBufferBit Or ClearBufferMask.DepthBufferBit)
    71. GL.LoadIdentity()
    72. GL.Translate(0, 0, -5)
    73. GL.Rotate(angle, 0, 1, 1)
    74. 'GL.Rotate(angle, 0, 1, 0)
    75. GL.Rotate(angle, 1, 0, 0)
    76. GL.Rotate(angle, 0, 1, 0)
    77. GL.Rotate(angle, 0, 0, 1)
    79. angle += 1
    81. GL.BindTexture(TextureTarget.Texture2D, textures(0))
    83. GL.Begin(BeginMode.Quads)
    84. ' Face frontal
    85. GL.TexCoord2(0.0, 1.0) : GL.Vertex3(-1, 1, 1)
    86. GL.TexCoord2(1.0, 1.0) : GL.Vertex3(1, 1, 1)
    87. GL.TexCoord2(1.0, 0.0) : GL.Vertex3(1, -1, 1)
    88. GL.TexCoord2(0.0, 0.0) : GL.Vertex3(-1, -1, 1)
    90. ' Face traseira
    91. GL.TexCoord2(0.0, 1.0) : GL.Vertex3(1, 1, -1)
    92. GL.TexCoord2(1.0, 1.0) : GL.Vertex3(-1, 1, -1)
    93. GL.TexCoord2(1.0, 0.0) : GL.Vertex3(-1, -1, -1)
    94. GL.TexCoord2(0.0, 0.0) : GL.Vertex3(1, -1, -1)
    96. ' Face lateral direita
    97. GL.TexCoord2(0.0, 1.0) : GL.Vertex3(1, 1, 1)
    98. GL.TexCoord2(1.0, 1.0) : GL.Vertex3(1, 1, -1)
    99. GL.TexCoord2(1.0, 0.0) : GL.Vertex3(1, -1, -1)
    100. GL.TexCoord2(0.0, 0.0) : GL.Vertex3(1, -1, 1)
    102. ' Face lateral esquerda
    103. GL.TexCoord2(0.0, 1.0) : GL.Vertex3(-1, 1, -1)
    104. GL.TexCoord2(0.0, 0.0) : GL.Vertex3(-1, -1, -1)
    105. GL.TexCoord2(1.0, 0.0) : GL.Vertex3(-1, -1, 1)
    106. GL.TexCoord2(1.0, 1.0) : GL.Vertex3(-1, 1, 1)
    108. ' Face de cima
    109. GL.TexCoord2(0.0, 1.0) : GL.Vertex3(-1, 1, -1)
    110. GL.TexCoord2(1.0, 1.0) : GL.Vertex3(1, 1, -1)
    111. GL.TexCoord2(1.0, 0.0) : GL.Vertex3(1, 1, 1)
    112. GL.TexCoord2(0.0, 0.0) : GL.Vertex3(-1, 1, 1)
    114. ' Face de baixo
    115. GL.TexCoord2(0.0, 0.0) : GL.Vertex3(-1, -1, -1)
    116. GL.TexCoord2(0.0, 1.0) : GL.Vertex3(-1, -1, 1)
    117. GL.TexCoord2(1.0, 1.0) : GL.Vertex3(1, -1, 1)
    118. GL.TexCoord2(1.0, 0.0) : GL.Vertex3(1, -1, -1)
    119. GL.End()
    121. SwapBuffers()
    122. End Sub
    124. Public Shared Sub Main()
    125. Dim d As New Form1
    126. d.Show()
    127. Dim app As New GLTexturedCube
    128. app.Run(60, 60)
    129. End Sub
    130. End Class



    Damit wird das "GameWindow"-Fenster erstellt/geöffnet und darauf gezeichnet.
    Ich frage mich, wie (/Ob) ich das nun in/auf einer vorhandenen WindowsForm machen kann?

    Theoretisch ja, die Frage ist nur, bist du dir sicher, dass du das in WinForms machen willst.
    Eigt. würde man soetwas alles in OGL machen und Windows komplett außen vor lassen. Außnahmen mögen dabei vlt. MapEditoren und ähnliches sein. Aber selbst da ist es nicht unbedingt die beste Entscheidung.

    Also erstmal, warum überhaupt in WinForms?
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Nein, da heißt es selbst programmieren oder nach Libraries suchen.
    opentk.com/doc/chapter/2/glcontrol
    Das hier wäre die einzig sinnvolle Lösung, aber es dürfte wahrscheinlich nicht sonderlich gut funktionieren, wenn du Controls über das RenderControl setzt, da die Windows Controls dann vmtl. von OpenGL überzeichnet werden.
    Wenn du ein Spiel machen möchtest, dann ist das einzig sinnvolle WinForms weg zu schmeißen und alles selbst zu machen, bzw. eine Library zu verwenden.
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Möchtest Du wiiiiirklich nicht etwas verwenden, was auf 3D ausgelegt ist?
    Das zum Beispiel?:
    CAD Software mit .Net + GDI+
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    @Niko Ortner also OpenTK ist sehr gut auf 3D ausgelegt und mMn ggü DX und WPF auch die bessere Wahl. Etwas das beabsichtigt nur für eine Plattform gemacht wird hat denke ich wenig Zukunft.
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

Facebook
Telefonspende