Gå til innhold

jan rune

Medlemmer
 Vis profil  Se deres aktivitet

  • Innlegg

    373

  • Ble med

  • Besøkte siden sist

 Innholdstype 

Innlegg skrevet av jan rune

  3. Hvordan åpne en webside fra vb?

    i Programmering og webutvikling

    Skrevet

    Er ikke helt rå i visual basic, men her er litt kode...

     

     

    Public test As String

    Dim mbDontNavigateNow As Boolean

    Private Sub Form_Load()

    On Error Resume Next

    Me.Show

    tbToolBar.Refresh

    Form_Resize

    startside = "http://dokumenter.mine.nu/"

    cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15

     

     

    If Len(startside) > 0 Then

    cboAddress.Text = (startside)

    cboAddress.AddItem cboAddress.Text

    startside = "http://dokumenter.mine.nu/trening/index.php"

    'try to navigate to the starting address

    timTimer.Enabled = True

    brwWebBrowser.Navigate (startside)

    End If

     

     

    End Sub

     

     

     

    Private Sub brwWebBrowser_DownloadComplete()

    On Error Resume Next

    Me.Caption = brwWebBrowser.LocationName

    End Sub

     

     

    Private Sub brwWebBrowser_NavigateComplete2(ByVal pDisp As Object, URL As Variant)

    On Error Resume Next

    Dim i As Integer

    Dim bFound As Boolean

    Me.Caption = brwWebBrowser.LocationName

    For i = 0 To cboAddress.ListCount - 1

    If cboAddress.List(i) = brwWebBrowser.LocationURL Then

    bFound = True

    Exit For

    End If

    Next i

    mbDontNavigateNow = True

    If bFound Then

    cboAddress.RemoveItem i

    End If

    cboAddress.AddItem brwWebBrowser.LocationURL, 0

    cboAddress.ListIndex = 0

    mbDontNavigateNow = False

    End Sub

     

     

    Private Sub cboAddress_Click()

    If mbDontNavigateNow Then Exit Sub

    timTimer.Enabled = True

    brwWebBrowser.Navigate cboAddress.Text

    End Sub

     

     

    Private Sub cboAddress_KeyPress(KeyAscii As Integer)

    On Error Resume Next

    If KeyAscii = vbKeyReturn Then

    cboAddress_Click

    End If

    End Sub

     

     

    Private Sub Form_Resize()

    On Error Resume Next

    cboAddress.Width = Me.ScaleWidth - 100

    brwWebBrowser.Width = Me.ScaleWidth - 100

    brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + picAddress.Height) - 100

    End Sub

     

     

    Private Sub statistikk_Click()

     

     

     

    End Sub

     

    Private Sub timTimer_Timer()

    If brwWebBrowser.Busy = False Then

    timTimer.Enabled = False

     

    Me.Caption = brwWebBrowser.LocationName

    Else

     

    Me.Caption = "Laster..."

    End If

    End Sub

     

     

    Private Sub tbToolBar_ButtonClick(ByVal Button As Button)

    On Error Resume Next

     

     

    timTimer.Enabled = True

     

     

    Select Case Button.Key

    Case "Back"

    brwWebBrowser.GoBack

    Case "Forward"

    brwWebBrowser.GoForward

    Case "Refresh"

    brwWebBrowser.Refresh

    Case "statestikk"

    webserver = "http://dokumenter.mine.nu/trening/statestikk.php"

    brwWebBrowser.Navigate (webserver)

    Case "rekorder"

    webserver = "http://dokumenter.mine.nu/trening/rekorder.php"

    brwWebBrowser.Navigate (webserver)

    Case "stopp"

    webserver = "http://dokumenter.mine.nu/trening/stopp.php"

    brwWebBrowser.Navigate (webserver)

    Case "start"

    webserver = "http://dokumenter.mine.nu/trening/index.php"

    brwWebBrowser.Navigate (webserver)

    Case "mat"

    webserver = "http://dokumenter.mine.nu/trening/mattips.html"

    brwWebBrowser.Navigate (webserver)

    End Select

     

     

    End Sub

     

    Private Sub trening_Click(Index As Integer)

     

    End Sub

  5. PHP --> Redirect til html-fil etter "SEND"

    i Programmering og webutvikling

    Skrevet

    Eller du kan bruke funksjonen REQUIRE.

     

    feks:

     

    if (mail($email_til, $email_emne, $email_melding, $sender_email_b))

    {

    require ("../htmlmappe/header.html");

    require ("../htmlmappe/annenside.html");

    require ("../htmlmappe/footer.html");

    }

    else

    {

    require ("../htmlmappe/header.html");

    require ("../htmlmappe/annenside2.html");

    require ("../htmlmappe/footer.html");

    }

    }

    }

    else

    {

    require ("../htmlmappe/header.html");

    require ("../htmlmappe/annenside3.html");

    require ("../htmlmappe/footer.html");

     

    }

  9. enkelt-prog-design

    i Programmering og webutvikling

    Skrevet

    Viss du skal lage en litt stilig hjemmeside med litt animasjoner og sånt morro, vill jeg anbefale Macromedia Flash 5.0. Eneste ulempen med dette er at ikke alle har flash plug-in på maskinen sin. En ting som er greit å gjøre da er og lage en startside som de kan velge om å kjøre Flash eller html hjemmesiden.

    Dette kan kanskje bli litt mye å lære seg bare for å lage en hjemmeside, da vil jeg anbefale deg å ta en titt på Dreamweaver 4(også fra Macromedia).

     

    Uansett så er det morro å lage hjemmesider :smile:

  14. Alle Fargene i html

    i Programmering og webutvikling

    Skrevet

    hmmm... Det er nå jeg ønsker meg en RGB kalibrert printer.. skulle likt å hatt det fargekartet liggende framme. Jeg tror nesten det er fargene jeg bruker mest tid på å velgeut når jeg lager hjemmesider.

    Informativ side forresten..

     

    ps. dette stemme vil ikke helt?

     

    "aller best i 800x600 punkter som stort sett er standard på internett." :smile:

  22. Norsk datoformat

    i Programmering og webutvikling

    Skrevet

    Du kan prøve denne funksjonen her til de forskjellige dagenen...

    håper det funker.

     

    <?

    function ukedag()

    {

    $dato= date ( w );

    if ($dato == 0)

    { echo "Søndag"; }

     

    if ($dato == 1)

    { echo "Mandag"; }

     

    if ($dato == 2)

    { echo "Tirsdag"; }

     

    if ($dato == 3)

    { echo "Onsdag"; }

     

    if ($dato == 4)

    { echo "Torsdag"; }

     

    if ($dato == 5 )

    { echo "Fredag"; }

     

    if ($dato == 6)

    { echo "Lørdag"; }

    }

     

    ukedag();

     

    ?>

×
×
  • Opprett ny...