QBasic/图像

警告

除了 QB64 之外的所有 IDE 都无法使用这些功能。

简单图像

rem image_display
cls
Dim Image as long
x = 1000  'resolution
y = 1000
Image = _loadimage("TEST.jpg") 'loading the image
screen _newimage(x,y,32) 'putting screen sizes
_putimage (0,0),Image 'putting image

所以你可能最期待的是大量的代码。就是这样，您在 QB64 中显示图像所需的一切！

那么，这段惊人简单的代码到底做了什么呢？

分步解释

我们已经将变量 Image 声明为一个长整型值。这是因为 _loadimage 函数返回的图像句柄是一个长整型值。
x 和 y 是我们的变量。它们保存了我们需要的分辨率值。因此，对于 8n00 x 900 的图像，x = 800，y = 900。
接下来，将图像变量 Image 放置到图像“TEST.jpg”的句柄值。友好的警告：将图像保存在 QB64 IDE 的文件夹中。否则，该函数将无法工作！
接下来，我们调整了屏幕大小以适合图像。newimage 函数需要三个参数，分辨率参数和颜色模式参数。这里我们使用了 32 位颜色模式，您也可以使用 256 位调色板颜色模式。
最后，我们使用 _putimage 放置图像，它将 Image 变量（我们的图像句柄）作为其参数。

_newimage 的次要用途用于设置屏幕细节

好吧，你可能在想，所有这些命令都必须按照相同的顺序使用。不，情况并非如此。您可以单独使用 _newimage 来设置屏幕细节，如下所示

screen _Newimage(1000,1000,256)

此代码将屏幕设置为巨大的 1000 x 1000 分辨率，使用 256 位调色板颜色模式！