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
Resumo por IA: 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.
Código fonte
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
Comentários originais (3)
Recuperado do Wayback Machine