Как сделать условную компиляцию -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.216.3]

Модераторы: SCINER, B.V.

Как сделать условную компиляцию

D[u]fa

Сообщ. #1 , 30.03.04, 17:32

Master

Рейтинг (т): 112

Хоть фича и старая, но я все-таки решил её выложить. Вы можете объявлять процедуры Windows API для 16- или 32-разрядных ОС (Только в VB4):

#If Win#32 then

' если 32-разрядная ОС

Declare SomeApi....

#Else

' если запущена 16-разрядная ОС

Declare SomeApi

#End IF

Эта же фича может работать не только с функциями Windows API, но и с Вашими собственными функциями:

#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

Сообщение отредактировано: B.V. - 15.07.07, 18:45

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0132 ] [ 15 queries used ] [ Generated: 15.09.25, 19:09 GMT ]