CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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

12:00

Ugen i tech: El-kolos kan fragte syv personer over 620 kilometer / Sony er klar med ny kamera-konge: Alpha 1 mk II

22/11

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

Vis flere artikler

IT-JOB

SporingsGruppen ApS

Backend-udvikler

Ward247 ApS

IT Operations Manager

DSV

IT Portfolio and Delivery Management Manager for SAP Area

Udviklings- og Forenklingsstyrelsen

Motiverende chefkonsulent med souschefopgaver til PMO Gældssystemer

Erhvervsstyrelsen

Erhvervsstyrelsen søger medarbejdere med lyst til at implementere den nye bogføringslov

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 18:09	Billedoverførsel Af Laurids i iOS, iPhone & iPad
I går 13:30	Hvordan ændres UniFi Dream Machine UDM til switch mode Af Kasper4450 i Internetforbindelser
I går 13:01	Film går i stå midt i afspilningen Af ole falsted i Musik & videoafspillere
I går 11:40	Fjerne mappe i stifinder Af Peter Olsen i Andet software
I går 11:27	renteberegning Af Pil i Excel