Создать раздел меню "Правка" и продумать логику команд "копировать", "вставить" - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д