🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #4503

[VB6] Zelfde variable meerdere keren declareren in select case

#4503
From: Harbinger of Doom
Date: Wed, 06 Aug 2003 09:50
43 lines
2646 bytes
Hello,

Ik zit met volgend probleempje in een VB6 programma.
Ik zou in een switch moeten eenzelfde variabele-naam
als een verschillend type declareren in elke case.
vb:

select case (var1)
case 1
    dim var2 as type1
case 2
    dim var2 as type2
case 3
    dim var2 as type3
case 4
    dim var2 as type4
case 5
    dim var2 as type5
end select

Daarna volgt een heel stuk code dat gebruik maakt van var2.
moest bovenstaand stukje code werken,
dan is dat voor mij natuurlijk heel gemakkelijk,
want dan moet ik de rest maar ��n keer programmeren.
Als dit niet werkt (en het werkt ook niet),
dan moet ik de rest 5 keer programmeren.
dit om even duidelijk te maken waarom ik dit juist wil doen.

VB is nu natuurlijk zo vriendelijk om mij een
"duplicate declaration in current scope" error mee te geven.
Gezien bovenstaand stukje code niet werkt, vroeg ik me dus af
of er een andere manier is om een variabele als een ander type
de declareren (of eventueel in runtime te laten veranderen van type),
afhankelijk van een andere variable.

Het �nige wat ik kan bedenken, is vijf subs maken die aangeroepen
worden vanuit de switch. deze subs declareren dan een variable van
het gewenste type, en roepen dan een functie aan die de code bevat
die normaal onder mijn switch staat.
dit lijkt mij echter nogal omslachtig. Ik zoek dus eigenlijk
een kortere manier.

Dank
Technical Details
Message-ID: <xb4Ya.10391$mX5.1324260521@hebe.telenet-ops.be>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-03!sn-xit-01!sn-xit-09!supernews.com!newshosting.com!news-xfer1.atl.newshosting.com!newsfeed.icl.net!newsfeed.fjserv.net!colt.net!news.tele.dk!news.tele.dk!small.news.tele.dk!lnewspeer01.lnd.ops.eu.uu.net!bnewsoutpeer01.bru.ops.eu.uu.net!bnewsinpeer01.bru.ops.eu.uu.net!emea.uu.net!raksha!skynet.be!ossa.telenet-ops.be!hebe.telenet-ops.be.POSTED!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII
X-Google-Thread: fcea4,ffa82e785d41af63,start
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2003-08-06 02:58:05 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-03!sn-xit-01!sn-xit-09!supernews.com!newshosting.com!news-xfer1.atl.newshosting.com!newsfeed.icl.net!newsfeed.fjserv.net!colt.net!news.tele.dk!news.tele.dk!small.news.tele.dk!lnewspeer01.lnd.ops.eu.uu.net!bnewsoutpeer01.bru.ops.eu.uu.net!bnewsinpeer01.bru.ops.eu.uu.net!emea.uu.net!raksha!skynet.be!ossa.telenet-ops.be!hebe.telenet-ops.be.POSTED!not-for-mail
From: "Harbinger of Doom" <slavearc@pandora.be>
Newsgroups: be.comp.programming
Subject: [VB6] Zelfde variable meerdere keren declareren in select case
Lines: 48
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Message-ID: <xb4Ya.10391$mX5.1324260521@hebe.telenet-ops.be>
Date: Wed, 06 Aug 2003 09:50:21 GMT
NNTP-Posting-Host: 213.224.114.18
X-Complaints-To: abuse@telenet.be
X-Trace: hebe.telenet-ops.be 1060163421 213.224.114.18 (Wed, 06 Aug 2003 11:50:21 CEST)
NNTP-Posting-Date: Wed, 06 Aug 2003 11:50:21 CEST
Organization: Telenet Internet