Form1_Load Invisivel ?

Question

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

Answer 1

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

Answer 2

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

Insira um componente: "NotifyIcon"

A Imagem e abaixo, os códigos:

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

Answer 3

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.

Answer 4

Cara valeu!

Tu é fera, me ajudou muito!

Parabéns!

---

Anderson.mds

Answer 5

Cara valeu!

Tu é fera, me ajudou muito!

Parabéns!

---

Anderson.mds

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

---

MS INFORMATICA - Projeto Marinner

Answer 6

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