Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
Private Sub DisplayThumbs(ByVal sPath As String) Dim iPicNo As Integer Dim oImg As Image sbInfo.Text = " " ' CLEAR THE OLD THUMBS IF ANY FlowLayoutPanel1.Controls.Clear() FlowLayoutPanel1.Refresh() ' SETUP PROGRESS ProgressBar1.Maximum = Directory.GetFiles(sPath).Length ProgressBar1.Minimum = 0 ProgressBar1.Visible = True ' CREATE THE THUMBS For Each thpic As String In Directory.GetFiles(sPath) Try oPicInf = New FileInfo(thpic) If sMyExt.Contains(LCase(oPicInf.Extension)) Then ' CREATE NEW THUMB CONTROL pBox2 = New asThumb ' UPDATE PROGRESS ProgressBar1.Increment(1) ' OPEN IMAGE AND CREATE THUMBNAIL oImg = Image.FromFile(oPicInf.FullName) pBox2.CreateThumbnail(oPicInf.FullName) ' ADD THUMB CONTROL TO FLOW LAYOUT PANEL CONTROL Me.FlowLayoutPanel1.Controls.Add(pBox2) ' UPDATE THE COUNT iPicNo += 1 ' ADD THE EVENT HANDLER IN ORDER TO DETERMINE WHICH THUMB WAS CLICKED AddHandler pBox2.ThumbClicked, AddressOf ThumbClicked End If Catch ex As Exception MsgBox(ex.Message, 48) End Try Next ' RESET THE PROGRESS ProgressBar1.Value = 0 ProgressBar1.Visible = False ' UPDATE THE STATUS BAR sbInfo.Text = "Scanned " + CStr(iPicNo) + " Image(s)." End Sub
|I need help viewing multiple page TIFF image in my WPF with VB.Net code-behind application||7||36|
|Creating a route in asp.net webforms||2||32|
|Import Data from Multiple Text Files in Excel||12||58|
|How to open form using item in Listbox.||8||23|