menu editer.frm

来自「codding for pszone one can use it at pl」· FRM 代码 · 共 60 行

VERSION 5.00
Begin VB.Form Form7 
   Caption         =   "Form7"
   ClientHeight    =   3090
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   4680
   LinkTopic       =   "Form7"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu NXT 
      Caption         =   "FOR-NEXT"
      Begin VB.Menu OD 
         Caption         =   "ODD"
      End
      Begin VB.Menu EVN 
         Caption         =   "EVEN"
      End
   End
   Begin VB.Menu DW 
      Caption         =   "DOWHILE"
      Begin VB.Menu FIBO 
         Caption         =   "FIBONACCI"
      End
      Begin VB.Menu ARMS 
         Caption         =   "ARMSTRONG"
      End
   End
   Begin VB.Menu EXT 
      Caption         =   "EXIT"
   End
End
Attribute VB_Name = "Form7"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub ARMS_Click()
Form1.Show
End Sub

Private Sub EVN_Click()
EVEN.Show
End Sub

Private Sub EXT_Click()
End
End Sub

Private Sub FIBO_Click()
Form6.Show
End Sub

Private Sub OD_Click()
Form3.Show
End Sub