VPF::Работа программы на других ПК - Форум программистов

Scorpeon123

Дата 15.11.2006, 14:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

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

P.S. Пожалуйста обьесните поподробней

Naghual

Дата 15.11.2006, 15:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 26
Всего: 49

Создавать инсталяционные пакеты, включающие все необходимые файлы/библиотеки/компоненты необходимые программе.
Простой перенос EXE файла - не верное решение.

Добавлено @ 15:12
А подробнее - пользуйтесь поиском.
Вопрос уже неоднократно обсуждался и очень подробно.

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

Я желаю всем Счастья!

Scorpeon123

Дата 15.11.2006, 20:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Naghual,
я пробовал переносить, но там тоже чего то не хочет

Цитата(Naghual @ 15.11.2006, 15:12

)

Вопрос уже неоднократно обсуждался и очень подробно.

можешь кинуть ссылку?

mihanik

Дата 16.11.2006, 07:35 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Цитата(Scorpeon123 @ 15.11.2006, 20:50

)

можешь кинуть ссылку?

Не ленись! smile

Используй поиск по форуму!!! smile

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

Программистами не рождаются, - это родовая травма...

cardinal

Дата 16.11.2006, 12:41 (ссылка)

(нет голосов)

Загрузка ...

Инженер

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

Репутация: 19
Всего: 99

Например
http://vingrad.ru/VB-VB-002926

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

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

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

Scorpeon123

Дата 16.11.2006, 20:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

А вот еще один вопрос, вы все наверно знаете что на компе может быть не сколько пользователей, ну там допустим Work, Games, Internet и т.д. Так вот если я создам такого пользователя, то на нем будет считаться что установлен VB6 или можно будет спокойно тестить программы?

mihanik

Дата 17.11.2006, 08:36 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Scorpeon123,

Пожалуйста, один топик - один вопрос!!!

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

Программистами не рождаются, - это родовая травма...

JusTalionis

Дата 29.11.2006, 12:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 6
Всего: 17

Scorpeon123:
Вопрос темы обсуждался здесь:
http://www.forum.vingrad.ru/index.php?showtopic=104868
и здесь:
http://forum.vingrad.ru/topic-116420/view/all/index.html

Благодаря suvorr и mihanik, мой код теперь переработан (проверен также под XP):

Код


'     код модуля для открытия диалога выбора файлов
'--------------------------------------------------------------------------
Option Explicit

'Окна открытия и сохранения файлов Common Dialog

Type OpenFileName
    lStructSize         As Long
    hwndOwner           As Long
    hInstance           As Long
    lpstrFilter         As String
    lpstrCustomFilter   As String
    nMaxCustFilter      As Long
    nFilterIndex        As Long
    lpstrFile           As String
    nMaxFile            As Long
    lpstrFileTitle      As String
    nMaxFileTitle       As Long
    lpstrInitialDir     As String
    lpstrTitle          As String
    flags               As Long
    nFileOffset         As Integer
    nFileExtension      As Integer
    lpstrDefExt         As String
    lCustData           As Long
    lpfnHook            As Long
    lpTemplateName      As String
End Type
Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOPENFILENAME As OpenFileName) As Long
Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOPENFILENAME As OpenFileName) As Long

'--------------------------------------------------------------------------
Function OpenDialog$(Optional ByVal DefaultFile$, Optional ByVal MasksList$)
'            Функция получения имени файла для открытия.
'
' Вход: два необязательных аргумента.
' Первый аргумент - строка: предлагаемое имя файла (можно с путем).
' Второй аргумент - строка, список расширений,
'   разделенных запятыми, напр.: "Текстовые,*.txt,Все файлы,*.*"
'   (пробелы являются значащими).
'
' Возвращает: строка- полное имя выбранного файла (либо пустую строку при отмене).
' Длина имени файла - не более 218 символов. При превышении выдает пустую строку.
' Использует подпрограмму SplitFName.
' -----------------------------------------------------------------------------------

Dim OpenFile As OpenFileName, EndName As Integer, sFilter As String, strIniFolder As String

DefaultFile$ = Trim(DefaultFile$)    ' (иначе не откроется окно)

' Определение маски отображаемых файлов
If MasksList$ = "" Then
  sFilter = " " & Chr$(0) & "*.*" & Chr$(0)
Else
  sFilter = Replace(MasksList$, ",", Chr$(0)) + Chr$(0) 'замена запятых нулями.
End If

Call SplitFName(DefaultFile$, strIniFolder, DefaultFile$) ' разделение пути и имени

' Заполнение структуры для вызова функции GetOpenFileName
OpenFile.lStructSize = Len(OpenFile)
OpenFile.hwndOwner = 0
OpenFile.hInstance = 0
OpenFile.lpstrFilter = sFilter
OpenFile.nFilterIndex = 1
OpenFile.lpstrFile = Left$(DefaultFile$ + String$(255, 0), 255) + Chr$(0)
OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
OpenFile.lpstrFileTitle = OpenFile.lpstrFile
OpenFile.nMaxFileTitle = OpenFile.nMaxFile
OpenFile.lpstrInitialDir = strIniFolder
OpenFile.lpstrTitle = "Выбор файла"               ' заголовок окна
OpenFile.flags = 0

