From 2dde2d3a21ae544581d35c61d072eb32318893fd Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 17 Aug 2020 16:02:29 +0200 Subject: [PATCH] add testform for flowform --- GUIs.ZooFlow/My Project/Resources.Designer.vb | 22 +++- GUIs.ZooFlow/My Project/Resources.resx | 6 + .../Resources/ZOOFLOW_Home_klein_Cropped.png | Bin 0 -> 8698 bytes .../Resources/ZOOFLOW_Home_klein_Eckig.png | Bin 0 -> 11490 bytes GUIs.ZooFlow/ZooFlow.vbproj | 14 +- GUIs.ZooFlow/frmFlowForm.Designer.vb | 20 ++- GUIs.ZooFlow/frmFlowForm.vb | 22 +++- GUIs.ZooFlow/frmFlowForm_Test1.Designer.vb | 41 ++++++ GUIs.ZooFlow/frmFlowForm_Test1.resx | 120 ++++++++++++++++++ GUIs.ZooFlow/frmFlowForm_Test1.vb | 13 ++ 10 files changed, 248 insertions(+), 10 deletions(-) create mode 100644 GUIs.ZooFlow/Resources/ZOOFLOW_Home_klein_Cropped.png create mode 100644 GUIs.ZooFlow/Resources/ZOOFLOW_Home_klein_Eckig.png create mode 100644 GUIs.ZooFlow/frmFlowForm_Test1.Designer.vb create mode 100644 GUIs.ZooFlow/frmFlowForm_Test1.resx create mode 100644 GUIs.ZooFlow/frmFlowForm_Test1.vb diff --git a/GUIs.ZooFlow/My Project/Resources.Designer.vb b/GUIs.ZooFlow/My Project/Resources.Designer.vb index 5f3c52d9..12a26232 100644 --- a/GUIs.ZooFlow/My Project/Resources.Designer.vb +++ b/GUIs.ZooFlow/My Project/Resources.Designer.vb @@ -22,7 +22,7 @@ Namespace My.Resources ''' ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ @@ -109,5 +109,25 @@ Namespace My.Resources Return CType(obj,System.Drawing.Bitmap) End Get End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ZOOFLOW_Home_klein_Cropped() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ZOOFLOW_Home_klein_Cropped", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ZOOFLOW_Home_klein_Eckig() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ZOOFLOW_Home_klein_Eckig", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property End Module End Namespace diff --git a/GUIs.ZooFlow/My Project/Resources.resx b/GUIs.ZooFlow/My Project/Resources.resx index 7eb0f61a..ef521859 100644 --- a/GUIs.ZooFlow/My Project/Resources.resx +++ b/GUIs.ZooFlow/My Project/Resources.resx @@ -133,4 +133,10 @@ ..\Resources\ZOOFLOW_Home_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ZOOFLOW_Home_klein_Cropped.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ZOOFLOW_Home_klein_Eckig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/ZOOFLOW_Home_klein_Cropped.png b/GUIs.ZooFlow/Resources/ZOOFLOW_Home_klein_Cropped.png new file mode 100644 index 0000000000000000000000000000000000000000..84051fb77b50e7f105439772f10691c2d360d869 GIT binary patch literal 8698 zcmWk!byO5x6h|7C?pV5eml6~~x*O@1?xjmWSX#OTkq%M18>Ep&5b33n?&h2CkC}Jo zowIx1ym#*}?wx22HF;cYDr_VqBwR%W87*L}2d)}SWZ;glM4AHzR9i_^NnkDk^k9Jo zJY%^j7v`kvaZHl98f?$$_d z7WOWlye`(B^n$z)UZ{W|ijhAO5`&eZjHHgQ>ERbFPo3Y7gJ?vJiC(OuR@qjy$q+0o zRKk%;ZpPP|!jhQEs7;p7$hGXDAT2UY5*<_?YVs(p1YGZ?*~QLzP$2^na9D1trPhoXBUHRpFXe`8gG?>zOM3b?#KK0@54#pc!5M8 zt1zb~lM+ED0!X4HVUUkovCbqysP71J2_CV3Kqw-ZF>EKf*M1w+j8k`h(r0!|@j0qokA zHRUdT&sD}~*C#Ub4RS`(6qP<5A)FYTINk#aD5PLGl zJUBFU>Jz*{9LHMlwZ%7lX-W&JKYL+t1-vnO9L&Op*)rAMIJa^$OG`@}Yd8Z%an^AH zCBEU$tnEPfVylhWZg&4b4rp+0CvKuo+C6YDC@Gtz3gcB5OhEdos z=M!SEf@IGu0;NTydfcYrlD!H-jGyUQ>H2s!g7jp0L$#u^1(Gj75oT{;l8}=ltrVNa}jX=SusyW9NGP&ri9Lr(^!++0aXNyG~Hg1vYWlU0qD$b=rPorRU|jsL~d<9!CNi35Mu z()jDp>czu=tAmAR*n4Yh77wD?3oygn>}=rWZ#}cX)BYXY+k?7^yQ{-RZi#pD=u-H& zQJrRE0{6xaN=hS_^Jc*}C+oqF|I8$wZkV(s%)62FDnRq@i_T53U)QU_!HB--ov*<` zvt^o?Tnekc1!Ky*E$|~_QIBmE6BCmlmW{)EZru zKY#hcb1-Ihirzy1S>ka|{Vb0zc#~VleRC+uv9g7giAnle9$QgS@$&Mrwl0D`-pIA1 z!C)W7iXJV$Tci&xi}C#u#MiFTjNMdib;>R(Dk>{0i-v~whgKtb>9E(as$=`BxW-#c z%YwxgmJ0m_hqQw{hUfd$XWD=Rs1{ul8!Iz2GaK6|zQ1%roFmzs>Kej)^4+_4VHo%W z5J^NqEN{VMZ?Dv`w`J9WleqUmW{wm2)A`ruAs^e@D&pIoaCy29_3tWl#Z?J03fp;% z8h>TK#Q#vuxWKq1;Af|(IQ%P10H5X+^J};DFnsY$L3=G24Ce3usx*qY-%B+|Bq=c? zJG-Jy00ljoqKF%{)iW&TtKT-IAFO9Hg4)Gyddpq2>+W}ze&|^al8Dzni9xLTc-m)7 zYq9%-x*WAn`b{n-rlz#$;}a8Xd@CIRO#>f4Trc}H6KK&@{8q}&QPZ}Zuc+#bnE=U^ zL{Y#w!E2px2ns5BtK&Q`^dgTx_$e@1=(vQDwBxAtU%Lp(Vc^YrWQYG{FAi0|qy`rc z&vKLNSFzRM6m@Y?$GPu2xdCcHS4pM0{thFl998XSF%Jiu#TlmiOD%OrETonq*Ez+* z(Q^tnQDG*=^A~$FUW9{Fh4Q1Lqgi|lt$GC3Ks-XS#YBe)%qX%u@64|dt9f%+J`BVv45=y0JJ~YKhq~Kfw&Ipr1acwN}X%KBRlTi4-%`o5WxUi)MOB z^5x7l>&?K=L3vugqABMzf@;ft><_L@9-3#dVg4NBZ6fh>5}hCJy?NjFgrZ4!grYR> zm1MUs#kqmjbEHC`p!YzMCPOTf%e70jE-(Mh9}gulooV1|%xDn~;Zyx-@vt>Cq#}L2 z5xgEw{&W&4QEfF9llfwsgsJ2HsO`+ojNbRd^W*hd7+>PP*6Ds3j=8^q4IXUwcO^Lt zQks>OrIIsjRe&I^zM=J9d-2tM;Qe5Hl1d&H)Mj?f!RB>rns?{ZogR-eljvh z7aTZ9~y*Ro9@F!lGqSeBt9Ljh#P&utRA?Y)p*0tUAo(s z2tzq*R82u4PZa}{m%{OgrheMQq?)kUKaWaK|Cz|(^A>%&N{{O9AbZOW7T7DsPe;5|S zuF&+GIy+4{SZkn!l7$I3%qBsG3bWM?dUFl0;gPI6w790M92!kOSERaGb#cek0MzDf9( z{tzLfMov6Z?b?1i;M#dBcXWj#4rYi+J6xu4AfVH|9diw0GCCc(Kkiy>^KpHE6qJI* zM`(E0I-3DnbRH$Tg?lbrozd1I<;9d6>(CS#V#;nT@%-SikZ22`_G1|(e};M==&LJ2 zwYa#sNsyC2*oE0BD=CS+DSiz@^d&M#_l-;u@~*;&O@K3NLJ%aGg1d{>Dix2n#K#gp z*YL_Rb;~3MCXx*;=jMOkohpnh;56$=WLBx=nP87*c={wbD*?yO zOU*DK-L*?pC?V!Z4Hj#6d1!+_@NPNGA(_4kKWy$U_LQcgK!i;!^&Ss5urq^kXDf4Y zgoIr+kWyvxw1>Tu`O+p6mskjL){HSBI5X__Y)im)Tglz0tm zq|;Ql3j#nwMDQZ=Y_N(&z&?{(i)(K&blAn0al$jqf?AX_cqvR{MZ`Yz(50XriQ09Q zlnne(JUOwpwl?e?0n~=9ERDIoWXbn*jfk|hn6L&Z1KGYbl=%VR$D$U!sFymH3?=CK z%?{y$V<~=ikqfDVx1cx4=p$s*p_W4x^>9*7%(FQpE=<-UpW~I>qe8C4#F*o@p&4ZQ zD1^BoB?8!0v3F)J4E7zzo%fJ$8YqV+5i-B5_)p~mheHbRT9BX=UxVjOe1=m@%sX25 zhuL<0_NI$#TOz9EIA*6{Dbd359xLsBFQ`7nn$%h;rikAFCo=VK-d&OegS7~==q$Z( zZs7HCdsv47OK;hOwO6tsKzSa3(a08dHtY&|Jlh%tVPkWXjXvC-8-`VkBKqW-HZ)(UK4FBn^G7;NfkmP+Q9& z{m57{p3iRr8l#5Jej#C|i&R&R+1y`N1@lB!#m$te6Z8GPM#&tTp4Mu)=LWJ*H1cqz zWAXk_vs=fPrb`uhV=y7Z*>AfrLEKW6`0a2oN7u6dNH8F{!q9QgULST_$J4&~JL3~| z)VzUblf9Dl3K}qiiY}$m*E5uf#!2!O85=|5a#s5W%cM z-$v(GZU(cGhwsuG0sMXwe14Lz>cP1`+Fc8QAoR(%EF5m52nIIIH zF32$oxj8w{E`5?V4VVck)#<7e9kr`EuBe2VlP+&gH{4V7*p1Nfz`NS)hpm%a5$E+)PVrWM^h~^d52vtM6Z3K#HL4ssdci9%Nid|XK11rj z%{D8(8@TfUGW7%2Utf7C(R!u>SePpVH?MJB6^~1bZEtRD)O|lxYQ{&Z!9=m*HE$AG zN3w0eg`0zSS;dVAEkfZNvEX6SKinWtnh4A6Xo^O0x1L13mG;Z`a1 zK`|}p$j12D%|?RJ58W%G_Rrt%Nuwl5NC229;BowI$CogZ*0Uj| zAi3#+pBS8)ni@ry?N$lyGx#%9S!vSdvf62qyY{icaXtn|$MXl@D+%Ax;bGVZhgD_} zIWLI-qY?dU#rINeEZ_UQ_bQ+sW)nnHPH7PGbtb#+na046o!(-9SMy%JFMYTcSpo6i0=ol4pAX9TWvB;Jp*GI|05 z94L_>)M_XZkY?(m$JA~Gl6Rrd?MZF0{%AsoREu(a1WC7Mq-d9uJZI|Hufc$DYiq^r zev#NA;E%^d`wXN43&&!uwX%uHawr-|!D$O-Dhik#WxftL@!vKdzDlW$$4nFqJe4ed zYk;``#o>28_Hq?a^|@~XI8ABj-nIjZu~f{EnlAVOn)23KEjyJtF!go)$Bf=F%!yJa z{TbM(W)L>c-`2HIQ2U@^)2}bDGZf$gY~EMLt6ycM-9v`jA2c3IvR$MU|Df>m^P}U_ z=453lDkXfITtM{4HUysj!Jj1lFeOxn-WLwAOSA<91;MwMuZ|YD=2o-G;%fj!>gdkv zlc(wHsjiN>&Q5b#@5Q5ebrDajyB=`d;d8M&#Tu*)_e@1ibnG^K*kY=V8nZbcN#j~> z&3SvXxcVfw)B}x*59!=BG!_pwXxmJn>bm;QcOy}24#nwMbN3{cH#GbVwomNY2V9>B zmNl<$VLJv+ggC(@;6!;Qurhx};^Wha8*4@!lv~WVOBRxw`sNRq@$aMAQ$_=zHF}FN zJxKYF2`{#v5rf*Q>?ZooiaO?!F`!O-K@P~8G41ew1VSc* z4TJLGC{Hp>X5JFVzlVxxDjos@zxH{$1xnQb|!RZt8Ye~$8a+xtO0EBWZs)X7%qy7+7`LGztm zEQnQjV>cArJ9Bb(IRmcif!RnrvoXhs(%3>0@O5LZf_vqxrtd-5`UDf z`KI%)OK0x%4W}G;TwV!WyO=@)Jx!FhiDD0581?gEw>=fCE&WRhty~1Py3{V*X9}Qa z^0e>t%Wd^TU&nkS-%j;Cd)gR`CtemphAjy^Kg%(f=6{kbk25M+hy=B&jaR3$Wz%t% z1=d$9EnMnr{uWfGwLN72PF5_)X#%Qc{a_CRf%m_D1vVidUNL5`tl+6(pntqyYMCa2ymWi| z?G65&kJu|MA8i~c#S}ul!uL>l^~B8k3d3< zFj*ok@IJND6h;PXCE3tzIe8yhixC?2si00iU~y5YwM*5OwWoEBMl&rBdO$+6whIx( z*3t6?IhNkejqh*-jgmJu4u`jmz8ClUwiAq;ElpQ)l;0|HR7UiiCn${lUG8|Ed0Dm8 z8o2fIWtDz|)m~in&A>b53}>UpKnv>x6E!wX+hK{-)XrB`#`cs#Yi0bz;HHifE(Q4m zOWzM;lndk4q57`lJl4uzSnzRgNpv$Ym>K#do4wkS3$RLQH-ExfhH1b|N=O9dOF{?)awj8R_-x z^%WjAj9iM!TR#OX}F-4VD-h1QGi$C+JQ*ag3> zIVVmdZ+L8wd@kB&urEVUD|Xx@uIR$UFTasit&x}i z3#fttrdtb+@{yoOY=sEKA-Haffq$%*Q>Paie~+(LAB(bKp;K(2!_UY={W9<1OJY*R z%4=qxih)#bvrZGIbuSM!#edE5sR|x-PB9|8cSm9Y0io{$#gdmzbl&id%7uv=q=ylP zrG|&}tq??V#r5?ZtiG>{MgDlb4M)99y=9K4OcyIQm|k4R?U$@AKj^Req&$)D#vZ6ZrQhgZb1IuI)D|2$*n$GU{JbYt`22V)m*1fC8 zz}N#XAja<-OTzW9PIW|7^gj`fpLhBemv3&pKRc&-sEiD4QA~lii$KeepZ&CtT8R9mO*0V8GsNM)CB}F!gi1mJix4qM-h#+nT3^2P zORm3lX{K+xDP53_BV)O8)ESwx{i}f!$xwLp1yN0=x@^x=xDaDi*E*8<)g&`1aVV)7 z7x~5SLN+*e^Xlyo1OPOh!M&;akOF>6uyu8+!+s8rBZ$ z;NW|cDgIKY+IKig4Mlx}#Dwe#vLH)xi_oyWq#!+`(NvR6x>A0=3Z!d@@S8|v06#;1 zAV14kY&rIRL@FXNKE31uY2w5-mvVH7SA@)}XL+i4wKX_-r~gonF?jP2Y@F-#IV&qc zahA)saI90X$*)5+uu7MUAKi`PCbW_;BM{suHD^u^m0K~DZ#04ER`kuE4q#)4>KAw;K|<_s_9bDuwRsN!9wfE!Vr z0Cm^NxvvutkCsZ-F$*>G%cuMEX$Hb0$_(62@#0D;s?4P?t;kpH58K7N0!@O*r!kXB zAC%JTDmCZCj}`e6zuSEi9~Bm7dMVHY!`TNXrT@6l%GmP-Z#b&h2Of{6&Ha7C?@LD- zO+w5ZDsz7jaQqTtVH1M7Da>A$t@YF)5U-se+`o*O zUDR_5fvCidI#KSHSt;Jbb4B+h1Z@Z`{{r6^iBWiv=m9$9SCk>cxy1=@lb|Z zcXup|Dz`xN!(8`kEQubts|b=K@A*;kkwa_AQp`D;zx_k`px$2!3F9b6NbwvS2Nkq) zhfqlHu>)5E!au`~#H8f0A4_P=Nb`siL$#4>FGIW=7sm?a%)peL!0sphVbm?LP58mQ zHsmPPF|wKEUNDLvG}EEkl9`TBW>On?H?u8yRKqUaO1=S<#}f>caQ5GB;R-g)r52zP zEcip}7^ghaZiZ=yuz55XwmFD#01K58ySV2x=sJM>J- z*AbVD5K!FN$@LmiB1_YaNujb!o6qv)Gq*bs^HAJj;wF{iNUErOf;|hCK{_m8rK1u+ z3F*C9Fcy)DlfWtse$LzvBl(_lqxP4hf`P~^+JBwYXFb^hl_>hVDX9Ab_^RL5pxPD} z6`f>U8;)ah5^87Kv4LsVUtJPJb^z68bN;O9>FM@hmh=ukKR@XRoGge%Z;@gOZ`(m_ zEN?428(V3MB}-VsjRpcs%t9bYA}b3h)zSz#=m44*8w7%$*W1thZ+7h!*a0uYTUJq# z{U+e58MXmf7Goo$*N$`Cjh_GJcrF+sU~=m0r>Lei2B9xg7K@e1Ee^5-Y%Oh8K2Zup z^yE?dO&Vy(sjA{)e4>*OpHT#QFj7*;E*sOzd|w1?)qvFvRffhFKvI1R48Bp+Er{7o z(jUZdM-c+`DKaSr{WVfZ7bD>c0gQlP3RRMsl@(}|`2bBXc9ifbywZtGDAVxivo#tG zE2o2WH2L4~{a~8DZcB%7QSKaYM=J$iD_$vRv0;%`zfIs&e@%?t3Q z)-TQ{B!c&6%L6yx>`YSyRDAmu$_Zm-WAAc|Bhe?;XZ%BC5uIX7A1X&iY9lA;i(K*h zo6{h35$g@d>v4-%qyQG72~%UO!D!4^_gGe;g)~!_9=Rh${hdvsnFwV z$21~9rABkgN3!8FB!scK*`=S#1Q%0@{7S+Ubl<)RNiAq>OwS9^^b7MUH)hwqRZwA= zqbKQ~R`}SL(g75fnidbsUMxdspO6hex#&sJVJL8$7JX^5&W}F7H5nd}1F9$k0$;>fux&1_Qc5wd~P3A^HRh1tD`3YLH`J zf`=&D%-uYPE!2FYL{=d>I-0Nrx$gMuLMWU9ALYF-;e#rV$Z`8KM$ru43geZ29Pm*F NlA^4dOr?~0=zrdGq>}&u literal 0 HcmV?d00001 diff --git a/GUIs.ZooFlow/Resources/ZOOFLOW_Home_klein_Eckig.png b/GUIs.ZooFlow/Resources/ZOOFLOW_Home_klein_Eckig.png new file mode 100644 index 0000000000000000000000000000000000000000..4a5a37d12401a22c003a83d0d70df0a2dd76d48c GIT binary patch literal 11490 zcmd5?^+VHL+ec}T5|9qz21HQ0HU`q5ga{%?x73J{qof;DR2rn=CP#-ff=K7+5yI#k zUGIF}d)&|aAG|+|@x6Aw=j!WR=X_4YOLZj@B6=b$EG!ZgW%*a=@AE$&0zCBJ@U6EX z^w%B8DKVZKvT^{iQJ8truXak^&hZwr5i^G$ADZ6yN#@@@gMjN+pnuj_Sj=_s{p(!_Cxb z1z6&`Qy~KskecT6arGxnCv!ccuMf}X0LX5s9h574w*KaC{Y>u($N*iarn7doDebtd z2z{vLlmGw!2C*22dQF_zFVGp82eVE~gqnxhAO-QH{}#Y+-ec(~;1yie%A$v`rkPa@ zl$&M7V2>te*_Cmkw!IKiW8VkGu8Q&!-^ez9GGd4|Cb2?;Uy!dn9&QJe{^ zs<`O0&jnqK%K5aLAQ+1;-9A8l{sY-y7ADqf1P4<#~q4UAa zMz=-&y-!g{CKtDUU-*>3__g64<{d%Zh!v(1nbo@v+a}j(QViWQ|Y_|j6FWlr@StEa3#)jJCb{m`;jPf z8M9CR6)Knk!%78LpT}XnxM6SZxc6A^mKqS@^KOXG?ABlvu%x3*r5!pi%m{8u%CjMk z{7K8ce0h=8XMkK@)!&LwVYlX?OZ*w5O#1J0nW>=SMSD!}SGK&G4R6Aq?u}r?7+H&Ew{@bRWhC%&uVZdl ziKWD4OjD_zkdhPSp!$;UNoW+tr9=Tm5@Wj9ft-f&5fOsMcT!9ncs@vS+6naLca7>p+3w^ z!T83LQ-Ei=E*vA`WLf40E74ustx4EUJ29WD@%2H%T*ftuYgd*A2Zl`do}hNvx+-hj zX>hufzB$u4xj@{^Hz7g0&S8u$%J0NoB*%g_nLHN)GS!cMwcK1edQ98oA06qeS+#U+ z^uDjt2>DY1pG(JeyHI$WLzkql_v3cZ6UBMVHLP4;?0SsmYZ&wBT*vs2Vhxe|Tx}Yc zF*W5mG0Wd8}Ck<*>SpZW53p=4eFDH>51g!*Vg%4drx~ zm$V%#2t{z2?=m=khq=2oU7obuxW!2xC?~#o=UV!aU8zC9ysMz>3(1kK@WswQ%E$~q zL`hl_rahaqN^zKNzSv<1jt}xZp5ij_zrH+s5*4xB700sccU+m_8w^W#Gke?9M)svj2-)b|^$|6zrR`Plp(8&jd>JG0 z2$0jq7d~;#wCfqxVsU-YPSadoqD_VHS-@r?XwuhPA@e_#qrLEme=Tqk_Y-k8;1LS> zX?zg>0v&<*;xpaR5$9G z{}0#j0alTy5?8tp&!vth&96V5_2SYPkaH%yrKXB^;`3}He!KAn_(b}&jcm5Gafcpf zBw~op%pUgR!Oq;SpT~BzMndiPl_xvVLIX~_PrU@_AX^Ul%w3m=y-1(m$qjvpH8o~QZKOX8rM!G5S=c#n(&<6JTp!Mdy(C4AUdxB+EMo^v`H9lt6vNKlOvvWF5WcZ_ zL-jLsq%*(TaHyTDDKW*(FyAbxC6$Zvf9d@kXRa|Y3PV$fQ2MYs0V zU#?y41mZ+#{<&*s{x}{Jde$Lo?1e-^yY^->tv}8?0n|4vcVIauZDfAs$2-?Njy}r_ z@Bs>{O(VRciBaEwJlIOX%}h7WCu_ZZJ_{K%%vVBIvitb7=_cGL{pLz@{dDnz&rj3a zx*>2<tA~o2@C)-%E!8R-SSt^vD}m*?rf&}>GxsFNz<;I@!798vb*7@*~Wz6U=&(D z*zv#)ksN{OJ}Qf!@aHE3qL0`JZkPd;#Hk?bj#ef;=c@fgE1|Qkgh-gj8SoUKZ~a6(OCVOe(>M`$bGw7-w&0|QqKUc zd$`4CQWy=Wv#}?l=G2KXXbt@NDGnbzWfOI!> zw-9>D%bO3yE?A!RSxZqupC$z?X8+0W>TG%%`k0K%-(03-KnB~$qu8S-*S+8tp+QL@ z`&66UA!S2Izle*C;mpf8yQNhc1Bq6>oqrCBVCh;>EpE0yB%+@oscoo&K0c zJz_MG6a~8XLJw7y7VWsc|Hm_-sAPzX)Bw+>aTRtUhexUJhE@hqj7DQfW8Y+m4i!a~ zQu#gUWa`o$Cf6~b=z|~UKOoP60ZO#(}epD9AyNfT(8&~4|FPH!5%^6~5{s21#t8S~JcNTGd zTsy5<&T84@=W@zS0mJUTW15rMu*CXz4flZ* zceKKCUJUK*rCPb*yhAO&9m_7!rZz9dMw=l0NoB1TIW6To)K}D&K`XiW&=o*2sfIKyAphXK1yl0u)D&Ckcl0|1 zAfKdXgj(dMxx0wXxoVA?#H^4wddls+=EKFdcv>>>PH6GC6`KqvLjYB`@>M^1Ubc76 zUNw67nGJk5m{#b(l)l2}sK}V)WT}!XFvY|Z3%`iR@&_aGi`_c98eO5Q(b#E4uucs; zpeUexX*<5csYBUWFLEAK>frHq(z64H1vx6kA_{dcJu0>a@dy+3|MI)oeskh8*UEpl zP4uyqTaliC&cx6}WyJpy2kN!NX~St^na(C~sgJWloYKcBZw^{je zgZiOE^->+-icLZwz>G@9)s{7!w}e_0C3%=M$ZIJZ4b?~yEh#B!7ACSJPJ<|Y3_>ql z(&&YYquG8zFX`>tQTSckm0`sgq8UY%A1h}JGOg+U*Jss2Yaym#qVv1B(LD8_>fvN5 zS!)Dv>LoBFM$vwV+m7%{1mAIY?OWBgh<(dCYeYrY^KIEUN|vx$HPgVq=hADbGbxTXA1gn<~O3DCNC^Jsw3uTp*uQ*-JlA(VZj~jG)a_{42?jp!!^GW+E zJSs0@+I^>rU$D=*hs4}&)bc*Q6^Eqw-0lbN9XH60I#v@t>JBS z&z~uVq<^qfrmuA8XxBM>Mt1ui#Ag(z6*^}MtR1P*kHtf)4pag1 z2g7lG!o_EmI6d^D8Bry9F~5Syq-ek5*=$t-T<;!P(M64iD~3ehy%|lc>is0{B$wPj$VVeTvyN7l{G;D>RiAjsY@%eMiUJwgwWA%U?f6o zzi~r^6Lq)QA|-nH1?O6#uMB$j5H<3Y8PXW^wLY8PpVuC)>0QoaASn4UW~DWsZCj* zuwlm^9=r@zrz2Ab)7yhW0(Ux38|In8^4h!fTiMoykuWyzrI{yvt%s6TU>~Kcx4x)& z-q{9*O4@-RIkaN2!o9JHo$T@JRZ1(qKC4KnlX_G0SC#GNl@@tl?rzX3kfO`o4Z7TY zKKVB zTcK%s@z=UEH^2F_g4ae{8Clq!`o{tj4`9C0Rj(?pM!WDg{1JuAI82-;6e1Zc&B0RjTUgw0T6Y z_mrC%_J-=R=c%pX`fy(@e(-4v&l{h!jv)%@a46nl!-k48zwT`C1WHFf3wp^|LCzQ+ z=?}Zp#HnxVC90pj^$ot_jkqvUK3vZ=H#GAtFh_CU95e~YO!UY-)uI+;;3P6n>&44R z9Kvn>d|hYVY{Cp5ldf6S4KVsT=no%%S=7jk6W)g0ZQ`$2e#HqqHT2?W$5 zlqOR+X2+c)h-I(ym~(q`a+q=R-M!{Aq%X>$78YAEZz;p8^j}?HE-J%f>BSCLW+g)$ z!r2Zf6u){1T(=}j`<$k?qt0Lmbx(hl4Pw96N1W^Esu$IkeT#3$VHY}{wwHvP?*v10 zsU-HA{%s>AS}9QA>_4V2SyXT9I5)dCRv)?p9Yx zgRlio>k{xVrH+2ZZ}!sg7A?GwY9BD zwtk0dWX?5?2G0w%V#w&`p=0n(nAIkdvG-gG5vCL8zHldH>|`;Fg|y{8WsCl`!u!6Y z51HjWIK-Fo%XgiZg)SWXE4LQ?C*}hG2T{}IACbY5sa8*PS&&;q2ZpH)*vFjCa-Lrf)i{2cpVkz;z&^x}*05_dt7b{V3 zSJ)#4o=?^tObz`H}YN)KY_H?3mmPld)Pww!mN*|K@g7f)&% zD4O$UJuB7basY6{-<#E~#*P~W!{Dt|_A6^z&wHweWpOBY!m-!2P}~DIdzxk*iRC}l z`9E7@dF#&-hom?<(wXBhW>`L}p4EsZva@(LQw-^2C$4ekQcGeQI9$7QfTu507{e0=jkZ=#L$gxS4O5&k8${A9 zp*3HE=lua)$)QATT_rUiKq0EPhcb|JRBHVs~Va@SmmvvB^T`6Q$ShCa&k0^j8J z&JkvFHKthGQ^+6Sv0TP^I78YwM&faJI!Gwbnt}J*#mlD)7A$@B4zmbW!;Bt^#%a7;%94 z&c3YidWck42BdIT!Wdu|RV|Ah>_6W3WOl-wt4_km=_pw4+-E4*W@mr<#L3aWM`Y)^ zsMMLP`M0gda#Sh7U{}l5LGNtL8-sP`x`W3aJqJv4=GWg*)A?#i%kK1IJ#$+M`rn^s zarPzxTwImg*3WFnmjrzBsHG^Aj9$#y6c{aSMqCLadPl`w;~SQZ&BVJP|Dagm115}9 z1xkVw97HM3rbT|sr{e4+&i6OYMpw(&U7^QmO^Fi-S4zIMkEVS<1o5Ik#u8h>Ys$O^ zk}DDTjH@}KcfeT5DSW@U5HiPqGp}}8Uk$}VTF~wd&93ZFYtb~=<@b5y$EK`uI(}Cn zSABQtYwo(9GqppCxNsra@T_*!weo~Do18bmbB%bq)Z7`)oF#{7XSW$RxLr3otrhp+ z{nI0JKx;j6P)7bRc{ZI7ey3A3lI?#F&tJMKCsDe*#v8UhhEm0`tVkfD6p4J_@DbsJ zl!K2z%c>a@JBtp{gJ%q|A@Wpd-!`nwjOCD6r${(&`%&#aNJ=j7w7L5d(XEk04V{@J zfA}kkD25#FwJjMe(ZeKRW2Ial1qV%?9Cuu~(LMc;#lCY2K#F%;b8D^Z%F8qfb+j-FC zY4UuX=d3`yHK{oG3(NDZ1@FZ-{dx@(qa`I^9AT?(6I zVp&Q~Vvwb~x*-BMukYwXim?KLP%kH{>Yc0-mB)D%V8Gz;X8G#WD6eLY;7VKi=~JV4 zl@@HOOrd%m$=LLpa226;LHc;RA9g}_lpP27m)~Z5r9t2`0-HobrJWCwH(3^iuq)o1 zT}_81j!z7-V{i(yu41|Uz#Yag%M;zW=)%wj0cTV=uWdf(6zAt{z91- zjJLQ%M+{#-I!pNM7pSpKhZx<|$_IBNkN!*kc4*nEYBu9W%y2?1)2=$o?Dq|Yf|x9# zm8BMX!0SI-v!jlPa#3@LZk~?omXIQ)AZK-Z#2i+Bax9ytWKFs#Vl=xivZ0da6zPbS zsD|)p*FG^rY|?C^>k)@3e3s$r=(^i~2R!ONbX@ySC}6Ksl{-TLeu~g-0Q@i=Gqls)N0OH z-#Lx9g?ssv!x(aqG-a^BCYB(Xku_)9$*_KJkIlMvra_IzOnxU;j6LQw8k^ z8)hOPl=;!muSt;8RK!`T$AfeW=0-%lr#Q#WQc|)PzL&FBdFAO9Yuyqt+WwmvUgy)5 zCK%lgaHaGHYvcG}=(On%vTo#Je-PnIYz2v{piPVrI4S z&GX)jPY;H)TYwYDOLM{#)tEUBGCRZNx5U z#U8k8C~0LdxfE$)5$Baab3`p=**wy*BLp>!l^H{o!xlZQ)P8DiUG{=Sp*O_7=9;lYZPY+vcP7hBak%p1B?$exw1}`c| zzTpy1afrh}Y0ra62$CT&^Y2Y2g=Ncp^LD94l;c$#SG-kb5-!rE7~u<7_ucbgsniUl zg1DUn4q2)LO-|>sh*9u5IHgj2*0o(cWnT&;U7Ij+@t~6UI>T9UedCrdZe^xDRV_E6p8@B|m3B1rnCp!rzKGR4mMH-U!0X1W6(f&{`R8|{Xc zs$FW#)p+i8`^@yAirh8d@ystz>5&N;kmCG#q-_|~dxis30$z1;u0;FgPEC8=T9n%? z-bJxx${fw9;$heH)Tj{|Mphf@M&r3hDLT7ij-eOTI|QR9>V9MH_z){+L(@?e z)2)}_dm*;QH3F_G+%6w5_ZtMuEydVhtqQ&c-45eb-BKj|c8bKn@Zv~nTYH~{oZ|mx;HUnO!|q4(z|+{=HE$jf=MWAf=Z!#X?fH4Mu~36(bqhi zo&)2f&q%O9Wt@;v&PdezOyjyZN{&h3H@(o@GHW%SRl8|+S9H~U-HX7yy zqtRWNZ+`$d{dyP6(ZToO9#fVyf6(rFG-5N#qu?G+xWdwlpg#Q$09wyT@5#qi6%&` zxX=W?dQ}gK5na6=d!&4Q54qlg0dxmOjTI^0pCdjrLIqxy@R?tVW6 z6cL4cqR+UAcRA*iPE#R&zyq#yPqXs>-(`|m%)_k1fcRQ2bD$&K%s;`&1U3KlIL>MzAu5_ z{CBTRrEb#R1U|B|VOB<`);lU8>b`~gE%xTyw^woKc<(WY@~RT31mv3i`pmtv*Fi?s z^d#O=f#MaHeAEyHw+%ox){H9#;n;H3UME$Wg6)6UTn|Au*o@}kGAw(?vIi+2>D7}q z|L9KM#b?08zu=^a7gyLq?W{}h2P^hf^zp7Z!Tmd036lhSfS*+<4TAcEcIc}Xc592U zZX@BqG)q9N+@(N2A91P56@JGjz1xiWWfHOw&E52%vnkYBY;!JWlHg+t1xMu`Z-Obi z16PUCslrFLcbqfgJD;`GonIt8CCSPY_;!6s9DUV8@J=}rz9V8liFmEHaJ!PwZG8ae zkxR;2M%WLeN|^RDnqq?_Zv<7k0bWfd#glm&8O-!VovLLTUt4izb@UyoMXU2+-!i{B ze?YE%eYE#?&f3v!jrsf8o}iY2!Ni70ICUHQ2xJfh|IZB(nmiBdo|t|2N<3@yT?Uyk zVbbUm3ea8TO_DFtZQFP5y~du}I4<+;()n2S`Ey%?3EG7Ir%?}{xKMJc65I^(0!6(H zK<{`tHPRWs!rf<`yFdJ5ciNiXPiwXA#(%9g_-{FQonKsiYLprWVf|?|9&@;-hkr=# z$#*MeCXR+og!w!9VV-~$)`^V4cI%CNuJ6AUF`ZNBV-z%}Cb|$mXfLWgZ(z)~;AHkz zNvh@bTtKJXt}ayzX9E?Lf?8UE{+EPK=xy%MVn+y_=5*LUiXeGraH9BrP83J;r)FO& zkSN*C#bJYA+v=D1e+DaN-|Sfm4Qdav4Z5d;Kw;3fw1p6l*xlEBDB17r#0LPrzLf9J z98t1OZN$fTeDj+iG0%s_$oiTtw@J?!bMdbydqx9o_2OK}ReFOWcePSArh;Cpw}vs- zaw7CW*v5*Uie8+ad0wlY51?N?YfiRS_1350l`Y6;eA7YiTkJ%QmT6;GK;IJ}PEQAV z>g&4*N=UmFo}u6U_l9XuXr^)% + + frmFlowForm_Test1.vb + + + Form + @@ -146,6 +152,9 @@ frmFlowForm.vb + + frmFlowForm_Test1.vb + frmSettings.vb @@ -223,7 +232,10 @@ Windows - + + + + diff --git a/GUIs.ZooFlow/frmFlowForm.Designer.vb b/GUIs.ZooFlow/frmFlowForm.Designer.vb index 44b69e35..be68d2f5 100644 --- a/GUIs.ZooFlow/frmFlowForm.Designer.vb +++ b/GUIs.ZooFlow/frmFlowForm.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmFlowForm Inherits Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,19 +20,20 @@ Partial Class frmFlowForm 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ + Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.SucheToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.FlowFormTest1ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ContextMenuStrip1.SuspendLayout() Me.SuspendLayout() ' 'ContextMenuStrip1 ' - Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SucheToolStripMenuItem}) + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SucheToolStripMenuItem, Me.FlowFormTest1ToolStripMenuItem}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(107, 26) + Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 70) ' 'SucheToolStripMenuItem ' @@ -40,11 +41,17 @@ Partial Class frmFlowForm Me.SucheToolStripMenuItem.Size = New System.Drawing.Size(106, 22) Me.SucheToolStripMenuItem.Text = "Suche" ' + 'FlowFormTest1ToolStripMenuItem + ' + Me.FlowFormTest1ToolStripMenuItem.Name = "FlowFormTest1ToolStripMenuItem" + Me.FlowFormTest1ToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.FlowFormTest1ToolStripMenuItem.Text = "FlowForm Test 1" + ' 'frmFlowForm ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(800, 450) + Me.ClientSize = New System.Drawing.Size(230, 174) Me.Name = "frmFlowForm" Me.Text = "frmFlowForm" Me.ContextMenuStrip1.ResumeLayout(False) @@ -54,4 +61,5 @@ Partial Class frmFlowForm Friend WithEvents ContextMenuStrip1 As ContextMenuStrip Friend WithEvents SucheToolStripMenuItem As ToolStripMenuItem + Friend WithEvents FlowFormTest1ToolStripMenuItem As ToolStripMenuItem End Class diff --git a/GUIs.ZooFlow/frmFlowForm.vb b/GUIs.ZooFlow/frmFlowForm.vb index 3205f6d6..b04e2715 100644 --- a/GUIs.ZooFlow/frmFlowForm.vb +++ b/GUIs.ZooFlow/frmFlowForm.vb @@ -11,6 +11,8 @@ Public Class frmFlowForm Private ESCHitCount As Integer = 0 Private CurrentState As OnFlowFormStateChangedEvent.FlowFormState = OnFlowFormStateChangedEvent.FlowFormState.Default + Const WS_EX_LAYERED As Int32 = &H80000 + Public Event ClipboardChanged As EventHandler(Of IDataObject) Public Sub New() @@ -49,6 +51,14 @@ Public Class frmFlowForm ' === Register As Event Listener === EventBus.Instance.Register(Me) + + ' === TESTING Actions === + Dim oButton As New Button With { + .Location = New Point(10, 10), + .Size = New Size(10, 10), + .Text = "yes" + } + Controls.Add(oButton) End Sub Private Sub frmFlowForm_Closed(sender As Object, e As EventArgs) Handles Me.Closed @@ -109,7 +119,7 @@ Public Class frmFlowForm Case OnFlowFormStateChangedEvent.FlowFormState.HasFileDropped SetBitmap(My.Resources.GLOBIX_GEFUNDEN_klein) Case Else - SetBitmap(My.Resources.ZOOFLOW_Home_klein) + SetBitmap(My.Resources.ZOOFLOW_Home_klein_Eckig) End Select End Sub @@ -201,11 +211,19 @@ Public Class frmFlowForm End Try End Sub + ''' + ''' More Info: https://docs.microsoft.com/en-us/windows/win32/winmsg/window-features#layered-windows + ''' + ''' Protected Overrides ReadOnly Property CreateParams As CreateParams Get Dim oParams As CreateParams = MyBase.CreateParams - oParams.ExStyle = oParams.ExStyle Or &H80000 + oParams.ExStyle = oParams.ExStyle Or WS_EX_LAYERED Return oParams End Get End Property + + Private Sub FlowFormTest1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FlowFormTest1ToolStripMenuItem.Click + frmFlowForm_Test1.Show() + End Sub End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/frmFlowForm_Test1.Designer.vb b/GUIs.ZooFlow/frmFlowForm_Test1.Designer.vb new file mode 100644 index 00000000..3b962d77 --- /dev/null +++ b/GUIs.ZooFlow/frmFlowForm_Test1.Designer.vb @@ -0,0 +1,41 @@ + +Partial Class frmFlowForm_Test1 + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.SuspendLayout() + ' + 'frmFlowForm_Test1 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackgroundImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZOOFLOW_Home_klein + Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.ClientSize = New System.Drawing.Size(249, 254) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "frmFlowForm_Test1" + Me.Text = "frmFlowForm_Test1" + Me.TransparencyKey = System.Drawing.SystemColors.Control + Me.ResumeLayout(False) + + End Sub +End Class diff --git a/GUIs.ZooFlow/frmFlowForm_Test1.resx b/GUIs.ZooFlow/frmFlowForm_Test1.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/GUIs.ZooFlow/frmFlowForm_Test1.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/frmFlowForm_Test1.vb b/GUIs.ZooFlow/frmFlowForm_Test1.vb new file mode 100644 index 00000000..494bd7e0 --- /dev/null +++ b/GUIs.ZooFlow/frmFlowForm_Test1.vb @@ -0,0 +1,13 @@ +Public Class frmFlowForm_Test1 + Private Sub frmFlowForm_Test1_Load(sender As Object, e As EventArgs) Handles Me.Load + Opacity = 0.2 + End Sub + + Private Sub frmFlowForm_Test1_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave + Opacity = 0.2 + End Sub + + Private Sub frmFlowForm_Test1_MouseHover(sender As Object, e As EventArgs) Handles Me.MouseHover + Opacity = 1 + End Sub +End Class \ No newline at end of file