Aprire url

[Gratisweb]

Salve, sono un principiante.
Ho creato un form e messo un label
devo far in modo che cliccando su, deve aprirsi un sito internet che codice usare ?
se metto shell ("http:;//XXXXXX.XXX") non va

[Gianluigi]

 

Usa una URLLabel e imposta le proprietà oppure inserisci questo codice:

Codice: [Seleziona]

Public Sub Form_Open()

  URLLabel1.Link = "https://www.gambas-it.org/wiki/index.php?title=Installazione_Server_PostgreSQL"
  URLLabel1.Text = "Installazione PostgreSQL"

End

[vuott]

Usa una URLLabel

In questo caso è necessario attivare anche il Componente gb.desktop .

[Gianluigi]

Usa una URLLabel

In questo caso è necessario attivare anche il Componente gb.desktop .

Hai ragione, mi sono dimenticato di precisarlo.

Chiedo scusa 

[vuott]

Chiedo scusa

Per così poco ?
...è sulla mancata costruzione della Macchina del Tempo che dovresti chiedere scusa + cenere sulla testa !   

[Gianluigi]

...è sulla mancata costruzione della Macchina del Tempo che dovresti chiedere scusa + cenere sulla testa !   

OK, mi scuso anche per quello, ma la cenere non saprei come crearla senza rischiare di riprendere il vizio del fumo 

[Gratisweb]

Grazie, adesso funziona.

[Gratisweb]

Scusate, invece di usare urllabel c'è altro modo ?, devo usare un Togglebutton ed appena ci clicco si deve aprire il link.

[Gianluigi]

Scusate, invece di usare urllabel c'è altro modo ?, devo usare un Togglebutton ed appena ci clicco si deve aprire il link.

ToggleButton? Sicuro?

Comunque potresti usare Desktop.Open con le funzioni Url e FromUrl

[Gratisweb]

scusa, mi scrivi la corretta sintassi ?

[cogier]

Eseguite questo codice in un nuovo programma grafico.

Codice: [Seleziona]

ToggleButton1 As ToggleButton

Public Sub Form_Open()

  With Me
    .Height = 50
    .Width = 220
    .Padding = 5
    .Arrangement = Arrange.None
    .Center
  End With

  With ToggleButton1 = New ToggleButton(Me) As "ToggleButton1"
    .Text = "&Installazione PostgreSQL"
    .X = 10
    .Y = 10
    .Height = 28
    .Width = 200
    .Picture = Picture["icon:/22/text"]
  End With

  If Not Component.IsLoaded("gb.desktop") Then Component.Load("gb.desktop")

End

Public Sub ToggleButton1_Click()

  If ToggleButton1.Value = True Then Desktop.Open("https://www.gambas-it.org/wiki/index.php?title=Installazione_Server_PostgreSQL")

End

[naderit]

Ciao in allegato un programmino per gestire i link utilizza il metodo Desktop.Open.

[spheris5]

http://gambaslinux.fr/articles.php?lng=en&pg=119