powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как сымитировать клик левой кнопкой мыши (API?)
25 сообщений из 79, страница 3 из 4
Как сымитировать клик левой кнопкой мыши (API?)
    #37785490
down up down
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
вообщем любую кнопку на тулбаре
в том и числе и не видимую но допустимую для данного контекста
можно вызвать так

objCommandBarButton.Execute()

все кнопки видны если выбрать
Customize Toolbar ну или по русскии как-то


а вообще на будущее - надо формулировать исходную задачу а не один из способов ее решения
а то оказыватеся тут вообще win api не требуется

кстати в данном случае гораздно проще нажатия клавы имитировать
menu, r
мы ведь знаем что текущее выделение уже сделано
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785494
down up down
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ну теперь-то работает?
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785499
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
down up down, теперь выделяет ".Name" в строке
Код: vbnet
1.
strCaptionCurrent = objCommandBarButton.Name
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785502
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
down up down,
>а вообще на будущее - надо формулировать исходную задачу а не один из способов ее решения а то оказыватеся тут вообще win api не требуется
12490148 - нифига не решено было, стал искать далее
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785504
down up down
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
не Name а Caption
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785505
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>menu, r
неа, menu, с - как? пусть будет в запасе второй вариант
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785510
down up down
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
12490148
ну так там вообще запретить а не разрешить

не думаю что запретить кнопку просто
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785512
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
не работает, я уже мозги включал, ставил
strCaptionRequired = "Свойства" и "&Свойства" - отлуп!!
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785513
down up down
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
автор>menu, r
неа, menu, с - как? пусть будет в запасе второй вариант


так работает нормальный вариант или нет?


menu - это кнопка справа рядом с правым ctrl слева аналогичной нет
вызывает контекстное меню
дальше в меню жмем r тк Properties r подчеркнута
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785514
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
down up down, сначала было запретить, я решил, и в том же топике я пошёл дальше и переспросил как разрешить
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785515
down up down
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
у меня 2003 версии нет
но эта фунцкиональность одинакова для 2010 и 2003

прежде чем ставить caption надо ручками ее в настройках тулбара найти
проверить что все работает как надо
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785516
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофа>menu, r
неа, menu, с - как? пусть будет в запасе второй вариант
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785517
down up down
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
тулбар называется Forms наверное по-русски Формы
вот на нем и искать эту кнопку и сделать видимой и кликнуть когда селект на поле сделан
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785521
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
down up down, поищу, пока помечтаю
Код: vbnet
1.
2.
SendKeys "{MENU}"
SendKeys "{c}"


отлуп, как эту ересь уладить?
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785527
down up down
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
1 найти кнопку получилось и вызвать нужный метод?

2 какое SendKeys ???
ну дал уже готовый работающий пример с SendInput что еще надо?


SendKeys "{MENU}" кто-то на форуме уже спрашивал
оно вообще вроде как именно с этой кнопкой не работает
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785532
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
down up down1 найти кнопку получилось и вызвать нужный метод?
не получилось, вывел все в документ:

