Notifikationer

Markér alle som læst Log ud

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.

Synes godt om

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

Synes godt om

medions Nybegynder

12. november 2002 - 15:16 #2

Synes godt om

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) & "> </TD>"

Next

For Counter = TotalCells To 4

IEObject.Document.WriteLn "<TD WIDTH=48 BGCOLOR=" & Chr(34) & "red" & Chr(34) & "> </TD>"

Next

IEObject.Document.WriteLn "</TR></TABLE></BODY></HTML>"

End Sub

Synes godt om

medions Nybegynder

20. juni 2003 - 00:56 #4

Lukketid?

//>Rune

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Æ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
Batch fil Af BDV i VBscript	1	12/01/202210:00	12/01/202210:05

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS