Link su un form

[max.86]

Sto faccendo una piccola utility con VB6, però volevo inserire un link testuale collegato ad una pagina internet o a un'email.
Logicamente inserita in un form

Avevo visto che su VB .Net si poteva farlo col strumento simile al Label, però sul VB6 nn so come fare..

Tnx

[max.86]

up

scende in fretta azz

[matpez]

Per il link usa pure questo:

Call Shell("explorer http://www.ublteam.com", vbMaximizedFocus)

Per la mail invece usa questo:

Private Const SW_SHOWNORMAL = 1

Private 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

Public Sub EmailForm(ByVal sEmail As String, Optional ByVal sSubject As String = "")
  
  'carica la form per compilare una mail
  Call ShellExecute(0&, vbNullString, "mailto:" & sEmail & "?Subject=" & sSubject, vbNullString, "", SW_SHOWNORMAL)

End Sub

é una funzione che ho creato io, per un mio programma...modifica pure a tuo piacimento o prendi solo quello che ti serve!

[max.86]

Grazie mille... il link al sito funziona,

però se non erro il secondo (quello per la mail) si riferisce ad un modulo per inviare email, mentre a me servirebbe solo un link che apre il programma di gestione delle email e che scriva in auto l'email sul destinatario e l'oggetto

[matpez]

Originariamente inviato da max.86
Grazie mille... il link al sito funziona,

però se non erro il secondo (quello per la mail) si riferisce ad un modulo per inviare email, mentre a me servirebbe solo un link che apre il programma di gestione delle email e che scriva in auto l'email sul destinatario e l'oggetto

Si io quella form intendo...è pur sempre una form nn trovi

Per mettere in automatico il campo della mail prova a cambiare la funzione cosi:

Public Sub EmailForm(ByVal sEmail As String, Optional ByVal sTo As String = "")
  
  'carica la form per compilare una mail
  Call ShellExecute(0&, vbNullString, "mailto:" & sEmail & "?To=" & sTo, vbNullString, "", SW_SHOWNORMAL)

End Sub

e dovrebbe funzionare

[max.86]

ok.. grazie mille...

un'ultima cosa...
sai mica se è possibile impostare una TextBox in modo da poterci inserire solo Numeri e virgole?

[matpez]

Originariamente inviato da max.86
ok.. grazie mille...

un'ultima cosa...
sai mica se è possibile impostare una TextBox in modo da poterci inserire solo Numeri e virgole?

Ecco a te l'esempio!

Nel mio è impostato il codice 46 che è il "." come separatore di decimali, se a te piace di + la "," metti il codice 44!

[max.86]

Grazie 10000000

quando sarò alla 1.0 del programmino te lo faccio vedere ^_^

[matpez]

Originariamente inviato da max.86
Grazie 10000000

quando sarò alla 1.0 del programmino te lo faccio vedere ^_^

Ci conto

[max.86]

giusto per non romperti +

sai mica un sito dove posso trovare vari esempi di VB6 ?

[matpez]

Originariamente inviato da max.86
giusto per non romperti +

sai mica un sito dove posso trovare vari esempi di VB6 ?

Io sono sempre dell'idea che è meglio sforzarsi re da soli che chiedere aiuto cmq ecco a te i siti:

http://www.visual-basic.it/ http://www.micromy.it/frame.html http://www.marcominerva.com/vbcorner/ http://vbsimple.virtualave.net/index.htm http://searchvb.techtarget.com/bestW...tax498,00.html

ed il sito per eccellenza:

http://www.planet-source-code.com/

[max.86]

si hai anche ragione... però io sono alle prime armi.. il problema non è trovare il modo... ma le chiavi

[matpez]

Originariamente inviato da max.86
si hai anche ragione... però io sono alle prime armi.. il problema non è trovare il modo... ma le chiavi

Per curiosità...cosa stai facendo di bello?

[max.86]

hehe...

no... è una piccola utility di calcolo...

[max.86]

uffaaaaa

come devo fare per chiudere un form secondario?

ho provato con

Unload nomeform

ma non va
eppure per chiudere il form principale con

Unload nomeform

funziona...

[matpez]

Unload NomeForm va benissimo tranne se hai lanciato in vbModal la seconda form.

Per chiudere il form principale fai pure Unload Me

[max.86]

yuhuuuuuu

ora vaaaa...

si ma certo che il manuale del VB fa cagare...

[max.86]

ecco il programino finito


..::[ Download ByteConverter 1.0 ]::..

è una cavolatina.. ma a me serve ^_^

grazie anche a matpez ^_^