Brugernavn:




Kodeord: Husk
Forside Forum Artikler Downloads Søg
 

Show random image?

Hej rowlere !

Jeg har brug for noget kode i visual basic så når man trykker på en knap i min "Windows form application" Så kommer der et tilfældigt billede frem.

Jeg bruger 2008 Express Edition

Pointfordeling

Forfatteren har lukket tråden og har valgt at fordele de 5 point således:
Humanoidism 5 point
Oprettet af:

Visual Basic

Point afsat: 5

Lukket
13:17 03/07/2009
Dette er hvad jeg kan hjælpe dig med:

Du laver en PictureBox - jeg kalder min 'PictureBox1'.

Derefter laver du en button - Jeg kalder min 'Button1'

Og dobbelt klikker på Button1

Skriv følgende kode:

  1. Public Class Form1

  2.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  3.         Dim billede As Integer
  4.         billede = (Rnd() * 3)

  5.         Select Case billede
  6.             Case 1
  7.                 PictureBox1.BackgroundImage = My.Resources.Billede1
  8.             Case 2
  9.                 PictureBox1.BackgroundImage = My.Resources.Billede2
  10.             Case 3
  11.                 PictureBox1.BackgroundImage = My.Resources.Made-in-Matrix
  12.         End Select

  13.     End Sub
  14. End Class

Som du ser her hedder vores form 'Form1'

billede er navnet på vores metode/produkt og vi vil have produktet skal være 'Random' (Rnd() gange med (*) 3 som er tallet på, hvormange Cases / Billeder i dit tilfælde du skal skifte mellem.

Den letteste måde at få billederne ud på din picturebox er at bruge resources. Du tilføjer billeder til recourse på den lette måde, ved at klikke på din PictureBox, vælge Image (som sætter du et billede ind) og du har to valgmuligheder, vælg den nederste med Recourses.resx og tilføj billeder i listen. (Du kan vælge none, hvis du ikke skal have vist et billede fra starten). Når du trykker OK gemmer den billederne i en Resource mappe, og du kan benytte kommandoen My.Resources

Ved mig har jeg billeder som hedder Billede1, Billede2 og Made-in-Matrix
Navn på billederne er efter fugl My.Resources kommandoen (e.g. My.Resources.Mitbillede)

Husk at jo flere billeder du skal have, jo flere cases og derfor skal du skifte tallet 3 ud med så mange Cases du vil have, og tilføje cases som jeg har gjort.

Udskift navnet på vores kontrol fra 'billede' ved at vælge et navn selv, men husk alle steder, hvor der står billede i koden, skal skiftes til sammen navn. Her er en blank form:

  1. Public Class Form1

  2.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  3.         Dim KONTROLNAVN As Integer
  4.         KONTROLNAVN = (Rnd() * ANTAL-CASES)

  5.         Select Case KONTROLNAVN
  6.             Case 1
  7.                 PictureBox1.BackgroundImage = My.Resources.BILLEDENAVN
  8.         End Select

  9.     End Sub
  10. End Class

God fornøjelse ;-)
Sidst redigeret 08:30 01/09/2009
Oprettet af:

Accepteret svar

Point modtaget: 5
08:28 01/09/2009
Du skal være oprettet og logget ind for at svare på en tråd
Copyright © Rowl.dk v/ Michael Raagaard | 2005-12 | Alle rettigheder forbeholdes