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 回答