Код: plaintext
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.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
283.
284.
285.
286.
287.
288.
289.
290.
291.
292.
293.
294.
295.
296.
297.
298.
299.
300.
301.
302.
303.
304.
305.
306.
307.
308.
309.
310.
311.
312.
313.
314.
315.
316.
317.
318.
319.
320.
321.
322.
323.
324.
325.
326.
327.
328.
329.
330.
331.
332.
333.
334.
335.
336.
337.
338.
339.
340.
341.
342.
343.
344.
345.
346.
347.
348.
349.
350.
351.
352.
353.
354.
355.
356.
357.
358.
359.
360.
361.
362.
363.
364.
365.
366.
367.
368.
369.
370.
371.
372.
373.
374.
375.
376.
377.
378.
379.
380.
381.
382.
383.
384.
385.
386.
387.
388.
389.
390.
391.
392.
393.
394.
395.
396.
397.
398.
399.
400.
401.
402.
403.
404.
405.
406.
407.
408.
409.
410.
411.
412.
413.
414.
415.
416.
417.
418.
419.
420.
421.
422.
423.
424.
425.
426.
427.
428.
429.
430.
431.
432.
433.
434.
435.
436.
437.
438.
439.
440.
441.
442.
443.
444.
445.
446.
447.
448.
449.
450.
451.
452.
453.
454.
455.
456.
457.
458.
459.
460.
461.
462.
463.
464.
465.
466.
467.
468.
469.
470.
471.
472.
473.
474.
475.
476.
477.
478.
479.
480.
481.
482.
483.
484.
485.
486.
487.
488.
489.
490.
491.
492.
493.
494.
495.
496.
497.
498.
499.
500.
501.
502.
503.
504.
505.
506.
507.
508.
509.
510.
511.
512.
513.
514.
515.
516.
517.
518.
519.
520.
521.
522.
523.
524.
525.
526.
527.
528.
529.
530.
531.
532.
533.
534.
535.
536.
537.
538.
539.
540.
541.
542.
543.
544.
545.
546.
547.
548.
549.
550.
551.
552.
553.
554.
555.
556.
557.
558.
559.
560.
561.
562.
563.
564.
565.
566.
567.
568.
569.
570.
571.
572.
573.
574.
575.
576.
577.
578.
579.
580.
581.
582.
583.
584.
585.
586.
587.
588.
589.
590.
591.
592.
593.
594.
595.
596.
597.
598.
599.
600.
601.
602.
603.
604.
605.
606.
607.
608.
609.
610.
611.
612.
613.
614.
615.
616.
617.
618.
619.
620.
621.
622.
623.
624.
625.
626.
627.
628.
629.
630.
631.
632.
633.
634.
635.
636.
637.
638.
639.
640.
641.
642.
643.
644.
645.
646.
647.
648.
649.
650.
651.
652.
653.
654.
655.
656.
657.
658.
659.
660.
661.
662.
663.
664.
665.
666.
667.
668.
669.
670.
671.
672.
673.
674.
675.
676.
677.
678.
679.
680.
681.
682.
683.
684.
685.
686.
687.
688.
689.
690.
691.
692.
693.
694.
695.
696.
697.
698.
699.
700.
701.
702.
703.
704.
705.
706.
707.
708.
709.
710.
711.
712.
713.
714.
715.
716.
717.
718.
719.
720.
721.
722.
723.
724.
725.
726.
727.
728.
729.
730.
731.
732.
733.
734.
735.
736.
737.
738.
739.
740.
741.
742.
743.
744.
745.
746.
747.
748.
749.
750.
751.
752.
753.
754.
755.
756.
757.
758.
759.
760.
761.
762.
763.
764.
765.
766.
767.
768.
769.
770.
771.
772.
773.
774.
775.
776.
777.
778.
779.
780.
781.
782.
783.
784.
785.
786.
787.
788.
789.
790.
791.
792.
793.
794.
795.
796.
797.
798.
799.
800.
801.
802.
803.
804.
805.
806.
807.
808.
809.
810.
811.
812.
813.
814.
815.
816.
817.
818.
819.
820.
821.
822.
823.
824.
825.
826.
827.
828.
829.
830.
831.
832.
833.
834.
835.
836.
837.
838.
839.
840.
841.
842.
843.
844.
845.
846.
847.
848.
849.
850.
851.
852.
853.
854.
855.
856.
857.
858.
859.
860.
861.
862.
863.
864.
865.
866.
867.
868.
869.
870.
871.
872.
873.
874.
875.
876.
877.
878.
879.
880.
881.
882.
883.
884.
885.
886.
887.
888.
889.
890.
891.
892.
893.
894.
895.
896.
897.
898.
899.
900.
901.
902.
903.
904.
905.
906.
907.
908.
909.
910.
911.
912.
913.
914.
915.
916.
917.
918.
919.
920.
921.
922.
923.
924.
925.
926.
927.
928.
929.
930.
931.
932.
933.
934.
935.
936.
937.
938.
939.
940.
941.
942.
943.
944.
945.
946.
947.
948.
949.
950.
951.
952.
953.
954.
955.
956.
957.
958.
959.
960.
961.
962.
963.
964.
965.
966.
967.
968.
969.
970.
971.
972.
973.
974.
975.
976.
977.
978.
979.
980.
981.
982.
983.
984.
985.
986.
987.
988.
989.
990.
991.
992.
993.
994.
995.
996.
997.
998.
999.
1000.
1001.
1002.
1003.
1004.
1005.
1006.
1007.
1008.
1009.
1010.
1011.
1012.
1013.
1014.
1015.
1016.
1017.
1018.
1019.
1020.
1021.
1022.
1023.
1024.
1025.
1026.
1027.
1028.
1029.
1030.
1031.
1032.
1033.
1034.
1035.
1036.
1037.
1038.
1039.
1040.
1041.
1042.
1043.
1044.
1045.
1046.
1047.
1048.
1049.
1050.
1051.
1052.
1053.
1054.
1055.
1056.
1057.
1058.
1059.
1060.
1061.
1062.
1063.
1064.
1065.
1066.
1067.
1068.
1069.
1070.
1071.
1072.
1073.
1074.
1075.
1076.
1077.
1078.
1079.
1080.
1081.
1082.
1083.
1084.
1085.
1086.
1087.
1088.
1089.
1090.
1091.
1092.
1093.
1094.
1095.
1096.
1097.
1098.
1099.
1100.
1101.
1102.
1103.
1104.
1105.
1106.
1107.
1108.
1109.
1110.
1111.
1112.
1113.
1114.
1115.
1116.
1117.
1118.
1119.
1120.
1121.
1122.
1123.
1124.
1125.
1126.
1127.
1128.
1129.
1130.
1131.
1132.
1133.
1134.
1135.
1136.
1137.
1138.
1139.
1140.
1141.
1142.
1143.
1144.
1145.
1146.
1147.
1148.
1149.
1150.
1151.
1152.
1153.
1154.
1155.
1156.
1157.
1158.
1159.
1160.
1161.
1162.
1163.
1164.
1165.
1166.
1167.
1168.
1169.
1170.
1171.
1172.
1173.
1174.
1175.
1176.
1177.
1178.
1179.
1180.
1181.
1182.
1183.
1184.
1185.
1186.
1187.
1188.
1189.
1190.
1191.
1192.
1193.
1194.
1195.
1196.
1197.
1198.
1199.
1200.
1201.
1202.
1203.
1204.
1205.
1206.
1207.
1208.
1209.
1210.
1211.
1212.
1213.
1214.
1215.
1216.
1217.
1218.
1219.
1220.
1221.
1222.
1223.
1224.
1225.
1226.
1227.
1228.
1229.
1230.
1231.
1232.
1233.
1234.
1235.
1236.
1237.
1238.
1239.
1240.
1241.
1242.
1243.
1244.
1245.
1246.
1247.
1248.
1249.
1250.
1251.
1252.
1253.
1254.
1255.
1256.
1257.
1258.
1259.
1260.
1261.
1262.
1263.
1264.
1265.
1266.
1267.
1268.
1269.
1270.
1271.
1272.
1273.
1274.
1275.
1276.
1277.
1278.
1279.
1280.
1281.
1282.
1283.
1284.
1285.
1286.
1287.
1288.
1289.
1290.
1291.
1292.
1293.
1294.
1295.
1296.
1297.
1298.
1299.
1300.
1301.
1302.
1303.
1304.
Созд&ать
&Открыть...
&Сохранить
Разрешение (Неограниченный доступ)
&Сообщение
&Печать
Пред&варительный просмотр
Прав&описание...
&Справочные материалы...
&Вырезать
&Копировать
Вст&авить
&Формат по образцу
Гип&ерссылка...
Панель для &таблиц и границ
&Рисование
С&хема документа
Отобразить в&се знаки
&Справка: Microsoft Office Word
&Чтение
&Стили и форматирование...
Полу&жирный
&Курсив
Под&черкнутый
По &левому краю
По ц&ентру
По &правому краю
По &ширине
&Распределенный
С&лева направо
С&права налево
&Нумерация
&Маркеры
У&меньшить отступ
&Увеличить отступ
&Нарисовать таблицу
&Ластик
Об&ъединить ячейки
Ра&збить ячейки...
Выровнят&ь высоту строк
Выровнять &ширину столбцов
Автофор&мат таблицы...
&Изменить направление текста
Сортировка по &возрастанию
Сортировка по у&быванию
&Автосумма
&Форма данных
Уп&равление полями
&Добавить запись
&Удалить запись
Сортировка по &возрастанию
Сортировка по у&быванию
&База данных...
О&бновить поле
&Найти в поле
&Основной документ
Выбор объек&тов
&Линия
Стрелк&а
Пр&ямоугольник
&Овал
Надпис&ь
&Вертикальная надпись
Об&ъект WordArt...
С&хематическая диаграмма...
&Картинки...
&Рисунок...
&Текстовое поле
&Флажок
П&оле со списком
&Свойства
&Нарисовать таблицу
Ра&мка
&Затенение полей формы
&Очистить поля формы
&Защита формы
Вернуть обычный ре&жим
Подо&гнать поля
&Закрыть рисунок
&Макросы...
&Начать запись...
&Безопасность...
&Редактор Visual Basic
&Элементы управления
Режим &конструктора
Р&едактор сценариев
Ос&тановить запись
П&ауза
&Настройка главного документа
&Открыть источник данных
&Получатели
&Вставить блок адреса
&Вставить строку приветствия
&Вставить поля слияния
Пол&я/данные
&Выделить поля слияния
&Подбор полей
&Размножить наклейки
&Первая запись
Пр&едыдущая запись
С&ледующая запись
П&оследняя запись
&Поиск элемента
Поиск о&шибок
Сли&яние в документ
Сли&яние при печати
&Объединить для отправки
&Слияние при отправке по факсу
Microsoft &Excel
Microsoft Office &PowerPoint
&Microsoft Outlook
Microsoft &Access
Microsoft Visual &FoxPro
Microsoft P&roject
Microsoft &Schedule+
Microsoft Pu&blisher
&Номер страницы
&Число страниц
Фор&мат номеров страниц
&Дата
&Время
Пара&метры страницы...
&Основной текст
&Как в предыдущем разделе
&Отобразить колонтитулы
Пр&едыдущий колонтитул
С&ледующий колонтитул
&Закрыть
&Распространить на заголовок 1
&Повысить уровень
Понизит&ь уровень
Понизить до об&ычного текста
&Вверх
В&низ
&Развернуть
&Свернуть
Тол&ько первые строки
&Отобразить форматирование
&Обновить оглавление
Ог&лавление
&Главный документ
С&вернуть вложенные документы
Созд&ать вложенный документ
&Удалить вложенный документ
&Импортировать вложенный документ
Об&ъединить вложенные документы
&Разбить вложенный документ
Защитить вло&женный документ
&Печать
&Увеличение
&Одна страница
&Линейка
Сократит&ь на страницу
Во весь &экран
Закр&ыть
Созд&ать
&Открыть...
&Сохранить
&Вырезать
&Копировать
Вст&авить
&Нумерация
&Маркеры
У&меньшить отступ
&Увеличить отступ
Ра&мка
&Рисование
&Диаграмма
Ко&нверт
Прав&описание...
&Печать
&Одна страница
Мас&штаб 100%
&Вписать в окно
Ответит&ь
&Ответить всем
Перес&лать
&Печать
&Копировать
П&ереместить сообщение
&Удалить сообщение
Пр&едыдущее сообщение
Сл&едующее сообщение
Авто&формат...
П&олный заголовок
С&хема документа
Отобразить в&се знаки
&Справка: Microsoft Office Word
Соо&бщение (как вложение)...
В&ыбрать имена...
&Проверить имена
Сво&йства
&Сохранить
&Печать
Прав&описание...
&Вырезать
&Копировать
Вст&авить
&Формат по образцу
Гип&ерссылка...
&Файл...
Авто&формат...
П&олный заголовок
С&хема документа
Отобразить в&се знаки
&Справка: Microsoft Office Word
&Точка над буквой
&Двойное зачеркивание
&Фонетическое руководство
О&бъединить знаки...
Ограничить ширину &знаков...
&Одинарный интервал
По&луторный интервал
Дво&йной интервал
Ав&тотекст...
Создат&ь...
&Назад
Да&лее
Ос&тановить
О&бновить
На&чальная страница
На&йти в Интернете
&Отображать только веб-панель
Об&ъект WordArt...
И&зменить текст...
&Коллекция WordArt
&Формат объекта...
В&ыровнять буквы WordArt по высоте
&Вертикальный текст WordArt
Вкл/выкл об&ъем
Повернуть в&низ
Повернуть в&верх
Повернуть в&лево
Повернуть в&право
Вкл/выкл &тень
Сдвинуть &тень вверх
Сдвинуть &тень вниз
Сдвинуть &тень влево
Сдвинуть &тень вправо
&Рисунок...
У&величить контрастность
У&меньшить контрастность
У&величить яркость
У&меньшить яркость
&Обрезка
Повернуть в&лево на 90°
&Сжатие рисунков...
&Формат объекта...
Ус&тановить прозрачный цвет
С&брос параметров рисунка
Подобрать размер
&Увеличить
Изменение масштаба рисунка
&Автоформат
&Добавить фигуру
Переместить фигуру &назад
Переместить фигуру &вперед
&Обратить диаграмму
&Автоформат
&Назад
&Далее
Приме&чание
&Исправления
Ответить с &изменениями...
Закон&чить проверку...
&Область проверки
Выделить/отобразить только ре&ферат
&Закрыть
Режим &конструктора
Режим &конструктора
Сво&йства
Ис&ходный текст
&Флажок
&Поле
&Кнопка
П&ереключатель
&Список
П&оле со списком
&Выключатель
С&четчик
По&лоса прокрутки
&Надпись
&Рисунок
Создать связь с надпись&ю
&Разорвать связь со следующей
Пр&едыдущая надпись
С&ледующая надпись
&Изменить направление текста
Ответит&ь
&Ответить всем
Перес&лать
&Печать
&Копировать
Авто&формат...
П&ереместить сообщение
&Удалить сообщение
Пр&едыдущее сообщение
Сл&едующее сообщение
С&хема документа
Отобразить в&се знаки
&Справка: Microsoft Office Word
Соо&бщение (как вложение)...
&Сохранить
&Печать
&Вырезать
&Копировать
Вст&авить
&Формат по образцу
В&ыбрать имена...
&Файл...
Отобразить в&се знаки
&Справка: Microsoft Office Word
Справка
Переместить текст
Добавить автотекст
Повторить
Перейти...
Другая область
Правописание...
&Функциональная клавиша 8
Обновить поле
Перейти к меню
Следующее поле
Сохранить как...
Режим &конструктора
Сво&йства
Р&едактор сценариев
Фла&жок
Перекл&ючатель
Р&аскрывающийся список
&Список
&Поле
Т&екстовое поле
&Отправить
Отправить с изобра&жением
Сб&рос
Скр&ыть
&Пароль
&Фильм
&Звук
&Бегущая строка
Пе&ресчет
&Поздравление...
&Вступление...
&Заключение...
Вст&авить предыдущее поздравление
О&бновить
&Не обновлять
&Оглавление в рамке
Новая рамка с&лева
Новая рамка сп&рава
Новая рамка сверх&у
Новая рамка с&низу
Удалит&ь рамку
Сво&йства рамки...
&Сохранить
&Печать
&Вырезать
&Копировать
Вст&авить
Полу&жирный
&Курсив
Под&черкнутый
По &левому краю
По ц&ентру
По &правому краю
&Распределенный
С&лева направо
С&права налево
&Нумерация
&Маркеры
У&меньшить отступ
&Увеличить отступ
Пе&ревод
&Сохранить
&Печать
&Карта документа
Эскиз&ы
На&йти...
&Справочные материалы...
&Увеличить размер текста
У&меньшить размер текста
Вид при печа&ти
&Разрешить несколько страниц
&Закрыть
Разблокировать структуру документа
&Справка
С&инхронная прокрутка
Восстановить располо&жение окна
Сравнить р&ядом с...
&Ластик
Выбор объек&тов
Прекратит&ь стирание
&Ластик
Выбор объек&тов
&Разметка
Прекратит&ь стирание
&Перо
&Ластик
&Вырезать
&Копировать
Вст&авить
Удалить при&мечание
&Границы и заливка...
&Буквица...
&Вырезать
&Копировать
Вст&авить
Удалить при&мечание
&Шрифт...
Аб&зац...
&Стиль...
П&ерейти к концевой сноске
&Параметры сносок...
&Преобразовать в концевую сноску
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Поиск...
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
О&бновить поле
&Изменить поле...
&Коды/значения полей
&Шрифт...
Аб&зац...
С&писок...
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
&Изменить поле...
&Коды/значения полей
&Шрифт...
Аб&зац...
С&писок...
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
&Изменить поле...
&Коды/значения полей
У&меньшить отступ
&Увеличить отступ
&Шрифт...
Аб&зац...
С&писок...
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
&Свойства
&Шрифт...
Аб&зац...
С&писок...
С&ведения об адресе...
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Вырезать
&Копировать
Вст&авить
&Шрифт...
Аб&зац...
&Стиль...
П&ерейти к сноске
&Параметры сносок...
&Преобразовать в концевую сноску
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Поиск...
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
&Границы и заливка...
&Формат рамки...
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
У&меньшить отступ
&Увеличить отступ
&Шрифт...
Аб&зац...
С&писок...
С&ведения об адресе...
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Поиск...
Пе&ревод
В&ыделить текст, имеющий такой же формат
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
Об&ъект
&Шрифт...
Аб&зац...
С&писок...
&Поиск...
Пе&ревод
С&ведения об адресе...
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Вырезать
&Копировать
Вст&авить
Удалить при&мечание
&Добавить сценарий
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
&Начать заново
&Продолжить нумерацию
У&меньшить отступ
&Увеличить отступ
&Шрифт...
Аб&зац...
С&писок...
С&ведения об адресе...
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Поиск...
Пе&ревод
В&ыделить текст, имеющий такой же формат
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
Об&ъект
Отобразить пане&ль настройки изображения
&Границы и заливка...
&Название...
&Формат объекта...
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
Показать панель &инструментов полотна
&Название...
И&спользовать автоформат
&Формат объекта...
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
&Формат объекта...
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
&Добавить таблицу...
&Удалить ячейки...
Об&ъединить/разбить ячейки
Выровнят&ь высоту строк
Выровнять &ширину столбцов
&Границы и заливка...
&Направление текста...
&Свойства таблицы...
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
&Добавить таблицу...
&Удалить ячейки...
Об&ъединить/разбить ячейки
&Границы и заливка...
&Направление текста...
&Свойства таблицы...
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
&Добавить таблицу...
&Удалить ячейки...
&Нарисовать таблицу
&Границы и заливка...
Автофор&мат таблицы...
&Шрифт...
Аб&зац...
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
С&писок...
У&меньшить отступ
&Увеличить отступ
&Добавить таблицу...
&Удалить ячейки...
&Нарисовать таблицу
&Границы и заливка...
Автофор&мат таблицы...
Гип&ерссылка...
&Поиск...
Пе&ревод
&Шрифт...
Аб&зац...
&Направление текста...
С&ведения об адресе...
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
Об&ъект
&Границы и заливка...
&Название...
&Добавить таблицу...
&Удалить ячейки...
&Нарисовать таблицу
Автофор&мат таблицы...
Гип&ерссылка...
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
&Добавить таблицу...
&Удалить ячейки...
Об&ъединить/разбить ячейки
&Границы и заливка...
&Направление текста...
&Свойства таблицы...
С&писок...
С&ведения об адресе...
Гип&ерссылка...
&Поиск...
Пе&ревод
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
Об&ъединить/разбить ячейки
Выровнят&ь высоту строк
Выровнять &ширину столбцов
&Нарисовать таблицу
&Границы и заливка...
Автофор&мат таблицы...
&Название...
&Свойства таблицы...
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
Об&ъект
Выровнят&ь высоту строк
Выровнять &ширину столбцов
&Свойства таблицы...
&Нарисовать таблицу
&Границы и заливка...
Автофор&мат таблицы...
&Название...
&Вырезать
&Копировать
Вст&авить
Удалить при&мечание
&Шрифт...
Аб&зац...
С&писок...
Гип&ерссылка...
С&ведения об адресе...
&Поиск...
&Определение
Пе&ревод
В&ыделить текст, имеющий такой же формат
&Вырезать
&Копировать
Вст&авить
Удалить при&мечание
Об&ъект
&Шрифт...
Аб&зац...
С&писок...
С&ведения об адресе...
&Вырезать
&Копировать
Вст&авить
&Шрифт...
&Вырезать
&Копировать
Вст&авить
&Шрифт...
Аб&зац...
&Изменить
&Присвоить свойству формат окружающего текста
&Изменить
&Присвоить свойству формат выделенного фрагмента
&Орфография...
&Поиск...
С&ведения об адресе...
&Вырезать
&Копировать
Вст&авить
Удалить при&мечание
&Грамматика...
&Поиск...
С&ведения об адресе...
&Вырезать
&Копировать
Вст&авить
Удалить при&мечание
&Поиск...
&Вырезать
&Копировать
Вст&авить
Удалить при&мечание
&Вырезать
&Копировать
Вст&авить
Удалить при&мечание
В&ыделить текст, имеющий такой же формат
Скрыть &орфографические ошибки
Скрыть &грамматические ошибки
П&араметры...
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
Прин&ять исправление
&Отказаться от исправления
&Исправления
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
Сво&йства рамки...
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
Изменить &гиперссылку...
&Выделить гиперссылку
&Открыть гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Шрифт...
Аб&зац...
С&писок...
С&ведения об адресе...
&Электронная подпись...
Созд&ать автотекст...
С&хема документа
&Развернуть
&Свернуть
Отобразить заголовок &1
Отобразить заголовки 1 и &2
Отобразить заголовки 1 - &3
Отобразить заголовки 1 - &4
Отобразить заголовки 1 - &5
Отобразить заголовки 1 - &6
Отобразить заголовки 1 - &7
Отобразить заголовки 1 - &8
Отобразить заголовки 1 - &9
Все заг&оловки
&Вырезать
&Копировать
Скопировать ру&кописные данные как текст
Вст&авить
Удалить при&мечание
Изменит&ь текст
По ум&олчанию для автофигур
&Формат объекта...
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Вырезать
&Копировать
Скопировать ру&кописные данные как текст
Вст&авить
Удалить при&мечание
Начать изменение у&злов
&Разомкнуть кривую
Замкнуть криву&ю
Показать панель инструментов рукописн&ых данных и рисунков
Показать панель инструментов рукописн&ых примечаний
По ум&олчанию для автофигур
&Формат объекта...
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Добавить узел
&Удалить узел
&Разомкнуть кривую
Замкнуть криву&ю
&Автоузел
&Гладкий узел
&Прямой узел
Уг&ловой узел
Завершить изменение у&злов
По ум&олчанию для автофигур
&Формат объекта...
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Добавить узел
&Удалить сегмент
&Разомкнуть кривую
Замкнуть криву&ю
&Прямой сегмент
Искрив&ленный сегмент
Завершить изменение у&злов
По ум&олчанию для автофигур
&Формат объекта...
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Вырезать
&Копировать
Вст&авить
Удалить при&мечание
&Изменение рисунка
Отобразить пане&ль настройки изображения
По ум&олчанию для автофигур
&Формат объекта...
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Вырезать
&Копировать
Вст&авить
Удалить при&мечание
Показать панель &инструментов полотна
И&спользовать автоформат
&Формат объекта...
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Вырезать
&Копировать
Вст&авить
Удалить при&мечание
Об&ъект
Отобразить пане&ль настройки изображения
По ум&олчанию для автофигур
&Формат объекта...
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Вырезать
&Копировать
Вст&авить
Удалить при&мечание
Сво&йства
Ис&ходный текст
Об&ъект
&Формат объекта...
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Вырезать
&Копировать
Вст&авить
Удалить при&мечание
И&зменить текст...
Отобразить пане&ль WordArt
По ум&олчанию для автофигур
&Формат объекта...
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Вырезать
&Копировать
Вст&авить
Удалить при&мечание
&Завершить режим поворота
По ум&олчанию для автофигур
&Формат объекта...
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Вырезать
&Копировать
Вст&авить
&Изменить примечание
Удалить при&мечание
&Шрифт...
Аб&зац...
С&писок...
&Определение
С&ведения об адресе...
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Поиск...
Изменит&ь текст
Под&чиненный
&Коллега
&Помощник
&Удалить
И&спользовать автоформат
&Формат объекта...
Изменит&ь текст
&Добавить фигуру
&Удалить фигуру
И&спользовать автоформат
&Формат объекта...
&Вырезать
&Копировать
Вст&авить
Удалить при&мечание
&Прямая соединительная линия
Соединительна&я линия уступом
Скруг&ленная соединительная линия
Спрямить сое&динения
По ум&олчанию для автофигур
&Формат объекта...
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Исправления
&Область проверки
П&араметры...
Перевод на &китайский язык (упрощенное письмо)
Перевод на китайский язык (&традиционное письмо)
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
О&бновить поле
&Изменить блок адреса...
&Коды/значения полей
&Шрифт...
Аб&зац...
С&писок...
&Вырезать
&Копировать
Вст&авить
Вставить &таблицу
Удалить при&мечание
О&бновить поле
&Изменить строку приветствия...
&Коды/значения полей
&Шрифт...
Аб&зац...
С&писок...
&Вырезать
&Копировать
Вст&авить
Удалить при&мечание
Сво&йства
Ис&ходный текст
Об&ъект
&Формат объекта...
Гип&ерссылка...
Изменить &гиперссылку...
&Открыть гиперссылку
&Выделить гиперссылку
Копироват&ь гиперссылку
&Удалить гиперссылку
&Вырезать
&Копировать
Вст&авить
Удалить при&мечание
&Копировать
Вст&авить
Удалить при&мечание
&Другие автофигуры...
&Прямоугольная выноска
&Скругленная прямоугольная выноска
&Овальная выноска
&Выноска-облако
&Выноска 1
&Выноска 2
&Выноска 3
&Выноска 4
&Выноска 1 (с границей)
&Выноска 2 (с границей)
&Выноска 3 (с границей)
&Выноска 4 (с границей)
&Выноска 1 (без границы)
&Выноска 2 (без границы)
&Выноска 3 (без границы)
&Выноска 4 (без границы)
&Выноска 1 (граница и черта)
&Выноска 2 (граница и черта)
&Выноска 3 (граница и черта)
&Выноска 4 (граница и черта)
&Блок-схема: процесс
&Блок-схема: альтернативный процесс
&Блок-схема: решение
&Блок-схема: данные
&Блок-схема: типовой процесс
&Блок-схема: внутренняя память
&Блок-схема: документ
&Блок-схема: несколько документов
&Блок-схема: знак завершения
&Блок-схема: подготовка
&Блок-схема: ручной ввод
&Блок-схема: ручное управление
&Блок-схема: узел
&Блок-схема: ссылка на другую страницу
&Блок-схема: карточка
&Блок-схема: перфолента
&Блок-схема: узел суммирования
&Блок-схема: ИЛИ
&Блок-схема: сопоставление
&Блок-схема: сортировка
&Блок-схема: извлечение
&Блок-схема: объединение
&Блок-схема: сохраненные данные
&Блок-схема: задержка
&Блок-схема: память с посл. доступом
&Блок-схема: магнитный диск
&Блок-схема: память с прямым доступом
&Блок-схема: дисплей
Стрелка в&право
Стрелка в&лево
Стрелка в&верх
&Стрелка вниз
&Двойная стрелка влево/вправо
&Двойная стрелка вверх/вниз
&Счетверенная стрелка
&Тройная стрелка влево/вправо/вверх
&Стрелка углом
&Развернутая стрелка
&Двойная стрелка влево/вверх
&Стрелка углом вверх
&Выгнутая влево стрелка
&Выгнутая вправо стрелка
&Выгнутая вниз стрелка
&Выгнутая вверх стрелка
&Штриховая стрелка вправо
&Стрелка вправо с вырезом
П&ятиугольник
&Нашивка
&Выноска со стрелкой вправо
&Выноска со стрелкой влево
Выноска со стрелкой в&верх
&Выноска со стрелкой вниз
&Выноска со стрелками влево/вправо
&Выноска со стрелками вверх/вниз
&Выноска с четырьмя стрелками
&Круговая стрелка
&Пятно 1
&Пятно 2
&4-конечная звезда
&5-конечная звезда
&8-конечная звезда
&16-конечная звезда
&24-конечная звезда
&32-конечная звезда
&Лента лицом вверх
&Лента лицом вниз
&Круглая лента лицом вверх
&Круглая лента лицом вниз
&Вертикальный свиток
&Горизонтальный свиток
&Волна
&Двойная волна
&Линия
Стрелк&а
Д&вусторонняя стрелка
Крива&я
&Полилиния
&Рисованная кривая
Пр&ямоугольник
&Параллелограмм
&Трапеция
&Ромб
&Скругленный прямоугольник
&Восьмиугольник
&Равнобедренный треугольник
&Прямоугольный треугольник
&Овал
&Шестиугольник
&Крест
&Правильный пятиугольник
&Цилиндр
Ку&б
&Багетная рамка
&Загнутый угол
&Улыбающееся лицо
Кол&ьцо
&Знак запрета
&Арка
С&ердце
&Молния
Со&лнце
&Месяц
Ду&га
&Двойные круглые скобки
&Двойные фигурные скобки
&Табличка
&Левая круглая скобка
&Правая круглая скобка
&Левая фигурная скобка
&Правая фигурная скобка
&Прямая соединительная линия
&Прямая со стрелкой
&Прямая с двумя стрелками
Соединительна&я линия уступом
&Уступ со стрелкой
Уступ с д&вумя стрелками
Скруг&ленная соединительная линия
С&кругленная линия со стрелкой
С&кругленная линия с двумя стрелками
&Другие цвета заливки...
Способы &заливки...
Под&чиненный
&Коллега
&Помощник
&Другие цвета линий...
&Узорные линии...
черный
синий
красный
черный
синий
красный
желтый
бирюзовый
розовый
черный
синий
красный
черный
синий
красный
желтый
бирюзовый
розовый
черный
синий
красный
черный
синий
красный
желтый
бирюзовый
розовый
черный
синий
красный
черный
синий
красный
желтый
бирюзовый
розовый
Выровнять по &левому краю
Выровнять по ц&ентру
Выровнять по &правому краю
Выровнять по &верхнему краю
В&ыровнять по середине
Выровнять по &нижнему краю
Распределить по &горизонтали
Распределить по вер&тикали
&Относительно страницы
&Относительно полотна
Относитель&но организационной диаграммы
Относитель&но диаграммы
&Свободное вращение
Повернуть в&лево на 90°
Повернуть в&право на 90°
Отразить сл&ева направо
Отразить свер&ху вниз
На передни&й план
На &задний план
Переместить &вперед
Переместить &назад
Поместить п&еред текстом
Поместить з&а текстом
В&верх
В&низ
В&лево
В&право
Вне&шние границы
В&се границы
&Верхняя граница
Левая граница
Вну&тренняя горизонтальная граница
&Диагональная граница сверху вниз
&Горизонтальная линия...
&Внутренние границы
&Нет границы
Ни&жняя граница
Права&я граница
&Внутренняя вертикальная граница
&Диагональная граница снизу вверх
&Выровнять сверху по левому краю
&Выровнять сверху по центру
&Выровнять сверху по правому краю
&Выровнять по центру по левому краю
&Выровнять по центру
&Выровнять по центру по правому краю
&Выровнять снизу по левому краю
&Выровнять снизу по центру
&Выровнять снизу по правому краю
В &тексте
&Вокруг рамки
По &контуру
&За текстом
&Перед текстом
Св&ерху и снизу
&Сквозное
&Изменить контур обтекания
&Восстановить
П&ереместить
Раз&мер
&Свернуть
&Развернуть
&Закрыть
&Вызвать участника
&Удалить участников
&Разрешить совместное редактирование
Отобразить &окно разговора
Отобразить &доску
&Завершить собрание


