bmp.vb

来自「FastScript 1.94 Full Source」· VB 代码 · 共 28 行

'**************************
' FastScript v1.0          
' Bitmap demo              
'**************************

sub MakePattern(b)
  dim i, j
  for i = 0 to b.Width - 1
    for j = 0 to b.Height - 1
      if ((i + j) mod 3) = 0 then
        b.Canvas.Pixels[i, j] = clWhite 
      else
        b.Canvas.Pixels[i, j] = clBlack
      end if
    next
  next
end sub


  dim bmp = new TBitmap
  bmp.Width = 100
  bmp.Height = 100
  MakePattern(bmp)
  bmp.SaveToFile("test.bmp")
  delete bmp
  ShowMessage("BMP file saved successfully")