C# と VB.NET の質問掲示板

http://bbs.wankuma.com/index.cgi?mode=al2&namber=99642


この質問ページの続きなのですが、
VB.NETを使ってOpenTKのプログラムを書いています。

GlControl1.GraphicsModeのSamplesを変更したいため

GlControl1.GraphicsMode = New GraphicsMode(New ColorFormat(8, 8, 8, 0), 24, 8, 4)

としたのですが、
GraphicsModeはReadOnlyなので、
一度、Destroyしてから再生成するか
生成時に宣言してください、というエラーが出ます。

そのため、Designer上で

Me.GlControl1 = New OpenTK.GLControl()

となっていたところを

Me.GlControl1 = New OpenTK.GLControl(New GraphicsMode(New ColorFormat(8, 8, 8, 0), 24, 8, 4))

と書き換えるとうまく動作することが確認できました。

しかし、一度VSを落として再起動すると、
フォームが開かなくなり、自動で元の

Me.GlControl1 = New OpenTK.GLControl()

に戻ってしまいます。


そのため、
一度GlControl1を消してから再生成しようと

GlControl1.Dispose
Me.GlControl1 = New OpenTK.GLControl(New GraphicsMode(New ColorFormat(8, 8, 8, 0), 24, 8, 4))

としてみたのですが、
GlControl上にうまく画像が表示されません。


仕方なく、Designer上のコードをForm上で実行しようと思い、
Designer上からGlControl1を消した後に
Designerのコードを以下のようにform上にコピーして使用しました。

    Public Sub New()

        InitializeComponent()


        Me.GlControl1 = New OpenTK.GLControl()

        Me.TableLayoutPanel1.Controls.Add(Me.GlControl1, 0, 0)

        '
        'GlControl1
        '
        Me.GlControl1.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.GlControl1.BackColor = System.Drawing.Color.Black
        Me.GlControl1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.GlControl1.Location = New System.Drawing.Point(218, 23)
        Me.GlControl1.Margin = New System.Windows.Forms.Padding(1)
        Me.GlControl1.Name = "GlControl1"
        Me.GlControl1.Size = New System.Drawing.Size(360, 360)
        Me.GlControl1.TabIndex = 130
        Me.GlControl1.VSync = False

    End Sub

また、



    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Call GlControl1_Load(GlControl1, Nothing)

　　End Sub

のようにGlControlの初期化も行いました。

Form生成時にGlControlは表れるのですが
やはり、GlControl上に画像が描画されません。
というかInvalidateしてもPaintが呼ばれていないようです

これはどのようにすればよろしいでしょうか？

■No100342 (もんた さん) に返信
> Me.GlControl1 = New OpenTK.GLControl()
> となっていたところを
> Me.GlControl1 = New OpenTK.GLControl(New GraphicsMode(New ColorFormat(8, 8, 8, 0), 24, 8, 4))
> と書き換えるとうまく動作することが確認できました。

OpenTK.GLControl を継承して新しいコントロールを作るとどうでしょう？

Public Class GlControlEx
    Inherits OpenTK.GLControl

    Public Sub New()
        MyBase.New(New OpenTK.Graphics.GraphicsMode(New OpenTK.Graphics.ColorFormat(8, 8, 8, 0), 24, 8, 4))
    End Sub

End Class

これを貼り付けたらうまくいきませんか？ 

もしくは WithEvents を使って

Private WithEvents GlControl1 As OpenTK.GLControl

と宣言することで、Handles を使ってイベントを自動的に関連付けすることができます。

Private Sub GlControl1_Load(sender As Object, e As EventArgs) Handles GlControl1.Load
    (略)
End Sub

Private Sub GlControl1_Resize(sender As Object, e As EventArgs) Handles GlControl1.Resize
    (略)
End Sub

Private Sub GlControl1_Paint(sender As Object, e As PaintEventArgs) Handles GlControl1.Paint
    (略)
End Sub

差し替えるときはこんな感じで

If Me.GlControl1 IsNot Nothing Then
    Me.Controls.Remove(Me.GlControl1)
    Me.GlControl1.Dispose()
End If
Me.GlControl1 = New OpenTK.GLControl(new GraphicsMode(..略..))
Me.GlControl1.BackColor = System.Drawing.Color.Black
Me.GlControl1.Location = New System.Drawing.Point(31, 40)
Me.GlControl1.Size = New System.Drawing.Size(437, 309)
Me.GlControl1.VSync = False
Me.Controls.Add(Me.GlControl1)