none
No se va el cursor de cargando form RRS feed

  • Pregunta

  • Hola a todos:

    No entiendo porqué estoy abriendo un form modal y cuando lo cargo no se le va el reloj de "cargando", pongo reloj porque no se como se llama ese "círculo".

    Llamo al form desde:

    Private Sub btnConsolEmpr_Click(sender As Object, e As EventArgs) Handles btnConsolEmpr.Click
           Dim frm As frmConsolidacionEmpresas = New frmConsolidacionEmpresas
            frm.ShowDialog()
    End Sub

    Carga del load del form, que no tiene nada de nada especial. Ahí en el primer momento de cargar el Load ya está el puñetero reloj funcionando y no se va. He anulado todas las cargas del load, he pasado el breakpoint por todo y nada, ahí sigue funcionando.

    Public Class frmConsolidacionEmpresas
        Inherits System.Windows.Forms.Form
    
        Dim bolFormAbierto As Boolean
        Dim i As Long, j As Long
        Dim empresasO As String, empresaD As String, PLAN As String
        Dim strSQL As String, WHERE As String
        Dim strJOINS As String
    
    
    
        Public Sub New()
            MyBase.New()
    
            Controls.Clear()
    
            ' Inicializar el formulario normalmente.
            '
            InitializeComponent()
    
            ' Obtenemos la referencia cultural actual.
            '
            ConfiguraciónIdiomaAplicación()
            '   MostrarMenusSegunVersionesPrograma()
    
        End Sub
    
        Private Sub frmConsolidacionEmpresas_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
         
            Call RelacionRecursosIdiomas()
            Call CargarTablas()
            Call CargarPlanes()
    
            'Modificamos el tipo de fuente para los botones del idioma chino
            If VarGlobal.strIdioma = "Chino" Then
                cmdAceptar.Font = New Font("Calibri", 7)
                cmdSalir.Font = New Font("Calibri", 7)
            End If
    
        End Sub

    Y por último os pongo la pequeña imagen del form modal. Ahí no veréis el relojito de "cargando", pero está. Es muy molesto para el usuario pero en otros form con las mismas características nuca me ha pasado. No encuentro porqué actúa así.

    Bueno, un cordial saludo a todos.

    Gemma

    viernes, 19 de febrero de 2016 10:51

Respuestas

Todas las respuestas

  • En el formulario frmConsolidacionEmpresas pon la propiedad UseWaitCursor a False.

    Saludos, Javier J

    • Marcado como respuesta gemma_campillo viernes, 19 de febrero de 2016 11:08
    viernes, 19 de febrero de 2016 11:03
  • Hola querido Javier:

    A la primera. No tenía ni puñetera idea de que podía ser eso. Llevaba dos horas con el dichoso cursor y no había manera, lo anulaba en el load nada mas cargarlo con el Cursor=Cursor.Default y no había manera. Ahora he leído lo que me has puesto en la msn y ya está claro.

    Bueno, si lo se lo pregunto antes.

    Un fuerte abrazo querido amigo por ayuda como siempre.

    Gemma

    viernes, 19 de febrero de 2016 11:11
  • Hola:
    Haces llamadas a 3 sub.

    Call RelacionRecursosIdiomas()
    Call CargarTablas()
    Call CargarPlanes()

    ¿ En el codigo de alguno de estos sub, tienes una instruccion como esta (Me.Cursor = Cursors.WaitCursor) ?
    Si la respuesta es no, busca esa instruccion que es la que muestra el circulo.
    Si lo que quires es quitar el circulo, usa Me.Cursor = Cursors.Default.

    Un saludo desde Bilbo
    Carlos

    viernes, 19 de febrero de 2016 11:12
  • Hola J.Carlos:

    Ya lo he solucionado con lo que me ha dicho Javier Jiménez, de todas formas muchas gracias por tu ayuda como siempre.

    Un abrazo.

    Gemma

    viernes, 19 de febrero de 2016 11:30