|
Платные хостинги
Раскрутка сайта
Книги по программированию
Запуск проги
- Перед этой строкой вставь такую:Код MsgBox App.Path & "\" & List1.Text & "\Setup.exe"highlightSyntax('vbjRmM2Z','vb');Откомпилируй приложение и посмотри что тебе покажет скомпиленная прога, и не скомпиленая.
- И не удивительно. Вот и вкусный и полезный пример для тренировки:на сайте http://www.vorbis.com стОит скачать несколько консольных утилит - там, где информация для девелоперов - пакет vorbis-tools-1.0.1-win32.zip.ну две кнопки, Text1.Text, ComboBoxКод Option ExplicitPrivate Sub Command1_Click()Dim OggencEXE As StringDim bitrate As StringDim Path As StringDim 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), vbHideEnd SubPrivate Sub Command2_Click()CommonDialog1.Filter = "Sound Files (*.wav) |*.wav"CommonDialog1.ShowOpenText1.Text = CommonDialog1.FileNameEnd SubhighlightSyntax('vbTg1Y2M','vb');Смотри, что получится Модератор: А все остальное, как Naghual и сказал, было не в тему! Это сообщение отредактировал cardinal - 1.6.2005, 20:05
- Извиняйте, тока стоит мне увлечься чем-то, так сразу забываю о чем начал говорить, больше не буду.
- Сделай просто такКод pp = IIf(Len(App.Path) = 3, App.Path, App.Path & "\")highlightSyntax('vbzQyNTB','vb');в том месте программы, где надо и не пользуйся глобальными переменными, если можно и без этого...
- М-дя... я обычно пишу:Код ADR=app.path:if (right,1)<>"\" then ADR=ADR & "\"highlightSyntax('vbMTgzMz','vb');ADR и есть полный путь к текущей папке...
- Ну можно и так...Код pp = IIf(Right(App.Path,1)="\", App.Path, App.Path & "\")highlightSyntax('vbGUyOGQ','vb');
- блина.... Цитата (neic @ 31.5.2005, 22:01)эти строки невыполняються!так они выполнялись!!!просто окно было скрыто
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
