Another Progressbar without any OCX
It's just one Sub-Procedure that can fill a picturebox as if it was a progressbar. Also you can choose one of more than eight different styles!
AI
Shrnutí AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Zdrojový kód
Sub SetStatus(Progressbar As Object, Percent As Integer, Optional Style As Integer, Optional Style2 As Integer) Progressbar.AutoRedraw = True Progressbar.Cls Progressbar.FontTransparent = True Progressbar.Tag = Percent Progressbar.ScaleWidth = 100 Progressbar.ScaleHeight = 10 Progressbar.DrawStyle = Style2 Progressbar.DrawMode = 13 Progressbar.FillStyle = Style Progressbar.Line (0, 0)-(Percent, Progressbar.ScaleHeight - 1), , BF Progressbar.Line (0, 0)-(Percent, Progressbar.ScaleHeight - 1), , B Progressbar.FontTransparent = False Progressbar.CurrentX = 50 - Progressbar.TextWidth(Percent & "%") Progressbar.CurrentY = (Progressbar.ScaleHeight / 2) - (Progressbar.TextHeight(Percent & "%") / 2) Progressbar.FontBold = True Progressbar.FontSize = 7 Progressbar.FontName = "Tahoma" Progressbar.Print " " & Percent & "% " End Sub
Původní komentáře (3)
Obnoveno z Wayback Machine