none
Ayuda Visual Studio 2012. Laberinto RRS feed

  • Pregunta

  • Hola, estoy haciendo un programa que coje unas celdas con valores 0 y 1 de un libro de excel y las pone en un panel en el visual, bien pues necesito saber la sentencia que debo poner para que si yo paso el puntero por encima de un valor 0 en este caso de color negro, el puntero no deje avanzar y me vuelva al principio del laberinto. Es con MouseEnter???No tengo mucha idea de visual, si son tan amables de responderme sencillamente y a ser posible con el codigo hecho. Gracias un saludo.

    Este es mi Module. :

    Imports System.IO
    Imports Microsoft.Office.Interop
    Module Module1
        Dim tabla(100, 100) As Integer
        Sub mi_excel(pnl As Panel, pb As ProgressBar)

            Dim XL As New Excel.Application
            Dim objBook As Excel._Workbook

            Dim objBooks As Excel.Workbooks
            Dim objSheets As Excel.Sheets
            Dim objSheet As Excel._Worksheet
            Dim range As Excel.Range

            XL = New Excel.Application()
            objBooks = XL.Workbooks
            objBook = objBooks.Open(Application.StartupPath & "\libro2.xlsm")
            objSheets = objBook.Worksheets

            Dim lbl(31, 39) As Label

            objSheet = objSheets(1)


            pnl.Visible = False
            pb.Visible = True
            pb.Step = 1
            pb.Maximum = 1209
            pb.Value = 0
            pb.Minimum = 0
            For i = 1 To 31
                For j = 1 To 39
                    pb.Value += 1
                    lbl(i, j) = New Label
                    lbl(i, j).Location = New System.Drawing.Point(j * 15, i * 15)
                    lbl(i, j).Size = New System.Drawing.Size(15, 15)
                    pnl.Controls.Add(lbl(i, j))

                    If objSheet.Cells(i, j).Interior.PatternColorIndex = -4142 Then

                        tabla(i, j) = 0
                        lbl(i, j).BackColor = Color.White

                    Else
                        tabla(i, j) = 1
                        lbl(i, j).BackColor = Color.Black

                    End If

                Next
            Next
            pb.Visible = False
            pnl.Visible = True

            range = Nothing
            objSheet = Nothing
            objSheets = Nothing
            objBooks = Nothing
            objBook.Close()
            XL = Nothing

        End Sub
    End Module

    Muchas gracias de nuevo.

    martes, 17 de diciembre de 2013 15:58

Respuestas

  • Hola

    Te dejo este ejemplo que puede ayudarte a encontrar la solución a tu problema.

    http://msdn.microsoft.com/es-es/library/dd492162(v=vs.110).aspx

    Saludos


    <EL CONTENIDO SE PROVEE "COMO ES" SIN GARANTÍA DE NINGÚN TIPO, ASÍ SEA EXPRESA O IMPLÍCITA>
     
    Gracias
     
    MSDN/TechNet Soporte Comunidades
     
    Por favor, recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema.
    Es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde.

    • Marcado como respuesta Omar Ortiz miércoles, 18 de diciembre de 2013 17:52
    martes, 17 de diciembre de 2013 17:22