Differenze tra le versioni di "Simulazione di un collegamento ipertestuale"

Da Gambas-it.org - Wikipedia.
 
(5 versioni intermedie di uno stesso utente non sono mostrate)
Riga 3: Riga 3:
  
 
Poniamo, ad esempio, una ''TextLabel'' nella quale inseriremo il testo principale. Al di sopra di questa ''TextLabel'' porremo una seconda ''TextLabel'', più piccola, contenente la sola parte di testo che dovrà simulare il collegamento ipertestuale:
 
Poniamo, ad esempio, una ''TextLabel'' nella quale inseriremo il testo principale. Al di sopra di questa ''TextLabel'' porremo una seconda ''TextLabel'', più piccola, contenente la sola parte di testo che dovrà simulare il collegamento ipertestuale:
  '''Public''' Sub Form_Open()
+
  Public Sub Form_Open()
 
   
 
   
 
   With TextLabel1
 
   With TextLabel1
Riga 11: Riga 11:
 
   End With
 
   End With
 
   
 
   
  '''End'''
+
  End
 
   
 
   
'''Public''' Sub TextLabel2_Enter()  <FONT color=#006400>' ''Non appena si entra nella "TextLabel", l'aspetto del puntatore del mouse muta''</font>
 
 
   
 
   
  TextLabel1.Mouse = 13
+
Public Sub TextLabel2_Enter()  <FONT color=gray>' ''Non appena si entra nella "TextLabel", l'aspetto del puntatore del mouse muta''</font>
 
   
 
   
'''End'''
+
  TextLabel1.Mouse = 13
 
   
 
   
  '''Public''' Sub TextLabel1_MouseDown()  <FONT color=#006400>' ''Non appena si clicca nella "TextLabel", il testo in essa contenuto diventa rosso''</font>
+
  End
 
   
 
   
  TextLabel1.Foreground = Color.Red
 
 
 
'''End'''
 
 
   
 
   
  '''Public''' Sub TextLabel1_MouseUp()  <FONT color=#006400>' ''Non appena si solleva il tasto del mouse, il colore del testo presente nella "TextLabel" diventa nuovamente blu''</font>
+
  Public Sub TextLabel1_MouseDown()  <FONT color=gray>' ''Non appena si clicca nella "TextLabel", il testo in essa contenuto diventa rosso''</font>
 
   
 
   
  TextLabel1.Foreground = Color.Blue
+
  TextLabel1.Foreground = Color.Red
 +
 +
End
 +
 +
 +
Public Sub TextLabel1_MouseUp()  <FONT color=gray>' ''Non appena si solleva il tasto del mouse, il colore del testo presente nella "TextLabel" diventa nuovamente blu''</font>
 +
 +
  TextLabel1.Foreground = Color.Blue
 
    
 
    
 
   If Mouse.Left Then
 
   If Mouse.Left Then
     <FONT color=#006400>' ''Qui si fa qualcosa....''</font>
+
     <FONT color=darkgray>' ''Qui si fa qualcosa....''</font>
 
   Else
 
   Else
     <FONT color=#006400>' ''Qui si fa qualcosa....''</font>
+
     <FONT color=darkgray>' ''Qui si fa qualcosa....''</font>
 
   Endif
 
   Endif
 
   
 
   
  '''End'''
+
  End
 
 
  
  
 
==Rendere attivo il falso collegamento ipertestuale==
 
==Rendere attivo il falso collegamento ipertestuale==
Nel paragrafo precedente abbiamo visto il codice necessario per agire meramente sull'apetto grafico della simulazione. Ora prenderemo in considerazione la possibilità di rendere attiva quella simulazione; in modo tale che cliccando su di essa si verifichi una funzione, o un evento o comunque un'altra azione.
+
Nel paragrafo precedente abbiamo visto il codice necessario per agire meramente sull'aspetto grafico della simulazione. Ora prenderemo in considerazione la possibilità di rendere attiva quella simulazione; in modo tale che cliccando su di essa si verifichi una funzione, o un evento o altra azione, ma comunque senza variazione di colore del testo dello pseudo-collegamento:
  '''Public''' Sub Form_Open()
+
  Public Sub Form_Open()
 
   
 
   
  <FONT color=#006400>' ''Poniamo nella "TextEdit" il testo del pseudo-collegamento ipertestuale:''</font>
+
  <FONT color=gray>' ''Poniamo nella "TextEdit" il testo del pseudo-collegamento ipertestuale, lasciando alla fine dello pseudo-collegamento uno spazio, al fine di interrompere la sottolineatura appartenente allo pseudo-collegamento nel caso si desideri continuare la scrittura:''</font>
  TextEdit1.RichText = "&lt;FONT color=blue>&lt;U>simulazione collegamento ipertestuale</u></font> "
+
  TextEdit1.RichText = "&lt;FONT color=blue>&lt;U>simulazione collegamento ipertestuale</u></font> "
 
   
 
   
  '''End'''
+
  End
 
   
 
   
 
   
 
   
  '''Public''' Sub TextEdit1_Enter()