Чёрт знает, что сюда strCaptionRequired = писать?
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785538
down up down
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
я посмотрю и напишу позже наверное уже завтра

только вопрос
надо запретить кноку или надо нажать кнопку?
насчет запрета могуть быть проблемы
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785543
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
down up downя посмотрю и напишу позже наверное уже завтра

только вопрос
надо запретить кноку или надо нажать кнопку?
насчет запрета могуть быть проблемы

запретить уже решено, чудо строка, краткость сестра ... Cancel = True
думал разрешить будет также скоро, не тут то было...
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785546
down up down
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
и куда писать эту
Cancel = True
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785552
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
down up down,
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private Sub App_WindowBeforeRightClick(ByVal Sel As Selection, Cancel As Boolean)

'отключаем обновление - дёргание экрана при выполнении кода
    Application.ScreenUpdating = False

    'выясняем в каком документе произошло событие
    If ThisDocFullName <> Application.ActiveDocument.FullName Then GoTo Конец

    'отмена вывода контекстного меню
    Cancel = True

    PrivateПеременная = 1

    'проверка на работоспособность
    'MsgBox$ _
     "1Класс qwerty - Нажата правая кнопка мыши - " & PrivateПеременная & " " & Selection.Text

Конец:

    'отменяем отключенное ранее обновление - дёргание экрана при выполнении кода
    Application.ScreenUpdating = True

