From e39d6fc9d00db032182c46105fc56e3d2666772d Mon Sep 17 00:00:00 2001 From: PaulDudaRESPEC Date: Fri, 12 May 2017 15:50:04 -0400 Subject: [PATCH] added Help and About menu, small refinements per SARA/LAN comments --- .../HSPFSimulationManager15.vbproj | 9 ++ HSPFSimulationManager/Resources/SARA.ico | Bin 0 -> 894 bytes .../Resources/transparent177x121.png | Bin 0 -> 2506 bytes HSPFSimulationManager/frmAbout.designer.vb | 96 ++++++++++++ HSPFSimulationManager/frmAbout.resx | 143 ++++++++++++++++++ HSPFSimulationManager/frmAbout.vb | 6 + .../frmHspfSimulationManager.Designer.vb | 46 ++++-- .../frmHspfSimulationManager.vb | 20 ++- HSPFSimulationManager/modUCI.vb | 3 + 9 files changed, 311 insertions(+), 12 deletions(-) create mode 100644 HSPFSimulationManager/Resources/SARA.ico create mode 100644 HSPFSimulationManager/Resources/transparent177x121.png create mode 100644 HSPFSimulationManager/frmAbout.designer.vb create mode 100644 HSPFSimulationManager/frmAbout.resx create mode 100644 HSPFSimulationManager/frmAbout.vb diff --git a/HSPFSimulationManager/HSPFSimulationManager15.vbproj b/HSPFSimulationManager/HSPFSimulationManager15.vbproj index 6d0750a64..a2c8cbef0 100644 --- a/HSPFSimulationManager/HSPFSimulationManager15.vbproj +++ b/HSPFSimulationManager/HSPFSimulationManager15.vbproj @@ -87,6 +87,12 @@ UserControl + + frmAbout.vb + + + Form + Form @@ -139,6 +145,9 @@ ctlSchematic.vb + + frmAbout.vb + frmHspfSimulationManager.vb diff --git a/HSPFSimulationManager/Resources/SARA.ico b/HSPFSimulationManager/Resources/SARA.ico new file mode 100644 index 0000000000000000000000000000000000000000..f56fcc49ddf0e2e5e9d830326ac18cb616da078b GIT binary patch literal 894 zcmbu7&r9229L8VqxQieRk30G&cp7@z-K&?4dDuZ11sQr06q%L{cG+Al+6p3SEt%4i zt|I>Grd!jhX{}iMBdvABHjQnAiEr8@euFfGw!*+CeBbxU=Xnlq!i!KFJRKbf)-Lp} z9iit4p>7yJ=mm_<>*{=lkUn*3b*ZXSxBs>0=tG9uZCQ=)dCP3BA!6h7{Ogy&)$dg- z8BsBt@JD&t*<3UH@y0?XypL}M(mG5| zTXtqYLKG(EQ-@nd$87$^LVuRN0>PqCNS}jIYSs0L_fn-~t{GmIMDo*!ES5E;s$fyO z%}OjSTxX4f*$5o_^YaHdv!*IlE-Erx{IRPPS&^@HRa`bV!51^}fWw+k=${F~`J=jP2b^D;)0QOSTXv5OT%H`XOq(HGJm=fKX8srv%lu<^03l6# G%G?7!X4x+Q literal 0 HcmV?d00001 diff --git a/HSPFSimulationManager/Resources/transparent177x121.png b/HSPFSimulationManager/Resources/transparent177x121.png new file mode 100644 index 0000000000000000000000000000000000000000..229a978d4f7ff80e4872d822f71196eeb4600fc9 GIT binary patch literal 2506 zcmV;*2{rbKP)WdH}=2o?_$4d!)!u>b%72XskIMF-so77rRMuHQG-00009a7bBm000XT z000XT0n*)m`~Uy|v`|b`MgRZ*-skVm-tWEE=kNFTd!^10TBQI|oFQYajJ3|r-se(` zy)kpGLVLAyoW`8J)~&|gW0b}rYprXX#!7^}z1H50wbojcz25Kdd(Q8@=lAdT|HkL{ zrQY|P*7vR6_s;M4-tYJ4_y2^>@3rUm*6;t6*7x`S|BTk}bI$Kdz2{QB=VQj_YsT-b z=l9boZjyMoZec!=R&pTbH?v6t>+=7-hfW*Jpcdz0d!JM zQvg8b*k%9#2zyCHK~#9!?OSPA+c*@ptqri`tt6R*EkLJDfKGuHN<07mf6aSZY?;V8 zq^AelXL3IfC)%#%tG7rdiuTxJk3II-V~_tCNZ$l@2B&>9*b#-u`=+oXN+J8Eup_t- zao-$vLLr2h_Dy0Zl)!jgvH($xOBNssJ}y~+D5m3*1s6P$W0D1kqKu|vk_CvOh~hEH z0!0yxNfufZ(U@eRMG=ij7F<;Nb2PF5QDpjJG_n9uB>G}BvT&jpjVx+Wj7Ao0N2X1TbYG2q%h@`M=Kw_qR_culc^*zAND<%0xGe zC|38+K7Os1b>ow#U(YWmzd7=6qu`y4Q54Hx&l|XZ`3WMK|HPsn@68twgL@E)1OSEe z=jYq`0;chD@$@r5e$@lv$S6aFcGpf`URuIEx%knN$jjwhhxpS#W$DxntZ-z8jh{a;L>`4(0s0_Ig?JR)rx9@<4 z^m+w!7puF+^}8F1R|qL%{kV2dezAUh@NxIGXTFhBhQ9z8OZanjdUmESqQ%|4rTe%Z z0AGYwM$-Ce@#V%~eQ_08Z~f2L=;~A7TrIRRye;|V-HnGYXG`<*T-Fpx^=AY*6a1n%~{_(eV{Tbql`1O#-A@g;PjzJM~9|lwmO%@F!n!1!E#@I;3^&JgM7P))sr1H`} zl(Suc`OvoO-O9>DE45CLe~SF+(6;N1^-ARHjV+2VvsAbhr-pTkV@$!+%R`zXy8s7v zii2LbS#oXY1t{aKUi|&R1t+{~4-ThS@O)dO^zKOXYeB%es~q*s#eiNjG-nKH_Y_iF zqi>=$(1!8t>&l!$3`G`6c*(V)cL#nnT_ww z?>~&g<70nmw6tk_L(W)mmhyN@Rd@bd*U2-Lc>|eCQrCy8rj#%>JM4OfA7*rN>~++7 z6W#^|S=g&p{@q#6S67tsd zz{}@B#>6>E)e-jPf;Sw&iB+Cx;TcMvgc%oUJ#&Tugzuz_u?jHOw-{i2=z3*cf$9;j zS6;#yQ=U2nN{=T&#%ao!=YRuMy%94JV2qT5b8N+S+!>Y=Ksw}`3YjO4N= z9GgLCGd*7I4`Mc%%v6U9$s4y66B0KcNP`gFif+0*^VW*{2v((ap$15N8vE_r^<%$w ze8^bX7>^Q*AtOZiulbPiSKrUGfAo`b9!qr~r24JwvFc|}Z6+p=0txgpq*RKf%9{B+ zRavGGGG_XdwHX#B`YLS$lBqQ3${~d|r8Zc20WB$$6?hCh+%er{x;q#mBURn3gzmI| zpvP(!o)HF&BYL2NQ363L<<68>DIU#$ovhF~QHb_=tBcZ}*VQ|&f{_%egYPAfML;k? zTt$L0ONz9o933kLss%UYm4NsOn(3iZ27c2#a2XCZEn{#q*qWk~Wj38i(2*+iz65{7 zS#KrsRG5%B5=~&1(8$oiMs@tm;C2&k{au3ht&51+E>beG9$P;tn6d-xB|o5B8Qb2G zacrkf$FxegTAHIDP31B+-^Hs?(lPZILq}fNP}(A{8@fo;4Fzgr7!P@wQHb&EpcykY z(VNbnT8yLCHm00{X5u$8j+>@b2wNo6AY&kK1o>wdVZ%7KhXQ&`^R)8HbOYjImND`3 z6AT*Q*V=T%vHSQf5n-Q$1~3SF)L(d4(^r66vkILL?V3~ zm{o)nT0q^5r{+!H6esl+<0(z7P1Ccq zEvj(sy+svm#tBRlv`xAgM||6cs8$8DyS%1f3VD55wz@%85I>16be{#XZLC|-$(VSD zP8HWhv7LbsWB)qL7@xj3OQk5R>20k%=2^GY+#(9d)rsw-1#LxDrz*&$mQ&|F0mg~9%b+T1i!wa}itor+X~vLIi$iDA zwX3sF5FdWQw9nId+|-evcEWf92`SdjT}oTp#~pI+`~MVq&P9rRC{%)JPRja(i9-`w;zClEAJo-GrLdp)14de4 zG9Y}Y7;TDZ#w+NmG!rh|CLKI?aXg83!>&l U^v#gY#sB~S07*qoM6N<$f|qgTbpQYW literal 0 HcmV?d00001 diff --git a/HSPFSimulationManager/frmAbout.designer.vb b/HSPFSimulationManager/frmAbout.designer.vb new file mode 100644 index 000000000..70e39f837 --- /dev/null +++ b/HSPFSimulationManager/frmAbout.designer.vb @@ -0,0 +1,96 @@ + +Partial Class frmAbout + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + + 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 + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAbout)) + Me.lblSARA = New System.Windows.Forms.Label() + Me.lblVersion = New System.Windows.Forms.Label() + Me.pictureLogo = New System.Windows.Forms.PictureBox() + Me.txtDisclaimer = New System.Windows.Forms.TextBox() + CType(Me.pictureLogo, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lblSARA + ' + Me.lblSARA.AutoSize = True + Me.lblSARA.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSARA.Location = New System.Drawing.Point(137, 12) + Me.lblSARA.Name = "lblSARA" + Me.lblSARA.Size = New System.Drawing.Size(466, 24) + Me.lblSARA.TabIndex = 20 + Me.lblSARA.Text = "San Antonio River Authority HSPF Simulation Manager" + ' + 'lblVersion + ' + Me.lblVersion.AutoSize = True + Me.lblVersion.Location = New System.Drawing.Point(138, 49) + Me.lblVersion.Name = "lblVersion" + Me.lblVersion.Size = New System.Drawing.Size(103, 13) + Me.lblVersion.TabIndex = 21 + Me.lblVersion.Text = "Release 2017-05-12" + ' + 'pictureLogo + ' + Me.pictureLogo.Image = Global.HSPFSimulationManager.My.Resources.Resources.transparent177x121 + Me.pictureLogo.Location = New System.Drawing.Point(12, 12) + Me.pictureLogo.Name = "pictureLogo" + Me.pictureLogo.Size = New System.Drawing.Size(119, 81) + Me.pictureLogo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pictureLogo.TabIndex = 19 + Me.pictureLogo.TabStop = False + ' + 'txtDisclaimer + ' + Me.txtDisclaimer.BackColor = System.Drawing.SystemColors.Menu + Me.txtDisclaimer.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtDisclaimer.CausesValidation = False + Me.txtDisclaimer.Enabled = False + Me.txtDisclaimer.Location = New System.Drawing.Point(24, 109) + Me.txtDisclaimer.Multiline = True + Me.txtDisclaimer.Name = "txtDisclaimer" + Me.txtDisclaimer.Size = New System.Drawing.Size(579, 137) + Me.txtDisclaimer.TabIndex = 23 + Me.txtDisclaimer.Text = resources.GetString("txtDisclaimer.Text") + ' + 'frmAbout + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(624, 239) + Me.Controls.Add(Me.txtDisclaimer) + Me.Controls.Add(Me.lblVersion) + Me.Controls.Add(Me.lblSARA) + Me.Controls.Add(Me.pictureLogo) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmAbout" + Me.Text = "About SARA HSPF Simulation Manager" + CType(Me.pictureLogo, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents pictureLogo As System.Windows.Forms.PictureBox + Friend WithEvents lblSARA As System.Windows.Forms.Label + Friend WithEvents lblVersion As System.Windows.Forms.Label + Friend WithEvents txtDisclaimer As TextBox +End Class diff --git a/HSPFSimulationManager/frmAbout.resx b/HSPFSimulationManager/frmAbout.resx new file mode 100644 index 000000000..45cf8a52d --- /dev/null +++ b/HSPFSimulationManager/frmAbout.resx @@ -0,0 +1,143 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + The suite of Water Quality (WQ) Modeling Tools developed by the San Antonio River Authority (SARA) includes the WQ Modeling Standards, The Timeseries Utility Tool (TUT), The Load Reduction Tool (LRT), The Enhanced Best Management Practices (BMP) Tool and associated BMP Tool Database, the Simulation Manager, and the BMP Processor/Reporter Tool. These tools are provided as a courtesy by the San Antonio River Authority, in order to help SARA stakeholders and the general communities better evaluate WQ conditions and select/evaluate BMPs and Low Impact Development (LID). The San Antonio River Authority does not represent or warrant that these tools are appropriate or will work properly for any specific project. Use of the SARA Tools is at your own risk, and you agree that you will hold SARA and its tool development consultant team harmless from any losses you suffer related to the use of the SARA Tools. Any modification or reuse of the SARA WQ Modeling Tools will require prior written permission from SARA. + + + + + AAABAAEAEBAAAAEAGABoAwAAFgAAACgAAAAQAAAAIAAAAAEAGAAAAAAAAAAAABMLAAATCwAAAAAAAAAA + AAD////////////+/v3////////////////////////////////////////////////////////////k + 0sjgzMH////////////////////////////awrXx6OT////////////////////o2tKeYD7Lqpj7+ff/ + ///////////t4ty1hWyxf2T////////////////////////////DnYjMq5m4inHq3db////Vu6y/ln/L + qZfTt6j////////////////////////////QsqHhzsP59fO3inS3iXHAmof////Or57eyL3///////// + ///////////////////m1s3JppX////59vPr39n////9/Puxg2/38vD///////////////////////// + ///69/a3jHj69vH//fv9+fb/9eL36NLz6eL////////////////////////////z7Oi5jXbVu6z//v37 + 7NT24L3u0Kvw06n65cH++fH////////////////////t4drEn4rq3Nb////////56s/v1rTszJ/ry5ns + zpvszZn58OD////////////Mq5qbWzjPsJ/p29PRtaro18v68t7uzYLlumHgr0fhtFLfr0Dgr0Hu1Jv+ + /fn69/bStKTcxrrbxLfStKTcxbivgnns39L9+Ovu1JfsynTy3KT89+z+/fnz4LX579n///////////// + ///////////awrTMraH////dx7r8+vj////////////////////////////////////////////28O3N + rZvk1M7EoJD////////////////////////////////////////////////////TuKiteFvj0cf///// + ///////////////////////////////////////////////gzMGgY0H///////////////////////// + ///////////////////////////////28e7eyL3///////////////////////////8AAP//AAD//wAA + //8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP//AAD//wAA//8AAP// + + + \ No newline at end of file diff --git a/HSPFSimulationManager/frmAbout.vb b/HSPFSimulationManager/frmAbout.vb new file mode 100644 index 000000000..0c000711b --- /dev/null +++ b/HSPFSimulationManager/frmAbout.vb @@ -0,0 +1,6 @@ +Public Class frmAbout + + 'Private Sub UpdateLink_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles UpdateLink.LinkClicked + ' atcUtility.OpenFile("http://aquaterra.com/TimeseriesUtility/") + 'End Sub +End Class \ No newline at end of file diff --git a/HSPFSimulationManager/frmHspfSimulationManager.Designer.vb b/HSPFSimulationManager/frmHspfSimulationManager.Designer.vb index 3190b903b..6f97d4377 100644 --- a/HSPFSimulationManager/frmHspfSimulationManager.Designer.vb +++ b/HSPFSimulationManager/frmHspfSimulationManager.Designer.vb @@ -35,13 +35,16 @@ Partial Class frmHspfSimulationManager Me.btnRunHSPF = New System.Windows.Forms.ToolStripButton() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.btnConnectionReport = New System.Windows.Forms.ToolStripButton() + Me.HelpToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DocumentationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.MenuStrip1.SuspendLayout() Me.ToolStripMain.SuspendLayout() Me.SuspendLayout() ' 'MenuStrip1 ' - Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem}) + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.HelpToolStripMenuItem}) Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) Me.MenuStrip1.Name = "MenuStrip1" Me.MenuStrip1.Size = New System.Drawing.Size(931, 24) @@ -52,43 +55,43 @@ Partial Class frmHspfSimulationManager ' Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OpenToolStripMenuItem, Me.AddWatershedToolStripMenuItem, Me.SaveToolStripMenuItem, Me.CloseToolStripMenuItem, Me.ToolStripMenuItem1, Me.ExitToolStripMenuItem}) Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem" - Me.FileToolStripMenuItem.Size = New System.Drawing.Size(35, 20) + Me.FileToolStripMenuItem.Size = New System.Drawing.Size(37, 20) Me.FileToolStripMenuItem.Text = "File" ' 'OpenToolStripMenuItem ' Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem" - Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(152, 22) + Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(155, 22) Me.OpenToolStripMenuItem.Text = "Open" ' 'AddWatershedToolStripMenuItem ' Me.AddWatershedToolStripMenuItem.Name = "AddWatershedToolStripMenuItem" - Me.AddWatershedToolStripMenuItem.Size = New System.Drawing.Size(152, 22) + Me.AddWatershedToolStripMenuItem.Size = New System.Drawing.Size(155, 22) Me.AddWatershedToolStripMenuItem.Text = "Add Watershed" ' 'SaveToolStripMenuItem ' Me.SaveToolStripMenuItem.Name = "SaveToolStripMenuItem" - Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(152, 22) + Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(155, 22) Me.SaveToolStripMenuItem.Text = "Save" ' 'CloseToolStripMenuItem ' Me.CloseToolStripMenuItem.Name = "CloseToolStripMenuItem" - Me.CloseToolStripMenuItem.Size = New System.Drawing.Size(152, 22) + Me.CloseToolStripMenuItem.Size = New System.Drawing.Size(155, 22) Me.CloseToolStripMenuItem.Text = "Close" ' 'ToolStripMenuItem1 ' Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" - Me.ToolStripMenuItem1.Size = New System.Drawing.Size(149, 6) + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(152, 6) ' 'ExitToolStripMenuItem ' Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem" Me.ExitToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Alt Or System.Windows.Forms.Keys.F4), System.Windows.Forms.Keys) - Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(152, 22) + Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(155, 22) Me.ExitToolStripMenuItem.Text = "Exit" ' 'ToolStripMain @@ -107,7 +110,7 @@ Partial Class frmHspfSimulationManager Me.btnRunHSPF.Image = CType(resources.GetObject("btnRunHSPF.Image"), System.Drawing.Image) Me.btnRunHSPF.ImageTransparentColor = System.Drawing.Color.Magenta Me.btnRunHSPF.Name = "btnRunHSPF" - Me.btnRunHSPF.Size = New System.Drawing.Size(58, 22) + Me.btnRunHSPF.Size = New System.Drawing.Size(63, 22) Me.btnRunHSPF.Text = "Run HSPF" ' 'ToolStripSeparator1 @@ -120,9 +123,28 @@ Partial Class frmHspfSimulationManager Me.btnConnectionReport.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text Me.btnConnectionReport.ImageTransparentColor = System.Drawing.Color.Magenta Me.btnConnectionReport.Name = "btnConnectionReport" - Me.btnConnectionReport.Size = New System.Drawing.Size(101, 22) + Me.btnConnectionReport.Size = New System.Drawing.Size(111, 22) Me.btnConnectionReport.Text = "Connection Report" ' + 'HelpToolStripMenuItem + ' + Me.HelpToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AboutToolStripMenuItem, Me.DocumentationToolStripMenuItem}) + Me.HelpToolStripMenuItem.Name = "HelpToolStripMenuItem" + Me.HelpToolStripMenuItem.Size = New System.Drawing.Size(44, 20) + Me.HelpToolStripMenuItem.Text = "Help" + ' + 'AboutToolStripMenuItem + ' + Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem" + Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(157, 22) + Me.AboutToolStripMenuItem.Text = "About" + ' + 'DocumentationToolStripMenuItem + ' + Me.DocumentationToolStripMenuItem.Name = "DocumentationToolStripMenuItem" + Me.DocumentationToolStripMenuItem.Size = New System.Drawing.Size(157, 22) + Me.DocumentationToolStripMenuItem.Text = "Documentation" + ' 'frmHspfSimulationManager ' Me.AllowDrop = True @@ -159,5 +181,7 @@ Partial Class frmHspfSimulationManager Friend WithEvents CloseToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator Friend WithEvents btnConnectionReport As System.Windows.Forms.ToolStripButton - + Friend WithEvents HelpToolStripMenuItem As ToolStripMenuItem + Friend WithEvents AboutToolStripMenuItem As ToolStripMenuItem + Friend WithEvents DocumentationToolStripMenuItem As ToolStripMenuItem End Class diff --git a/HSPFSimulationManager/frmHspfSimulationManager.vb b/HSPFSimulationManager/frmHspfSimulationManager.vb index c78a60840..e3282249f 100644 --- a/HSPFSimulationManager/frmHspfSimulationManager.vb +++ b/HSPFSimulationManager/frmHspfSimulationManager.vb @@ -17,6 +17,8 @@ Public Class frmHspfSimulationManager Private Sub frmHspfSimulationManager_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load pSpecFileName = GetSetting(g_AppNameShort, "Defaults", "FileName", pSpecFileName) + g_ProgramDir = PathNameOnly(Reflection.Assembly.GetEntryAssembly.Location) & g_PathChar + ShowHelp(g_ProgramDir & "HSPFSimulationManager.chm") If FileExists(pSpecFileName) Then OpenFile(pSpecFileName) Else @@ -353,7 +355,9 @@ Public Class frmHspfSimulationManager 'these models are not connected ElseIf lTransferWDM = "MULTIPLE" Then If Logger.Msg("These UCIs are connected through multiple transfer WDM files." & vbCrLf & vbCrLf & - "Do you want to modify them to use a single transfer WDM file?", MsgBoxStyle.YesNo, "Use Transfer WDM?") = MsgBoxResult.Yes Then + "Do you want to modify them to use a single transfer WDM file?" & vbCrLf & vbCrLf & + "(Clicking 'Yes' will overwrite these UCI files. Be sure to save a backup copy before clicking 'Yes'.)", + MsgBoxStyle.YesNo, "Use Common Transfer WDM?") = MsgBoxResult.Yes Then 'prompt for name of transfer wdm Dim lTransferWDMName As String = "" Dim lFileDialog As New Windows.Forms.OpenFileDialog() @@ -387,4 +391,18 @@ Public Class frmHspfSimulationManager End If End Sub + Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click + Dim lAbout As New frmAbout + lAbout.Show() + End Sub + + Private Sub DocumentationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DocumentationToolStripMenuItem.Click + ShowHelp("Cover.html") + End Sub + + Private Sub frm_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + If e.KeyValue = Windows.Forms.Keys.F1 Then + ShowHelp("Cover.html") + End If + End Sub End Class diff --git a/HSPFSimulationManager/modUCI.vb b/HSPFSimulationManager/modUCI.vb index c610f2cb1..95388a688 100644 --- a/HSPFSimulationManager/modUCI.vb +++ b/HSPFSimulationManager/modUCI.vb @@ -392,6 +392,9 @@ FindMsg: lMsgFile = FindFile("Locate Message WDM", lMsgFile, "wdm", aUser Dim lDatasets As atcTimeseriesGroup = aTargetSource.DataSets While lDatasets.Keys.Contains(lNewDsn) lNewDsn += 1 + If lNewDsn > 9999 Then + lNewDsn = 1 + End If End While aSourceDataSet.Attributes.SetValue("Id", lNewDsn) End If