excel - Is it possible to change the type of a variable or function in VBA during runtime? -


i riddling if possible conditionally switch type of function or variable between enum types.

something this:

public enum enmtest   ea = 1   eb = 2   ec = 3 end enum  public enum enmdemo   ea = 10   eb = 50   ec = 100 end enum  public function demofunction() enmdemo   dim edemo enmdemo   redim edemo enmtest   redim demofunction enmdemo           end function  'this not work, there no way make work? public sub test()   debug.print demofunction().ea 'should 1 end sub  'this not work, there no way make work? public sub test2   dim temp variant   temp = demofunction()   debug.print temp.eb 'should 2 end sub

basically goal have variable dim myvar might enuma or enumb type. these enums might identicall, except values.

my guess won't work @ no angle, because of way vba handles enums. make sure explanation, have gut feeling after hour of experimenting.

my current workaround, demonstrates goal:

public enum enmtest   ea = 1   eb = 2   ec = 3 end enum  public enum enmdemo   ea = 10   eb = 50   ec = 100 end enum  public function demo()   debug.print str(getvalues(1)(1))   'prints 1   debug.print str(getvalues(2)(1))   'prints 10 end function  public function getarray(val1, val2, val3) variant   dim result variant   redim result(1 3)   result(1) = val1   result(2) = val2   result(3) = val3   getarray = result end function  public function getvalues(myint integer) variant   if (myint = 1)     getvalues = getarray(enmdemo.ea, enmdemo.eb, enmdemo.ec)   else     getvalues = getarray(enmtest.ea, enmtest.eb, enmtest.ec)           end if end function

the best can offer custom conversion function each enum type. although echo dans comment: consider why want this.

' write 1 of these each conversion want function casttodemo(byref v enmtest) enmdemo     select case v         case enmtest.ea             casttodemo = enmdemo.ea         case enmtest.eb             casttodemo = enmdemo.eb         case enmtest.ec             casttodemo = enmdemo.ec     end select end function  ' use public sub test()     dim enmtest     dim b enmdemo      = enmtest.ea      b = casttodemo(a)      debug.print b end sub

Comments

Post a Comment

Popular posts from this blog

javascript - RequestAnimationFrame not working when exiting fullscreen switching space on Safari -

request animation frame stops working when exiting fullscreen clicking on original space's safari window. fine if fullscreen mode canceled escape key or calling cancelfullscreen(). steps reproduce: open https://dl.dropboxusercontent.com/u/769042/prezi/safari-fullscreen.html click "draw raf", kittie appears click "fullscreen", go fullscreen click "draw raf", kittie appears go space original safari was, showing "click exit fullscreen mode", click anywhere, out fullscreen click "draw raf", nothing happens what handling click calling: window.requestanimationframe(draw); which draws on canvas context: function draw() { ctx.drawimage(img, math.random()*500|0, math.random()*400|0, 100, 100); } i checked .hidden , .visibilitystate, updated correctly. tested on osx 10.9.3, safari 7.0.4 (9537.76.4). has workaround/solution other switching old settimeout? this sounds webkit bug 88940 : using reque...
Read more

jsf - How to ajax update an item in the footer of a PrimeFaces dataTable? -

this visual of table have: +---------+------------+-------------------+ | header1 | header2 | header3 | +---------+------------+-------------------+ | row | input | calc'ed output | | row b | input b | calc'ed output b | | etc.. | etc.. | etc.. | +---------+------------+-------------------+ | total: total calc'ed output | +------------------------------------------+ and stripped-down code: <p:datatable id="mytable" value="#{mybean.somelist}" var="currentitem"> <p:column headertext="header1"> <h:outputtext value="#{currentitem.name}" /> </p:column> <p:column headertext="header2"> <pe:inputnumber value="#{currentitem.inputval}"> <p:ajax event="change" listener="#{mybean.changelistener}" update="outputval outputtotal...
Read more

django - CSRF verification failed. Request aborted. CSRF cookie not set -

error: reason given failure: csrf cookie not set. in general, can occur when there genuine cross site request forgery, or when django's csrf mechanism has not been used correctly. post forms, need ensure: browser accepting cookies. view function uses requestcontext template, instead of context. in template, there {% csrf_token %} template tag inside each post form targets internal url. if not using csrfviewmiddleware, must use csrf_protect on views use csrf_token template tag, accept post data. you're seeing section of page because have debug = true in django settings file. change false, , initial error message displayed. can customize page using csrf_failure_view setting. did find, nothing helped, must foolish(( my template <form method="post">{% csrf_token %} {% field in form %} <div class="control-group"> {{ field }} </div> {% endfor %} <input type=...
Read more