practice11_5.frm

来自「深圳大学的vb上机与教学的课件」· FRM 代码 · 共 58 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   1905
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4530
   LinkTopic       =   "Form1"
   ScaleHeight     =   1905
   ScaleWidth      =   4530
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture2 
      Height          =   1815
      Left            =   2280
      ScaleHeight     =   1755
      ScaleWidth      =   2115
      TabIndex        =   1
      Top             =   0
      Width           =   2175
   End
   Begin VB.PictureBox Picture1 
      Height          =   1815
      Left            =   120
      ScaleHeight     =   1755
      ScaleWidth      =   1995
      TabIndex        =   0
      Top             =   0
      Width           =   2055
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Picture1_Click()
Picture1.DrawWidth = 2
Picture1.Scale (-1, 1)-(1, -1)
Picture1.Circle (0, 0), 0.8
Picture1.DrawWidth = 1
Picture1.Circle (0, 0), 0.8, vbRed, , , 0.5
Picture1.Circle (0, 0), 0.8, vbRed, , , 2
End Sub

Private Sub Picture2_Click()
Picture2.Scale (-1, 1)-(1, -1)
pi = 3.1415927
Picture2.DrawWidth = 2

Picture2.Circle (0, 0), 0.82
Picture2.Circle (0, 0.5), 0.41, vbRed, pi / 2, 3 * pi / 2
Picture2.Circle (0, -0.5), 0.41, vbRed, 3 * pi / 2, pi / 2
Picture2.FillColor = vbBlack
Picture2.FillStyle = 0
Picture2.Circle (0, 0.5), 0.1
Picture2.Circle (0, -0.5), 0.1
End Sub