End Sub
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785593
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Шокер хоть и называет меня бадминтоном, больше народу, ближе победа
Мне обычно нужна одна строка, вот она
Код: vbnet
1.
application.Dialogs(wdDialogFormFieldOptions).Show


http://www.cyberforum.ru/vba/thread566992.html#post3002573
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785611
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
катастрофа,
такого хотел ?
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785614
down up down
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
поставил 2003 ворд
почти все работает
действительно есть проблема с русскими буквами

дело в том что в коде бейсика нельзя использовать такую строку
strCaption="Свойства"

бейсик не юникодный поэтому он не понимает что в строке русские буквы "Свойства"
при этом strCaption юникодная
надо просто "Свойства" прочитать из источника который юникодный
для этого можно использовать
либо файл что плохо в данном случае
либо как-то закодировать строку

вот пример
StringToUnicode
преобразует строку как надо
кроме того я добавил фильтр по CommandBar.Name = "Forms"

Код: vbnet
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.
Option Explicit

Private Sub Sample01()
    Dim objApplication As Word.Application
    Dim objCommandBar As Office.CommandBar
    Dim objCommandBarButton As Office.CommandBarButton
    Dim objCommandBarControl As Office.CommandBarControl
    Dim strCaptionCurrent As String
    Dim strCaptionRequired As String
    

    strCaptionRequired = StringToUnicode("&Свойства")
    Set objApplication = Application
    For Each objCommandBar In objApplication.CommandBars
        If StrComp(objCommandBar.Name, "Forms", VbCompareMethod.vbTextCompare) = 0 Then
            For Each objCommandBarControl In objCommandBar.Controls
                If Not objCommandBarControl Is Nothing Then
                    If TypeOf objCommandBarControl Is Office.CommandBarButton Then
                        Set objCommandBarButton = objCommandBarControl                            
                        strCaptionCurrent = objCommandBarButton.Caption
                        'Debug.Print strCaption
                        If StrComp(strCaptionCurrent, strCaptionRequired, VbCompareMethod.vbTextCompare) = 0 Then
                            MsgBox "Ok"
                            'objCommandBarButton.Execute
                        End If
                    End If
                End If
            Next
        End If
    Next
