bigimage.bas

汇编源代码大全2

Sub Command3_Click ()        ' "CREATE A BIG BITMAP" BUTTON

  ' Creates a bitmap that is allegedly 12 x 12 inches.
  ' But Windows Paintbrush can "use printer resolution"
  ' and make it 300 dpi, about 4 x 4 inches.

  Screen.MousePointer = 11   ' HOURGLASS CURSOR

  Picture1.ScaleMode = 5     ' SCALE IN INCHES
  
  Picture1.AutoRedraw = -1   ' IT'S A BITMAP PICTURE
  
  Picture1.AutoSize = -1
  Picture1.Height = 12 * 1440 ' in twips!
  Picture1.Width = 12 * 1440

     ' Picture1 is bigger than the screen.
     ' No problem.

  Picture1.Cls
 
  Picture1.DrawWidth = 3     ' DRAW CIRCLES
  Picture1.Circle (6, 6), 4.5
  Picture1.DrawWidth = 1
  Picture1.Circle (6, 6), 4.35

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

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

  SavePicture Picture1.Image, "EXAMPLE2.BMP"

  Screen.MousePointer = 0    ' NORMAL CURSOR

End Sub