+
  Public Sub TextEdit1_Enter()
 
   
 
   
  <FONT color=#006400>' ''Non appena si entra nella "TextEdit", l'aspetto del puntatore del mouse muta:''</font>
+
  <FONT color=gray>' ''Non appena si entra nella "TextEdit", l'aspetto del puntatore del mouse muta:''</font>
 
   TextEdit1.Mouse = 13
 
   TextEdit1.Mouse = 13
 
   
 
   
  '''End'''
+
  End
+
 
 
   
 
   
  '''Public''' Sub TextEdit1_MouseDown()
+
  Public Sub TextEdit1_Cursor()
 
   
 
   
  <FONT color=#006400>' ''Non appena si clicca nella "TextEdit", il testo in essa contenuto diventa rosso:''</font>
+
  <FONT color=gray>' ''Se il cursore è posto, con il click del mouse, entro il testo del collegamento ipertestuale (e quindi significa che si è cliccato sul collegamento medesimo), allora, per esempio, apre un file:''</font>
  TextEdit1.RichText = "&lt;FONT color=red>&lt;U>simulazione collegamento ipertestuale</u></font>"
+
  If TextEdit1.Pos < String.Len("simulazione collegamento ipertestuale") Then Desktop.Open("percorso_del_file_da_aprire")
 
'''End'''
 
 
 
'''Public''' Sub TextEdit1_Cursor()
 
 
<FONT color=#006400>' ''Se il cursore è posto, con il click del mouse, entro il testo del collegamento ipertestuale''
 
' ''(e quindi significa che si è cliccato sul collegamento medesimo), allora, per esempio, apre un file:''</font>
 
  If TextEdit1.pos < String.Len("simulazione collegamento ipertestuale") Then Desktop.Open("percorso_del_file_da_aprire")
 
 
'''End'''
 
 
 
'''Public''' Sub TextEdit1_MouseUp()
 
 
 
<FONT color=#006400>' ''Non appena si solleva il tasto del mouse, il colore del testo presente nella "TextEdit" diventa nuovamente blu:''</font>
 
  TextEdit1.RichText = "&lt;FONT color=blue>&lt;U>simulazione collegamento ipertestuale</u></font>"
 
 
   
 
   
  '''End'''
+
  End

Versione attuale delle 16:47, 29 giu 2024

Simulazione in alternativa al codice html

In alternativa all'uso del codice html, con gli oggetti che lo supportano, per realizzare un collegamento ipertestuale, è possibile utilizzare il codice Gambas.

Poniamo, ad esempio, una TextLabel nella quale inseriremo il testo principale. Al di sopra di questa TextLabel porremo una seconda TextLabel, più piccola, contenente la sola parte di testo che dovrà simulare il collegamento ipertestuale:

Public Sub Form_Open()

 With TextLabel1
   .Text = "collegamento_ipertestuale"
   .Foreground = Color.Blue
   .Font.Underline = True
 End With

End


Public Sub TextLabel2_Enter()   ' Non appena si entra nella "TextLabel", l'aspetto del puntatore del mouse muta

 TextLabel1.Mouse = 13

End


Public Sub TextLabel1_MouseDown()   ' Non appena si clicca nella "TextLabel", il testo in essa contenuto diventa rosso

 TextLabel1.Foreground = Color.Red

End


Public Sub TextLabel1_MouseUp()   ' Non appena si solleva il tasto del mouse, il colore del testo presente nella "TextLabel" diventa nuovamente blu

 TextLabel1.Foreground = Color.Blue
 
 If Mouse.Left Then
   ' Qui si fa qualcosa....
 Else
   ' Qui si fa qualcosa....
 Endif

End


Rendere attivo il falso collegamento ipertestuale

Nel paragrafo precedente abbiamo visto il codice necessario per agire meramente sull'aspetto grafico della simulazione. Ora prenderemo in considerazione la possibilità di rendere attiva quella simulazione; in modo tale che cliccando su di essa si verifichi una funzione, o un evento o altra azione, ma comunque senza variazione di colore del testo dello pseudo-collegamento:

Public Sub Form_Open()

' Poniamo nella "TextEdit" il testo del pseudo-collegamento ipertestuale, lasciando alla fine dello pseudo-collegamento uno spazio, al fine di interrompere la sottolineatura appartenente allo pseudo-collegamento nel caso si desideri continuare la scrittura:
 TextEdit1.RichText = "<FONT color=blue><U>simulazione collegamento ipertestuale</u></font> "

End


Public Sub TextEdit1_Enter()

' Non appena si entra nella "TextEdit", l'aspetto del puntatore del mouse muta:
 TextEdit1.Mouse = 13

End
 

Public Sub TextEdit1_Cursor()

' Se il cursore è posto, con il click del mouse, entro il testo del collegamento ipertestuale (e quindi significa che si è cliccato sul collegamento medesimo), allora, per esempio, apre un file:
 If TextEdit1.Pos < String.Len("simulazione collegamento ipertestuale") Then Desktop.Open("percorso_del_file_da_aprire")

End