www.pudn.com > FastScript15.rar > bmp.vb

'************************** 
' 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")