frmmnu.frm

vb试卷生成系统！能够生成8开vb考试试卷

VERSION 5.00
Begin VB.Form frmmnu 
   Caption         =   "Form1"
   ClientHeight    =   -285
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   1560
   Icon            =   "frmmnu.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   -285
   ScaleWidth      =   1560
   Begin VB.Menu popmnu 
      Caption         =   "popmnu"
      NegotiatePosition=   3  'Right
      Begin VB.Menu add 
         Caption         =   "添加"
      End
      Begin VB.Menu modi 
         Caption         =   "修改"
      End
      Begin VB.Menu dele 
         Caption         =   "删除"
      End
      Begin VB.Menu z1 
         Caption         =   "-"
      End
      Begin VB.Menu addmrts 
         Caption         =   "加入每日提示"
      End
      Begin VB.Menu addktsj 
         Caption         =   "加入考题试卷"
      End
      Begin VB.Menu z 
         Caption         =   "-"
      End
      Begin VB.Menu gotond1 
         Caption         =   "将此题转入难度1"
      End
      Begin VB.Menu gotond2 
         Caption         =   "将此题转入难度2"
      End
   End
End
Attribute VB_Name = "frmmnu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim ss As Boolean

Private Sub add_Click()
Screen.ActiveForm.Command6_Click
End Sub

Private Sub addktsj_Click()
Screen.ActiveForm.Command15_Click
End Sub

Private Sub addmrts_Click()
Screen.ActiveForm.Label1_Click
End Sub

Private Sub dele_Click()
Screen.ActiveForm.Command8_Click
End Sub

Private Sub gotond1_Click()
ss = False
zhuan
End Sub

Private Sub gotond2_Click()
ss = True
zhuan
End Sub

Private Sub modi_Click()
Screen.ActiveForm.Command7_Click
End Sub
Private Sub zhuan()
Dim lsreco(6) As String
If Screen.ActiveForm.Caption = "选择题库" Then
    lsreco(1) = Screen.ActiveForm.Text3.Text
    lsreco(2) = Screen.ActiveForm.Text7(0).Text
    lsreco(3) = Screen.ActiveForm.Text7(1).Text
    lsreco(4) = Screen.ActiveForm.Text7(2).Text
    lsreco(5) = Screen.ActiveForm.Text7(3).Text
    lsreco(6) = Screen.ActiveForm.Combo3.Text
Else
    lsreco(1) = Screen.ActiveForm.Text3.Text
    lsreco(2) = Screen.ActiveForm.Text4.Text
End If
Screen.ActiveForm.Command8_Click
If tuichu = 6 Then
    If ss Then
        Screen.ActiveForm.Combo1.ListIndex = Screen.ActiveForm.Combo1.ListIndex + 1
    Else
        Screen.ActiveForm.Combo1.ListIndex = Screen.ActiveForm.Combo1.ListIndex - 1
    End If
    Screen.ActiveForm.Command6_Click
    If Screen.ActiveForm.Caption = "选择题库" Then
        Screen.ActiveForm.Text3.Text = lsreco(1)
        Screen.ActiveForm.Text7(0).Text = lsreco(2)
        Screen.ActiveForm.Text7(1).Text = lsreco(3)
        Screen.ActiveForm.Text7(2).Text = lsreco(4)
        Screen.ActiveForm.Text7(3).Text = lsreco(5)
        Screen.ActiveForm.Combo3.Text = lsreco(6)
    Else
        Screen.ActiveForm.Text3.Text = lsreco(1)
        Screen.ActiveForm.Text4.Text = lsreco(2)
    End If
    Screen.ActiveForm.Command4_Click
    If ss Then
        Screen.ActiveForm.Combo1.ListIndex = Screen.ActiveForm.Combo1.ListIndex - 1
    Else
        Screen.ActiveForm.Combo1.ListIndex = Screen.ActiveForm.Combo1.ListIndex + 1
    End If
    MsgBox "试题已经成功转移。", vbInformation, App.EXEName
Else
    MsgBox "因原记录没有删除而导致无法转移！", vbExclamation, App.EXEName
End If
End Sub