Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Запуск проги 
:(
    Опции темы
neic
Дата 31.5.2005, 21:01 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Создал я одну тему не давно, не нашёл на форуме, ну да и всё равно не получил нормального ответа!

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

Корче:
В проекте (не скомпелированом) эти строки(см. ниже) выполняються

Код:
Shell App.Path & "\" & List1.Text & "\Setup.exe", vbHide


А в скомпелированом проекте (*.exe) эти строки невыполняються!
  Вверх
Naghual
Дата 31.5.2005, 21:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Перед этой строкой вставь такую:
Код
MsgBox App.Path & "\" & List1.Text & "\Setup.exe"


Откомпилируй приложение и посмотри что тебе покажет скомпиленная прога, и не скомпиленая.
smile


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Voldemar2004
Дата 1.6.2005, 12:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23
Цитата

А в скомпелированом проекте (*.exe) эти строки невыполняються!


И не удивительно. Вот и вкусный и полезный пример для тренировки:

на сайте http://www.vorbis.com стОит скачать несколько консольных утилит - там, где информация для девелоперов - пакет vorbis-tools-1.0.1-win32.zip.

ну две кнопки, Text1.Text, ComboBox
Код

Option Explicit

Private Sub Command1_Click()
Dim OggencEXE As String
Dim bitrate As String
Dim Path As String
Dim Value As Integer

' ну предположим ты скачал архив, а файл oggenc.exe лежит у тебя в
' "C:\Program files\My"
OggencEXE = "C:\Program files\My\" & "oggenc.exe"
bitrate = " --bitrate "
Value = Val(Combo1.Text) ' 64 или 128 например
Path = " " & Chr(34) & Text1.Text & Chr(34)
Shell (OggencEXE) & (bitrate) & (Value) & (Path), vbHide
End Sub

Private Sub Command2_Click()
CommonDialog1.Filter = "Sound Files (*.wav) |*.wav"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub


Смотри, что получится smile

Модератор: А все остальное, как Naghual и сказал, было не в тему!

Это сообщение отредактировал(а) cardinal - 1.6.2005, 20:05


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
Voldemar2004
Дата 2.6.2005, 18:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23
Извиняйте, тока стоит мне увлечься чем-то, так сразу забываю о чем начал говорить, больше не буду.


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
USSR_hacker
  Дата 2.6.2005, 22:35 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Ага! Вот она - ошибка. Я догадываюсь в чём проблема.

Не используй app.path, а используй вот это:
Код

Option Explicit
Public pp as string

Private Sub Form_Load()
    If Len(App.Path) = 3 Then pp = App.Path Else: pp = App.Path & "\"

End Sub


Path = app.path & "\File.txt"
------------------------------------------------------------------------------
Path = pp & "File.txt"

***

Обясняю: Когда мы пишем app.path & "\File.txt", если программа расположена в "C:\VB6\Projects", то нам возврщается C:\VB6\Projects\File.txt, а если она расположена в "C:\", C:\\File.txt.
Почему два \? Обратите внимание:
>>>>>>>> C:\ <<<<< в конце есть обратный слэш
>>> C:\Papka <<<<< в конце нет обратного слэша

Мой код добавляет к C:\Papka знак обратного слэша и не добавляет его к C:\, получяется C:\Papka\ .
  Вверх
cardinal
Дата 3.6.2005, 00:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Сделай просто так
Код

pp = IIf(Len(App.Path) = 3, App.Path, App.Path & "\")

в том месте программы, где надо и не пользуйся глобальными переменными, если можно и без этого...


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Black_Star
Дата 3.6.2005, 13:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 9.9.2003
Где: Minsk

Репутация: 4
Всего: 4
М-дя... я обычно пишу:
Код

ADR=app.path:if (right,1)<>"\" then ADR=ADR & "\"

ADR и есть полный путь к текущей папке...
PM ICQ   Вверх
cardinal
Дата 3.6.2005, 19:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Ну можно и так...
Код

pp = IIf(Right(App.Path,1)="\", App.Path, App.Path & "\")



--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
neic
Дата 6.6.2005, 16:09 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Проблема решена, в конце строки просто надо было поставить не vbHide, a vbNormalFocus
  Вверх
Exception
Дата 7.6.2005, 15:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186
Цитата(neic @ 6.6.2005, 17:09)
не vbHide

блина....
Цитата(neic @ 31.5.2005, 22:01)
эти строки невыполняються!

так они выполнялись!!!
просто окно было скрыто smile
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0849 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.