{"id":69,"date":"2009-07-16T13:26:17","date_gmt":"2009-07-16T17:26:17","guid":{"rendered":"http:\/\/www.northatlantawebdesign.com\/?p=69"},"modified":"2009-07-27T10:08:01","modified_gmt":"2009-07-27T14:08:01","slug":"simple-vbscript-progress-bar","status":"publish","type":"post","link":"https:\/\/www.northatlantawebdesign.com\/index.php\/2009\/07\/16\/simple-vbscript-progress-bar\/","title":{"rendered":"Simple VBScript Progress Bar"},"content":{"rendered":"

Recently I had a need for a simple progress bar written in VBScript<\/a> to let users know what was going on in a multi-step application. To my surprise, VBScript has nothing built in for a progress bar.\u00a0 After much searching, I was able to find this thread<\/a> that linked to yet another thread<\/a> with a simple progress bar done in HTML using InternetExplorer.Application.\u00a0 I have taken this code and modified it to show an actual progess bar, with percentages, that can be updated as desired.\u00a0 I’ve wrapped it up in a nice easy-to-use class for reusability.\u00a0 Enjoy!<\/p>\n

<\/p>\n

\"Simple

Simple VBScript Progress Bar<\/p><\/div>\n

VBScript Progress Bar Class:<\/p>\n

\r\nClass ProgressBar\r\nPrivate m_PercentComplete\r\nPrivate m_CurrentStep\r\nPrivate m_ProgressBar\r\nPrivate m_Title\r\nPrivate m_Text\r\nPrivate m_StatusBarText\r\n\r\n'Initialize defaults\r\nPrivate Sub ProgessBar_Initialize\r\nm_PercentComplete = 0\r\nm_CurrentStep = 0\r\nm_Title = "Progress"\r\nm_Text = ""\r\nEnd Sub\r\n\r\nPublic Function SetTitle(pTitle)\r\nm_Title = pTitle\r\nEnd Function\r\n\r\nPublic Function SetText(pText)\r\nm_Text = pText\r\nEnd Function\r\n\r\nPublic Function Update(percentComplete)\r\nm_PercentComplete = percentComplete\r\nUpdateProgressBar()\r\nEnd Function\r\n\r\nPublic Function Show()\r\nSet m_ProgressBar = CreateObject("InternetExplorer.Application")\r\n'in code, the colon acts as a line feed\r\nm_ProgressBar.navigate2 "about:blank" : m_ProgressBar.width = 315 : m_ProgressBar.height = 40 : m_ProgressBar.toolbar = false : m_ProgressBar.menubar = false : m_ProgressBar.statusbar = false : m_ProgressBar.visible = True\r\nm_ProgressBar.document.write "<body Scroll=no style='margin:0px;padding:0px;'><div style='text-align:center;'><span name='pc' id='pc'>0<\/span><\/div>"\r\nm_ProgressBar.document.write "<div id='statusbar' name='statusbar' style='border:1px solid blue;line-height:10px;height:10px;color:blue;'><\/div>"\r\nm_ProgressBar.document.write "<div style='text-align:center'><span id='text' name='text'><\/span><\/div>"\r\nEnd Function\r\n\r\nPublic Function Close()\r\nm_ProgressBar.quit\r\nm_ProgressBar = Nothing\r\nEnd Function\r\n\r\nPrivate Function UpdateProgressBar()\r\nIf m_PercentComplete = 0 Then\r\nm_StatusBarText = ""\r\nEnd If\r\nFor n = m_CurrentStep to m_PercentComplete - 1\r\nm_StatusBarText = m_StatusBarText & "|"\r\nm_ProgressBar.Document.GetElementById("statusbar").InnerHtml = m_StatusBarText\r\nm_ProgressBar.Document.title = n & "% Complete : " & m_Title\r\nm_ProgressBar.Document.GetElementById("pc").InnerHtml = n & "% Complete : " & m_Title\r\nwscript.sleep 10\r\nNext\r\nm_ProgressBar.Document.GetElementById("statusbar").InnerHtml = m_StatusBarText\r\nm_ProgressBar.Document.title = m_PercentComplete & "% Complete : " & m_Title\r\nm_ProgressBar.Document.GetElementById("pc").InnerHtml = m_PercentComplete & "% Complete : " & m_Title\r\nm_ProgressBar.Document.GetElementById("text").InnerHtml = m_Text\r\nm_CurrentStep = m_PercentComplete\r\nEnd Function\r\n\r\nEnd Class\r\n<\/pre>\n
Example of Usage:<\/p>\n
\r\n'Declare progressbar and percentage complete\r\nDim pb\r\nDim percentComplete\r\n'Setup the initial progress bar\r\nSet pb = New ProgressBar\r\npercentComplete = 0\r\npb.SetTitle("Step 1 of 5")\r\npb.SetText("Copying bin\/Debug Folder")\r\npb.Show()\r\n\r\n'Loop to update the percent complete of the progress bar\r\n'Just add the pb.Update in your code to update the bar\r\n'Text can be updated as well by pb.SetText\r\nDo While percentComplete <= 100\r\nwscript.sleep 500\r\npb.Update(percentComplete)\r\npercentComplete = percentComplete + 10\r\nLoop\r\nwscript.sleep 3000\r\n\r\n'This shows how you can use the code for multiple steps\r\n'In a future iteration I will add a second bar to measure overall progress\r\npercentComplete = 0\r\npb.SetTitle("Step 2 of 5")\r\npb.SetText("Copying bin\/Release Folder")\r\npb.Update(percentComplete)\r\nDo While percentComplete <= 100\r\nwscript.sleep 500\r\npb.Update(percentComplete)\r\npercentComplete = percentComplete + 10\r\nLoop\r\npb.Close()\r\nwscript.quit\r\n<\/pre>\n
In a future release, I may add another progress bar to keep track of the steps that are completed.  Feel free to use and modify this code as you desire.<\/p>\n
Useful Links:<\/p>\n