How fill a listbox with values of a class object? using vba -


i have following cmdclick in form :

private sub cmddisplay_click()  dim results new clsresults dim integer  = 1 ubound(maschedule)     listbox1         .additem maschedule(i).days         .list(.listcount - 1, 1) = maschedule(i).days.numberoperations         .list(.listcount - 1, 2) = maschedule(i).days.duration         .list(.listcount - 1, 3) = maschedule(i).days.standarddeviation     end next end sub

and trying fill values maschedule defined in class:

private type dailyschedule   numberoperations long   duration double   standarddeviation double end type  private type schedule    days() dailyschedule end type  private mlngsurgeons long private maschedule() schedule

i using in following properties in class:

1.

public property let numberofdays(byval lngsurgeon long, byval lngdays long) if not checkday(lngdays, lngsurgeon, blnignoreupperbound:=true)     exit property end if redim preserve maschedule(lngsurgeon).days(0 lngdays) end property

2.

public property numberofdays(byval lngsurgeon long) long if not checksurgeon(lngsurgeon)     exit property end if  numberofdays = ubound(maschedule(lngsurgeon).days)  end property

3.

public property let numberoperationsinday(byval lngsurgeon long, byval lngday long, byval lngoperations long) if not checkday(lngday, lngsurgeon)     exit property end if  maschedule(lngsurgeon).days(lngday).numberoperations = lngoperations end property

4.

public property numberoperationsinday(byval lngsurgeon long, byval lngday long) long if not checkday(lngday, lngsurgeon)     exit property end if  numberoperationsinday = maschedule(lngsurgeon).days(lngday).numberoperations  end property

5.

public property let dayduration(byval lngsurgeon long, byval lngday long, byval dblduration double) if not checkday(lngday, lngsurgeon)     exit property end if  maschedule(lngsurgeon).days(lngday).duration = dblduration end property

6.

public property dayduration(byval lngsurgeon long, byval lngday long) double if not checkday(lngday, lngsurgeon)     exit property end if  dayduration = maschedule(lngsurgeon).days(lngday).duration end property

7.

public property let daystandarddeviation(byval lngsurgeon long, byval lngday long, byval dblsd double) if not checkday(lngday, lngsurgeon)     exit property end if  maschedule(lngsurgeon).days(lngday).standarddeviation = dblsd end property

8.

public property daystandarddeviation(byval lngsurgeon long, byval lngday long) double if not checkday(lngday, lngsurgeon)     exit property end if  daystandarddeviation = maschedule(lngsurgeon).days(lngday).standarddeviation end property

but excel don't let me define maschedule public. try wrong. should do, in order values of object in listbox?


Comments

Post a Comment

Popular posts from this blog

apache - Remove .php and add trailing slash in url using htaccess not loading css -

i have add following code htaccess file removing .php extension , add trailing slash urls. worked fine reduced page loading speed , css code not loading @ all. pages ugly. please help rewriteengine on rewritebase / ## hide .php extension snippet # externally redirect /dir/foo.php /dir/foo rewritecond %{the_request} ^[a-z]{3,}\s([^.]+)\.php [nc] rewriterule ^ %1/ [r,l] # add trailing slash rewritecond %{request_filename} !-f rewritecond %{request_uri} !/$ rewriterule . %{request_uri}/ [l,r=301] # internally forward /dir/foo /dir/foo.php rewritecond %{request_filename} !-d rewritecond %{request_filename}.php -f rewriterule ^(.*?)/?$ $1.php [l] we can rewrite urls using .htaccess files. before writing in .htaccess files need verify kind of server using. can check server adding a <?php phpinfo(); ?> in php page. ensure mod_rewrite module enabled in apache server. can identified checking phpinfo included page. common methods used url rewriting follows ...
Read more

javascript - jQuery show full size image on click -

pretty self explanatory not workking . i want display full image when user click on image... yes know there tons of plugins but i want keep simple. any idea ? css : .full { display: none; width: 500px; height: 500px; margin-left: 100px; margin-top: -300px; position: fixed; background-color: #f00; z-index: 6; } .thumbnail { width: 50px; height: 50px; } html: <img class="thumbnail" src="http://4.bp.blogspot.com/-uhbdp2esxng/txneptvi92i/aaaaaaaaaky/upfqis7zto0/s1600/rihanna-wallpaper.jpg"> jquery: $(document).ready(function() { $('.thumbnail').on('click', function() { var img = $('<img />',{src:this.src,'class':'full'}); $('.full').html(img).show(); console.log('done!'); }); }); try looking how jquery works. $(document).ready(function() { $('.thumbnail').on('click', function(...
Read more