---
title: "Hjälp med en if-sats"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/66539-hjälp-med-en-if-sats"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Anders84"
published: "2003-01-29T14:56:37.000Z"
updated: "2003-01-29T15:52:16.000Z"
replies: 1
views: 209
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/66539-hjälp-med-en-if-sats"
---

# Hjälp med en if-sats

## #1 — Anders84, 2003-01-29T14:56Z

Hur gör jag så att ingen av de fyra bilderna som slupas fram kan bli samma? 

Private Sub Command1_Click()
Dim intRandomNumber As Integer
Randomize

intRandomNumber = Int((16 \* Rnd) + 1)
Picture1.Picture = ImageList2.ListImages(intRandomNumber).Picture
  
intRandomNumber = Int((16 \* Rnd) + 1)
Picture2.Picture = ImageList2.ListImages(intRandomNumber).Picture
    
intRandomNumber = Int((16 \* Rnd) + 1)
Picture3.Picture = ImageList2.ListImages(intRandomNumber).Picture    
           
intRandomNumber = Int((16 \* Rnd) + 1)
Picture4.Picture = ImageList2.ListImages(intRandomNumber).Picture

End Sub

MVH Anders

Permalänk: https://www.webforum.nu/p/66539

## #2 — neversleep, 2003-01-29T15:52Z

Tja vet inte om jag fattar dig rätt, men det här är kanske ett sätt?

slumpa fram tal1
slumpa fram tal2
så länge som tal2=tal1, slumpa om tal2
slumpa fram tal3
så länge som tal3=tal1 el tal3=tal2, slumpa om tal3
...
osv

sedan när du har dina 4 olika slumptal så visar du dina bilder

Permalänk: https://www.webforum.nu/p/933158

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/66539-hjälp-med-en-if-sats