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

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

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

Модераторы: 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

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

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

[ Script execution time: 0,0197 ] [ 16 queries used ] [ Generated: 27.04.24, 21:37 GMT ]