GetOpenFileName OpenFile                          ' вызов API

' Получаем полное имя файла
If InStr(OpenFile.lpstrFile, "\") = 0 Then
  OpenDialog$ = ""      'если имя файла было предложено, но отмена.
Else
  EndName = InStr(OpenFile.lpstrFile, Chr$(0))
  Select Case EndName
    Case 1:    OpenDialog$ = ""      '0 в первой позиции - имя не введено
    Case 0:    OpenDialog$ = ""      'слишком длинное имя
    Case Else: OpenDialog$ = Left$(OpenFile.lpstrFile, EndName - 1)
  End Select
End If

End Function

'--------------------------------------------------------------------------
Function SaveDialog$(Optional ByVal DefaultFile$, Optional ByVal MasksList$)
'            Функция получения имени файла для сохранения.
'
' Вход: два необязательных аргумента.
' Первый аргумент - строка: предлагаемое имя файла (можно с путем).
' Второй аргумент - строка, список расширений,
'   разделенных запятыми, напр.: "Текстовые,*.txt,Все файлы,*.*"
'   (пробелы являются значащими).
'
' Возвращает: строка- полное имя выбранного файла (либо пустую строку при отмене).
' Длина имени файла - не более 218 символов. При превышении выдает пустую строку.
' Использует подпрограмму SplitFName.
' -----------------------------------------------------------------------------------

Dim OpenFile As OpenFileName, EndName As Integer, sFilter As String, strIniFolder As String

DefaultFile$ = Trim(DefaultFile$)
If MasksList$ = "" Then
  sFilter = " " & Chr$(0) & "*.*" & Chr$(0)
Else
  sFilter = Replace(MasksList$, ",", Chr$(0)) + Chr$(0)
End If
Call SplitFName(DefaultFile$, strIniFolder, DefaultFile$)
OpenFile.lStructSize = Len(OpenFile)
OpenFile.hwndOwner = 0
OpenFile.hInstance = 0
OpenFile.lpstrFilter = sFilter
OpenFile.nFilterIndex = 1
OpenFile.lpstrFile = Left$(DefaultFile$ + String$(255, 0), 255) + Chr$(0)
OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
OpenFile.lpstrFileTitle = OpenFile.lpstrFile
OpenFile.nMaxFileTitle = OpenFile.nMaxFile
OpenFile.lpstrInitialDir = strIniFolder
OpenFile.lpstrTitle = "Сохранение файла"               ' заголовок окна
OpenFile.flags = 0

GetSaveFileName OpenFile                          ' вызов API

' Получаем полное имя файла
If InStr(OpenFile.lpstrFile, "\") = 0 Then
  SaveDialog$ = ""      'если имя файла было предложено, но отмена.
Else
  EndName = InStr(OpenFile.lpstrFile, Chr$(0))
  Select Case EndName
    Case 1:    SaveDialog$ = ""      '0 в первой позиции - имя не введено
    Case 0:    SaveDialog$ = ""      'слишком длинное имя
    Case Else: SaveDialog$ = Left$(OpenFile.lpstrFile, EndName - 1)
  End Select
End If

End Function


'--------------------------------------------------------------------------
Public Sub SplitFName(ByVal FileSpec$, ByRef varFilePath$, ByRef varFileName$)
'    Подпрограмма расщепления полного имени файла:
' Делит путь+имя на отдельные путь и имя файла.
' FileSpec$ - исходная строка: путь или имя или путь+имя файла
' varFilePath$ -приемная переменная: путь (строка)
' varFileName$ -приемная переменная: имя (строка)
' Все параметры обязательные, но могут быть пустыми строками.
' Исходная переменная может, в то же время, принимать результат.
' --------------------------------------------------------------------------
Dim tmp1 As Integer

varFilePath$ = ""
tmp1 = InStrRev(FileSpec$, "\")
' если есть слэш, значит задан путь
If tmp1 > 0 Then
 varFilePath$ = Left$(FileSpec$, tmp1)
  If tmp1 = Len(FileSpec$) Then
    FileSpec$ = ""  'обнуляем имя файла, если слэш на конце (путь без имени)
  Else
    FileSpec$ = Right$(FileSpec$, Len(FileSpec$) - tmp1)  ' удаляем путь из имени
  End If
End If
' исключения:
If Trim(FileSpec$) = "." Then FileSpec$ = ""
If Trim(FileSpec$) = ".." Then
  FileSpec$ = ""
  varFilePath$ = ".."
End If
varFileName$ = FileSpec$

End Sub
'-----------------------------------------------------------------------------

Код создан на основе кода, приведенного mihanik. Спасибо!

Пользуйтесь! smile

mihanik

Дата 29.11.2006, 13:00 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Цитата(JusTalionis @ 29.11.2006, 12:33

)

Код создан на основе кода, приведенного mihanik. Спасибо!

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

Программистами не рождаются, - это родовая травма...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »