Creare uno pseudo-slider - Cronologia

Vuott il 17:25, 11 apr 2025

2025-04-11T17:25:00Z

← Versione meno recente		Versione delle 11:25, 11 apr 2025
Riga 45:		Riga 45:
	Dim pmy As Short = PictureBox1.Y + Mouse.Y - Mouse.StartY		Dim pmy As Short = PictureBox1.Y + Mouse.Y - Mouse.StartY

	~~If (pmy > (ALTERA - 1)) And (pmy < (ALTERA + AMBITUS + 1)) Then~~		With PictureBox1
	With PictureBox1		.Move(.X, Clamp(pmy, ALTERA - 1, ALTERA + AMBITUS))
	.Move(.X, pmy)
	<FONT Color=gray>' ''Valore corrente assunto dallo "Slider":''</font>		<FONT Color=gray>' ''Valore corrente assunto dallo "Slider":''</font>
	Me.Title = "Valore = " & Abs(Fix((PictureBox1.Y - ALTERA) / rapp) - MAXIMUM)		Me.Title = "Valore = " & Abs(Fix((PictureBox1.Y - ALTERA) / rapp) - MAXIMUM)
	End With		End With
	~~Endif~~

	End		End
	Ovviamente con le opportune modifiche e integrazioni tale codice può essere trasformato in una specifica ''Classe''.		Ovviamente con le opportune modifiche e integrazioni tale codice può essere trasformato in una specifica ''Classe''.

Vuott il 22:18, 16 ott 2024

2024-10-16T22:18:59Z

← Versione meno recente		Versione delle 16:18, 16 ott 2024
Riga 17:		Riga 17:
	<FONT Color=gray>' ''Calcola il rapporto fra le due grandezze:''</font>		<FONT Color=gray>' ''Calcola il rapporto fra le due grandezze:''</font>
	Private rapp As Single = (AMBITUS + 1) / (MAXIMUM + 1)		Private rapp As Single = (AMBITUS + 1) / (MAXIMUM + 1)
	~~Private valore As Short~~


Riga 36:		Riga 35:
	.Background = Color.Red		.Background = Color.Red
	End With		End With

			Me.Title = "Valore = 0"

	End		End


	Public Sub PictureBox1_MouseMove()		Public Sub PictureBox1_MouseMove()
Riga 47:		Riga 49:
	.Move(.X, pmy)		.Move(.X, pmy)
	<FONT Color=gray>' ''Valore corrente assunto dallo "Slider":''</font>		<FONT Color=gray>' ''Valore corrente assunto dallo "Slider":''</font>
	~~valore~~ = Abs(Fix((PictureBox1.Y - ALTERA) / rapp) - MAXIMUM)		Me.Title = "Valore = " & Abs(Fix((PictureBox1.Y - ALTERA) / rapp) - MAXIMUM)
	~~Print "Valore = "; valore~~
	End With		End With
	Endif		Endif

Vuott il 17:24, 13 giu 2023

2023-06-13T17:24:29Z

← Versione meno recente		Versione delle 11:24, 13 giu 2023
Riga 17:		Riga 17:
	<FONT Color=gray>' ''Calcola il rapporto fra le due grandezze:''</font>		<FONT Color=gray>' ''Calcola il rapporto fra le due grandezze:''</font>
	Private rapp As Single = (AMBITUS + 1) / (MAXIMUM + 1)		Private rapp As Single = (AMBITUS + 1) / (MAXIMUM + 1)
	~~Private x As Short~~
	~~Private y As Short~~
	Private valore As Short		Private valore As Short

	~~'''~~Public~~'''~~ Sub _new()
			Public Sub _new()

	With pn = New Panel(Me) As "Panel1"		With pn = New Panel(Me) As "Panel1"
Riga 38:		Riga 37:
	End With		End With

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

	~~'''Public''' Sub PictureBox1_MouseDown()~~

	~~x = Mouse.X~~
	~~y = Mouse.Y~~

	~~'''End'''~~

	~~'''~~Public~~'''~~ Sub PictureBox1_MouseMove()		Public Sub PictureBox1_MouseMove()

	Dim pmy As Short = PictureBox1.Y + Mouse.Y - y		Dim pmy As Short = PictureBox1.Y + Mouse.Y - Mouse.StartY

	If (pmy > (ALTERA - 1)) And (pmy < (ALTERA + AMBITUS + 1)) Then		If (pmy > (ALTERA - 1)) And (pmy < (ALTERA + AMBITUS + 1)) Then
