Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.137.187.233] |
|
Сообщ.
#1
,
|
|
|
Хоть фича и старая, но я все-таки решил её выложить. Вы можете объявлять процедуры Windows API для 16- или 32-разрядных ОС (Только в VB4):
#If Win#32 then ' если 32-разрядная ОС Declare SomeApi.... #Else ' если запущена 16-разрядная ОС Declare SomeApi #End IF #If Win32 Then Dim lRc& lRc& = ReturnSomeNumber(35000) #Else Dim lRc% lRc% = ReturnSomeNumber(30000) #End If #If Win32 Then Private Function ReturnSomeNumber_ (lVar&) As Long ReturnSomeNumber = 399999 #Else Private Function ReturnSomeNumber_ (lVar%) As Integer ReturnSomeNumber = 30000 #End If End Function |