0

次のことを試してみると、少し問題があります。コードを機能させることができません。

        Dim filename As String = "C:\Users\NahNah\Desktop\HeightMap.png"
        IO.File.Create(filename)
        Dim h As New Structures.HeightMap(1, 10, 512)
        Dim graph As Graphics = CreateGraphics()
        Dim png As New Bitmap(filename)

        graph.DrawImage(png, Width, Height)
        h.Generate()
        graph = h.Draw(graph)
        graph.DrawImage(png, 1024, 1024)
        png.Save(filename)

行で引数例外が発生します

        Dim png As New Bitmap(filename)

ご覧のとおり、私は自分が何をしているのかよくわかりません。助けが必要です。ありがとう

4

1 に答える 1

1

もちろん失敗…。

    IO.File.Create(filename)
    ......
    Dim png As New Bitmap(filename)

有効なビットマップのように空のファイルを開こうとすると、どうなると思いますか?

私は多くの詳細を見逃していますが（構造とそのパラメータは謎です。幅と高さはどこで得られますか....）、このアプローチに従うべきだと思います

Dim h As New Structures.HeightMap(1, 10, 512)
Using png As New Bitmap(Width, Height)   
    Using graph = Graphics.FromImage(png)
        h.Generate()
        graph.DrawImage(png, 1024, 1024)
        png.Save(filename)
    End Using
End Using
于 2012-11-10T12:56:42.570 に答える