Søg
Avatar billede haahr Nybegynder
21. august 2002 - 11:57 Der er 4 kommentarer

Link

Hej

Hvordan laver jeg et "link" inde i en subrutine. Kan det lade sig gøre på samme snilde måde, som hvis asp anvendes?

Programdelen har til formål at kontrollere en teskstreng, opfylder denne tekstreng nogle krav, skal der hoppes videre til en ny side, det sidste ved jeg ikke hvordan man gør.
Avatar billede medions Nybegynder
22. august 2002 - 14:49 #1
Hmmm jeg ved ik' rigtig hvad det er du mener... men kunne det ha' noget med dette at gøre:

<html>
<head>
    <title></title>
<script language="VBScript" type="text/vbscript">
    Function Redirect(url)
        document.location = url
    End Function
</script>
</head>
<body>

<div onclick="Redirect('test.htm')">klik her</div>

</body>
</html>

//>Rune
Avatar billede medions Nybegynder
12. november 2002 - 15:16 #2
?
Avatar billede absa1 Nybegynder
16. december 2002 - 21:00 #3
Jeg ved ikke om du kan bruge denne da den kører på tid... Men det er jo bare at redigere lidt i den...

Jeg ved ikke om du kan bruge denne da den kører på tid... Men det er jo bare at redigere lidt i den...

Option Explicit

Dim IEObject

IEStartMsg
IEMsg "Started 0", 0
WScript.Sleep 1000
IEMsg "Started 1", 1
WScript.Sleep 1000
IEMsg "Started 2", 2
WScript.Sleep 1000
IEMsg "Started 3", 3
WScript.Sleep 1000
IEMsg "Started 4", 4
WScript.Sleep 1000
IEMsg "Finish", 5


Sub IEStartMsg()

    On Error Resume Next

    Set IEObject = CreateObject("InternetExplorer.Application")

    IEObject.left=200
    IEObject.top=100
    IEObject.height=200
    IEObject.width=400
    IEObject.menubar=0
    IEObject.toolbar=0
    IEObject.StatusBar=0

End Sub


Sub IEMsg(ByVal Message, ByVal TotalCells)

    Dim Counter

    IEObject.navigate "About:Blank"
    IEObject.visible=1
   
    Do while IEObject.busy
    loop
   
    IEObject.Document.WriteLn "<HTML><HEAD>"
    IEObject.Document.WriteLn "<TITLE>TEST</TITLE></HEAD>"
    IEObject.Document.WriteLn "<BODY SCROLL=NO>"

    IEObject.Document.WriteLn "<CENTER><H3>TEST II</H3></CENTER>"
    IEObject.Document.WriteLn "<CENTER><H3>" & Message & "</H3></CENTER>"
    IEObject.Document.WriteLn "<TABLE BORDER=0 BORDERCOLOR=" & Chr(34) & "black" & Chr(34) & " WIDTH=240 ALIGN=" & Chr(34) & "center" & Chr(34) & "><TR>"
   
    For Counter = 1 To TotalCells
   
          IEObject.Document.WriteLn "<TD WIDTH=48 BGCOLOR=" & Chr(34) & "green" & Chr(34) & ">&nbsp;</TD>"
         
    Next
   
    For Counter = TotalCells To 4
   
          IEObject.Document.WriteLn "<TD WIDTH=48 BGCOLOR=" & Chr(34) & "red" & Chr(34) & ">&nbsp;</TD>"
         
    Next
   
    IEObject.Document.WriteLn "</TR></TABLE></BODY></HTML>"
   
End Sub
Avatar billede medions Nybegynder
20. juni 2003 - 00:56 #4
Lukketid?

//>Rune
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel Indlæg Oprettet Seneste aktivitet
VBS Af bsn i VBscript 5 16/07/202614:01 18/07/202610:46
Ændre navn på folder Af bsn i VBscript 12 07/07/202312:45 09/07/202307:04
Outlook makro Af Webnoob i VBscript 6 09/02/202313:32 16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript 10 07/10/202200:43 07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript 2 22/04/202213:23 22/04/202214:55
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 18:04 Findes der et "Papir-kurv" symbol, man kan sætte på Firefox og Google Chrome ? (For oven) Af Ikke-ekspert i Browsere
I går 12:14 Ang udskrift Canon mb5050 Af made18 i Printere
02/1021:29 Vedr. Windows 11 version 26H2 Af ErikHg i Fri debat
02/1018:16 Tømme gammel PC for indhold, kan ikke tændes Af Mai i Andet software
01/1017:41 NVIDIA Geforce GTX 1060 6 GB som "snakker" Af dcedata1977 i Andet hardware
White papers
Flere white papers »