Foros aprenderaprogramar.com
Didáctica y divulgación de la programación

Hola sr. Alex perdona mi torpeza,  necesito hacer un sonido con el altavoz del sistema cuando este me presenta un msgbox, por Ejemplo tengo un botón para abandonar la partida y he definido un mensaje al usuario, que dice así "Advertencia  ¿Quieres abandonar? " hay necesito este sonido con el altavoz del sistema o si puedes darme una idea como lo lo hago?.
Dejo el código de ese botón gracias muchísimas gracias.  yo coloque esto Beep() pero no me funciona.   Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Beep()
        Dim msg As String
        Dim title As String
        Dim style As MsgBoxStyle
        Dim response As MsgBoxResult
        msg = "Advertencia  ¿Quieres abandonar? "   ' Define message.
        style = MsgBoxStyle.DefaultButton2 Or _
           MsgBoxStyle.Critical Or MsgBoxStyle.YesNo
        Label1.Visible = True
        Label1.Text = "Tú y tú compañero perdereis la partida"
        title = "Cerrar"
        response = MsgBox(msg, style, title)
        If response = MsgBoxResult.Yes Then
            Close()
        Else
            Label1.Visible = False
        End If
    End Sub

Hola de nuevo : Alex pues si es bastante complicado y creo que empece muy fuerte, la teoría  del juego la tengo porque soy vicioso de este  juego, y soy consciente  que es muy complicado. Bueno vamos al tema los picturebox los tengo en archivos de recurso del proyecto y definidos con el tag o el nombre a cada imagen,  como ya comenté antes el problema lo tengo cuando hago click en una imagen o ficha. como puedo comparar una con otra?   pregunto he existe  la posibilidad de enumera las imagen ??  seria una opción, de   todas formas le enviare el codígo  del random y el click de una de las imagen. A ver qué hago mal. A continuación del random hay un select case que es el turno donde empieza el jugado con la 1ª ficha a colocar. gracias de nuevo sr. Alex.

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click   
        'MEZCLAR Y REPARTIR FICHAS
        Dim listaimagenes As New List(Of Image)
        For index = 1 To 28
            Dim picture As PictureBox = Me.Controls.Item("PictureBox" + index.ToString())
            listaimagenes.Add(picture.Image.Tag)
        Next
        Dim rnd As New Random(DateTime.Now.Millisecond)
        For inde = 1 To 28
            Dim pos As Integer = rnd.Next(listaimagenes.Count)
            Dim picture As PictureBox = Me.Controls.Item("PictureBox" + inde.ToString())
            picture.Image = listaimagenes(pos)
            Timer1.Start()
            listaimagenes.RemoveAt(pos)
        Next
        counter = 0
        Timer1.Interval = 20
        Timer1.Enabled = True
        'Primero desabilitas los 4 botones

        Button2.Visible = False
        Button5.Visible = False
        Button4.Visible = False
        Button3.Visible = False

        Dim temp As Integer = rnd.[Next](1, 4)
        Select Case temp
            Case 1
                Button2.Visible = True
                Button2.Enabled = True
                Button2.Text = "Juego yo " & sender.tag
                Button2.Focus()
                Button2.BackColor = Color.Cyan
                Exit Select
            Case 2
                Button3.Visible = True
                Button3.Enabled = True
                Button3.Text = "Juego yo " & sender.tag
                Button3.Focus()
                Button3.BackColor = Color.Cyan

                Exit Select
            Case 3
                Button4.Visible = True
                Button4.Enabled = True
                Button4.Text = "Juego yo " & sender.tag
                Button4.Focus()
                Button4.BackColor = Color.Cyan

                Exit Select
            Case 4
                Button5.Visible = True
                Button5.Enabled = True
                Button5.Text = "Juego yo " & sender.tag
                Button5.Focus()
                Button5.BackColor = Color.Cyan

                Exit Select
            Case Else
                Exit Select
        End Select

    End Sub]  Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox1.Click
        ' IZQUIERDA
        PictureBox1.Location = New Point(425, 200)
        PictureBox1.Image.RotateFlip(RotateFlipType.Rotate270FlipNone)
        PictureBox1.Width = 69
        PictureBox1.Height = 50
        Label2.Text = "Picture1" & sender.tag
        Button4.Visible = False
        Button3.Visible = True
        Button3.BackColor = Color.Cyan
    End Sub

Hola buenos dias: tengo una duda veran, en un formulario de visual express tengo 8 botones, hay va la pregunta,  ¿se puede mover los botones o button de posición aleatorio?? gracias de antemano al que pueda darme una respuesta,