Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
65 / 0 / 3
Регистрация: 06.11.2010
Сообщений: 177

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

09.12.2012, 19:34. Показов 1674. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте! Все никак не могу написать код для раздела меню Правка!
Есть главная форма! На этой форме есть меню правка,в которых есть варианты: Копировать, вставить,вырезать, очистить буфер!
Вродь код написал, но чего то не работает (

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
09.12.2012, 19:34
Ответы с готовыми решениями:

Иерархическое меню из четырёх кнопок. Как продумать логику реализации
Есть иерархическое меню из четырёх кнопок, одна кнопка активирует ещё две, т.е. всего шесть. Нажатие каждой из них записывает в...

Продумать логику напоминалки
Программа напоминающая через определенное время событие. Идея такая, программа создает 2 текстовых файла: 1) В ожидании - хранятся...

Продумать логику авторизации в бд
есть таблица созданная в Access (Login) в ней два поля (Логин и Пароль). Как реализовать проверку: водим логин в текстбокс1 и пароль в...

5
 Аватар для Denri
179 / 57 / 0
Регистрация: 10.07.2012
Сообщений: 347
Записей в блоге: 2
09.12.2012, 19:47
Можно исходный код весь глянуть??
0
65 / 0 / 3
Регистрация: 06.11.2010
Сообщений: 177
09.12.2012, 20:32  [ТС]
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
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
0
 Аватар для Denri
179 / 57 / 0
Регистрация: 10.07.2012
Сообщений: 347
Записей в блоге: 2
09.12.2012, 20:50
я имел в виду сам проект rar архив
0
65 / 0 / 3
Регистрация: 06.11.2010
Сообщений: 177
09.12.2012, 20:52  [ТС]
Главная форма находится находится в новой папке под названием "H"
Вложения
Тип файла: rar ПрW.rar (1.19 Мб, 18 просмотров)
0
 Аватар для Denri
179 / 57 / 0
Регистрация: 10.07.2012
Сообщений: 347
Записей в блоге: 2
09.12.2012, 21:27
Код большой ну щас я нашел что в одной из процедур (копировать вставить нет конца) End Sub

Проверь может это все? Если нет буду дальше искать
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
09.12.2012, 21:27
Помогаю со студенческими работами здесь

Продумать логику тестирования студентов
Ку-ку ! Есть 3 класса: Student, Teacher, Test. Студент выбирает предмет и проходит экзамен, получает оценку. Учитель мониторит всё это...

Тетрис: как продумать логику проигрыша
Здравствуйте, уважаемые! Учусь в колледже пятый месяц, чуть-чуть изучаем С#. Для зачета нужно написать тетрис (вернее, не нужно, а я сам...

Как продумать логику игровых событий
Вобщем, хочу создать мини игру(просто практикуюсь пока). Не пойму как сделать ее в реальном времени. То есть, к примеру, враги двигались и...

Как продумать логику столкновения объектов в игре
Недавно начали изучать Visial Basic и тут сразу же дали курсач (((Помогите очень прошу. Нужно сделать программу &quot;Рогатка&quot; при...

Крестики-нолики:как продумать логику компьютера?
Народ нужно просто такой себе простенький бот который будет рандомно ходить по полю а в случае близкого проигрыша или выигрыша что бы он...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение/ Перевод https:/ / **********/ gallery/ thinkpad-x220-tablet-porn-gzoEAjs . . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru