Jump to content

[VB6] Algumas dúvidas...


w00t!
 Share

Recommended Posts

Boas, tenho aqui algumas dúvida.. agradecia ajuda.  :fartnew2:

Num programa em VB6.0, criei um botão para sair do executavel, simplesmente com o código End, quando se clica o programa desaparece, mas continua a correr.. como resolver isto?

E já agora, como é que posso meter texto, como um link url? Quando se clica abre o firefox / IE com um endereço especifico..

Cumprimentos.

Link to comment
Share on other sites

Pois.. também não sei o porquê..

E quanto a isto:

"E já agora, como é que posso meter texto, como um link url? Quando se clica abre o firefox / IE com um endereço especifico..

Poderias-me ajudar?

Link to comment
Share on other sites

perdido_e_sozinho

E quanto a isto:

"E já agora, como é que posso meter texto, como um link url? Quando se clica abre o firefox / IE com um endereço especifico..

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

' Open the default browser on a given URL
' Returns True if successful, False otherwise

Public Function OpenBrowser(ByVal URL As String) As Boolean
    Dim res As Long
    
    ' it is mandatory that the URL is prefixed with http:// or https://
    If InStr(1, URL, "http", vbTextCompare) <> 1 Then
        URL = "http://" & URL
    End If
    
    res = ShellExecute(0&, "open", URL, vbNullString, vbNullString, _
        vbNormalFocus)
    OpenBrowser = (res > 32)
End Function

ser.gifsartim.gif

Link to comment
Share on other sites

perdido_e_sozinho

Copias aquele código para dentro da form que vais usar ou para um modulo.

Depois crias uma label e metes um sublinhado.

Como icon podes definir uma mão de hiperlink.

Depois no evento de click da label colocas :

OpenBrowser ("http://www.oteusite.com/")

e pronto já está!

ser.gifsartim.gif

Link to comment
Share on other sites

ola pessoal...tou a criar um prog. de gestao para um jardim de infancia... fiz a base de dados em access... mas tou com algumas dificuldades em ligar o BD ao vb.net 

podiam me  mostrar algum link ou uma ajuda?

Link to comment
Share on other sites

fazes assim :


    Dim conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source =C:\Clinica\Clinica.mdb")
            Dim sqlutente As String = "select nome from utentes"
            Dim DA As New OleDbDataAdapter(sqlutente, conn)
          

  a k precias msm e a linha de cima.

Link to comment
Share on other sites

Correcção da minha 1ª dúvida do 1º post..

Fiz um programa em vb, quando se clica no 'X' da janela o programa fecha, mas continua a correr.. Como corrigir?

No evento closing da form1 mete End.

isto em vb.net 2003

em vb6 é num evento chamado queryUnload acho eu....

Link to comment
Share on other sites

se quiseres ajuda no desenvolvimemto apita pelas msg pessoais... posso criar codigo exemplo sobre esse proj especifico

porquê por mensagens pessoais?...todos nos podemos aprender um pouco com as coisas públicas...

Link to comment
Share on other sites

eu estava a falar de um proj especifico... que duvidas queres que tire em publico? ainda não me neguei a reponder a duvidas publicas como deves ter reparado...

cumprs,

gia

okok.... no stress... 🙂

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.