none
Form1_Load Invisivel ? RRS feed

  • Pergunta

  • Boa tarde amigos.

    Pessoal to trabalhando num projeto que grava a Desktop, agora surgiu algo inesperado, vamos la!
    Ao abrir o programa o form1 que é o form principal devera ficar invisível, mas estou tentando fazer assim:

    -----------------

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Me.Visible = False   'Aqui coloco o codigo para ele ficar invisivel, mas é como se o código não existisse tentei tambem me.hide                                       'mas nada!


            'o form load ja inicia e começa gravando a desktop
            On Error Resume Next

            If btgravar.Text = "Gravar" Then
                For Each Str As String In IO.Directory.EnumerateFiles(Application.StartupPath & "\Bibliotecas\Imagens\", "*.png", IO.SearchOption.TopDirectoryOnly)
                    Kill(Str)
                Next

                BackgroundWorker1.RunWorkerAsync()
                btgravar.Text = "Parar"

            Else
                BackgroundWorker1.CancelAsync()
                btgravar.Text = "Gravar"


            End If

        End Sub

    -------------------------------------------

    Amigos o form não consegue ficar invisivel e executar o código? é isso?
    Coloquei tambem no fim me.hide/ me.visible=false, mas nada.

    Preciso de ajudar, é com os mestres!

    Valeu!!


    Anderson.mds

    segunda-feira, 13 de abril de 2015 20:56

Respostas

  • Olá!
    Vai aqui a minha contribuição, espero ter lhe ajudado:

    Insira um componente: "NotifyIcon"

    A Imagem e abaixo, os códigos:

    MS INFORMÁTICA

    EM "VB"

     

    Public Class Form3

        Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            'Ocultar

            Me.Hide()

            'Não mostrar na barra de tarefas

            Me.ShowInTaskbar = False

     

            'Mensagem no Balão!

            NotifyIcon1.ShowBalloonTip(1)

            NotifyIcon1.BalloonTipTitle = "Aviso do Form!"

            NotifyIcon1.BalloonTipText = "Form Oculto"

        End Sub

     

        Private Sub NotifyIcon1_BalloonTipClicked(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.BalloonTipClicked

            'Habilita o Form clicando no balão:

            'Reabre e exibe o Form

            Me.Show()

            'Volta a mostrar na barra de tarefas

            Me.ShowInTaskbar = True

        End Sub

     

        Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick

            'Reabre e exibe o Form

            Me.Show()

            'Volta a mostrar na barra de tarefas

            Me.ShowInTaskbar = True

     

        End Sub

     

        Private Sub btMinimizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btMinimizar.Click

            Me.Hide()

            'Não mostrar na barra de tarefas

            Me.ShowInTaskbar = False

     

            'Mensagem no Balão!

            NotifyIcon1.ShowBalloonTip(1)

            NotifyIcon1.BalloonTipTitle = "Aviso do Form!"

            NotifyIcon1.BalloonTipText = "Form Oculto"

        End Sub

     

        Private Sub btX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btX.Click

            Close()

        End Sub

     

    End Class

     

    EM "C#"

     

    using Microsoft.VisualBasic;

    using System;

    using System.Collections;

    using System.Collections.Generic;

    using System.Data;

    using System.Diagnostics;

    using Microsoft.Win32;

    Public Class Form1

    {

                //Iniciar com o Windows

                private void Registro(string Path)

                {

                            RegistryKey regKey = default(RegistryKey);

                            regKey = Registry.CurrentUser.OpenSubKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", true);

                            regKey.SetValue("Nome do Seu projeto", Path);

                }

     

                private void GetRegistro()

                {

                            string path = null;

                            RegistryKey regKey = default(RegistryKey);

                            regKey = Registry.CurrentUser.OpenSubKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", true);

                            path = regKey.GetValue("INICIAR");

     

     

                            if (path == Application.StartupPath + "\\" + My.Application.Info.AssemblyName) {

                            } else {

                                       Registro(Application.StartupPath + "\\" + My.Application.Info.AssemblyName);

                            }

                }

     

                private void Form1_Load(System.Object sender, System.EventArgs e)

                {

                            GetRegistro();

                }

        Public Form1()

                {

                            Load += Form1_Load;

                }

    }




    MS INFORMATICA - Projeto Marinner


    segunda-feira, 13 de abril de 2015 22:56

Todas as Respostas

  • Boa tarde amigos.

    Pessoal to trabalhando num projeto que grava a Desktop, agora surgiu algo inesperado, vamos la!
    Ao abrir o programa o form1 que é o form principal devera ficar invisível, mas estou tentando fazer assim:

    -----------------

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Me.Visible = False   'Aqui coloco o codigo para ele ficar invisivel, mas é como se o código não existisse tentei tambem me.hide                                       'mas nada!


            'o form load ja inicia e começa gravando a desktop
            On Error Resume Next

            If btgravar.Text = "Gravar" Then
                For Each Str As String In IO.Directory.EnumerateFiles(Application.StartupPath & "\Bibliotecas\Imagens\", "*.png", IO.SearchOption.TopDirectoryOnly)
                    Kill(Str)
                Next

                BackgroundWorker1.RunWorkerAsync()
                btgravar.Text = "Parar"

            Else
                BackgroundWorker1.CancelAsync()
                btgravar.Text = "Gravar"


            End If

        End Sub

    -------------------------------------------

    Amigos o form não consegue ficar invisivel e executar o código? é isso?
    Coloquei tambem no fim me.hide/ me.visible=false, mas nada.

    Preciso de ajudar, é com os mestres!

    Valeu!!


    Anderson.mds

    então amigos quero que ele fique invisivel por que uso NotifyIcon1, e por ai vou chamalo quando quiser!

    Anderson.mds

    segunda-feira, 13 de abril de 2015 20:57
  • Olá!
    Vai aqui a minha contribuição, espero ter lhe ajudado:

    Insira um componente: "NotifyIcon"

    A Imagem e abaixo, os códigos:

    MS INFORMÁTICA

    EM "VB"

     

    Public Class Form3

        Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            'Ocultar

            Me.Hide()

            'Não mostrar na barra de tarefas

            Me.ShowInTaskbar = False

     

            'Mensagem no Balão!

            NotifyIcon1.ShowBalloonTip(1)

            NotifyIcon1.BalloonTipTitle = "Aviso do Form!"

            NotifyIcon1.BalloonTipText = "Form Oculto"

        End Sub

     

        Private Sub NotifyIcon1_BalloonTipClicked(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.BalloonTipClicked

            'Habilita o Form clicando no balão:

            'Reabre e exibe o Form

            Me.Show()

            'Volta a mostrar na barra de tarefas

            Me.ShowInTaskbar = True

        End Sub

     

        Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick

            'Reabre e exibe o Form

            Me.Show()

            'Volta a mostrar na barra de tarefas

            Me.ShowInTaskbar = True

     

        End Sub

     

        Private Sub btMinimizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btMinimizar.Click

            Me.Hide()

            'Não mostrar na barra de tarefas

            Me.ShowInTaskbar = False

     

            'Mensagem no Balão!

            NotifyIcon1.ShowBalloonTip(1)

            NotifyIcon1.BalloonTipTitle = "Aviso do Form!"

            NotifyIcon1.BalloonTipText = "Form Oculto"

        End Sub

     

        Private Sub btX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btX.Click

            Close()

        End Sub

     

    End Class

     

    EM "C#"

     

    using Microsoft.VisualBasic;

    using System;

    using System.Collections;

    using System.Collections.Generic;

    using System.Data;

    using System.Diagnostics;

    using Microsoft.Win32;

    Public Class Form1

    {

                //Iniciar com o Windows

                private void Registro(string Path)

                {

                            RegistryKey regKey = default(RegistryKey);

                            regKey = Registry.CurrentUser.OpenSubKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", true);

                            regKey.SetValue("Nome do Seu projeto", Path);

                }

     

                private void GetRegistro()

                {

                            string path = null;

                            RegistryKey regKey = default(RegistryKey);

                            regKey = Registry.CurrentUser.OpenSubKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", true);

                            path = regKey.GetValue("INICIAR");

     

     

                            if (path == Application.StartupPath + "\\" + My.Application.Info.AssemblyName) {

                            } else {

                                       Registro(Application.StartupPath + "\\" + My.Application.Info.AssemblyName);

                            }

                }

     

                private void Form1_Load(System.Object sender, System.EventArgs e)

                {

                            GetRegistro();

                }

        Public Form1()

                {

                            Load += Form1_Load;

                }

    }




    MS INFORMATICA - Projeto Marinner


    segunda-feira, 13 de abril de 2015 22:56
  • Boa tarde Anderson,

    Marquei a resposta do Márcio, pois parece ser uma boa solução para seu problema. Caso não tenha sido suficiente para solucionar seu problema, desmarque a resposta e nos envie mais detalhes que continuaremos ajudando.

    Obrigado,

    Abraço!


    Eduardo Romero

    Esse conteudo e fornecido sem garantias de qualquer tipo, seja expressa ou implicita.

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais facil para os outros visitantes encontrarem a resolucao mais tarde.

    terça-feira, 14 de abril de 2015 19:58
    Moderador
  • Cara valeu!

    Tu é fera, me ajudou muito!

    Parabéns!


    Anderson.mds

    quarta-feira, 15 de abril de 2015 00:07
  • Cara valeu!

    Tu é fera, me ajudou muito!

    Parabéns!


    Anderson.mds


    Anderson.
    Agradecemos! Estamos juntos e juntos chegaremos lá, amigo.

    MS INFORMATICA - Projeto Marinner

    quarta-feira, 15 de abril de 2015 00:33

  • Eduardo.Romero.

    Rsrs... eu, vendo aqui minha contribuição, acabei enviando em "C#" uma resposta de uma outra Thread: "Iniciar com o Windows!" Rsrs... Mas já vale! Creio que nosso amigo Anderson pode aproveitar.
    Foi na hora de levar meu filho à escola, acabei, na pressa copiando e  colando! :D


    MS INFORMATICA - Projeto Marinner



    quarta-feira, 15 de abril de 2015 00:37