Simulare una ProgressBar mediante una DrawingArea - Cronologia

Vuott il 22:49, 11 ago 2025

2025-08-11T22:49:32Z

← Versione meno recente		Versione delle 16:49, 11 ago 2025
Riga 48:		Riga 48:
	.DrawText(CStr(Fix((valore * 100) / DrawingArea1.W)) & "%", dw - (.TextExtents(CStr(valore)).W / 2),		.DrawText(CStr(Fix((valore * 100) / DrawingArea1.W)) & "%", dw - (.TextExtents(CStr(valore)).W / 2),
	dh - (.TextExtents(CStr(valore)).H / 2), .TextExtents(CStr(valore)).W, .TextExtents(CStr(valore)).H, Align.Normal)		dh - (.TextExtents(CStr(valore)).H / 2), .TextExtents(CStr(valore)).W, .TextExtents(CStr(valore)).H, Align.Normal)
	~~.End~~
	End With		End With

Riga 103:		Riga 102:
	.DrawText(CStr(Fix((valore * 100) / DrawingArea1.W)) & "%", dw - (.TextExtents(CStr(valore)).W / 2),		.DrawText(CStr(Fix((valore * 100) / DrawingArea1.W)) & "%", dw - (.TextExtents(CStr(valore)).W / 2),
	dh - (.TextExtents(CStr(valore)).H / 2), .TextExtents(CStr(valore)).W, .TextExtents(CStr(valore)).H, Align.Normal)		dh - (.TextExtents(CStr(valore)).H / 2), .TextExtents(CStr(valore)).W, .TextExtents(CStr(valore)).H, Align.Normal)
	~~.End~~
	End With		End With

	End		End

Vuott il 19:12, 22 giu 2024

2024-06-22T19:12:18Z

← Versione meno recente		Versione delle 13:12, 22 giu 2024
Riga 9:		Riga 9:


	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"		With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
Riga 26:		Riga 26:
	End With		End With

	~~'''~~End~~'''~~		End

	~~'''~~Public~~'''~~ Sub Tempus_Timer()
			Public Sub Tempus_Timer()

	If (valore * 100) / DrawingArea1.W >= 100.0 Then tempus.Stop		If (valore * 100) / DrawingArea1.W >= 100.0 Then tempus.Stop
Riga 34:		Riga 35:
	DrawingArea1.Refresh		DrawingArea1.Refresh

	~~'''~~End~~'''~~		End


	~~'''~~Public~~'''~~ Sub DrawingArea1_Draw()		Public Sub DrawingArea1_Draw()

	With Paint		With Paint
Riga 49:		Riga 51:
	End With		End With

	~~'''~~End~~'''~~		End

	Nel codice seguente invece si darà un effetto arcobaleno:		Nel codice seguente invece si darà un effetto arcobaleno:
Riga 59:		Riga 61:


	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"		With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
Riga 76:		Riga 78:
	End With		End With

	~~'''~~End~~'''~~		End


	~~'''~~Public~~'''~~ Sub Tempus_Timer()		Public Sub Tempus_Timer()

	If (valore * 100) / DrawingArea1.W >= 100.0 Then tempus.Stop		If (valore * 100) / DrawingArea1.W >= 100.0 Then tempus.Stop
Riga 84:		Riga 87:
	DrawingArea1.Refresh		DrawingArea1.Refresh

	~~'''~~End~~'''~~		End


	~~'''~~Public~~'''~~ Sub DrawingArea1_Draw()		Public Sub DrawingArea1_Draw()

	Dim c As Integer[] = [Color.Blue, Color.Green, Color.Yellow, Color.Red]		Dim c As Integer[] = [Color.Blue, Color.Green, Color.Yellow, Color.Red]
Riga 102:		Riga 106:
	End With		End With

	~~'''~~End~~'''~~		End

Vuott il 02:41, 7 dic 2021

2021-12-07T02:41:04Z

