none
Visual Basic 2010 RRS feed

Respuestas

  • hola

    como seria esto de la cola aleatoria ? digo porque es algo raro

    imagino tienes una lista de imagenes y quieres tomar solo algunas de forma aleatoria ?

    Dim lista As List(Of String)
    
    lista.Add("pathimag1")
    lista.Add("pathimag2")
    lista.Add("pathimag3")
    
    'aqui 10 items
    
    Dim listaaleatoria As List(Of String)
    Dim rnd As New Random
    
    For i As integer=0 to 2
    
       Dim val As integer = rnd.GetNext(0, 10)
    
       listaaleatoria.Add(lista(val))
    
    Next

    como veras tomas dos valores aleatorio de una lsita de 10

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    lunes, 21 de mayo de 2012 22:04
  •  si tienes una carpeta con imágenes podrías realizar lo siguiente:
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          
            Dim Files(45) As String
            Files = IO.Directory.GetFiles("C:\Users\edolores\Desktop\Sutran_SOS_Incidencia\WindowsApplication1\Imagen\", "*.gif")
            Dim generator As New Random
            Dim random As Integer
            random = generator.Next(0, 45)
            PictureBox1.Image = Image.FromFile(Files(random))
    
        End Su

    lunes, 21 de mayo de 2012 22:47

Todas las respuestas

  • Aqui tienes varios ejemplos de como puedes enforcarlo

    http://www.dreamincode.net/forums/topic/139583-randomly-pick-images-to-load-into-picturebox/

    http://www.dreamincode.net/forums/topic/100629-generate-random-image/

    Sin saber nada más de lo que tienes hecho poco más te puedo decir.


    Atentamente, Sergio.

    Blog
    Twitter

    lunes, 21 de mayo de 2012 18:23
  • Public Class Form1
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            Dim x(4) As String
            x(0) = ("C:\Users\edolores\Desktop\Sutran_SOS_Incidencia\WindowsApplication1\Imagen\23.gif")
            x(1) = ("C:\Users\edolores\Desktop\Sutran_SOS_Incidencia\WindowsApplication1\Imagen\12.gif")
            x(2) = ("C:\Users\edolores\Desktop\Sutran_SOS_Incidencia\WindowsApplication1\Imagen\2.gif")
            x(3) = ("C:\Users\edolores\Desktop\Sutran_SOS_Incidencia\WindowsApplication1\Imagen\35.gif")
            x(4) = ("C:\Users\edolores\Desktop\Sutran_SOS_Incidencia\WindowsApplication1\Imagen\next.gif")

            Dim generator As New Random
            Dim random As Integer

            random = generator.Next(0, 5)
            PictureBox1.Image = Image.FromFile(x(random))
        End Sub
    End Class

    lunes, 21 de mayo de 2012 20:59
  • hola

    como seria esto de la cola aleatoria ? digo porque es algo raro

    imagino tienes una lista de imagenes y quieres tomar solo algunas de forma aleatoria ?

    Dim lista As List(Of String)
    
    lista.Add("pathimag1")
    lista.Add("pathimag2")
    lista.Add("pathimag3")
    
    'aqui 10 items
    
    Dim listaaleatoria As List(Of String)
    Dim rnd As New Random
    
    For i As integer=0 to 2
    
       Dim val As integer = rnd.GetNext(0, 10)
    
       listaaleatoria.Add(lista(val))
    
    Next

    como veras tomas dos valores aleatorio de una lsita de 10

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    lunes, 21 de mayo de 2012 22:04
  •  si tienes una carpeta con imágenes podrías realizar lo siguiente:
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          
            Dim Files(45) As String
            Files = IO.Directory.GetFiles("C:\Users\edolores\Desktop\Sutran_SOS_Incidencia\WindowsApplication1\Imagen\", "*.gif")
            Dim generator As New Random
            Dim random As Integer
            random = generator.Next(0, 45)
            PictureBox1.Image = Image.FromFile(Files(random))
    
        End Su

    lunes, 21 de mayo de 2012 22:47