Avatar billede williamengbjerg Nybegynder
04. juni 2004 - 08:58 Der er 3 kommentarer og
1 løsning

Når man klikker på en bottum så skal den sende en http adresse

hai der alle brugere


sider med et lille problem mærklignok der for jeg skriver :)

mit problem er når det er jeg klikkere på en buttom i Visual Basic 6 så kan jeg ikke få den til at smide en HTTP adresse over i det vindu da jeg er ved at code en Clicent til min side...

noget andet også er jeg manger sådan at når folk  minere mit program så i sted for det liggere som normalt skal det ligger i proces linjen mennere det er det den heder der hvor ICQ osv.... ligger når man miniere dem :)


hvis i også godt vil hjælpe mig lidt mere så sig til :) for laver noget noget mere da jeg er remlig ny i Visual Basic :)
Avatar billede troublemaker Nybegynder
04. juni 2004 - 10:27 #1
Minimize to tray
--------------------------------Private Type NOTIFYICONDATA
        cbSize As Long
        hwnd As Long
        uID As Long
        uFlags As Long
        uCallbackMessage As Long
        hIcon As Long
        szTip As String * 64
End Type

Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Private Const NIF_ICON = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_TIP = &H4
Private Const NIM_ADD = &H0
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const WM_RBUTTONUP = &H205
Private Const WM_LBUTTONDBLCLK = &H203

Private tTrayIcon As NOTIFYICONDATA

Private Sub Form_Load()
    With tTrayIcon
        .hIcon = Icon
        .hwnd = Picture1.hwnd
        .szTip = Caption & Chr(0)
        .uCallbackMessage = WM_MOUSEMOVE
        .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
        .uID = 1
        .cbSize = Len(tTrayIcon)
    End With
    Shell_NotifyIcon NIM_ADD, tTrayIcon
End Sub

Private Sub Form_Resize()
    If WindowState = vbMinimized Then
        Hide
        WindowState = vbNormal
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Shell_NotifyIcon NIM_DELETE, tTrayIcon
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Select Case ScaleX(X, vbTwips, vbPixels)
    Case WM_RBUTTONUP
        'Used for Displaying a Popup Menu
    Case WM_LBUTTONDBLCLK
        'Double Click on SysTray Icon to Show Form
        Show
    End Select
End Sub
-------------------------------

Jeg er ikke sikker på om du vil kunne vise en Internet side i din app(ligesom IE) eller du vil HTTP adressen et eller andet sted.

Men for at vise en side i din app skal du installere noget som hedder "Microsoft Internet Controls"
Du finder det ved at højreklikke på den bar hvor du har diverse components (knapper, textbox, picturebox etc.) og vælge "Components".
Under "Controls" ser du en lang liste over mulige components. Scroll ned til du finder "Microsoft Internet ControlS". Fyr et flueben i den og der kommer et nyt ikon i menubaren. Ikonet ligner en jordklode og hedder webbrowser. Det kan du så bruge ligesom alle de andre components.
Avatar billede troublemaker Nybegynder
04. juni 2004 - 10:29 #2
Jeg er ikke sikker på om du vil kunne vise en Internet side i din app(ligesom IE) eller du vil gemme HTTP adressen et eller andet sted.


woops....glemte lige et "gemme" der :)
Avatar billede williamengbjerg Nybegynder
05. juni 2004 - 14:20 #3
hihi :D bruger Microsft internet Contrls ja :) men hmmm en HTTP adresse som fx www.om1time.dk/gbog.php osv... vil jeg gerne hga vist sådan folk ikke skal bruge ders egen browsere fx.... men mit program til at tjecke om der enligt at kommet nye mail eller indlæg til dem :)

men ja :( ved ikke hvordan :S
Avatar billede _cyberdude_ Nybegynder
07. juni 2004 - 18:53 #4
har du gjordt som initiate beskrev
<Quote>
"Men for at vise en side i din app skal du installere noget som hedder "Microsoft Internet Controls"
Du finder det ved at højreklikke på den bar hvor du har diverse components (knapper, textbox, picturebox etc.) og vælge "Components".
Under "Controls" ser du en lang liste over mulige components. Scroll ned til du finder "Microsoft Internet ControlS". Fyr et flueben i den og der kommer et nyt ikon i menubaren. Ikonet ligner en jordklode og hedder webbrowser. Det kan du så bruge ligesom alle de andre components."
</Quote>

Hvis du har gjordt dette, og har fundet den webbrowser objekt, planter du den bare på din form og skriver noget kode der ligner det her:

Private Sub Command1_Click()
Webbrowser1.Navigate "www.yahoo.com"
End Sub

hvis du skriver webbrowser1. vil der komme en boks frem og give dig de forskellige actions som du kan med denne webbrowser....
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester