?? frmmnu.frm
字號(hào):
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 = "將此題轉(zhuǎn)入難度1"
End
Begin VB.Menu gotond2
Caption = "將此題轉(zhuǎn)入難度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 = "選擇題庫(kù)" 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 = "選擇題庫(kù)" 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 "試題已經(jīng)成功轉(zhuǎn)移。", vbInformation, App.EXEName
Else
MsgBox "因原記錄沒有刪除而導(dǎo)致無法轉(zhuǎn)移!", vbExclamation, App.EXEName
End If
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -