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

winforms - C# Form - Property Change -

-
I have a form that has a property named car A class with many properties. The Properties is being displayed on the current car on the basis of some user actions that are being displayed. So I have to know whether the property has been allocated or set to zero. I'm aware of INotifyPropertyChanged , but in my case I'm not sure that since this change I have changed my car properties car do not want to monitor the property. Any idea how to accomplish this? In advance thank you If you have created a true asset in your class then You should be a great and setter, you can add the code directly to the form property in order to take action on the basis of "form": Public partial category Form 1: form {public form 1 () {InitializeComponent (); } // define car square public class car {public string name = string. Empty; } // private car to keep the value of the current car private variable _car = null; // Property of public form which you can ru...
Read more

javascript - amcharts makechart not working -

-
I am trying to create an amiratars serial chart on my Durandal single page application. This chart was working fine on Chrome browser but it is not working on IE. Can you please help me in this regard. Error while using Amcharts. The Macchart () method does not support the object in this object in IE.
Read more

java - Algorithm negotiation fail SSH in Jenkins -

-
I am trying to do SSH on the local server from Jenkins, but the following error has been thrown: [SSH] Exception: Algorithm negotiation fail com.jcraft.jsch.JSchException: algorithm talk com.jcraft.jsch.Session.receive_kexinit (Session.javaatar20) at com.jcraft.jsch.Session.connect (Sesson at com.jcraft.jsch.Session.connect (Session.java:150) at org.jvnet.hudson.plugins.SSHSite.createSession (SSHSite.java:141) on failed failed org.jvnet.hudson.plugins. java: 286) .SSHS on org.jvnet.hudson.plugins.SSHBuildWrapper.executePreBuildScript (SSHBuildWrapper.java:75) on Org.jvnet.hudson.plugins.SSHBuildWrapper.setUp (SSHBuildWrapper.java59) ite.executeCommand (SSHSite.java151) on hudson.model.Build $ BuildExecution.doRun hudson.model.AbstractBuild $ AbstractBuildExecution.run (AbstractBuild.java:533) to (Build.java:154) hudson.model.Run.execute ( Run.java:1754) in ended .model.FreeStyleBuild.run (FreeStyl hudson.model.ResourceController.execute (ResourceController.java:89) on hudson.mod...
Read more