bitmap.bas

来自「汇编源代码大全2」· BAS 代码 · 共 40 行

Sub Command2_Click ()        ' "CREATE A BITMAP" BUTTON

  ' Creates an image on a bitmap file which can be
  ' manipulated and printed with Windows Paintbrush.

  Screen.MousePointer = 11   ' HOURGLASS CURSOR

  Picture1.ScaleMode = 5     ' SCALE IN INCHES
  
  Picture1.AutoRedraw = -1   ' IT'S A BITMAP PICTURE
  
  Picture1.Cls

  Picture1.DrawWidth = 3     ' DRAW CIRCLES
  Picture1.Circle (2, 2), 1.5
  Picture1.DrawWidth = 1
  Picture1.Circle (2, 2), 1.45

  Pi# = 3.1415926537         ' DRAW LISSAJOUS FIGURE
  x = 2
  y = 2 + 1
  Picture1.PSet (x, y)
  For t# = 0 To Pi# * 32.1 Step Pi# / 64
    x = 2 + Sin(t#)
    y = 2 + Cos(t# * 1.0625)
    Picture1.Line -(x, y)
    s% = DoEvents()
  Next t#

  m$ = "PC Techniques"       ' PRINT LABEL
  Picture1.CurrentY = 3.05
  Picture1.CurrentX = 2 - Picture1.TextWidth(m$) / 2
  Picture1.Print m$

  SavePicture Picture1.Image, "EXAMPLE1.BMP"

  Screen.MousePointer = 0    ' NORMAL CURSOR
  
End Sub