HVordan få side til å oppdater seg VB6.0

[mythbusters]

Jeg har laget en textbox som heter "ganger".

så skal personen skrive inn hvor mange ganger siden skal oppdatere seg.

hvordan kan jeg da få webbrowseren(kalt "wb" i min form) til å oppdateres på den siden så mange ganger?

 

PS: noen som vet hvordan få til av det bare kan skrives tall i textboxen?

 

Takker og Bukker

 

hvis du kunne ha skrevet koden hadde det vært topp

Endret 4. september 2007 av mythbusters

[aadnk]

så skal personen skrive inn hvor mange ganger siden skal oppdatere seg.

hvordan kan jeg da få webbrowseren(kalt "wb" i min form) til å oppdateres på den siden så mange ganger?

9427677[/snapback]

Ettersom jeg er i det gode humør i dag, tillater jeg meg å skrive koden fullt ut. Men jeg anbefaler at du forsøker å lære noe utav det. Det er ikke vits å bare lime inn andres kode uten å engang forstå den. Tekstboksen heter her txtRepeat, og den tilhørende knappen btnRefresh (såpass bør du klare).

Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click

 

    Dim iRepeat As Integer

 

    ' Forsikre oss om at tekstboksen lar seg konvertere til talldatatype

    If Integer.TryParse(txtRepeat.Text, iRepeat) Then

        ' Gjenta oppdateringsrutinen gitt antall ganger

        For Count As Integer = 1 To iRepeat

            ' Alltid oppdater (dersom dette ikke fungerer, må du slette cachen

            ' eller benytte en dedikert kontroll (inet, winsock, webclient, .sockets, ect.))

            wb.Refresh(WebBrowserRefreshOption.Completely)

 

            ' Vent inntil operasjonen er utført

            Do While wb.IsBusy

                Threading.Thread.Sleep(10)

                Application.DoEvents()

            Loop

        Next

    End If

 

End Sub

PS: noen som vet hvordan få til av det bare kan skrives tall i textboxen?

9427677[/snapback]

Søk etter numeric textbox vb.net eller ES_NUMERIC vb.net på Google. Endret 4. september 2007 av aadnk

[mythbusters]

numeric textbox vb.net?

 

jeg bruker vb6.0

er kodinga også for vb.net?

[aadnk]

Arr, hvorfor sa du ikke det med en gang?! Forventer du at vi er synske eller liker detektivarbeid?

 

Nåvel. I VB6 regner jeg med koden blir som følger:

Private Declare Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long)

 

Private Sub cmdRefresh_Click()

 

    Dim iRepeat As Integer, i As Integer

 

    ' Konverter til flyttall og dernest heltall

    iRepeat = CInt(Val(txtRepeat))

   

    ' Se om dette lot seg gjøre

    If iRepeat <> 0 Then

   

        ' Gjenta oppdateringsrutinen gitt antall ganger

        For i = 1 To iRepeat

       

            ' Oppdaterer siden fullstendig

            wb.Refresh2 3

 

            ' Vent inntil operasjonen er utført

            Do While wb.Busy

                Sleep 10

                DoEvents

            Loop

        Next

    End If

 

End Sub

Hva tekstbokser som kun inneholder tall angår, anbefaler jeg deg å ta en søkerunde på forumet. Jeg har besvart denne problemstillingen før.

Endret 4. september 2007 av aadnk

[mythbusters]

1 siste spørsmål(tror jeg )

 

hvor skal jeg skrive URL'en som skal opdateres?

[aadnk]

Hva mener du? Hvordan man kan navigere til en annen URL? Bruk metoden Navigate i så fall.

[mythbusters]

nei,hvor skal jeg skrive den URL'en som skal oppdateres(i kodinga)

 

er gangske ny med Vb, men syntes det er sykt fet

[Degeim]

Navigate...

 

WebBrowser.Navigate("URL").

 

Et tips til deg som nybegynner er å skrive navnet på kontrollen (i dette tilfellet webbrowseren) og trykke . (punktum). Da får du opp en liste over alt som går an med denne kontrollen, og kan i ro og mak lete etter det du trenger i stedet for å måtte spørre om den minste ting.

[GeirGrusom]

Og kanskje lese litt tutorials, eller finner litt ut av det før du spør andre.

 

Det er ganske suspekt at så mange bruker VB6, når VB.NET er gratis, og bedre...

[backup]

vb6: Hvis du vil at brukerne bare skal kunne taste inn tall, da er det smart å bruke MaskEdit-kontrollen istedet for Textbox-kontrollen. Denne finner du på Project-> Components -> Microsoft Masked Edit Control 6.0. For å sikre at bare tall kommer inn gjør du slik:

 

Private Sub Form_Load()
With MaskEdBox1
.Mask = "####"  '4 # hvis max 4 sifre som kan tastes inn, sett ##### hvis max 5 sifre etc."
.PromptChar = " "
End With
End Sub 

[GeirGrusom]

Det gjelder i og for seg .NET 2.0 også det da