form011.frm

锥齿轮CAD设计

VERSION 5.00
Begin VB.Form Form011 
   Caption         =   "确定"
   ClientHeight    =   2835
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4845
   LinkTopic       =   "Form46"
   ScaleHeight     =   2835
   ScaleWidth      =   4845
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command3 
      Caption         =   "Command3"
      Height          =   495
      Left            =   3600
      TabIndex        =   6
      Top             =   480
      Width           =   735
   End
   Begin VB.OptionButton Option4 
      Caption         =   "Option4"
      Height          =   495
      Left            =   360
      TabIndex        =   5
      Top             =   480
      Width           =   1095
   End
   Begin VB.OptionButton Option3 
      Caption         =   "斜齿轮腹板式"
      Height          =   255
      Left            =   1800
      TabIndex        =   4
      Top             =   960
      Width           =   1455
   End
   Begin VB.OptionButton Option2 
      Caption         =   "斜齿轮实心式"
      Height          =   255
      Left            =   1800
      TabIndex        =   3
      Top             =   600
      Width           =   1455
   End
   Begin VB.OptionButton Option1 
      Caption         =   "斜齿轮齿轮轴式"
      Height          =   255
      Left            =   1800
      TabIndex        =   2
      Top             =   240
      Width           =   1575
   End
   Begin VB.CommandButton Command2 
      Caption         =   "取消退出"
      Height          =   420
      Left            =   1080
      TabIndex        =   1
      Top             =   2040
      Width           =   3135
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定登陆"
      Height          =   420
      Left            =   1080
      TabIndex        =   0
      Top             =   1440
      Width           =   3135
   End
End
Attribute VB_Name = "Form011"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()

If Option1.Value = True Then
Form012.Show
Me.Hide
End If

If Option2.Value = True Then
Form013.Show
Me.Hide
End If

If Option3.Value = True Then
Form014.Show
Me.Hide
End If

If Option4.Value = True Then
Form01.Show
Me.Hide
End If

End Sub

Private Sub Command2_Click()
Me.Hide
Form1.Show
End Sub



Private Sub Command3_Click()

'我传个书上的例子:''''''''''''''如何画弧线

' This example creates an arc in model space.

Dim arcObj As AcadArc
Dim centerPoint(0 To 2) As Double
Dim radius As Double
Dim startAngleInDegree As Double
Dim endAngleInDegree As Double
' Define the circle
centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
radius = 5#
startAngleInDegree = 10#
endAngleInDegree = 230#
' Convert the angles in degrees to angles in radians
Dim startAngleInRadian As Double
Dim endAngleInRadian As Double
startAngleInRadian = startAngleInDegree * 3.141592 / 180#
endAngleInRadian = endAngleInDegree * 3.141592 / 180#
' Create the arc object in model space
Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian)
ZoomAll


End Sub