ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
20 сообщений из 20, страница 1 из 1
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37937421
alm2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alm2
Участник
Проект на Visual Basic 6


Если запускать из среды Visual Basic - то все работает без ошибок.

Но если построить EXE файл и запустить его - то в одном месте - ошибка - см файл

Пошаговое выполнение ничего не дает - как я указал выше - при запуске в среде VB все работает.

В чем причина ???
...
Рейтинг: 0 / 0
30.08.2012, 16:15
| Ответить | Цитировать | Написать  
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37937431
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
без исходного кода вашего проекта (хотя бы процедуры Main()) ничего нельзя сказать
...
Рейтинг: 0 / 0
30.08.2012, 16:18
| Ответить | Цитировать | Написать  
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37937434
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Можно максимально вычленить код, при котором будет наблюдаться данный глюк и выложить в виде проекта?
...
Рейтинг: 0 / 0
30.08.2012, 16:19
| Ответить | Цитировать | Написать  
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37938338
alm2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alm2
Участник
Стал упрощать, чтобы локализовать ошибку.
На форме сделал ОДНУ кнопку :


-------------------------------------------
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Command1_Click()

MsgBox (" перед UNLOAD")

    Unload Me


MsgBox (" после UNLOAD")

End Sub


-------------------------------------------

При работе EXE файла - при нажатии на кнопку -
1) появляется сообщение " перед UNLOAD")
2) затем сообщение об ОШИБКЕ (я отправлял ранее)
3) появляется сообщение " после UNLOAD")
и програма ВИСИТ - пока не снять в диспетчере задач


Вызов формы из процедуры:
---------------------------------------------------------------------
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Private Sub Command3_Click()

.....

        Else

     
            Load FormProba       ' загружаю форму для выбора
            FormProba.Show vbModal



Me.Label24.Caption = seek_lpu.lpuSDC_Code_tmp_
LpuSdc_code_K = seek_lpu.lpuSDC_Code_tmp_        ' КОД ЦЕНТРА
Me.Label25.Caption = seek_lpu.lpuSDC_Name_tmp_
Ndogovor_K = seek_lpu.Ndogovor_tmp_

.....

End Sub




---------------------------------------------------------------------
Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
31.08.2012, 11:03
| Ответить | Цитировать | Написать  
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37938353
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
alm2
Код: vbnet
1.
2.
3.
4.
5.
6.
MsgBox (" перед UNLOAD")

    Unload Me


MsgBox (" после UNLOAD")

а вот не надо таких фокусов выделалывать

после Unload Me может быть только End Sub или Exit Sub, не должно быть кода формы после выгрузки формы

если очень хочется, можно так
Код: vbnet
1.
2.
3.
4.
5.
MsgBox (" перед UNLOAD")
Me.Visible = False
MsgBox (" после UNLOAD")
Unload Me
End Sub
...
Рейтинг: 0 / 0
31.08.2012, 11:11
| Ответить | Цитировать | Написать  
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37938380
alm2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alm2
Участник
В кнопке выхода из формы:
Private Sub Command1_Click()
Unload Me
End Sub



Вызов формы:

Private Sub Command3_Click()
Dim Nresult_ As Integer

If Me.Label23.Caption <> "" Or (iniVID_ARM = cnsVidArmOKX Or iniVID_ARM = cnsVidArmPato Or iniVID_ARM = cnsVidArmProcKab) Then


If Nresult_ = vbYes Then

Seek_Lpu_Sdc_K
Me.Label24.Caption = LpuSdc_code_K
Me.Label25.Caption = LpuSdc_name_K
Text6.SetFocus
Else



Load FormProba
FormProba.Show vbModal

MsgBox ("òî÷êà 1")

End If

End If

End Sub


Ошиибка при запуске EXE остается. В чем причина ???
...
Рейтинг: 0 / 0
31.08.2012, 11:25
| Ответить | Цитировать | Написать  
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37938392
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Так, еще раз настоятельно прошу прочитать FAQ по оформлению кода.

Выложи плиз глючный проект, чтобы мне не воспроизводить заново все эти формы и метки
...
Рейтинг: 0 / 0
31.08.2012, 11:30
| Ответить | Цитировать | Написать  
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37938403
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Даже лучше приложить процедуры в форме
Код: sql
1.
2.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Private Sub Form_Unload(Cancel As Integer)
...
Рейтинг: 0 / 0
31.08.2012, 11:33
| Ответить | Цитировать | Написать  
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37938424
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: 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.
Private Sub Command1_Click()
On error resume next
	Unload Me
End Sub




Private Sub Command3_Click()
On Error Goto err_debug

Dim Nresult_ As Integer

