www.pudn.com > textmanager.rar > Frmmeun.frm, change:2005-04-12,size:1543b


VERSION 5.00 
Begin VB.Form FrmMeun  
   Caption         =   "Form1" 
   ClientHeight    =   150 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   1500 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   150 
   ScaleWidth      =   1500 
   StartUpPosition =   3  '窗口缺省 
   Visible         =   0   'False 
   Begin VB.Menu M_Active  
      Caption         =   "操作" 
      Visible         =   0   'False 
      Begin VB.Menu M_XG  
         Caption         =   "修改分数(&M)" 
      End 
      Begin VB.Menu q  
         Caption         =   "-" 
      End 
      Begin VB.Menu M_Del  
         Caption         =   "删除题目(&D)" 
      End 
   End 
End 
Attribute VB_Name = "FrmMeun" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
 
Private Sub M_Del_Click() 
 '判断是那个list框 
 Select Case FrmShiJuan.LstWho 
   Case "LstTM" 
      FrmShiJuan.LstTM.RemoveItem (FrmShiJuan.LstTM.ListIndex) 
   Case "LstTMD" 
      FrmShiJuan.LstTMD.RemoveItem (FrmShiJuan.LstTMD.ListIndex) 
   Case "LstTKT" 
      FrmShiJuan.LstTKT.RemoveItem (FrmShiJuan.LstTKT.ListIndex) 
   Case "LstPDT" 
      FrmShiJuan.LstPDT.RemoveItem (FrmShiJuan.LstPDT.ListIndex) 
   Case "LstWDT" 
      FrmShiJuan.LstWDT.RemoveItem (FrmShiJuan.LstWDT.ListIndex) 
   Case "LstZWT" 
      FrmShiJuan.LstZWT.RemoveItem (FrmShiJuan.LstZWT.ListIndex) 
       
 End Select 
End Sub 
 
Private Sub M_XG_Click() 
Frmscore.Show 1 
 
End Sub