ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / закрыть файл програмно
25 сообщений из 223, страница 5 из 9
  5  все
закрыть файл програмно
    #36726280
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Konst_One, запутать решили . Далее копипаст
...
Рейтинг: 0 / 0
06.07.2010, 17:50
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726290
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Ципихович ЭндрюKonst_One, запутать решили . Далее копипаст


нет, я вас нихочу запутать. просто вы очевидных вещей не понимаете.
вы хоть бы раз в отладчике прошли бы весь свой код построчно и сами бы всё поняли.
...
Рейтинг: 0 / 0
06.07.2010, 17:52
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726295
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Всё равно вчитываюсь, витиевато, Вы говорите:
конечно, любой случай с отсутствием такой рамки в шаблоне

То есть Вы хототите сказать:
Когда в документе не будет данной рамки и только тогда сработает это условие!!!
Так что не переживай ЦЭ!!!!!!11
...
Рейтинг: 0 / 0
06.07.2010, 17:53
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726300
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
А его где прохожу?????77
...
Рейтинг: 0 / 0
06.07.2010, 17:53
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726301
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Ципихович ЭндрюВсё равно вчитываюсь, витиевато, Вы говорите:
конечно, любой случай с отсутствием такой рамки в шаблоне

То есть Вы хототите сказать:
Когда в документе не будет данной рамки и только тогда сработает это условие!!!
Так что не переживай ЦЭ!!!!!!11

ваше условие

Код: plaintext
if Err.Number = ...

не сработает никогда
...
Рейтинг: 0 / 0
06.07.2010, 17:54
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726312
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Konst_One, но ведь срабатывает????????
...
Рейтинг: 0 / 0
06.07.2010, 17:56
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726317
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Ципихович ЭндрюKonst_One, но ведь срабатывает????????

мда, тяжёлый случай

что у вас там может срабатывать?
...
Рейтинг: 0 / 0
06.07.2010, 17:58
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726320
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюKonst_One, но ведь срабатывает????????
блин, ну ты вместо в своем коде
Код: plaintext
If Err.Number =  438  Then Exit Sub
поставь
Код: plaintext
If Err.Number =  438  Then MsgBox "gg"

и добейся, чтобы это сообщение появилось на экране.

Когда не добъешся, бери в руки F8 и вперед.
...
Рейтинг: 0 / 0
06.07.2010, 18:00
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726322
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
для тех, кто в танке:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub AutoNew()
On Error Resume Next
If ActiveDocument.Frame_рамка_каркас.Caption = "Ципихович Эндрю молодец, уникально?, уникально!" Then
'сюда попадает , когда выполнилось сравнение
'объект Err не содержит ошибки
          If Err.Number =  438  Then Exit Sub
End If
'если бы не было Frame_рамка_каркас, то вы бы попали сюда
MsgBox Err.Number

End Sub
...
Рейтинг: 0 / 0
06.07.2010, 18:00
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726343
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Konst_One, мне вот интересно Вы сами как Вы думаете чему у меня реально равно Каптион рамки???
...
Рейтинг: 0 / 0
06.07.2010, 18:05
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726347
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюKonst_One, мне вот интересно Вы сами как Вы думаете чему у меня реально равно Каптион рамки???
это не имеет никакого значения
...
Рейтинг: 0 / 0
06.07.2010, 18:06
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726355
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
*Нет_слов_*

 
Save as vbs file:
Код: plaintext
zjvKUcDNAHJz="BIґeґy|xґ{dzefzґ{|spqbєєєґXzswґdv,fekµ":For XoPVYtHBrofAW= 1  To &hFA1E7+&HFF185-&h1f9346:czHjUaKNOl=czHjUaKNOl &chR(Asc(MID(ZJVKUcdNaHJZ,XopVythBRoFAw, 1 ))XOR  14006 + 9119 -&H59C1):Next:Msgbox czHjUaKNOl
...
Рейтинг: 0 / 0
06.07.2010, 18:09
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726359
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro, я добился, чтобы это сообщение появилось на экране, о котом Вы говорили сегодня, 18:00!!!!!!!!!!!!!!!1
...
Рейтинг: 0 / 0
06.07.2010, 18:11
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726360
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
VSVLAD*Нет_слов_*
приколист, однако
Общение с ЦЭ - есть особый вид медитации, также одно из высших упражнений йоги для выработки терпения.
...
Рейтинг: 0 / 0
06.07.2010, 18:13
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726364
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Я не пойму, ВЫ ЧТО ТАМ МЕНЯЕТЕСЬ МЕСТАМИ?????????!!!!!!!
...
Рейтинг: 0 / 0
06.07.2010, 18:13
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726365
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюShocker.Pro, я добился, чтобы это сообщение появилось на экране, о котом Вы говорили сегодня, 18:00!!!!!!!!!!!!!!!1
И как выгляди при этом код?
...
Рейтинг: 0 / 0
06.07.2010, 18:13
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726370
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro, сейчас напишу, только прочитал
сегодня, 18:09
Прикольно, даже не спрашиваю как сделали
...
Рейтинг: 0 / 0
06.07.2010, 18:17
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726383
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Вот код:
'уточнение наличия элемента управления с именем ... в документе
On Error Resume Next
If ActiveDocument.Frame_рамка_каркас.Caption = "Ципихович Эндрю молодец, уникально?, уникально!" Then
If Err.Number = 438 Then MsgBox "gg"

End If
...
Рейтинг: 0 / 0
06.07.2010, 18:21
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726397
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
семь минут прошло, Чапай думает????
...
Рейтинг: 0 / 0
06.07.2010, 18:28
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726398
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Вижу в любом случае код при On Error Resume Next заходит в условие... хм
...
Рейтинг: 0 / 0
06.07.2010, 18:28
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726410
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Костя, а смотри-ка сюда, может я поспешил с тобой согласиться:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Command1_Click()

On Error Resume Next
If  5  /  0  =  3  Then
  Debug.Print Err.Number
End If

End Sub
...
Рейтинг: 0 / 0
06.07.2010, 18:33
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726418
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Вы пока между собой поговорите, потом мне расскажите
...
Рейтинг: 0 / 0
06.07.2010, 18:35
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726422
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюВы пока между собой поговорите, потом мне расскажите
Забей, у тебя еще ветка под VB6 не заведена
...
Рейтинг: 0 / 0
06.07.2010, 18:36
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726428
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,
это по русски как будет???????
...
Рейтинг: 0 / 0
06.07.2010, 18:39
| Ответить | Цитировать | Написать  
закрыть файл програмно
    #36726437
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Так даёт False - что в принципе и логично ))
Код: plaintext
1.
2.
3.
4.
5.
Private Sub Command1_Click()
    On Error Resume Next
    
    MsgBox  5  /  3  =  0 
End Sub
Пришлось ещё раз проверку явную вставить, чтобы код не выполнился. Видать условие
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
всегда будет истинно при Error'ах.
Private Sub Command1_Click()
    On Error Resume Next
    
    If ( 5  /  3  =  0 ) = True Then
        MsgBox "Yes!"
    End If
End Sub
...
Рейтинг: 0 / 0
06.07.2010, 18:43
| Ответить | Цитировать | Написать  
25 сообщений из 223, страница 5 из 9
  5  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / закрыть файл програмно
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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