Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=49889&view=findpost&p=328015 Tue, 30 Mar 2004 17:32:54 +0000 Как сделать условную компиляцию https://forum.sources.ru/index.php?showtopic=49889&view=findpost&p=328015
    #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
]]> Dufa Среда VB, компилятор, отладчик, редактор