Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

w00t!

[VB6] Algumas dúvidas...

Recommended Posts

w00t!

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.

Share this post


Link to post
Share on other sites
vbmaster

Essa de o programa continuar a correr é bastante estranha.... Se fosse 'Unload Me' que itvesses feito, agora End.

End fecha o programa mesmo....

Share this post


Link to post
Share on other sites
w00t!

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?

Share this post


Link to post
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

Share this post


Link to post
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

Share this post


Link to post
Share on other sites
nokitax

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?

Share this post


Link to post
Share on other sites
pebat

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.

Share this post


Link to post
Share on other sites
w00t!

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?

Share this post


Link to post
Share on other sites
vbmaster

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....

Share this post


Link to post
Share on other sites
teckV

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

Share this post


Link to post
Share on other sites
vbmaster

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...

Share this post


Link to post
Share on other sites
teckV

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

Share this post


Link to post
Share on other sites
vbmaster

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... :)

Share this post


Link to post
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

×

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.