From 19b7415a96634e688092bfe6d4c72b5a6309e36e Mon Sep 17 00:00:00 2001 From: Dominic Reich Date: Wed, 16 Mar 2016 23:12:02 +0100 Subject: [PATCH] removes BETA notice in frmAbout, done lots of publishing recently for testing OneClick Deployment... --- .vs/Gästeliste/v14/.suo | Bin 64512 -> 47616 bytes Gästeliste/Gästeliste.vbproj | 2 +- Gästeliste/frmAbout.Designer.vb | 20 +++----------------- Gästeliste/frmAbout.vb | 10 +--------- Gästeliste/frmMain.Designer.vb | 23 +++++++++++++++++++++++ Gästeliste/frmMain.resx | 3 +++ Gästeliste/frmMain.vb | 6 ++++++ 7 files changed, 37 insertions(+), 27 deletions(-) diff --git a/.vs/Gästeliste/v14/.suo b/.vs/Gästeliste/v14/.suo index 9c9906a1e3e4649a1946316f8c7d3671ce557781..e06a99c063fee68c8c07109b80e1eb50509aa585 100644 GIT binary patch delta 2082 zcmb`Ie@xRy6u`glOIx56Y^5!A6h+4-AYdzXYl+AgDU2-6z(i+|nL&|^1jS*yB`jIL z*>r4)+1Bqf8n>ag?5}AAzuzS?7i|@1mM~D!&8b;t9Q%=MI5+8rEb87Ba86mWWWMHe zci+2vckkYNcNNFt#8Lj8B{1_~@j^aDsMyti+J6RSaU3Tu#df|OZeW!6!zJ{^`IDcZ z?g&spqC-$EaHmqsL>LGoaht?UwVsG4(ugD?nMfgS(fCc`A!?@+RsuIAY=g=`^~0E% zC?v0?o?2oJaVt=d65o<2ZtUE_%*s=IWQ#gx2HuEIH)YeL9D;4DrTS4~MxZ(sa%nlZ z8K_THw@{ZVP(8=8U~*m})d_@}VCGgqtWQDhRgKa#|2=>O9B@RIfy< zN{^AmN+m%*29nVW8uaD)HEb~zr;Hml5SqtJS_eAxdFasUag+8V%rdxDv8`H?+&LpO z^(yfTagF$u_>H(uj1p1ecj6Cx!7yK**$3D+zgV*LVPBkG8MTN!RG=^2uVW@MH#3oR zUKm54ZpGvz9Y`r&cprT!es~X~RKAP88GhX^nyZRwaGX5T%in8#JAfN~1%4>SsM!xC z=u7i!ENp{B95=PILF&GLP#K>^sxiBu9HZ%TCXQ>d+AJ(X*x9FG84>fvbJp#qrIR1R zWE~3u+O?^QHDg#MEgj=WQk3y54M^FeV8&>+A57@W@qoqLAxzdr zys|S7BlNAu70L>!4fOI6e(yGC?drlUZI?dT*Zqv5|LPh@R^$IYBhnd_2nrhc!>0kI z&H@xWpU1i9%&;17??D{eTQFgx4voP)J-a>(ChQJkRnUe)@F`e_Zw2>34;CE=Cf0Ke zTr20}y!icrIz{Xj`H+*BWFcvUR9PrA+*zD^Xpg$Sq1ETbw~s8qy%9AG{!T(vy>mO|5z>BK0aCK z@i=UDN7Lf`2D`H{-%;rDQ-%D-?q8V-MXQ9W3#8ujp1PXbg@RUOT^3HE=ibD$L?<`%psAYXk$jmu6M(K?i+M6SOU zk9`-54Lf$_?slEdC=1nG%=}U{cu|XiKTAN1XU;EF#2fU_vAg#XcE52%NtL4!=!#qb T`MdzrC>nYf-v7{5_4dGDMTp|W literal 64512 zcmeHQdz2ejd7q8##CZ@%2*HGqD8VElS&c_;$&Q0p(yr~q8*jWD$B7lzT1mT>t;Zs1 zy|chC9x2R?Pd6N<%MqpVW?_{{0bsiymss1H~N;IHGBND1sxiuhF&molgna4soxtjf0C`O2F4`o65iTgSFP z@2p2&{b=7y;qTZ+;dulx7L^0acEmo3t3l;(i%@DGpRb(KcOh=A0a)aHKdX#}CG*dG zPa`Eolt%^_MGBHY#{8nqHR7L-yWRW`A)K$WvBI$&{!b>}a%Q_WyBET*`9H5OGVZ;= z^z22rCN1ze!#*F^rvX)AI7`G^h}0%y>agb)3aT;9tFmL8-d-xO~4)?56E|q_nbpm zOjiNtA}|fS0w@8b(+V&H90Fzmwj{RZR|2;IM}UKXIUOgn{f}(A|BSDr{XZXRIJOA~ zI7$B}v;F@L@h)cje;DyEcKd(WX#bKH$d1@nNndB<`W%4I&cgZGz;liNXW+aVI1i9K zcdha4be#FVbOZQrq~%3ffoboftLW61AHDZ&b;o#1@T@82m|b9_%6xq zYG5<)GUJ|1YZU*t8TYL5Y{&g;f$M-_!_Q9RJc9Gh#ypnQ;&9{R!|+;9bDIz`KDz1>OVP2mBfEUf|Dx_W>UQ-Vb~L_#nXWK8*8U0v`eX z3b-HmDDc<7$AG^DJ`Q{W_$2TtfbTtMoIj28-vOTiJ_~#f_!96C@CD$D0R8_x&g_Ga z0bc>W3VaRtI`9v`KLXzXz6pE_;5+|>^S6OVfbRg`1%3!T3h?<4aDEK@H61&z!Siez`p~(0R98`PvFy9ptmcI*mO#zgDSpt;2vPe@IJ$V-YXN6bW;}wYiDm-}+z;xJpvfO+C z|6Rtt+VUSmna?2J%Dg;Wf&@W1P)MVefbdsC`JaxnEQ5L<^>;`+@@}*8k0aJrG{Evd zt;6`=0sq_15Gja4k|~0_F_$Hr+m(A|`Y$x<|2!iN@_w`P-FSF~;b9E%mJ#m`Ie?KzwJfPk3H^*N9m!r<3A`7I$^H~eX{~E+`^C}UMM+u^jk769J;TXaA zK8o?YhMybvJm`-#$jY)->U)QcpuZO)DDu;G^M4`yK5%I#@sB|#FpTz*#F)F5CW46n z0weBr<7d`)i0GjwpwyEF12ji2p}vS7O!K(;>_H_sx}=ErOBc)#Jr8vl?%52MKa z49bFOY32}r-}&&c4rn+2=fm$k6dK`V%Q~6zKgT~DFVHoUKbMmH-wFTeCHcQq|3~^f z1U}qo9M-=8`ZxDK+d%JW{3vsbq9-nZ(-m>%osxyu35uybQvT?){h8yBg4a;LuTRC9V>;3_*#w7bX99AZL0RwF0K;HAJ{OQ-@JxQhGkMYr0QQgUquK9r zoO}^*G2j9&0oWD47@!>a65ul6a^MQ!rNET{$Jmr}+<*#f05pK*=mmTLX*2)?fe=9H zH3Dn|HUU=yn*pZnWyW~`=csXQ&cjyR+Xie0t_7|G*k=y|(%%TKZvb`yqrez&Bd{B| z3D^VB?=3j*1rormz{`PgU>`v0ngCKj8X&iy1g3!fKo&Rv90YPe9w-1sU>bM@Py#3w zRDc=a5HJfI0p@^L0=EH7%Tb(P1-u%#9caaWS$@qN$G@z*RRDs2rkP*)>~C-p?Gyi6 z#ZS4gnPdAS{gFo6jsNrT`#U4h*71|F8au|%c%^IXv-;$FxMcm%wT{0L=N0cWezp;| zN2WpCZGQYd9G5`we^xzt3*8uEo`w`6 zxV_N9urHw8Bl{jrZ~el*^?2n1;%7UM;S3|5JX#ayy`>(;%9EST2m2QgKjSvYzh(V5 zr#_*7BHt$8Y`6Xo!|!7NT{HSSQTo3(Al}8)|GggZvu~kW4E^67h*#48V(9-~hxkb| zbd<5F@hPFrCBX+c{>b5f*)lSaa*5OpiMQFecFzCI?JthDM@=h7w$weD$HOCdMlK{} zBRf6>{deCPNK7aE=VtidaF)nHv-odB>@1mPav)%X&>|@RPpQ`?0 z4sDV%5|la{JIEjNZLb^goBLxkFR*L-Ocm+>5}Z3}|J0RIR;RP(-(LS@PKkI=9?}2z zaje2IOuP9%4}K;8x5h7G;!KpV1QYVvF#d6VRNR$u^GyAt98a|yKY10$W^~Q^fA$R? zeMBYv+8q}n|NasI{m3q`1>Tc&-){aF7)`_1mU8^dMgK4BpkXDM9&oJa=>J85)bpRE zr~j8@-*(&o7G(V%k^MUUztZ&oMlmefiDI}M3oj%Q(cz&n>J(MwdW>Z_PbcTeX7wKQ zAS8s{x)jfm1bflV(2x1yKLB|3xEcQ-!qMYDi-PgU^)p*D6?Lpw%$56HyECP7wpiHg zQ+=wYdV-;TS8OI%nJHy97xVx~crp_mzMq+?l#;oA*T~F7E}Ob8GdET|m?>KE$H$|| z)ImHS%4TxuRd=5PdB;dqdsPKak`{zt4i*@p6P z=6_HKO`J3T)4BfhM9lwCr@5aaCw;A0$vONZVkb~gT0wNOW3kx;-~ybC?g2>KoBcIlTGvM^(m?eo)m8yiZNh zPJ}e9`xi7PD2_8Z^*SjkR~k9mboDO%4M6frLn7jwei>yc)?2B%^j1X5x9BP?+Q#_} z*(``s@}sOH`j6MN$oIgeu6i9dT}S4xeefy$_%JsmulauUnzbmx^um9QBbmWbnx!rL z9QejGq#uSmffQGC*)9VMInK*7Pw6`C;nwJm?X*ZE)wwJ(W}*Qdsyfw~S3U|!l3~%3 zuXXJT`j(ag3EhU27F9X4{4u06kCZ3S78a(ZRFQ7h9>bYHm~2lK{7NVj&fZdDE+ceG zzf7~MVg5(qlW&T(mVAf2*FNX0g-OJbM{Jx4W<1UOU(zsEuCOHMmlo~Kti``8%78zghz{=BI2&#-jESKSI}}c`(V=+kf_niCopQ9Ls+Ej zyk5hcmrCljlS2zQ4SAW;C5s8Yl}Y~0eC}Jq`Aj2E&2zVZ3Fj`ZQ^c&neb~}k<(77` zOP^+IIe{E=2^(AT9P-1~WkFl;rCJu(qaCyN*oGr}@pke{oA;%fUvhD=pA+q>z%{Xb_vTDR_#t^arQzjh^H zULj_kiC$j%-|9*@Yd&w%XNFYF!_(GA?nm6-OeHP+dRy<^EZ?*#Nkhv&tIx}FKRRJO z)=v9f%5$`G{)T&D7qGKftNcp4lINqgYppfLuy+~fNVtn0!LEW&`kFWyaQ|@A5eVRp#+`FDuD70}(;Y`1j^y@8D)S7h)+zF6&P$~Tl+CJ5W zUTagRnyd=#(<)2RKCR>;w0#icQu(bR`lXdmZOrz5RoD=5UYV^^rkYkU=64w$ZIaCQ zR9K(#n@1{a)UvR{lPh7J_Ae}r8rO5H_Q2A1+CQzeoc1qT7rAI}w|}OPd|cvoaEs1* z?s~rJs^P0Ha3Aw51NV|uVGk_qV#Qca?z~4!Li#3`Cr_ibq1cyo$xjyphL`{F2t4>G}64&+wZYV$U;%aD6Pc1BEc} zSbxjOUZK8Ml@hJAp_Ex?&R3fK9rseI?JeclomR#|`Vf?6XT@h%g1t>UPWxZk?Y}dt z>w4ZH+k_qEFIW4`b8UD;y|t%ZiR{Cho%OC&KE-pLQkD`&N((9|dzYlDR#oSbIo|>UzDIUCAtOJy|C@6uZ({KDuzOLaU_` zp@Xr@^~vQM9IZR@e^sl!(&Yc{uF^AW7R?&u`hLUe)7lcGKB9UajSXV2nq;=19-26E zK4%A)CTEHIvU2D&@qXY1@&EMLdb=Qt<$G%PS|Q zzV=~kpO?$xP;-qq^42(RK4Ee6Co|qqGB}~RGd_R7?e~Vm?np2_=?-L)lfH;Qlko*3 zs;2n@-T=P>VsY_Ye4~cnZJOrD|6(6VtM=)vbr@>$ds}vHJ(jXa3fio z+vnZ8*Vrg>v{J(Ek^QcGIaMs>vJ=()F#XsK6F<{#n2mO`426<`R3PYy`1~0y9J#fB zuh?L71Y1)kr!vFI0*-8a>W$mg8__J~{+0c%#vZE)vD=ulK~j94iAi5L5KN|hL4U>< zxb;?UIdD2ZU$dGA>;9Nd`LI+@Gqylo8!P6glch{)?Y3lj|7iA=8GQI>?fC|!>@20T zg=B8t4_;JGU(F-jYF;$(N#=j%cy_8#EM;QJaz^RvI}>s6wN~%*RqOs`dT@NX4JZ2@ z^ZsYNXKX}K6N246da%2HJoh>YQznq#;kq5@OuI0w>%^<8^PAZ{IOG4?{Rn6~DOa*f zDw4Ia)Mo;%qk1{>Sue*~ecF|TGydlu8FnS(jQ^!=ja}(DTWmqwxL31&;sL&+n*}M}NRQZa7E18}r-TF^luu{6ZzZ z+t^@?NsjtOqt{-PT~;0WA2qOY<$qdPn0IYz*LGt!Xf^>G3x27Q->;=rMFJ&xC(x-3 z+TApyV5`dArxfL_i=GzlImq%U^+?&2^*yzEqn;|djVRM{`$?}S(mZLTj5F6}E(Wbw z(?Cn8H1=KdFA}ZPr-xS0EStA2di~ITi=0N(nxedU(NmPgo|N1rkL7dEqNj$tr57N3 z6tU-&uz_0)PAuz3wkq0SbN|a;D4|239#T;WDdL`)Ow~IVz22BAS|9Sur?giTedx(- zZ`KbF)$2zc{U69gcXm2GKCrugJoh>YQ%@KU3)TM#IgWOXInduE=&{->%KwYe1K6iX z++CbLsWwIRlCP`@`JIcZowHpT%lD}j=h!z6)LID8%9P*L;OdSFE8*H`$;uRQ~u{SzJeIH z#F2g^vG7zLJHG07I$#1#gP-XbfVp*Bi~6N04SU@Kfsohj9~vBTM*^`ycfjlQ`u+ZBFdFn9J@Qm9Q#o=G^@g;t7K*v! z;aJe^j|@iL;lb!24&itp7!3MC1D>NtB4K|r6YwP6{t2(g?e}Lw?y%RJa;MXQjOGu9 zBfiWe$08hv&}FwQ&(^(0i7(HLog+l5I2az5(vjiqi)~DBWnDQDHx|6c=NG*077JcS zO$%N}9aV#|cL|-q={8qn)OHH<%4;I7t z>Q{dGmEFmSmw)XCT4Mj|JHPSADifY0ss1cL5}HxP11k}2P0#H)oS zCNf94X_}bG$Az%Yt@1mDF8N*cZao*Q{X#i8p`u#_$n{GLwcKfU{Sx&=G!wC=anaW= zwJ5!6dgV@aV)sUA3WBxmD9MMQ{o07!EwmJq(Db=<>kB($8)=6jbe(pkDD0oAX*Jh> z^{zDsf(mH8^ywZ>zv#sq(eHyjpYj2;wIVERXg(xLoO5;$^hmlN=z00gT7H)eMNa+r zxm$0!_vz0+`l>CPb+f;E3GQ-~@fE;Jfh&QlfPTOYsK5q*c2~bJ+P}HQ3}EVqUlOO+`=T@???_*l2C}zjazFp|s%Jf!JM|~=yMFq=4644ZH;tghL)x!PI<}|rG0+7k zgSqyHHkS3RtZ|QQ-zEh;kowq;B*k-oXtqsqn*y#%phnSOP>Xg)Qz~pf7u+>{2$F`( z6%BqVn=yw0v=`3ij-!o*^qJZS+70(NX1Wd|6>ESyyPA@3_O)(5ah>CEFLv&~F67AF zD5t8K@+j_hUvjdqy+#~$-`k&lmwWxaAHQhBeSf&)CqG?B!fQ>d_BFxM_oD2_Q6J=d z1o>QTk3_rgUXdg0dL%pjix|q>*CiTSNSmzkf7#xpL@!z!6eG%OyOh56T3Zmc>_Lr( z(VJDr6*T@IYa<pJp-iqgohfa|mnUYjx%37v_8{crxA)bl4F;yCp*<#VWPbM6JwHD6v{a6k zGG#J8<?@Z_i6JD>ZJUtY5Aky{v1Lq__!9_~M? znY80HPaSow{@D7tJGZTQ$A4XZ@q6c*W|I$XouJC~1_4z-cr&G}S}aX%5Y=UxVB!0n zQ;bfz!H6dq);JBsKqT3^j96!9XVqDs9x2+ZXTzT19iuuWa{_Rnj-qVZiixybZr63i z>1?Ky;YO{rRZ9%UqR~BCe1{qdc@j5_jcgr>@7bnChi^zs zK_joKocbM4rGx&I77m9n&F`J?B*&pD^IyB+&P58sB)M=JK5#Phv!_zL}em5J+0=Gh3sUe%+c|D<+x@_g^dPdcF!|r zH@d5h$#Pyjq;Jo3bC=TvYHU>gU7m-1u!s3)BhBBleskOOL-+sBT~ECGapjXg%U{jv zvUU($*Ua(MAxKu5uKl5}dS^6G3!ChS!$GQ|96ASSO?+8u6ld;fBu92)J)ZnVUu_z! zdyi74Z^u#Yp?mO4r@a5I;ahh5?kN5E3m^OBO;g4iK5B%yzFU``gjd_+dgYWp>LX?O z*?O|vWV?LKxMwz!>F%V_O0|?(W@ZMfmH0BtQFja{T1@ZvwBf+r^97Iy9W1Z2=7@C@by1;E6ADKxzGg2OcTM^92uS zKaoi+>kis%oX%|FmZz(%ODvp_b>4{Y1^0Mw_|mnmO05+fO+2_ib6a zIP>@V_kUWE=gFVHckF+-^KexrsM_0^@18jOAG3LhV?QCktbFq9C%R!jKppf#?SJa* S2jDominic Reich 1.0.0.0 false - 8 + 12 1.0.0.%2a true true diff --git a/Gästeliste/frmAbout.Designer.vb b/Gästeliste/frmAbout.Designer.vb index 739eb6c..4babc3e 100644 --- a/Gästeliste/frmAbout.Designer.vb +++ b/Gästeliste/frmAbout.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmAbout 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 @@ -29,7 +29,7 @@ Partial Class frmAbout '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() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAbout)) Me.TableLayoutPanel = New System.Windows.Forms.TableLayoutPanel() @@ -42,7 +42,6 @@ Partial Class frmAbout Me.OKButton = New System.Windows.Forms.Button() Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel() Me.lnkWebsite = New System.Windows.Forms.LinkLabel() - Me.lblInfoBetaSoftware = New System.Windows.Forms.Label() Me.TableLayoutPanel.SuspendLayout() CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit() Me.FlowLayoutPanel1.SuspendLayout() @@ -162,7 +161,6 @@ Partial Class frmAbout 'FlowLayoutPanel1 ' Me.FlowLayoutPanel1.Controls.Add(Me.lnkWebsite) - Me.FlowLayoutPanel1.Controls.Add(Me.lblInfoBetaSoftware) Me.FlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill Me.FlowLayoutPanel1.Location = New System.Drawing.Point(133, 206) Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1" @@ -180,17 +178,6 @@ Partial Class frmAbout Me.lnkWebsite.TabStop = True Me.lnkWebsite.Text = "Zur Webseite" ' - 'lblInfoBetaSoftware - ' - Me.lblInfoBetaSoftware.AutoSize = True - Me.lblInfoBetaSoftware.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblInfoBetaSoftware.ForeColor = System.Drawing.SystemColors.MenuHighlight - Me.lblInfoBetaSoftware.Location = New System.Drawing.Point(80, 0) - Me.lblInfoBetaSoftware.Name = "lblInfoBetaSoftware" - Me.lblInfoBetaSoftware.Size = New System.Drawing.Size(164, 13) - Me.lblInfoBetaSoftware.TabIndex = 3 - Me.lblInfoBetaSoftware.Text = "Das ist eine BETA Version!!" - ' 'frmAbout ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -217,5 +204,4 @@ Partial Class frmAbout Friend WithEvents FlowLayoutPanel1 As FlowLayoutPanel Friend WithEvents lnkWebsite As LinkLabel - Friend WithEvents lblInfoBetaSoftware As Label End Class diff --git a/Gästeliste/frmAbout.vb b/Gästeliste/frmAbout.vb index 5cce680..56d3f24 100644 --- a/Gästeliste/frmAbout.vb +++ b/Gästeliste/frmAbout.vb @@ -27,15 +27,7 @@ Process.Start("http://tmsn.at/?tools&gaesteliste") End Sub - Private Sub lblInfoBetaSoftware_Click(sender As Object, e As EventArgs) Handles lblInfoBetaSoftware.Click - MsgBox("Diese Version des Programmes ist noch nicht für den produktiven Einsatz vorgesehen und muss noch ausreichend getestet werden!" + Chr(13) + "Wenn dieser Hinweistext verschwunden ist, kann das Programm wirklich produktiv genutzt werden!" + Chr(13) + Chr(13) + "Vielen Dank für dein Verständnis!", vbExclamation, "Dies ist eine BETA Version (Testversion)") - End Sub - - Private Sub lblInfoBetaSoftware_MouseLeave(sender As Object, e As EventArgs) Handles lblInfoBetaSoftware.MouseLeave - Me.lblInfoBetaSoftware.ForeColor = SystemColors.MenuHighlight - End Sub - - Private Sub lblInfoBetaSoftware_MouseEnter(sender As Object, e As EventArgs) Handles lblInfoBetaSoftware.MouseEnter + Private Sub lblInfoBetaSoftware_MouseEnter(sender As Object, e As EventArgs) Me.lblInfoBetaSoftware.ForeColor = Color.Red End Sub End Class diff --git a/Gästeliste/frmMain.Designer.vb b/Gästeliste/frmMain.Designer.vb index d6a9bb3..91297ae 100644 --- a/Gästeliste/frmMain.Designer.vb +++ b/Gästeliste/frmMain.Designer.vb @@ -49,11 +49,14 @@ Partial Class frmMain Me.OnlineHilfeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator() Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.statusVersionLabel = New System.Windows.Forms.ToolStripStatusLabel() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GästeBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GästeDataSet, System.ComponentModel.ISupportInitialize).BeginInit() Me.mnuContext.SuspendLayout() Me.mnuMain.SuspendLayout() + Me.StatusStrip1.SuspendLayout() Me.SuspendLayout() ' 'DataGridView1 @@ -252,11 +255,27 @@ Partial Class frmMain Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(139, 22) Me.UpdateToolStripMenuItem.Text = "Update" ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.statusVersionLabel}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 505) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(967, 22) + Me.StatusStrip1.TabIndex = 6 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'statusVersionLabel + ' + Me.statusVersionLabel.Name = "statusVersionLabel" + Me.statusVersionLabel.Size = New System.Drawing.Size(45, 17) + Me.statusVersionLabel.Text = "Version" + ' 'frmMain ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(967, 527) + Me.Controls.Add(Me.StatusStrip1) Me.Controls.Add(Me.DataGridView1) Me.Controls.Add(Me.mnuMain) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) @@ -269,6 +288,8 @@ Partial Class frmMain Me.mnuContext.ResumeLayout(False) Me.mnuMain.ResumeLayout(False) Me.mnuMain.PerformLayout() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() @@ -299,4 +320,6 @@ Partial Class frmMain Friend WithEvents StammgastDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn Friend WithEvents BlockiertDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn Friend WithEvents AnmerkungDataGridViewTextBoxColumn As DataGridViewTextBoxColumn + Friend WithEvents StatusStrip1 As StatusStrip + Friend WithEvents statusVersionLabel As ToolStripStatusLabel End Class diff --git a/Gästeliste/frmMain.resx b/Gästeliste/frmMain.resx index 5dd25ae..42bbb55 100644 --- a/Gästeliste/frmMain.resx +++ b/Gästeliste/frmMain.resx @@ -129,6 +129,9 @@ 303, 17 + + 526, 17 + diff --git a/Gästeliste/frmMain.vb b/Gästeliste/frmMain.vb index 598b926..89d2c91 100644 --- a/Gästeliste/frmMain.vb +++ b/Gästeliste/frmMain.vb @@ -54,6 +54,12 @@ Public Class frmMain 'TODO: Save some colors in registry. Me.DataGridView1.RowsDefaultCellStyle.BackColor = Color.Azure Me.DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.Beige + + If ApplicationDeployment.IsNetworkDeployed Then + statusVersionLabel.Text = "Version " & ApplicationDeployment.CurrentDeployment.CurrentVersion.ToString & " (" & ApplicationDeployment.CurrentDeployment.UpdatedVersion.ToString & ")" + Else + statusVersionLabel.Text = "Lokale Version: " & My.Application.Info.Version.ToString + End If End Sub Private Sub InfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InfoToolStripMenuItem.Click