Создать раздел меню "Правка" и продумать логику команд "копировать", "вставить" - VB

Формулировка задачи:

Здравствуйте! Все никак не могу написать код для раздела меню Правка! Есть главная форма! На этой форме есть меню правка,в которых есть варианты: Копировать, вставить,вырезать, очистить буфер! Вродь код написал, но чего то не работает (
Private Sub mnuEdit_Click()
    mnuEditCut.Enabled = False
    mnuEditCopy.Enabled = False
    mnuEditInsert.Enabled = False
    If TypeOf ActiveControl  Is  TextBox  Then 
        If Clipboard.GetFormat(vbCFText) Then  mnuEditInsert.Enabled = True  
        If Len(ActiveControl.SelText)>0 Then 
            mnuEditCut.Enabled = True 
            mnuEditCopy.Enabled = True
        End If
    ElseIf TypeOf ActiveControl  Is  PictureBox  Then
        If ActiveControl.Picture <> 0 Then
            mnuEditCut.Enabled = True
            mnuEditCopy.Enabled = True
        End If
        If Clipboard.GetFormat(vbCFText) Or Clipboard.GetFormat(vbCFRTF) Or Clipboard.GetFormat(vbCFBitmap) Or Clipboard.GetFormat(vbCFDif) Then
             Clipboard.GetFormat(vbCFMetaFile) Then  mnuEditInsert.Enabled = True
    End If

Код к задаче: «Создать раздел меню "Правка" и продумать логику команд "копировать", "вставить" - VB»

textual
Private Sub AboutDialog_Click()
frmAbout.Show
 
End Sub
 
Private Sub AboutProject_Click()
frmAbout.Show
End Sub
 
Private Sub Lab2_Click()
frmLab2.Show
End Sub
 
Private Sub Login_Click()
frmLogin.Show
End Sub
 
Private Sub MDIForm_Load()
    mnuEditCut.Enabled = False
    mnuEditCopy.Enabled = False
    mnuEditPaste.Enabled = False
 
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.Left = 0
Me.Top = 0
End Sub
 
Private Sub mnuCalculator_Click()
    Shell "C:\WINDOWS\system32\calc"
End Sub
 
Private Sub mnuEditClear_Click()
    Clipboard.Clear
    mnuEditPaste.Enabled = False
End Sub
 
Private Sub mnuFileExit_Click()
    End
End Sub
 
Private Sub mnuLab1_Click()
frmLab1.Show , MDIForm1
End Sub
Private Sub mnuLab2_Click()
frmLab2.Show , MDIForm1
        End Sub
Private Sub mnuPaint_Click()
    Shell "C:\Windows\system32\mspaint.exe"
End Sub
Private Sub mnuPrac1_Click()
Prac1.Show
End Sub
 
Private Sub mnuPrac2_Click()
Prac2.Show
End Sub
 
Private Sub mnuPrac3_Click()
Prac3.Show
End Sub
 
Private Sub Splash_Click()
frmSplash.Show
End Sub
 
Private Sub Timer1_Timer()
    mnuEditCl
End Sub
Private Sub Tip_Click()
frmTip.Show
End Sub
Private Sub mnuEditCl()
    If Clipboard.GetFormat(vbCFText) Or Clipboard.GetFormat(vbCFRTF) Or Clipboard.GetFormat(vbCFBitmap) Or Clipboard.GetFormat(vbCFDif) Then
      mnuEditPaste.Enabled = True
    End If
End Sub
Private Sub mnuEdit_Click()
    mnuEditCut.Enabled = False
    mnuEditCopy.Enabled = False
    mnuEditInsert.Enabled = False
    If TypeOf ActiveControl  Is  TextBox  Then 
        If Clipboard.GetFormat(vbCFText) Then  mnuEditInsert.Enabled = True  
        If Len(ActiveControl.SelText)>0 Then 
            mnuEditCut.Enabled = True 
            mnuEditCopy.Enabled = True
        End If
    ElseIf TypeOf ActiveControl  Is  PictureBox  Then
        If ActiveControl.Picture <> 0 Then
            mnuEditCut.Enabled = True
            mnuEditCopy.Enabled = True
        End If
        If Clipboard.GetFormat(vbCFText) Or Clipboard.GetFormat(vbCFRTF) Or Clipboard.GetFormat(vbCFBitmap) Or Clipboard.GetFormat(vbCFDif) Then
             Clipboard.GetFormat(vbCFMetaFile) Then  mnuEditInsert.Enabled = True
    End If

9   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