Initializing a static variable in VBA with non-default value -

-

VBA में स्थिर चर पर्याप्त सरल हैं: 

  सार्वजनिक उप foo () स्टेटिक मैं के रूप में पूर्णांक i = i + 1 डीबग। प्रिंट I end उप

आउटपुट (जब कई बार कहा जाता है): 

  1 2 3 ...

समस्या यह है कि, VBA घोषणा के रूप में एक पंक्ति पर एक चर को प्रारंभ करने का समर्थन नहीं करता है (: का उपयोग करके एक पंक्ति दो पंक्तियां रखने की गणना नहीं कर रहा है): 

  सार्वजनिक उप foo () Dim I जैसा पूर्णांक = 5 'संकलित नहीं होगा! डीएम जे एस इंटीजर जे = 5 'हमें इसके बजाय एंड सब   
 स्थिर चर के साथ यह संघर्ष करना है:  
  सार्वजनिक उप foo () स्टेटिक i पूर्णांक के रूप में 'हम यहां एक प्रारंभिक मूल्य नहीं डाल सकते हैं ... I = 5' तो यह है कि हम आम तौर पर इसे आरंभ करते हैं, लेकिन ... i = i + 1 डीबग। प्रिंट I end sub  < / Pre> 
 आप संभवतया देख सकते हैं कि क्या होता है - सबसे पहले चीज हर बार  foo  को बुलाया जाता है, इसे वापस 5 पर सेट किया जाता है। आउटपुट: 
 
  6 6 6 ...  
 
 आप अपने डिफ़ॉल्ट के अलावा किसी अन्य मान के लिए VBA में स्थिर वैरिएबल कैसे आरंभ कर सकते हैं? या यह सिर्फ वीबीए गेंद छोड़ने वाला है?

ऐसा करने का एक तरीका यदि आप स्थिर रखना चाहते हैं सिमेंटिक्स और ग्लोबल पर स्विच नहीं करना डिफ़ॉल्ट मान को सूंघना है और फिर प्रारंभिक स्थिति को सेट करना है: 

  स्थिरांक के रूप में स्थिरांक यदि (i = 0) तो मैं = 5   
 सुरक्षित वैकल्पिक शायद हो सकता है 
 
  स्थिर I as variant अगर isempty (i) तो मैं = 5  
 
 या 
 < पूर्व>  सार्वजनिक उप foo (बुलियन के रूप में वैकल्पिक init = false) स्टेटिक मैं पूर्णांक के रूप में यदि init तब I = 5 निकास उप endif

आप शायद एक डिफ़ॉल्ट के साथ एक वर्ग बना सकते हैं संपत्ति और class_initialize का उपयोग करें, लेकिन शायद यह थोड़ा अधिक उलझन भरा है।


Comments

Post a Comment

Popular posts from this blog

python - Strange behavior using PyQt4's 'pyqtSlot' decorator before another decorator -

-
I have a strange problem with using the QtCore.pyqtSlot decorator in front of the function decorated with a different decorator. The problem below shows this problem, it immediately provides a low QT program with a single button. When pressing a button, the following happens: (1) The signal 'signal_A' and 'signal_B' sequence are connected to method_A and method_B ​​respectively. (2) signal_A and signal_B signals are emitted. (3) The required behavior is that the method_A and method_B ​​are executed. However, it turns out that both signal_A and signal_B trigger method_A, or method_B ​​(oddly, this is nondeterministic, and different for each part of the program!). It appears to be a bug. This issue is present when PyQt4 binding is used in Qt. It is not present when using PySide (use the '-pyside' parameter to verify) I have seen both problems in Python 2 and 3, and both in Windows and Linux This issue is related to the insertion of a decorator be...
Read more

c# - UnhandledExceptionMode.ThrowException for AppDomain.UnhandledException -

-
I want to set unhandledExceptionMode.ThrowException for current AppDomain and not only for application threads. An exception from the second thread should also be handled by my current Donan_Unimated exception handler. Is it possible? Here's my code: Fixed class program {/// & lt; Summary & gt; Main entry point for the application /// & lt; / Summary & gt; [STAThread] static zero major () {applications Set unhandled exception mode (unwanted exception. Throws up); AppDomain.CurrentDomain.UnhandledException + = New UnrestrictedExceptionEndception (CurrentDomain_UnhandledException); Application.EnableVisualStyles (); Application.SetCompatibleTextRenderingDefault (wrong); Application.Run (New Form 1 ()); } Static Zero CurrentDomain_UnhandledException (Object Sender, UnhandledExceptionEventArgs E) {File.AppendAllText ("Log.txt", (Exception) e.ExceptionObject). Message + environment. Newline); }} Maybe you search for the behavior provided by Applic...
Read more

c# - Process.Kill() returns access denied -

-
I'm trying to kill a process using a CMD command line from my C # application, but when I start the application does not happen anything. .. When I try to kill with a command prompt, I get the message: "Access denied" I tried to run as my app administrator and the process was killed. How can I not always use "Run as administrator"? Code: System.Diagnostics.Process process = new System.Diagnostics.Process (); System.Diagnostics.ProcessStartInfo startInfo = New system. Diagnostics. Process STARTINFO (); StartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden; StartInfo.FileName = "cmd.exe"; StartInfo.Arguments = "/ C Tasky / F / IM APP.exe"; Process.start.info = startInfo; Process.start (); try it System.Diagnostics.Process Process = new system Diagnostics Process (); System.Diagnostics.ProcessStartInfo startInfo = New system. Diagnostics. Process STARTINFO (); StartInfo.WindowStyle = System.Diagnostics.ProcessWindowS...
Read more