form3.frm

采用VB编写的一个电路分析系统

VERSION 5.00
Begin VB.Form properform 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "属性"
   ClientHeight    =   885
   ClientLeft      =   2805
   ClientTop       =   6645
   ClientWidth     =   6600
   ControlBox      =   0   'False
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   885
   ScaleWidth      =   6600
   ShowInTaskbar   =   0   'False
   Tag             =   "-1"
   Begin VB.Frame Frame2 
      BackColor       =   &H00FFC0C0&
      Height          =   1215
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   8055
      Begin VB.TextBox Text1 
         BackColor       =   &H8000000F&
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   18
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   1800
         TabIndex        =   3
         Text            =   "value"
         Top             =   360
         Width           =   1455
      End
      Begin VB.OptionButton Option2 
         Caption         =   "竖直"
         Height          =   495
         Left            =   905
         TabIndex        =   2
         Top             =   360
         Width           =   990
      End
      Begin VB.OptionButton Option1 
         Caption         =   "水平"
         Height          =   495
         Left            =   50
         TabIndex        =   1
         Top             =   360
         Width           =   855
      End
      Begin VB.Image Image1 
         Height          =   735
         Left            =   5280
         Stretch         =   -1  'True
         Top             =   120
         Width           =   1275
      End
      Begin VB.Label Label9 
         Caption         =   "     0"
         Height          =   255
         Left            =   4680
         TabIndex        =   12
         Top             =   600
         Width           =   615
      End
      Begin VB.Label Label8 
         Caption         =   "     0"
         Height          =   255
         Left            =   4680
         TabIndex        =   11
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label7 
         Caption         =   "     0"
         Height          =   255
         Left            =   4680
         TabIndex        =   10
         Top             =   120
         Width           =   615
      End
      Begin VB.Label Label6 
         BackColor       =   &H00FFFFFF&
         Caption         =   "|所属网孔1:      |所属网孔2：     |所属支路 ："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   3555
         TabIndex        =   9
         Top             =   120
         Width           =   1695
      End
      Begin VB.Label Label5 
         Alignment       =   2  'Center
         Caption         =   "Ω"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   18
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   3240
         TabIndex        =   8
         Top             =   360
         Width           =   315
      End
      Begin VB.Label Label4 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         Caption         =   "|     元件值"
         Height          =   255
         Left            =   1770
         TabIndex        =   7
         Top             =   120
         Width           =   1785
      End
      Begin VB.Label Label3 
         BackColor       =   &H00FFFFFF&
         Caption         =   "0"
         Height          =   255
         Left            =   1400
         TabIndex        =   6
         Top             =   120
         Width           =   375
      End
      Begin VB.Label Label2 
         BackColor       =   &H00FFFFFF&
         Caption         =   "|索引:"
         Height          =   255
         Left            =   785
         TabIndex        =   5
         Top             =   120
         Width           =   615
      End
      Begin VB.Label Label1 
         BackColor       =   &H00FFFFFF&
         Caption         =   "元件"
         Height          =   255
         Left            =   50
         TabIndex        =   4
         Top             =   120
         Width           =   735
      End
   End
End
Attribute VB_Name = "properform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Form_Unload(cancel As Integer)
formstate = 1

End Sub

Private Sub Option1_Click()
If properform.Tag <> -1 Then
 mapform.cell(properform.Tag).cellarc = 0
Call mapform.cell(properform.Tag).incall
Image1.Picture = LoadPicture(bmps(0, mapform.cell(properform.Tag).celltype))
End If
End Sub

Private Sub Option1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If properform.Tag <> -1 Then
mapform.cell(properform.Tag).cellarc = 0
Call mapform.cell(properform.Tag).incall
Image1.Picture = LoadPicture(bmps(0, mapform.cell(properform.Tag).celltype))
End If

End Sub

Private Sub Option2_Click()
If properform.Tag <> -1 Then
mapform.cell(properform.Tag).cellarc = 1
Call mapform.cell(properform.Tag).incall
Image1.Picture = LoadPicture(bmps(1, mapform.cell(properform.Tag).celltype))
End If
End Sub

Private Sub Option2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If properform.Tag <> -1 Then
mapform.cell(properform.Tag).cellarc = 1
Call mapform.cell(properform.Tag).incall
Image1.Picture = LoadPicture(bmps(1, mapform.cell(properform.Tag).celltype))
End If
End Sub



Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If properform.Tag <> -1 Then
mapform.cell(properform.Tag).cellvalue = CSng(Val(Text1.Text))
Call mapform.cell(properform.Tag).incall
End If
End Sub