excel vba - Class of a Class -



excel vba - Class of a Class -

i'm getting killed trying create class of class. have shopped around site , seen several examples maybe because 1:43 having hard time understanding them.

i able utilize class automate huge info entry project @ work. created class called catdist category distribution of types of agricultural products company manufacture or sell.

catdist contains 6 properties: private selfworth string private q1 double private q2 double private q3 double private q4 double private activated boolean

they have standard , allow codes.

there 48 possible categories. have module creates 48 instances of them 48 different values selfworth (e.g "cottonseed", or "maize" etc), , sets q1 through q4 0 . module worked userform type in values , nail enter. if saw had entered value within particular textbox (yes there 48x4 textboxes) set activated true , changes relevant q's values entered.

what want now.

it great success. want create class called "distributor". each distributor class have 4 collections have catdist objects. can create distributor class. can create catdist class. love of god can not figure out way set corresponding distributor catdist property catdist value used in set method.

sub testregist() dim registrant testregistrant set registrant = new testregistrant registrant.registnum = "z000123" 'msgbox (registrant.registnum) dim cowmilk testcatdist set cowmilk = new testcatdist cowmilk.selfworth = "cow milk" cowmilk.distribution = 4.6 registrant.testcat = cowmilk debug.print registrant.testcat.selfworth end sub

catdist class

private pselfworth string private pdistribution double public property selfworth() string selfworth = pselfworth end property public property allow selfworth(name string) pselfworth = name end property public property distribution() double distribution = pdistribution end property public property allow distribution(dist double) pdistribution = dist end property

registrant a.k.a distributor class

private pregistnum string private pcatdist testcatdist public property registnum() string registnum = pregistnum end property public property allow registnum(registration string) pregistnum = registration end property public property testcat() testcatdist testcat = pcatdist end property public property allow testcat(cat testcatdist) set pcatdist = new testcatdist pcatdist = cat end property

the problem see using let instead of set. in vba utilize set when assigning objects.

when write registrant.testcat = cowmilk (in sub), testcat = pcatdist (in getter of testregistrant.testcat) , pcatdist = cat (in setter of testregistrant.testcat) implicitly using let (it's if had written let registrant.testcat = cowmilk) instead of (explicitly) using set.

so, if write set registrant.testcat = cowmilk in test sub, set testcat = pcatdist in getter , set pcatdist = cat in setter should go.

also, in same setter, initialization of pcatdist isn't needed since passing cat in next line.

and, @gserg (thank you) says, signature of setter should public property set testcat(cat testcatdist) instead of public property let.

class excel-vba

Comments

Post a Comment

Popular posts from this blog

Delphi change the assembly code of a running process -

Delphi change the assembly code of a running process - i'm trying alter address 00741fa5 has push test.009e721c . alter push test.009e71c8 . procedure callback; asm force $9e71c8 end; procedure tform2.btn1click(sender: tobject); var ppid :dword; pprocess : cardinal; begin getwindowthreadprocessid(findwindow(nil,pchar('test')), @ppid); pprocess := openprocess(process_all_access, false, ppid); injectasm(pprocess, $741fa5, 10, integer(@callback), 0); end; here injectasm function (with error checking) function injectasm(process: longword; injectaddress, injectsize, codeaddress, codesize : integer): pointer; var csize, rsize : integer; replaced : array of byte; jmp : array [0..4] of byte; jmpaddress : integer; nopv : byte; : integer; nbr: ulong_ptr; begin //injectsize must equal or greater 5, because need space our //(far) jmp wwxxyyzz instruction //if there's no space, inject in place of few instructions if injectsize ...
Read more

json - Hibernate and Jackson (java.lang.IllegalStateException: Cannot call sendError() after the response has been committed) -

json - Hibernate and Jackson (java.lang.IllegalStateException: Cannot call sendError() after the response has been committed) - hello have problem hibernate , jackson. have 2 pojos @entity @table(name = "users") public class user implements serializable { static final long serialversionuid = 4235637833262722256l; @id @generatedvalue private int id; @column(name = "creation_date") private date creationdate; @column(name = "first_name") private string firstname; @column(name = "last_name") private string lastname; @version @column(name = "version") private int version; @column(name = "e_mail") private string email; @column(name = "enabled") private boolean enabled; @column(name = "login") private string login; @column(name = "password") private string password; @jsonmanagedreference("role") @onetomany(mappedby = "user", cascade = cascadetype.all,fetch = fetchtyp...
Read more

C++ 11 "class" keyword -

C++ 11 "class" keyword - i've started using c++ 11 little bit more , have few questions on special uses of class keyword. know it's used declare class, there's 2 instances have seen don't understand: method<class t>(); and class class_name *var; why precede typename keyword class in first example, , keyword pointer in sec example? that known elaborated type specifier , necessary when class name "shadowed" or "hidden" , need explicit. class t { }; // love of god don't t t; t t2; if compiler smart, give these warnings: main.cpp:15:5: error: must utilize 'class' tag refer type 't' in scope t t2; ^ class main.cpp:14:7: note: class 't' hidden non-type declaration of 't' here t t; ^ if class not defined, deed forwards declaration. for example: template <typename t> void method() { using type = typename t::value_type; } method...
Read more