/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Select case
Fra : Ole J. Hansen


Dato : 23-11-01 10:37

Hej NG

Jeg har et problem, jeg skal lave et terningspil, når jeg så har slået
terningen og - et antal øjne -
vil jeg gerne have en terning med det pgl. antal øjne vist.
Jeg har Iconer som Tern1.icon - Tern2.icon - Tern3.icon o.s.v.

Select Case interval
Case tal(I) = 1
Her skulle gerne komme Iconet med et øje
Case tal(I) = 2
Her skulle gerne komme Iconet med to øjne

End Select

Er der mon nogen der har et bud.
M.v.h.
Ole J. Hansen



 
 
Jens Vestergaard (23-11-2001)
Kommentar
Fra : Jens Vestergaard


Dato : 23-11-01 11:14

"Ole J. Hansen" <ojh@hansen.mail.dk> skrev i en meddelelse
news:3bfe19ca$0$249$edfadb0f@dspool01.news.tele.dk...
> Hej NG
>
> Jeg har et problem, jeg skal lave et terningspil, når jeg så har slået
> terningen og - et antal øjne -
> vil jeg gerne have en terning med det pgl. antal øjne vist.
> Jeg har Iconer som Tern1.icon - Tern2.icon - Tern3.icon o.s.v.

Hvis iSlag er det antal øjne, der er slået:

Sub SetIconNavn(iSlag as Integer)
Image1.Picture = LoadPicture("Tern" & CStr(iSlag) & ".ico")
End Sub

For eksempel...

--
mvh
Jens Vestergaard
www.railsoft.dk



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste