[VB6] Trascinamento e "link" via bottone

[Harry]

vorrei sapere cosa devo mettere (di codice) per far si che cliccando su un pulsante si apra con il browser predefinito (o se non si può anche solo con IE... però meglio il predefinito!) una pagina web da me linkata.

Vorrei anche sapere come fare un pulsante o qualcosa del genere che trascinato faccia spostare il programma (dato che ci ho dovuto togliere la barra blu di winzoz)

Grazie ancora

4ever

[MItaly]

Come già detto, usa la API ShellExecute.

[Harry]

Leggi, ho risposto di là, ririspondimi di qua

[Harry]

Ma perchè spammi così? Hai messo lo stesso messaggio in diverse discussioni... mi sa che un ban non te lo toglie nessuno (seppur temporaneo) :rollo: :rollo: :rollo:

PS: poi non conosco la severità dei MOD di questo forum!

[oregon]

Originariamente inviato da Harry
Ma perchè spammi così? Hai messo lo stesso messaggio in diverse discussioni... mi sa che un ban non te lo toglie nessuno (seppur temporaneo) :rollo: :rollo: :rollo:

PS: poi non conosco la severità dei MOD di questo forum!

Ma a chi ti stai riferendo?

[oregon]

Originariamente inviato da Harry
winzoz

Windows ... si chiama Windows ...

[alka]

Originariamente inviato da oregon
Ma a chi ti stai riferendo?

A messaggi di spam rimossi...

Buona prosecuzione...

[MItaly]

Be', tornando a noi, hai capito come usare la ShellExecute? Fai una ricerchina nel forum...

[MItaly]

Ti risparmio la fatica :
Crea un nuovo modulo e inseriscici questo:

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
Public Const SW_NORMAL = 1

e questo nella procedura di evento del pulsante:

Public Sub Command1_Click()
    Dim ret As Long
    ret = ShellExecute(Me.hWnd, "open", "http://www.tuosito.com", vbNullString, vbNullString, SW_NORMAL)
    If ret<=32 Then MsgBox "Impossibile aprire la pagina web." & vbCrLf & "Codice di errore di ShellExecute: " & LTrim(CStr(ret))+".",vbCritical,"Errore"
End Sub

.
Ovviamente devi sostituire a "http://www.tuosito.com" l'indirizzo della pagina da aprire.

[Harry]

Domanda niubba

Come creo un modulo? O più semplicemente, cosa si intende per modulo in VB?