Riga 60:		Riga 52:
	Endif		Endif

	~~'''~~End~~'''~~		End
	Ovviamente con le opportune modifiche e integrazioni tale codice può essere trasformato in una specifica ''Classe''.		Ovviamente con le opportune modifiche e integrazioni tale codice può essere trasformato in una specifica ''Classe''.

Vuott il 16:54, 15 gen 2022

2022-01-15T16:54:31Z

← Versione meno recente		Versione delle 10:54, 15 gen 2022
Riga 9:		Riga 9:
	<FONT Color=gray>' ''Imposta la posizione Y in verticale della PictureBox e del valore massimo dello Slider:''</font>		<FONT Color=gray>' ''Imposta la posizione Y in verticale della PictureBox e del valore massimo dello Slider:''</font>
	Private Const ALTERA As Short = 40		Private Const ALTERA As Short = 40
	<FONT Color=gray>' ''Imposta l'ambitus della posizione dei valori dello Slider: i valori rappresentabili sono disposti ~~tra~~ "ALTERA" (massimo valore) + "AMBITUS".''		<FONT Color=gray>' ''Imposta l'ambitus della posizione dei valori dello Slider: i valori rappresentabili sono disposti nell'area di dimensione in verticale uguale alla somma "ALTERA" (massimo valore) + "AMBITUS".''
	' ''La coordinata "Y" data dalla somma "ALTERA + AMBITUS" rappresenta la posizione del valore minimo assunto dallo Slider.''</font>		' ''La coordinata "Y" data dalla somma "ALTERA + AMBITUS" rappresenta la posizione del valore minimo assunto dallo Slider.''</font>
	Private Const AMBITUS As Short = 159		Private Const AMBITUS As Short = 159

Vuott: Creata pagina con "Mostriamo di seguito un possibile codice per creare graficamente una sorta di ''slider'': Private pn As Panel Private PictureBox1 As PictureBox ' ''Valore..."

2022-01-15T16:51:32Z

Creata pagina con "Mostriamo di seguito un possibile codice per creare graficamente una sorta di ''slider'': Private pn As Panel Private PictureBox1 As PictureBox ' ''Valore..."

Nuova pagina

Mostriamo di seguito un possibile codice per creare graficamente una sorta di ''slider'':
Private pn As Panel
Private PictureBox1 As PictureBox
' ''Valore minimo che lo Slider può assumere:''
Private Const MINIMUM As Short = 0
' ''Valore massimo che lo Slider può assumere.''
' ''La "quantità" di valori rappresentabili dallo "Slider" è data da "(MAXIMUM - MINIMUM) + 1".''
Private Const MAXIMUM As Short = 100
' ''Imposta la posizione Y in verticale della PictureBox e del valore massimo dello Slider:''
Private Const ALTERA As Short = 40
' ''Imposta l'ambitus della posizione dei valori dello Slider: i valori rappresentabili sono disposti tra "ALTERA" (massimo valore) + "AMBITUS".''
' ''La coordinata "Y" data dalla somma "ALTERA + AMBITUS" rappresenta la posizione del valore minimo assunto dallo Slider.''
Private Const AMBITUS As Short = 159
Private Const PBW As Byte = 24
Private Const PBH As Byte = 32
Private Const PNH As Short = ALTERA * 2 + AMBITUS + PBH
' ''Calcola il rapporto fra le due grandezze:''
Private rapp As Single = (AMBITUS + 1) / (MAXIMUM + 1)
Private x As Short
Private y As Short
Private valore As Short

'''Public''' Sub _new()

With pn = New Panel(Me) As "Panel1"
.W = PBW * 3
.H = PNH
.X = (Me.W / 2) - (.W / 2)
.Y = 50
.Background = Color.SoftYellow
End With
With PictureBox1 = New PictureBox(pn) As "PictureBox1"
.W = PBW
.H = PBH
.X = (pn.W / 2) - (.W / 2)
.Y = PNH - ALTERA - PBH
.Background = Color.Red
End With

'''End'''

'''Public''' Sub PictureBox1_MouseDown()

x = Mouse.X
y = Mouse.Y

'''End'''

'''Public''' Sub PictureBox1_MouseMove()

Dim pmy As Short = PictureBox1.Y + Mouse.Y - y

If (pmy > (ALTERA - 1)) And (pmy < (ALTERA + AMBITUS + 1)) Then
With PictureBox1
.Move(.X, pmy)
' ''Valore corrente assunto dallo "Slider":''
valore = Abs(Fix((PictureBox1.Y - ALTERA) / rapp) - MAXIMUM)
Print "Valore = "; valore
End With
Endif

'''End'''
Ovviamente con le opportune modifiche e integrazioni tale codice può essere trasformato in una specifica ''Classe''.