Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Rantime or Design? / 4 сообщений из 4, страница 1 из 1
21.09.2005, 17:43:11
    #33282141
Rivkin Dmitry
Rivkin Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rantime or Design?
В Аксе легко можно определить как запущена программа - в рантайме или в дизайне.
А можно ли определить в бейсике, как она запущена?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.09.2005, 18:00:05
    #33282211
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rantime or Design?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" 
          (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long

Public Function IDEMode() As Boolean
    Dim strFileName As String
    Dim lngCount As Long

    strFileName = String$( 255 ,  0 )
    lngCount = GetModuleFileName(App.hInstance, strFileName,  255 )
    strFileName = Left$(strFileName, lngCount)

    IDEMode = UCase$(Right$(strFileName,  7 )) = "VB6.EXE"
    
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.09.2005, 18:50:20
    #33282323
Rivkin Dmitry
Rivkin Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rantime or Design?
Спасибо огромное! Проверил - работает отлично. Надеюсь, не у меня одгого такая проблема... :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2005, 12:21:34
    #33283285
Processor
Processor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rantime or Design?
Кроме того, есть встроенные свойства IDE:
Project Properites-->Make-->Conditional Compilation Arguments.
В своих проектах я создаю логическую переменную уровня компиляции RunFromIDE,
в зависимости от требований отладки присваиваю 0 или -1,
а в коде прогораммы проверяю. Например:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
#If RunFromIDE = True Then
'=============================================================
    ThisComputerName = "DEVELOPER"
#Else
'=============================================================
   ThisComputerName = OSInfo.ComputerName
'=============================================================
#End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Rantime or Design? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 282ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2167142]:
 0ms
get settings:
 6ms
get forum list:
 16ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 21ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 195ms
total:  282ms
x
x
Закрыть


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