If Me.Label23.Caption <> "" Or (iniVID_ARM = cnsVidArmOKX Or iniVID_ARM = cnsVidArmPato Or iniVID_ARM = cnsVidArmProcKab) Then


If Nresult_ = vbYes Then

Seek_Lpu_Sdc_K
Me.Label24.Caption = LpuSdc_code_K
Me.Label25.Caption = LpuSdc_name_K
Text6.SetFocus
Else



Load FormProba
FormProba.Show vbModal

MsgBox ("&#242;&#238;&#247;&#234;&#224; 1")

End If

End If
lb_out:
	exit sub
err_debug:
	Msgbox Err.Number & ": " & Err.Description, vbCritical
	resume lb_out
End Sub
...
Рейтинг: 0 / 0
31.08.2012, 11:41
| Ответить | Цитировать | Написать  
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37938446
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Shocker.Proalm2
Код: vbnet
1.
2.
3.
4.
5.
6.
MsgBox (" перед UNLOAD")

    Unload Me


MsgBox (" после UNLOAD")

а вот не надо таких фокусов выделалывать

после Unload Me может быть только End Sub или Exit Sub, не должно быть кода формы после выгрузки формы

если очень хочется, можно так
Код: vbnet
1.
2.
3.
4.
5.
MsgBox (" перед UNLOAD")
Me.Visible = False
MsgBox (" после UNLOAD")
Unload Me
End Sub

Почему это не должно быть да еще красным цветом? Вполне может. Просто этот код не должен вызывать объекты или свойства самой формы — это приведет к ее повторной загрузке. MsgBox после Unload ни на что не влияет.
...
Рейтинг: 0 / 0
31.08.2012, 11:54
| Ответить | Цитировать | Написать  
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37938571
alm2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alm2
Участник
Причина скорее всего не в коде программы - она ведь работает из среды VB !!

А построенный EXE файл - выдает ошибку при тех же исходных данных.

Причина в другом , не могу найти ...
...
Рейтинг: 0 / 0
31.08.2012, 12:33
| Ответить | Цитировать | Написать  
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37938577
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
ещё раз: сделайте в своём проекте во всех функциях обработку ошибок.
и отладьте нормально с логированием в файл, например.
...
Рейтинг: 0 / 0
31.08.2012, 12:35
| Ответить | Цитировать | Написать  
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37938581
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
alm2,

Так дай уже проект в конце концов. Быстрее самим найти, чем переписываться предположениями.
...
Рейтинг: 0 / 0
31.08.2012, 12:36
| Ответить | Цитировать | Написать  
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37938598
alm2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alm2
Участник
Shocker.Proalm2,

Так дай уже проект в конце концов. Быстрее самим найти, чем переписываться предположениями.


Проект слишком большой+ база на SQL
...
Рейтинг: 0 / 0
31.08.2012, 12:43
| Ответить | Цитировать | Написать  
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37938606
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Тогда очищай форму до тех пор пока ошибка не перестанет возникать.
...
Рейтинг: 0 / 0
31.08.2012, 12:45
| Ответить | Цитировать | Написать  
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37938612
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
alm2Проект слишком большой+ база на SQLА я и не прошу весь проект - минимизируй до минимального неработающего состояния. Я думал, ты уже сделал это, раз приводишь фрагменты кода.

с 90% вероятностью, при урезании проекта - сам найдешь ошибку.
...
Рейтинг: 0 / 0
31.08.2012, 12:47
| Ответить | Цитировать | Написать  
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37938873
alm2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alm2
Участник
Нашел причину - но не понятно почему такой эффект в EXE варианте:

если закомментировать строку

MSGBOX(" Текст ")

- то начинает работать
...
Рейтинг: 0 / 0
31.08.2012, 14:43
| Ответить | Цитировать | Написать  
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37938896
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
вывод поверх модальной формы?
...
Рейтинг: 0 / 0
31.08.2012, 14:55
| Ответить | Цитировать | Написать  
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37938905
alm2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alm2
Участник
В модальной форме есть кнопка

в ней вызывается функция в которой MSGBOX()

Если так нельзя - чем заменить ?



А почему работает в среде VB ?
...
Рейтинг: 0 / 0
31.08.2012, 14:59
| Ответить | Цитировать | Написать  
Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
    #37938952
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Можно.
Мы переливаем из пустого в порожнее. пока не будет нерабочего фрагмента кода, мы ничего не решим.
...
Рейтинг: 0 / 0
31.08.2012, 15:22
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Если запускать из среды Visual Basic - то работает без ошибок -Но если построить EXE ...
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37937421&tid=2157474]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 60ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 17ms
total:  166ms
созд. / загр.: 166ms
x
x
Закрыть


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