Newsgroup: it.comp.lang.visual-basic
Titolo: come fare un testo cliccabile come in html (MAILTO)

Ho bisogno di inserire un testo con la mia email in un form e vorrei che
apparisse come in html ovvero cliccabile ed automaticamente vorrei che si
aprisse la finestra del programma di posta realtivo (proprio come in un
mailto in html). Vorrei poter fare la stessa cosa con un indirizzo
ipertestuale, ovvero al clic si apre il browser con la pagina linkata. Come
devo fare. In msdn ho trovato l'oggetto hyperlink ma non ho ben capito come
usarlo. Scusate ma sono veramente agli inizi a magari la domanda può essere
banale.
Grazie
Edika

...


 devo fare. In msdn ho trovato l'oggetto hyperlink ma non ho ben capito
come


 come


 apparisse come in html ovvero cliccabile ed automaticamente vorrei che si
Riposto sotto la mia firma un mex di questo Ng apparso tanto tempo e che ho
avuto l'accortezza di salvare
--
Ciao Ciao
MultiTaskinG
-----------------------------------------------------------
"La strada più breve tra due punti è interrotta per lavori in corso"
-----------------------------------------------------------
M.6oo.Dark in continua personalizzazione
-----------------------------------------------------------
Icq 31992227     ||||   My Motorcycle Web: 
http://vantax.drive.to
Ho notato che ultimamente buona parte dei recenti msg sono incentrati
su come lanciare un URL da un programma VB, e di come simulare
l'evento "onMouseOver", ed ho deciso quindi di dstribuire sul NG il
codice da me usato sperando di esser di aiuto a qualcuno.
Uso questo metodo anche perche' ha un buon rapporto
semplicita'/risultato ottenuto.
L'evento mouseover, infatti, viene "simulato" in modo pressoche'
perfetto senza nessun uso di API.
(Per lanciare un URL, invece, preferisco richiamare la ShellExecute..)
Di contro, non e' piu' possibile visualizzare il Tooltips nel canonico
modo. Ma sui controlli su cui applicavo il codice seguente, non ne
avevo bisogno. :)
--8<--zicchete--8<--zacchete--8<--zicchete--8<--zacchete--8<--zicchete--8<--
zacchete
' Dichiarazione API
Public Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String,
ByVal lpFile As String, ByVal lpParameters As String, ByVal
lpDirectory As String, ByVal nShowCmd As Long) As Long
' Sub HyperLink
Public Sub hyperLink(ByVal URL As String)
Call ShellExecute(0&, vbNullString, URL, vbNullString,
vbNullString, vbNormalFocus)
End Sub
' Codice da inserire nella Form.
' lblLink e' il nome del controllo Label usato per
' simulare l'effetto "link".
'
' Al posto di una Label, cmq, possiamo usare un qualunque
' controllo provvisto dell'eventi di Drag&Drop e MouseMove.
'
' Quindi ad esempio, possiamo tranquillamente simulare
' il "rollover" delle pagine HTML, usando al posto di un
' controllo Label, un controllo Image ad esempio.
'
' IMPORTANTE: Ricordarsi settare la proprieta'
' "DragIcon" del controllo con l'icona che vogliamo associare
' al puntatore del mouse durante
' il passaggio sopra il controllo stesso.
' Solitamente si opta per la classica "mano che indica".. :)
Private Sub lblLink_DragDrop(Source As Control, X As Single, Y As
Single)
' // Simulazione Eventi HTML "onMouseOver" & "onMouseOut"
' - onClick event
If Source = lblLink Then
With lblLink
.FontBold = False
End With
' Per lanciare un URL...
Call hyperLink("
http://www.altavista.com
")
' .. spedire una mail (togliere apice, ovviamente. ^_-).
' Call hyperLink("mailto:
m.fer...@infogroup.it
")
End If
End Sub
Private Sub lblLink_DragOver(Source As Control, X As Single, Y As
Single, State As Integer)
' // Simulazione Eventi "onMouseOver" & "onMouseOut"
' - onMouseOut Event.
If State = vbLeave Then
With lblLink
.FontBold = False
.Drag vbEndDrag
End With
End If
End Sub
Private Sub lblLink_MouseMove(Button As Integer, Shift As Integer, X
As Single, Y As Single)
' // Simulazione Eventi "onMouseOver" & "onMouseOut".
' - onMouseOver Event.
With lblLink
.FontBold = True
.Drag vbBeginDrag
End With
End Sub
--8<--zicchete--8<--zacchete--8<--zicchete--8<--zacchete--8<--zicchete--8<--
zacchete
--
C'ya,
|
|
'/|\'
\\O// <file://\\O//>
file://"\\ <file://>
'\ /'
________________________________________TagLine___
"Quanti Angeli danzano sulla punta di uno spillo?"

 banale.
usa il controllo Label, e nella routine Click scrivi:
    Shell "start mailto:
mionin...@ciao.it
", vbHide
oppure
    Shell "start 
http://www.murialdo.it/it_lang_vb
",vbHide
Ciao
Faber


---
Vorrei vedere le piramidi di Cheope,
ma sono miope, ma sono miope.
---

la funzione ShellExecute è una figatissima: ti permette di aprire qualunque file
con il programma predefinito.
se non ti interessa avere effetti particolari sulla label da cliccare, c'è la
proprietà mouseicon che cambia il puntatore del mouse quando passa sopra