End Sub

Private Function StringToUnicode(ByVal strSource As String, Optional ByVal lngLocaleId As Long = MsoLanguageID.msoLanguageIDRussian) As String
    Dim strRet As String
    

    If StringToUnicodeIsRequired(strSource) Then
        strRet = StrConv(StrConv(strSource, vbFromUnicode, MsoLanguageID.msoLanguageIDEnglishUS), vbUnicode, lngLocaleId)
    Else
        strRet = strSource
    End If
    
    
    StringToUnicode = strRet
End Function

Private Function StringToUnicodeIsRequired(ByVal strSource As String) As Boolean
    Dim lngIndexCurrent As Long
    Dim lngIndexEnd As Long
    Dim blnRet As Boolean
    
    
    blnRet = False
    lngIndexEnd = Len(strSource)
    For lngIndexCurrent = 1 To lngIndexEnd
        If AscB(Mid(strSource, lngIndexCurrent, 1)) > &H7F Then
            blnRet = True
            Exit For
        End If
    Next


    StringToUnicodeIsRequired = blnRet
End Function
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785618
down up down
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
авторкатастрофа
наконец-то
то что надо
да еще и одной строкой
...
Рейтинг: 0 / 0
Как сымитировать клик левой кнопкой мыши (API?)
    #37785714
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем спасибо за обсуждение
катастрофа[/src]
я так понимаю должно быть слово Шоу и Диалог

главное я ранее ошибся - хотел ведь написать
я так понимаю должно быть слово Шоу или Диалог
но оказалось верным
я так понимаю должно быть слово Шоу и Диалог
Код: vbnet
1.
application.Dialogs(wdDialogFormFieldOptions).Show
...
Рейтинг: 0 / 0
25 сообщений из 79, страница 3 из 4
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как сымитировать клик левой кнопкой мыши (API?)
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]