?? bitmap.bas
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -