Visual Basic

[Albert03]

Hallo,

Ik ben bezig met een batterij indicator te maken in Visual Basic, maar er is een probleem.

Ik wil namelijk het aantal resterende procenten weergeven in de progressbar (dus niet een label eroverheen plaatsen omdat ik de achtergrond van die label niet transparant krijg) maar dit lukt me niet.

Ik weet wel dat het mogelijk is, maar niet hoe.

Kan iemand me helpen?

MVG,

Albert

[Crypteq]

Hallo,

Ik ben bezig met een batterij indicator te maken in Visual Basic, maar er is een probleem.

Ik wil namelijk het aantal resterende procenten weergeven in de progressbar (dus niet een label eroverheen plaatsen omdat ik de achtergrond van die label niet transparant krijg) maar dit lukt me niet.

Ik weet wel dat het mogelijk is, maar niet hoe.

Kan iemand me helpen?

MVG,

Albert

In welke versie van visual basic wil je dit maken?

[Albert03]

Visual Basic 2008

[Casss]

Volgensmij is dat niet mogelijk.

[Crypteq]

Volgensmij is dat niet mogelijk.

Volgens mij post jij alleen maar om je postcount omhoog te krijgen...

Ontopic:

Het is wel degelijk mogelijk, want je kan via de graphics functie er wel degelijk er iets op neerzetten.

hier heb je een klein scriptje die ik snel als voorbeeld heb gemaak, gebruik deze sub om de value van de progressbar te verhogen

	Public Sub ChangeValue(ByVal value As Integer)
	ProgressBar1.Value = value
	Dim percent As Integer = CInt(Math.Truncate((CDbl(ProgressBar1.Value) / CDbl(ProgressBar1.Maximum)) * 100))
	ProgressBar1.CreateGraphics().DrawString(percent.ToString() & "%", New Font("Arial", CSng(8.25), FontStyle.Regular), Brushes.Black, New PointF(ProgressBar1.Width / 2 - 10, ProgressBar1.Height / 2 - 7))
End Sub

BC7

[Albert03]

Bedankt. Maar er zijn helaas toch nog 2 probleempjes:

1. De grootte van de tekst kan beter "25" zijn, maar als ik dat verander dan staat het niet meer mooi in het midden.

2. De tekst heeft niet zo'n mooie randen, het is een beetje fladderig.

Als deze twee problemen opgelost zijn is mijn programma klaar (bijna)

Bewerkt: 13 juni 2010 door Albert03

[Crypteq]

Bedankt. Maar er zijn helaas toch nog 2 probleempjes:

1. De grootte van de tekst kan beter "25" zijn, maar als ik dat verander dan staat het niet meer mooi in het midden.

2. De tekst heeft niet zo'n mooie randen, het is een beetje fladderig.

Als deze twee problemen opgelost zijn is mijn programma klaar (bijna)

*Afbeelding*

1. Daarvoor heb je de Measurestring functie in graphics voor

2. Daar heb je o.a. Smoothmode e.d. voor

Dus de code word dan:

 Public Sub ChangeValue(ByVal value As Integer)
	ProgressBar1.Value = value
	Dim percent As Integer = CInt(Math.Truncate((CDbl(ProgressBar1.Value) / CDbl(ProgressBar1.Maximum)) * 100))
	Dim Graphics As Graphics = ProgressBar1.CreateGraphics()

	Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
	Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality

	Dim font As New Font("Arial", CSng(8.25), FontStyle.Regular)
	Dim middelpunt As SizeF = Graphics.MeasureString(percent.ToString() & "%", font)
	Graphics.DrawString(percent.ToString() & "%", font, Brushes.Black, (ProgressBar1.Width / 2) - (middelpunt.Width / 2), (ProgressBar1.Height / 2) - (middelpunt.Height / 2))
End Sub

En ik moet zeggen, je programma ziet er heel er goed uit!

Ga zo door

edit: Een tip: haal de taalfouten er wel uit voordat je t zou gaan publiceren

Bewerkt: 13 juni 2010 door BC7

[Albert03]

Bedankt.

Lol, klinkt misschien een beetje dom, maar ik kan geen typfoten vinden, heb helaas last van dyslexie.

OT: Ok, nu blijft de text in de midden staan als ik de font of lettergrootte aanpas. Alleen de fladderige zijn toch nog niet helemaal weg:

[Fezz]

Je bedoeld dat Aliasing? En er staat Ferquentie.

Bewerkt: 14 juni 2010 door dji-unit