From a9567f6b396cbd66e262ebc71abcc0528086a7e1 Mon Sep 17 00:00:00 2001 From: Mans Date: Fri, 5 Feb 2021 10:41:55 +0100 Subject: [PATCH] Serrated checkbox conditions --- Databas.xlsx | Bin 33568 -> 34390 bytes Wardrobe/GUI.vb | 102 +++++++++++++++++++++++++++++++----------------- 2 files changed, 67 insertions(+), 35 deletions(-) diff --git a/Databas.xlsx b/Databas.xlsx index 8fb5fa43923b5b89ba7f8400356b113c5d5247b5..e34c956da8a1ea0745062289201a4b82509b1f5c 100644 GIT binary patch delta 8914 zcmZ9Sbx<75*6?vz+=4E$xVr{-3qb+|4eoBi7iV#n#a$CLf#4Dd8r?Vm`iZZLUStok}h`-JkYaH3%+1Nte8=`6%t<>TO1i=*^zp zhQm1k{mog55Nl*1+y_+0$2xp)?g@&7TySxlj(~S*55Br#+}rlJ+*G{kb(@3~8^|Un zbB)svW;Pk5FZdqd3!rKOqLJdpDlRMU{PgKk-jJITYAzZZ5`nH7kC)Dk=9l9A??0 z(^fpkYiellNW-@(F=x}gwO0?k{8!FVKvM6AF@hhAu}CYrT@PNX@;I9k+JRgBKVhpX zIE$AFC@V95+9j(utQqXPJXAM*V0f664Ph-35-%dUr|8!iS423tMwlcj3E0TFNQf}t zgYBQt-q*;NDM%@?7iDGBvE{a(Rw5NsFw|-Q>Gf}9_%r{s&*5q&Rq8CLCC|^di;K_Q zE~|X$nD&WSElrFih6aCiK%4;WqO%%NTq?ABf%G$Yl@s6lEYVS?!&r@((h7Xq@0ute8+nOS@I#`}1RjyKl}Qbs|!y1(LiYm~^OUi82Uz7Zb*u zDcc7Z;jbXUAc`1Oo~^?cs{IoyyTCLK$E}@!slY(f(hf`dWSxdL#AN$!5kHK3fRG4T z!=n!aS!DU)x;4|j+8WG^8eVjIbsCKhh(f+c_)tLas+hY2)L<@`eMMU9aw!w?kkwKQ zTJTV!5d;f2gbIoUBwbqEQ32>{yp|9;44jTH_knP7cwQ`RS_qw&Bag2@u5VYVIdGpW z@)`tP&gTPI%6hW>aP1$Flb z5dOT~+W4a9ZxN+j-$FrkSMUCT*-t5$+v`zEW^rN|v;~=Hv#bkCD9fUi*GbUSk`LCO zDk_9N0|=Q(g26~OR@eLw)HmvRASe9F?*~h3S~MmqleMU3sD8hOjnkZ#YiG-*3tB(V ze#|%4L%**p(sT1blcZ?y`MflHN}qW(8YJS!<#h4&v{RSq$wqFQmDq;GX7Xe2u_GoK z^2d*_U~Cbhb4IkicnwP+NqbM$nL9FHMQ)UujQj4g<9KI^DTB?D{SBz2+UH>F`^%C; zoHPH1vo!tedmzaynd`&Aq(EKfN-|RuZy9epX=IDhi8T&v$;*uDw#X2>W30aRVdamd zH_qu@tg%g-f77_jjbpvBk&R#LdkHa)tog@^##cxP(KW}PyxrMTOtlm3N$9Op|_&*6$1L z(my8xEixMfgR4MTv{+_;WXqVzaF@f%QEi=BN{|)E!3UW)Z9->cHu!SPGnZs^uPaE8 zROGMP>+XJ!8*KlvuPC>}@YdYn{)P$P@XO0)H9D zv?YJ^;VH1i-a_C|AdK6X2ta5P+H-~g2Umg)bHXKsnPCxvo6$;TbM{26ewo5XjPvZ7 zCo$C{7=$!UAyrD9PcYDTWo`lYK zJb7i9D5$J|fv|%+JkN?sLiI+vy*!LNPLf7fE8E5>EVaa@i>L6u&_r0)jE1*xOsORqP7_M@OYqpkSOJNlPelZ&Cl2t!G5plgFJ@lQqA z^~Y46a#Bf(*jR}<>9))s;wFpGVitl}x`NEpdB)UF`JzZMf6A!4UAXx$DtqbGe-1o1&Ev`rm`9joybwOI)aO0#X&HN7A zMxA6*f5b5>=U>$0YI&|E97I-+2q~x6m3S1Zk-?TC-PDahFVd@(hw62BlI@0Wvd)Qs zbiI6|6|`pS`MW{tIFlGD)$T(;=(5*)+Ih3Yb40Fw$4LGVb`;nA=8qp{5|`t7H9bFg z_#0ovc^-?_#TcFt79B?MYVv;_fsIpAmVT|#TRtP3us6_IDOlvf_-6V6vV3M(kledt zj3WTkeqH_0=T^uCG_kqyC@`gx$e}+I=`q3JUxDwH-kXZrm%PT9J(Bom+KXdffRbOP z{SnH`w5J4TYcIuTap4Ahod#DwQeuYv2tlhDk=M8_(A2)ZI3gjag!|OsuBZKU8&5-% zwNe?T1E?7p&gR_`rk#8+H!2X*)$g~87yH=@5menRTo^tdqpBDH$}f&Hd`@w=qmXcq zJFOkdn+$ztVC3e6OU>sSuVTI!hC8BctaaR`E-o(%E?UH0VNtu}DE$ICZJ{YE zvvEmCEafKo#)Pz`GT_DUtcp|UEr+%JRb}FUSAV4M$ILs&kH=vHEy$4i(lDPBN$zsJ zi#prl!b8A;xG%irUg`R;ZeFn|kJB}-nGohOOH&F-hJaD$p#&vWCi2A9SqVTN24vIE zl-wH}d?AsVBuHNUh%tW^YO(=m^;L!bHFWHJjSI6&4p#xjWb6z3k&p@t7ep@TtrfZn zxOK(5|KpOniy-1qAstQZ{Z!F_kZ* ziuk2DWh1Zw0M|OzOjrCXrfAC6Yic*GE~nkQRU^J`$Z;L?`gH10%Y_QXaj(lnEc|yn zqV8UVIMSD90ajD3W@PDm!j_BF>2Wsgiy%p>^(q6q$XOMKJZEjVGJ`qPGh~0Pxn}Sf zNRZyIiO!3M<4f$S3EdCgMEFh{o-<(oNr3;WhY4qv9^!(WNPvc0!(#-wPmNClk zo(2pv@vS*y6)S=5 zUg|5O7fVhZKF?{lM3QHYJ8sF2JH(ER3UYruyq77YIl$8BG^m)6siKKel557$U21&2 zkbX|d=z$4~No)%Q+}~A_@dfvkzHhqO>trnd?&B5YQ{4e%G)9*ZDu zNF<%J4u1^ZJ@Gxd=~!;#O|G+v_UPyQz2!n3$+oe5@cWU?9o#a{$uZWLMFq@=D1JKe z+yFCNZw>?V9=QoK#X_jCEY*b(w%^|-9PZ2|kmvQxnve{c7>aDOqO#j`HOij$JU(4C zfma_mww$8U6CillYi99V>Gl|(A?BZShN{su_vTUFa=aAmA^>!dlvMR_eysy_*WbLLNo_b5=2BjpY?0 zGLks6qBO3LHj`4V``2Tf#4L* zH|C$N`L1l0i@Y-D`<1RDRtvhm$7Qof$xsoTeD5~RP*Uo$M85xk{t?&BawN9OzY~0> zUaRoWGhH%yY9l^-6o($zIh`i#jJ->xC7Z9WxYy2R&yG`JF5+XO2u@#~1Iw)81&4GA zZpzH29JsG_M)Di6XRd@J^+qlPS4GEvqt}`Z8e9{uk3MlB6FyB-P?spWM>8A89XqOU5(V1&#{WpBdgt0dl!1vAQCo-i9&RdxETaJWEE zY9y$kEn^`hXFkN}?b|)=v=%M`16<;Ihk8wge0pW2VVBJjQI;ID-18Qp(TZ61IV0%5AV(^y9@mWeeIoaqtqDT?o^|6 z#OQhD~tRCFf;Q4R%9+G$lQ7piX;aAGegY4@z z4M)l=Ig+#uh5AOR5s!*>G1nm7s+g%a>U9i@*CK_H9@gv{HMGVRdrJU?T1(>N6C|=4 zqLkx$hXqeRDC=^s?K_}WI&&j_{p&8_M)gE3C!bb*{ZqJZL4svwzD?Hh4g25UV(vh? zy)jeU;Gr*Dcq5nog-HsJVRskjJ!yjE{`{4{P)}an7vz53QYowg%mmZT$+eCUTIGD; znzE@p@-+%GTKn7)Zgh!U>nixl06oxBRBa`iR2KRB;}-DNTqSlIYax_Zrj+wD!EK`q zBa~buW3yjHHqy97g(QanN-4l!8Yy}GGqM0pn71_;yOQav_L5OI9?K{>Zu1BeQ^zy{2M4 zJTHckpHpJ_00o$peRvXP^G^*G{bHgQy1t8g8h{Ml#W+W@ZLq-YN#Zjq{V`fhliL6; zqo(JxU3G|k3yIKQ1Wl-`WU-Si-?%Z%`OD?zkF-~CLIfO{?q^Dxr9_#l2EW)|a-le? zgoUSiq;Ifv?Rdh!#<@3|Lr{vhzFiD4K0D}lC zWOCk$+3NShLwWEf!*&&%ttYE%Brj=?eDjwKFiu3XxytCPQn*OxyJUxjC;dnA`uPm< z@@Yr;s78yW8f^j)D88E`^IDQkD*#tq5a)r%Mp1`}5?Gg0GDHJ=XIK-^O z2`yDWNiCpIyveQti@6kQqo=)VmZ=h3y(FyRTp+M~vopM7j$)!uY3lhlyC2KI%_+i| zLFCE}o|49XQic)BgNdYLlF?beHF75_!9A*BlHYf;UETiNb3u;9$gziXxW|%6Ey1E& zN|1zwS`Ike$J;p}pmM*Fs=U&qYT?FnNqT5mg&YUw$ymH3g zKIVYzRvm%(I~HExs797-?@;s73hjA*XD;{l4HNt8MU~{y)31|y z0x{Vm#bdIE-NJ?pBb|KF1Vb2ByFZ~kjKB9JnrfP{XTf*0axAWSx8i2x1s&E;D6JST zr@dZZrSNLu1tYxf_+cjjiEuHp+EhH$YM5DKG54cY9F~&Cw{4E2rpCA3gD7?f06kj- zg9?;CePazk;)Twhm88@J+U|&LEg#0nzS0?`s1om6#?DApNN;f_7RD$P66G2l9ao`( zha_I#_-xZ1&@|ei`q0JLr7`%`+E6&Y+8+xOa=s9+1q)S?UvUxZ@4fTNo@m)G~)=YFiC9B%4SfTD_Rj7-z`_Q!WhjMmm6|Lqw=artG&AnSA{2 zSU|AGmy&IOOFF+FFWN?rzDx~|6TJ@IBHIU0jWjJEA?y7DJh`h*MpS+B`RC5G zA<1Gx8HFBwI~-J@;%L^^(fVmhwE+d#*mhkK34wtbL|9PX9Ul?WLoNbZ#ilQ9F#u33 zMg`}58`*Lh*i|c;_!a()!(yJKMT%-2zkvCJPnt2XD7D9Jdj|?^*>{qj<^-R=tj6;R zVe%L5<`)a&0#qNrc}5@#v$3^Icf5p(8nj_FQDCRC5IyTNg`msX&s>LsV3*KFk%Enm z$b$~_-z|6F?uX1CET6s|idIpEg+4qPhXrq?bg=;j(&|8i<{~{9cr}SwkC~< zx11JuQ3_-QT;u!}I(YIrmmzBBSzgF(9_w;CJsHBuy}@21YJcSX`%@2l6@Ux#z$Jj^ ztM#NZC4%R#o#PWgh8L*C76FqWjpkg$!=RcV@RHl65N^O)`BNl^1h*E9dmf$F0bUC` zEgdtF(8|l6iby30)xe4#3VIM5;M_)iG@p_bfN92*1t>wMs+`I^N1;m}yyUQNrS~h7 zfnU#SPJ$C{2Y8#0yw`TSYsV;Uy6LQanB{)@;VwQ*K0P%y%%ZqdO#_`Rhj($-=Ju7r zgsNaRL1{A!jq(uEM_u-S?;0Vl-|@Q$o2jM`-*lK{Tv4+(PI|Oe&s>YjkXRs?yJje6u9D($EnZe`Yx(|3&%B$Ssf2FSFz5s`6i_%h;;v#%tEuGH+A# z*SI}-ObvNXAPEbarE=GmLd(pZN}&=N;K6i0b$gHa(07lBNaMlX@6JEY!$0NEhuB_@ zI*E%mLWStiMr@NPcq;8fdbBcS3z*A}`)$8B3Z79qaS)`RM)d@5#f1!9P((FakpVhs zuCN}Jdu*3Y@DR$qSkjLnrRt?0!|fH8mBOh-qFKp#~kxeil`&DZ$4WZ*mW z`ydMAPS}@eis+Hvt<6??S5-MK4g4{!wn!)J9?nqFgJe1ZUtNr4ew&R5pr8ivHEpUuDw?Q)5vPsA|oz^Fh(z%}ql8=c9%R(%2L@qj{%?Tg$QZ@g_EO0mo6 zu=6H*%Bag_j+&Tk$3Rr0fu1fQdkK;)$Kdc;P*u6GZsEL*sW?*~SH>q!^F#2$I7)|7 zXrCie^Wc)h={KbKtawn3w+{vddnm?WlTcXoN!Xat+3$troHg0+B7=Ny!IqIH4!TqO z1p?a71p>i8XNnAy^a6SnHu{bII68adr%47%61_GbPnUw@-W2{e5s2=SWe;7zlnDUs zWR-$RN2r_Qe2ex|fF~nPN!!Hd=R+4hq6Yyv*h$;(p1iqQqJQ-e7oiJx+7AWtWn!N3 zg$bf2{0X0UyscAwjCPe6wBNJ!EDh+AxNFX@_#7GxG>TE&r58kdc0O5!uc`ZfY(QVP zS~z4%buzAI8)QxX{@Y{jz|jYPf_gmA=Z44+YQm`@7E}?7F|P*N3C!u+%QK4QZTrRq z%Grp+%y7uzp>dSJqpINFcVhET|0$fY>Bu0#91SpGe)<j)zQ&vBCDWR?CqA z9{lF*78h>BDeEy9;{O)-*>YdsG0_X}vz#;ttxnJ!r&q;H;U+l|+yTRx)TD8}ybJg> z;4hRF)7YYHOe1@^k{Tt~hwrjTe&}W3rE6SbpDO!qv~=+G{5Nb+D^ojoX;0pcYMtQ@ z1wkKz4mC_}S@>q%Bkx9e%{$G)(Z8YS556eSQ8b-Dm)|F@N6fWez%fQ-DN;YDOc&sV zzELc)wy4FKf#b@QLFN~VHDp7Q@Wzt{O1vRSrnPpgu`m5xwrt)oQ6$v5R+tm#xWuuz zqmDAedDnfNw^T4Q-4dun_P&N&zpxh&jU_>`Pk5W~M{>(s43%yV4iG>RE}YNZ0hXM* zHvutIfd;v8J*%-MFZ$YWh_}DI>#<+lg&|*7uu|ISrU^91;G)b&Epzh!s5qwTzN?qv z>vRh7MElfVYgnw8Yc-_FRw9&Ueb~W!u_7x&VkLfq!cf3G=(>A4_;hh=>C?-Qt9W_I zV=$!6QA>2LcJWXa|HJoSUj?M?&8%Z3v7_AI_VtWV9TP{7=E#4qFZY@P%Q<_|(>n%m zJB3pBXZzspEz^H?q;mLnMn+!BFB`S5U0C74?SgJCG$aUma#>zz)yNo$b#uWf`|lxa zq)D5-5BC!S2lMu7tx*4~%Prd8)3K6xI}c+$Sl^`{zJg8hNV0J8`Ox#y@tn{Fyei5f znd%lwfIp{`_<2<=QA_@~f~=`O88OW}mA*E%Y9tBTdE6ueUFrO3VETwV{rSM4Ruluc zx|L3kOB9ul)T(htlH@jaNaT^z*2=PCtm7mr8VTcBU0YuXjjv>$X}_}32a-F6&u?v> z2x|cj!n6wT(5<(UPw8w7@oM^|{I-uY*X_e*>)4roA%E@uCQn)!({?Y@u+lq0?(MKs z?24rpj80eKcnIT|O~Fy~M-6be%8CHT^4jgi7zv#Ke;&lV_rM}lB{v8$MuXRi@+0EA z&-?w#u&L0STW8sJ@A}3~05>s$`jP_>X%jh$Ck_R}WAt!!+^@_Q+%iUX1QvaYX38D2HvDeT!s}jze6iiR=icbwW~u&aduj^& zqa4m!kI4VjwK?34&;b9QQh=rSX~5sZe)&<7|F_uva*_e(|f`LGz2s9XQ%kLv;+r7@;`o6ELbNW5vUL-4RSWuuO0e delta 8169 zcmZ8`bzD`^v+tp$yAOHj?(Pz#>qtl=-Hm{oE+vm3-67rG-Q6unBOst6{m}RB``vr@ zKYPv0cg zq$;KpDP|d60Wg|)qoPJsnZ9~0^qzhSF%g(5$EOXInO#t@9;W6!4gDgf zP}tkZuPtx!61DrQY+3S4t?ke*0dt}DM9&|HS;+Htkr#(V40cW>&4xb?2uJEJ^8U2k zRyCA{M$e=f;D(G6S4pN~^jezRP3LBbCUbBzXpoVE+!{ZQR9n0Q(PCkQtskd$n+wi) z>d;@0n=YqBT7z$iu^h*iG%M~Nwzm}(WL>N99-y%npV3)OWYfeWxLCbE03NEUYMMu% zF3#6Q@2{qqu1@c}sU7|Gn;}C32`>Jkc(G%U?LUv%LXq}3!~Um|@^#}`s8RLxff2^Z z`X1Tt`FMvYJI4azLftP<#la#aOGMI@RJR8K?Dby6Jyv?SW#%tL#vnzm!?Ratlay9sQ0GNOtIHuYz+!5Z9&Wb^Y>~>O70i9| z)HJUSc<*y|)&e=mPNRJ}rNY87`T~ZJ0)aBn?(JEGcCnkEU_c6OQ)l0NVgq_PRkqdh zwH#T6iW!H&%jt%knMhcqV$6q&axBxV08fQwMa>?OthOpz$%9 zuHBz4tN>fMc>{-vAFmVcJ`z9(S(8L<+!QPQ8b$D`{3oi^8pV;|BmNMBB`4y<8VNXJ zcO_BW9oEOrO4<(7tsX!#?uoqGvOz3Zu%i$C+JQf@<>r2I=s)1@wWdToQ+g|d4l4oY zXRrh$xJ}Hy$nMoCUpWbmNGLB;ns8tCL<#Z>Kb?V2F5wkA$e+C7lmdpu#dH*KFpReJ zg1H7;tZEC=ROL&gBgnfRU%Rva=EKi%`I+?arNvT1FNgC7p+Z{dPiZ6V%v^(g+^q01 zXS8(_0YcbOEhk#T{h0`d{@Ed{lRX^JU{d|KCh%v&_2dlO0z~k3x$K95GUD~;I@aNS z%z*HAso!&|E5m-bAjAi+O*^8${|;$# zm|6v~!n0ASB`CJqTJBvlf3a$pY)19|5o=8LU$HNNDsKB$C;(@a#*^lt=5&q^P4#lAJs_-+RrXhns zWS|#tFb#mLF7@3DIG{aA)jpI9C;U9@5oM%9VI%H+b?axXW&5@;j)ef_PKi$Y;+KebMONQC?PcmyT(8Eu15E4IYTqd7Qp1>5UtJr@ zS`w%A}Z&*iZvx5Y0u?R7}{?j%(OXtaZZEI`Wmiqhn9k;CVt5b z>fYs$bVO|xxfr%us5$xRVwDEuB?c<@O#9tfXtSJ){v5>VI!7kV z(#0vVxCsn6t85pq3}M4M;;UH9R3I9|3j~Y?#1?B%J~L9yWF|eV1ij&pHbP0{hJ=X; zU)q_K0mms<8BvJXP*Sg+*9?y9II|&I>x5nc1A zscZI`mz)ck6i6w$9NcI|M8aCJE7h4q6#w}AIL+qT`$eubSVHise--|18`+iP4aCn9 z-+*;vaZ73Nm*a@ny2@AmQNOMD^_<1aN%IHqXdtX1#rKU{``!$}6J|(K+u_t_amF8+ zS?7PQHuKJrI%ckDecl^~JtQ4G_0=i$n}w_DD%Sc$ADsDYzgx~yeTDF_<50yBo4{~# z&h}P^H?Wz66sQdI;g8~U8G%#MWgtl7}j(E{JW`-&Ul!nTbH>|i)7cIjh4~D%5YA}D2^MtSZe-~urG#-bz@M<$NRF+_3vI?o022$y!kB)@%K zt-#fcjlk&jEQ*%nVx0GNqh*@KuVL9EqFkGqrcQDVJ4P5GBb-aH`Gb&KPOBAMe5eF` zo`=@UhojUnrXQro-!CoP{+nTlVNRz0nq;@JkF19%q`A7u+hierJ(gF?)5OEW_-Bmg zsl>cIhv>kMcRL?-ChV{1zGGp}FWC?Ywk!NxO_-#UGn453 z{p{g*>YVUf;ehMb_)m}Cs4M`Q>3JZ@qfzeE7{=pCqkGpoJ%7K|C&#OAUJZ|z&7Ze< zM94-`Tjqt@p7@PUlM`XHzh%NC3+pDWDieq`ou^0#n5d<&P+Rm=i{hyoXYMTYO3DZs;rWY{{sXNYoA-c1EHF z1lp^^#+xKqcd_}rmn@o|_N+2<3*@y6WZ#caMIZ=UqB6doIf5<-e>hCH z8$NW>3#c9qq>4)1STOPVAxe^s=C~ma*PKx;ja5+zN<>xka3$w9dknwEGMEl^j@pd6 zx!ZGnYQHub+`!|e!i9i42f#zzdoLD+cahG;uvki_heU5{^?Au3oOeqH7HGmtHi^tK-U4Opy-!h zVyM0>v>mU{3YSo|omayr7mnJT7S(BPO3ef<8wGyB8;7BkvW;mOH#g9;6vV^;~ychPrgakx#5O4d9b42J+ZLG`HStV z)s0=Rgswvxd(mbo>CeU7G>HSQGX2NFbQBRuGpLGhSr+_y3sq5IUUnKn0fDXBOn-qQ zbs|CPUp(_AH1CC#YJ%XL7-}7mH*Cl+f3{ApK}RU%9v!P1jYzAMuws5(kw)uGA8oow z&{JMFoW4-+d+@CBKEq^k(`vbp66Iz_V}*!Mj}vJ-FA(^$Y9iJZ4X4}Y&=|Z;XtIl5 zZxPHARAjO|Liy)~xE*W)fqAvNP8kY#j;hO8 zbi#|%3VV+PRulN+ayoC9RCEtpy~=hxM^4nGV7jPrz1hZY`yBNKBb82gjScgYR9W8~Q~WyK~XHjH>Y%w5+tfdd!X6dbt+e zT?*GQY8JdLh8J-E3=&FXZxi!ooVHPQ(9I$C3gZCwF$}$8u$atQH47mbD>6r_ElA*r zWTTQce4Bo#PTAOOJXMrejqz@&r)w)}^rBpw@ynm_XXW%PUj6oj0fyT)jo}^h*ZeeXgF{Ku0ynE0*ua`mxL}+fK?9Q*1Pbf_PSOtrQDfr9t`?H&P;hOB0 z`nUpV{wtnhdA?cdI+u~zI3^NVe=e;;s=|NWcW=l@&R==@E7j}fip1}>+BBv1mS3S; zk;Nn#Reh*Fx%=5vZQp4sa5iYp+Eev$sKk&vhp2>B8b24S7r*vAb{@SB z>D*))wZXnohtta5sQK=+vwcO#zv5Be>nmvkR3#y+Dyj}7a-zu5*(X7q9j7vC8471p zrd9$0LK_b9V$PJN+S2S)FN!A+A`x{omEc4ouso!8jp(yF@g3swxIaVS3X zvGz_D-1xMj=xp1}I#g&R(p(GKDSfE_i-wYf8st*X`qN}lPb6am>m?SU6E3In^#gMP zgax4t6X`J*s52VMhIC|hwsrC$YsQniX;s7c^()@LkY1S1&>byxTuDF<^f zk8_h76~)`#l`a~*%_qw;gw1(DbJB+e{PZ4|Y$Wf5Wo0>|8on4BX!jN&-{3%|RgZ3J zl1NCG&E>}78tSo6Ss&ykSJMzFE`a;PzPN?>PH8btmfsTay|$V`3?&oG&@@X^dpzy~ z#jCweMpblSYApttwCVf9Qx!4+BAfT2M%W&H_C1*q_zVpN4R{O)hAEN4FVm`S@Kdc$ z@ICrd_xn=$4v8w%1M|JhO^Z}QL`ooz%davO>kHMu!)u9o5!NdM&wPa$35d*@GR&GX z&YBj}BYCNkji>Q}Z5@kRhHBH4MWO_h@Z<J1y1YtyuaFq;4 zx0yvoEIQZ+;eg<%bT`~vxpN-c3?*4HOw(n4+jwESt#Z120pdOwpt_&8$hmTNBkOl9 zJ1%Sx!0-GzM2gM;Kb`u8wE?br{c1XOVD1}-X4D-@eWx0Qwbs5MOE>Of(SnkO2z1`6 z8PpBUfjQ9NX4Is-A7=qwpQPG*p-fnlFu!q_p)Iy=@*0~{?P{Mmh=VX7ulXYKlVg-4 zE*NA@-YChm7MLFe)HR^Q*0XFUvUq=K81l=a{Y~$eS6-6Q;y(^j8H1FcMd7!YDNjyJ zkI6+Cb96&2Ro@*J1Yse4dwsjBYJXkrf91+C18r4MUnjO>@8oDxEG&x=3Q27)?>$Oz z5IRJbMJo6bvf{%av}&a!xz1x(XhyfX%RbB1Z>ZL{9Lbvkq&D>-5OU)R>LQ3wvbOC{ zd?RU>9-J3%=C-5P`U}Nl?l*LT^($objJI!tgtl_*e)ej?*>3tb_ZZ4%^300tQSe$u zC9E!q3Wbm+ro--3;^g?E3vs3&))COpJ?xbOF9p@IjrCLtb5c!?8@I-?arg??1dJnEh0lIqBr}* z8%4ga6u2R;vsSnpQOfNkrP@vkf5?#i1zi(!8eNYVny@!Kq(74_=05LstTyR{UX4)b zpRyNgvf9$m>^o2@u_iGry(Jzw?vcyLg-rhJa{@jXBXxw3HZ~Ccz=V>QmT9tj($6qB zC$!RTx*d=H*IP@{YFz70Ic?B+Bq)0U7 zFUUh6`e)Lo<`qL~JjY9-(^DMhmJSMXS7hF+a0Js$ymV0z?WPuXb`s#v=aXs)F3A_! zq+8vY2x{LznrTlmD%cnN3%-Dc;XAuvcs8K5?PFR^3W6OfvZ!7jD^5O9*n34KltQs5 z!F9%o%W=7T)7A+v{aBaOlWA4#ZH4K6zvX#TDzdUlbF!v)s`7ag3wQ|w}R;bvEC`l3{K^k3fMMawDFzcTL)*vC}BlKTJ|PfL^)ba3S8Uf zs(iI;WGYRqnW#Wp?!TyYb{L>fik#4 z`tAq0L1nWK|)g+tq# zPUl2$Ln&Yyn`0-b7|4j$SUS7@U(Ql%4{MXYZDX08-^HZR#4Dmhck#(tOGMiK$EH;`sa|$#9254XW=o)638goIU&cO{LR1aj7Vm+u3^Z8VXfdr+$*>w4 z57TWj6Bh=a|5=DmcMf$}+Z1c9XeUc!f7U~RmDGlQ`yVzr=a{`J<^1b?sr9qOe}PBn z=Il)o2y&zR9&+V{zg+@lOPgy?-YB1LfAZ(MQBh-!;;x|&PjR>4W8@B0Y|n-4oN5G@ zwiR~gW|Ay3uZdxOb~w`^3ot%>%Hd%UPI7hGPniIzKs1?cA*8P6-`yPJLLKo$p zeHZJ^_xw9by92YjmDf-4arv9h#F7NNF0Mz^<)iIV_=miRKH}wM;3SX5}Gg?aZ?)`tm^W<<|8`1!tRBh+nRU z!Eoc!AH8d-Vc#C@76-pAs}PtvrA;55wLXpfnjg;U-R#X(T=F8aOU1mS^V{+Ly7QBp zSHP|cz$PGLZmIbtgY^D2dq9U~uxkfi?`|s9{E4chb;(atV~0XpzwKgo>_(o48o~_( zx0xRz?3rE$MRRMV4Zh3u{&TiBgdTyMoDRFCUswG(_fJ&HjcRmn?laedxaUspKDi&3 z%AAN6#WH+E8>G0vHAHJ*$|j5ur5CdOK@4a!!;tM_ew)Qd1A(B`>TH%rthF2}0z)px z&6Nq1VgbAe#9U$3MA>jp)p#En7!w~&1BEd0`6*_5MEV$_6=8yqOS>kQZ8FWpqKYhs z(D;M!?jDSL+D0a8?Igm|Ie;w;JpMig(6xyi8Y$?Dc>E-R49@}_B4Ay> zg%}j0`U4T`dj<{(ndK>ehQRmslPH9bj5vuKDg*E=62zhX2sw1F1TXw~qGsncijHgCJ^P%ZDh}paw@+J-+qR`fo=E@Wkz$86U0Pk$N%7 zF)s6#T*sIV+KA&kg<9oz7w>m4x~`}=-_7%T-=a2gbbF>$%gAYvh`Na#lUa`Orcj?dSeh8w?L!WZr^&O{% z^!1y0V`fxm(`sgc#pHUm-?K)3n)u^4;L_$dMwqCPCI=Uw$)3u8u-uBO!82J<(aQH7 zRTn5_A__IfCWlLip#*=g2)g+rzI=oIuPuSEFN+Ar1AA@s@SK>s#$R!fLfBK;D(XaB z7~p_4wQqlGp$R?_!`CJ5Up4d{<3X+sii!m6tD;rn1hVFazdyw{ZH?sGN-O#uTu5HM z-KVnl{IxPaf)Z+zVN~azP=i?Rwz_WnerLS!)-)Mx>Ukm_Y3bbKnV;wr@Zs_g9wdk9mSL~XXlqt8V z!wdyb-q~{*aZvq^hAaXRWQtf=a+fxg;Zcu^>1Aq6&*YqncH59cg@Wtk<3}qshc&O6 zWLffgU^4q05XZ_d8vJd{Y`XA@H3-@M3-sQlKzscm03qz#FK~PgyrPF0!G55_`v{=Y zQ~IS=r<_hcO{uBa?B!r9C-EnvvB>NC31WoX*0LsFRGEy%;2kvfX1dfI5)!GvL`{%wv=+EMkl&}s%yaX)flt%IDNB35pcz@U4cs(T1(*#fS z2z?;6=c@Me{iRgiUN-YGhK2@>oCi9nHzkB!+K<*7YO1Wb?T?h8)wNg2RNu>3{F`uf z7;v8b8T*YpZ-Tq45=CZ_cM|IYP;xIe2-xByep+?V7QSyxm~&& zsy2xAm48{WcC}IB$Xq+(aL=2oZLpnm7(glx?_3W1w&_~lHM~|C6nr(9oI@|vz+btODH_n8SZiwR-J~_$yjj+$}zGd08UK3^$4+yj( zzDubz7YfRyCaO1bj@(UvZrlcBVcVvBHf>7j()LGO^$R$aEX>$cotu)W+j?&BM1=@d_zOb%X261D;w!{cwWdI@gKQ+z&4T9qQ16=@wFqJ?ucv-4{qF^8)EKLvx<3Iii z`TiLKo(;>-xOL%wV&Ah!8AJw8t^gAWl7!Dvh4}?h{oj*6D~Jdl(1JAvNx@S>VKn+= zFuY(Ecp(E=Trl}FJDCBbFjnLL{saNTzb2S|Fd3{rm<(R%4eV>MHoTBAj6XyYp2h^` z6(R@kW(sS6mR{Px9-bu`JD6;!B!Zzm2xj6$3d;(`0smvV=Zt|qcVuz@v-;}8lFytOBcI-CfW6~+he=>2aP_YMta2jIXE!^z-1 We4kZJSYQws6o&!=`T70z^nU=~-Y$&* diff --git a/Wardrobe/GUI.vb b/Wardrobe/GUI.vb index 78ce508..e41d908 100644 --- a/Wardrobe/GUI.vb +++ b/Wardrobe/GUI.vb @@ -31,7 +31,7 @@ Public Class GUI Dim pointsOrder As New List(Of String) Dim gratingType, gratingMaterial, gratingMesh As String - Dim gratingSerrated As Boolean + Dim gratingSerrated As Boolean = False Dim loadBarSpacing, crossBarSpacing, gratingHeight, loadBarThickness As Integer Dim pointCounter As Integer @@ -42,6 +42,8 @@ Public Class GUI Dim excelWB As Excel.Workbook Dim excelSheet As Excel.Worksheet + Dim serratedCheckBoxBol As Boolean = False + ' --- Start method (main) for GUI --- Sub GUI_load() Handles MyBase.Load containerPanel = DrawingPanel @@ -319,28 +321,15 @@ Public Class GUI gratingType = ComboBox_TypeChooser.Text ComboBox_Material.Enabled = True ComboBox_Material.Items.Clear() - Dim materialSheet As Excel.Worksheet materialSheet = excelWB.Sheets("Material") - Dim typeColumn As Integer = 0 - Dim columnCounter As Integer = 1 - While typeColumn = 0 - If materialSheet.Cells(1, columnCounter).value = "TYPE" Then - typeColumn = materialSheet.Cells(1, columnCounter).column - End If - columnCounter = columnCounter + 1 - End While + Dim typeColumn As Integer + typeColumn = Get_ColumnIndex("TYPE", materialSheet) - Dim materialColumn As Integer = 0 - columnCounter = 1 - While materialColumn = 0 - If materialSheet.Cells(1, columnCounter).value = "MATERIAL" Then - materialColumn = materialSheet.Cells(1, columnCounter).column - End If - columnCounter = columnCounter + 1 - End While + Dim materialColumn As Integer + materialColumn = Get_ColumnIndex("MATERIAL", materialSheet) Dim typeInExcel As String Dim rowCounter As Integer = 2 @@ -357,30 +346,73 @@ Public Class GUI ComboBox_Material.Text = ComboBox_Material.Items(0) End Sub + Private Function Get_ColumnIndex(columnName As String, activeSheet As Excel.Worksheet) + Dim columnIndex As Integer = 0 + Dim columnCounter As Integer = 1 + While columnIndex = 0 + If activeSheet.Cells(1, columnCounter).value = columnName Then + columnIndex = activeSheet.Cells(1, columnCounter).column + + End If + columnCounter = columnCounter + 1 + End While + + Return columnIndex + End Function + + ' --- When user changes grating material --- Private Sub ComboBox_Material_TextChanged(sender As Object, e As EventArgs) Handles ComboBox_Material.TextChanged ComboBox_MeshSize.Enabled = True ComboBox_MeshSize.Items.Clear() gratingMaterial = ComboBox_Material.Text - gratingSerrated = False 'FIXA - ' Add toothing option - If gratingType = "Pressure Welded" Then - If gratingMaterial = "Standard" Or gratingMaterial = "Stainless Steel (Pickled)" Then - Dim serratedCheckBox As New CheckBox - serratedCheckBox.Name = "CheckBox_Serrated" - serratedCheckBox.Text = "Serrated" - serratedCheckBox.Left = 115 - serratedCheckBox.Top = 115 - Me.Controls.Add(serratedCheckBox) + Dim serratedSheet As Excel.Worksheet + serratedSheet = excelWB.Sheets("Serrated") + + Dim typeColumn As Integer + typeColumn = Get_ColumnIndex("TYPE", serratedSheet) + + + Dim materialColumn As Integer + materialColumn = Get_ColumnIndex("MATERIAL", serratedSheet) + + Dim typeInExcel As String + Dim materialInExcel As String + Dim removeCheckBox As Boolean = True + Dim rowCounter As Integer = 2 + materialInExcel = serratedSheet.Cells(rowCounter, materialColumn).value + typeInExcel = serratedSheet.Cells(rowCounter, typeColumn).value + If serratedCheckBoxBol = False Then + While typeInExcel <> "" + If gratingType = typeInExcel And gratingMaterial = materialInExcel Then + Dim serratedCheckBox As New CheckBox + serratedCheckBox.Name = "CheckBox_Serrated" + serratedCheckBox.Text = "Serrated" + serratedCheckBox.Left = 115 + serratedCheckBox.Top = 115 + Me.Controls.Add(serratedCheckBox) + serratedCheckBoxBol = True + Exit While + End If + rowCounter = rowCounter + 1 + typeInExcel = serratedSheet.Cells(rowCounter, typeColumn).value + materialInExcel = serratedSheet.Cells(rowCounter, materialColumn).value + End While + Else + While typeInExcel <> "" + If gratingType = typeInExcel And gratingMaterial = materialInExcel Then + removeCheckBox = False + Exit While + End If + rowCounter = rowCounter + 1 + typeInExcel = serratedSheet.Cells(rowCounter, typeColumn).value + materialInExcel = serratedSheet.Cells(rowCounter, materialColumn).value + End While + If serratedCheckBoxBol = True And removeCheckBox = True Then + Me.Controls.RemoveByKey("CheckBox_Serrated") + serratedCheckBoxBol = False End If - ElseIf gratingMaterial = "Standard" Or gratingMaterial = "Aluminum" Then - Dim serratedCheckBox As New CheckBox - serratedCheckBox.Name = "CheckBox_Serrated" - serratedCheckBox.Text = "Serrated" - serratedCheckBox.Left = 115 - serratedCheckBox.Top = 115 - Me.Controls.Add(serratedCheckBox) End If ' Add Meshes