{"id":806,"date":"2025-11-07T15:54:01","date_gmt":"2025-11-07T14:54:01","guid":{"rendered":"http:\/\/www.tom69.de\/?p=806"},"modified":"2026-03-22T13:55:05","modified_gmt":"2026-03-22T12:55:05","slug":"progressbar-simple","status":"publish","type":"post","link":"https:\/\/www.tom69.de\/index.php\/progressbar-simple\/","title":{"rendered":"ProgressBar"},"content":{"rendered":"\n
\"\"<\/figure>\n\n\n\n
<\/pre>\n\n\n\n
Einfacher Code f\u00fcr eine Individuelle ProcessBar. Die Gr\u00f6\u00dfe, Farbe und weiteren Option sind frei definierbar und k\u00f6nnen einfach auch mit ein wenig Geschick auf die eigenen Bed\u00fcrfnisse erweitert werden..

Toolbox:<\/strong>
Form1, Label1, Label2,Label3, Textbox1, Button1

Quellcode:<\/strong><\/p>\n\n\n\n
Public Class Form1

Property [ProcValue] As Decimal
Property [ProcInterval] As Decimal
Property [ProcMaximum] As Integer
Property [ProcColorBar] As Color

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

ProcMaximum = Label2.Width
ProcInterval = Label2.Width \/ 100
Label1.Text = \"Value\"
Label2.Text = \"\"
Label2.Width = 0

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

ProcValue = Textbox1.Text
Label2.Width = ProcValue * ProcInterval

' Status wird ohne Kommastellen in Label3 angezeigt
Dim P As Single = (ProcValue \/ ProcMaximum) * ProcInterval
Label3.Text() = FormatPercent(P, 0)

End Sub

Private Sub Textbox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Textbox1.KeyPress

' Bei einer Eingabe in die Textbox werden nur Nummerische, Backspace und Space zugelassen
Select Case Asc(e.KeyChar)

Case 48 To 57, 8 ' Zahlen, Backspace und Space zulassen
Case 13
Button1.PerformClick() ' Klick wird gesendet

Case Else
' alle anderen Eingaben unterdr\u00fccken
e.Handled = True
End Select

End Sub

End Class
<\/pre>\n
\r\n    
\r\n    \r\n                        <\/i>\r\n                    <\/a>\r\n    2    <\/span>\r\n<\/div>
\r\n    \r\n                        <\/i>\r\n                    <\/a>\r\n    0<\/span>\r\n<\/div><\/div>","protected":false},"excerpt":{"rendered":"
Einfacher Code f\u00fcr eine Individuelle ProcessBar. Die Gr\u00f6\u00dfe, Farbe und weiteren Option sind frei definierbar und k\u00f6nnen einfach auch mit ein wenig Geschick auf die eigenen Bed\u00fcrfnisse erweitert werden.. Toolbox:Form1, Label1, Label2,Label3, Textbox1, Button1 Quellcode: Public Class Form1Property [ProcValue] As DecimalProperty [ProcInterval] As DecimalProperty [ProcMaximum] As IntegerProperty [ProcColorBar] As ColorPrivate Sub Form1_Load(sender As Object, e […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[26],"class_list":["post-806","post","type-post","status-publish","format-standard","hentry","category-vb-basic-eintraege","tag-processbar"],"_links":{"self":[{"href":"https:\/\/www.tom69.de\/index.php\/wp-json\/wp\/v2\/posts\/806","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.tom69.de\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.tom69.de\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.tom69.de\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.tom69.de\/index.php\/wp-json\/wp\/v2\/comments?post=806"}],"version-history":[{"count":0,"href":"https:\/\/www.tom69.de\/index.php\/wp-json\/wp\/v2\/posts\/806\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.tom69.de\/index.php\/wp-json\/wp\/v2\/media?parent=806"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.tom69.de\/index.php\/wp-json\/wp\/v2\/categories?post=806"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.tom69.de\/index.php\/wp-json\/wp\/v2\/tags?post=806"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}