none
Ayuda creacion de BuscaMinas con creacion de botones en forma dinamica RRS feed

  • Pregunta

  •  Public Sub NuevoJuego()

    For i As Integer = 0 To 80 Step +1
    Boton(i) = New Button
    nombre = nombre + 1
    With Boton(i)
    .Location = New Point(X, Y)
    .Name = "Button" + nombre
    '.Text = random.Next(10)
    .Size = New Size(tamano, tamano)
    .BackColor = Color.White
    Form1.Controls.Add(Boton(i))
    AddHandler Boton(i).Click, AddressOf Click
    Y = Y + 25
    If Y = 226 Then
    Y = 1
    X = X + 25
    End If
    End With

    Next

    End Sub

    Este es el codigo que tengo pero no se como hacer para meter 25 minas de manera aleatoria dentro de esos botones que voy creando, agradeceria un poco de ayuda gracias! 

    • Cambiado Enrique M. Montejo jueves, 19 de abril de 2012 17:02 Controles de Windows Forms (De:Lenguaje VB.NET)
    viernes, 13 de abril de 2012 10:43

Todas las respuestas

  • Este es el codigo que tengo pero no se como hacer para meter 25 minas de manera aleatoria

    pdrias usar la clase Random para que se seleccines aleatoriamente 25 valores de entre 1 y 80

    Dim rnd As New Random

    Dim valor As Integer = rnd.Next(1,80)

    si esto lo repites 25 veces tendrias la seleccion aleatoria de las minas

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    • Propuesto como respuesta By AlaN lunes, 23 de abril de 2012 16:40
    viernes, 13 de abril de 2012 12:05