← Versione meno recente		Versione delle 20:41, 6 dic 2021
Riga 52:		Riga 52:

	Nel codice seguente invece si darà un effetto arcobaleno:		Nel codice seguente invece si darà un effetto arcobaleno:
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea
	Private dw As Short		Private dw As Short
	Private dh As Short		Private dh As Short

Vuott: Creata pagina con "La simulazione di una "ProgressBar" mediante l'uso di una "DrawingArea", può essere utile, ad esempio, per utilizzare un colore diverso da quello standard fornito dal tema gr..."

2021-12-07T02:34:52Z

Creata pagina con "La simulazione di una "ProgressBar" mediante l'uso di una "DrawingArea", può essere utile, ad esempio, per utilizzare un colore diverso da quello standard fornito dal tema gr..."

Nuova pagina

La simulazione di una "ProgressBar" mediante l'uso di una "DrawingArea", può essere utile, ad esempio, per utilizzare un colore diverso da quello standard fornito dal tema grafico.

Mostriamo di seguito una "DrawingArea" che simula il comportamento di un Oggetto "ProgressBar", ma di colore giallo:
Private DrawingArea1 As DrawingArea
Private dw As Short
Private dh As Short
Private valore As Single
Private tempus As Timer

'''Public''' Sub Form_Open()

With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
.X = 10
.Y = 10
.W = 300
.H = 50
.Background = Color.Red
dw = .W / 2
dh = .H / 2
End With

With tempus = New Timer As "Tempus"
.Delay = 40
.Start
End With

'''End'''

'''Public''' Sub Tempus_Timer()

If (valore * 100) / DrawingArea1.W >= 100.0 Then tempus.Stop
valore += 1.0
DrawingArea1.Refresh

'''End'''

'''Public''' Sub DrawingArea1_Draw()

With Paint
<FONT Color=gray>' ''Imposta il colore giallo per la "ProgressBar" simulata:''</font>
.Brush = .Color(Color.Yellow)
.Rectangle(0, 0, valore, DrawingArea1.H)
.Fill
.Brush = .Color(Color.Blue)
.DrawText(CStr(Fix((valore * 100) / DrawingArea1.W)) & "%", dw - (.TextExtents(CStr(valore)).W / 2),
dh - (.TextExtents(CStr(valore)).H / 2), .TextExtents(CStr(valore)).W, .TextExtents(CStr(valore)).H, Align.Normal)
.End
End With

'''End'''

Nel codice seguente invece si darà un effetto arcobaleno:
Private DrawingArea1 As DrawingArea
Private dw As Short
Private dh As Short
Private valore As Single
Private tempus As Timer

'''Public''' Sub Form_Open()

With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
.X = 10
.Y = 10
.W = 300
.H = 50
.Background = Color.LightGray
dw = .W / 2
dh = .H / 2
End With

With tempus = New Timer As "Tempus"
.Delay = 40
.Start
End With

'''End'''

'''Public''' Sub Tempus_Timer()

If (valore * 100) / DrawingArea1.W >= 100.0 Then tempus.Stop
valore += 1.0
DrawingArea1.Refresh

'''End'''

'''Public''' Sub DrawingArea1_Draw()

Dim c As Integer[] = [Color.Blue, Color.Green, Color.Yellow, Color.Red]
Dim f As Float[] = [0, 0.34, 0.67, 1]

With Paint
<FONT Color=gray>' ''Imposta un motivo arcobaleno orizzontale per la "ProgressBar" simulata:''</font>
.Brush = .LinearGradient(valore, 0, valore, DrawingArea1.H, c, f)
.Rectangle(0, 0, valore, DrawingArea1.H)
.Fill
.Brush = .Color(Color.Black)
.DrawText(CStr(Fix((valore * 100) / DrawingArea1.W)) & "%", dw - (.TextExtents(CStr(valore)).W / 2),
dh - (.TextExtents(CStr(valore)).H / 2), .TextExtents(CStr(valore)).W, .TextExtents(CStr(valore)).H, Align.Normal)
.End
End With

'''End'''