Hata Ayıklama Modu VB 6'da mı?

Question

VB 6'da aşağıdaki C koduna benzer bir şeyi nasıl yapabilirim?

#ifdef _DEBUG_ 
    // do things 
#else 
    // do other things 
#end if 

Answer 1

Alışık olduğunuz diğer dillerle hemen hemen aynı. sözdizimi şu şekildedir:

#If DEBUG = 1 Then 
    ' Do something 
#Else 
    ' Do something else 
#End If 

kişiyi ne zaman sözdizimi derleme zamanı şart pound ile başlar dışında tam VB 6 diğer akış kontrol deyimleri aynı olduğunu hatırlarsanız hatırlamak kolay işareti (#).

Hile aslında DEBUG (veya her neyse) sabitini tanımladığından, varsayılan olarak tanımlı olmayan bir tane olduğundan eminim.

1. her kaynak dosyasının en üstünde sabit tanımlamak için #Const anahtar kelime kullanın: bunu yapmanın iki standart yolu vardır. Bu şekilde oluşturduğunuz tanım tüm kaynak modülü boyunca geçerlidir. Projenin özelliklerinde sabit Set

   #Const DEBUG = 1 
   

2. : Aşağıdaki gibi bir şey olmazdı. Bu, tüm proje boyunca geçerli bir sabit tanımlayacaktır (ve muhtemelen bir "Hata Ayıklama" modu göstergesi için istediğinizdir).

   Bunu yapmak "Proje Özellikleri" iletişim kutusunun "yapma" sekmesinde "Koşullu Derleme Sabitler" metin kutusuna aşağıdaki gibi bir şey girmek için:

   DEBUG = 1 
   

   

   yapabilirsiniz

   DEBUG = 1 : VERSION2 = 1 
   

: iki nokta üst üste ( :) ile bunların her birini ayıran bu iletişim birden fazla sabit tanımlayabilir

olan herhangi sabit değil Cody koşullu derleme sana söyledi 0.

Answer 2

olarak kabul edildiği maddedir unutmayın. IDE'de hata ayıklama yaparken farklı davranışlar istiyorsanız (ör. IDE'nin hataları yakalaması için kendi hata işleminizi kapatırsanız) 'un koşullu derlemesine gereksinim duymadığını eklemek isterim. IDE'yi bu gibi çalışma zamanında tespit edebilirsiniz.

On Error Resume Next 
Debug.Print 1/0 
If Err=0 then 
    'Compiled Binary 
Else 
    'in the IDE 
End if 

Bu, Debug.Print'in derlenmiş EXE dosyasında kullanılmadığı için çalışır.

• DÜZENLEME On Error Resume Next kapatmayı unutmayın! Sen this (teşekkürler CraigJ) gibi bir fonksiyonu check sarabilirsiniz
• DÜZENLEME

Answer 3

MarkJ aynı etkiyi elde etmek için, ama hata işleme, aşağıdaki kodu kullanabilirsiniz.IDE içinde çalışan

Public Function GetRunningInIDE() As Boolean 

    Dim x As Long 
    Debug.Assert Not TestIDE(x) 
    GetRunningInIDE = x = 1 

End Function 

Private Function TestIDE(x As Long) As Boolean 

    x = 1 

End Function 

, (gülünç küçük) bir işlevi çağıran ekstra havai olacaktır. Derlendiğinde, bu basit bir sayı karşılaştırması için değerlendirir.

Answer 4

Bu benim kısa ve tutarlı kodum. Şartlı sabitlerden daha iyi olduğunu düşünüyorum çünkü her komplikasyon süresini değiştirmenize gerek yok.

Public Function InIDE() As Boolean 
    On Error Resume Next 
    Debug.Print 0/0 
    InIDE = Err.Number <> 0 
End Function