Wat kun je met #If, #Const?

[Victorr99]

Beste helpmijers,

Wie weet wat je met #If, #Const kunt doen?

Alvast bedankt!

Mvg, Victor

 

[edmoor]

Kijk eens hier en dan met name onder het kopje Remarks:
https://msdn.microsoft.com/en-us/library/tx6yas69.aspx

 

[Victorr99]

Dus als ik het goed begrijp wordt #If enz. alleen gebruikt tijdens het debuggen of assembleren en is het dus niet onderdeel van de applicatie zelf.

 

[edmoor]

Het zijn Compiler Directives. Daarmee kan je bijvoorbeeld stukken code laten compileren afhankelijk van het platform waarvoor je het programma maakt. Het voordeel t.o.v. een standaard If en dergelijke is dat dan alleen de code voor het bedoelde platform in de executable aanwezig is. Maar zo kan je ook debug code opnemen die in de uiteindelijke executable niet aanwezig is. Het programma zelf bevat daardoor geen overbodige dingen.

 

[Victorr99]

Aaah oke.
Bedankt voor de extra uitleg.

 

[edmoor]

Klein voorbeeldje is misschien wel leuk. Dit gebruik ik zelf en er wordt getest of het Office 32- of 64-bit is:

Function E_dll() As String
    #If Win64 Then
        'Excel 2010 (64 bits)
        E_dll = ThisWorkbook.Path & "\DLL\E10.w64"
    #Else
        Select Case Val(Application.Version)
        'Excel 2010 (32 bits)
        Case Is >= 14:
            E_dll = ThisWorkbook.Path & "\DLL\E10.w32"
        
        'Excel 2007
        Case 12:
            E_dll = ThisWorkbook.Path & "\DLL\E7.w32"
        
        'Excel 2003 of lager
        Case Else
            E_dll = ThisWorkbook.Path & "\DLL\E3.w32"
        End Select
    #End If
End Function