none
Handles sumindo ? RRS feed

  • Pergunta

  • Todos os handless do meu projeto estão sumindo. E com isso gera o seguinte erro ao tentar abrir o Designer.

    "Value cannot be null. Parameter name: objectType "

    Alguem pode me explicar porque isso esta acontecendo ?

    quinta-feira, 28 de março de 2013 20:08

Respostas

  • Ninho_Blink

    Obrigado por me responder.

    Consegui resolver esse problema. Era algo com o vb.

    Eu simplesmente retirei todo o codigo. E fui repondo, Sub por Sub para encontrar o problema;

    Mas apos eu repor todas as subs, o erro sumiu.

    Obrigado pelas respostas.


    sábado, 30 de março de 2013 14:59

Todas as Respostas

  • Isso acontece com todos os form ?
    quinta-feira, 28 de março de 2013 20:11
  • Isso acontece com todos os form ?

    Não , somente com uma Form. A principal.

    quinta-feira, 28 de março de 2013 20:14
  • Posta o código da form principal por gentileza.
    quinta-feira, 28 de março de 2013 20:15
  • Posta o código da form principal por gentileza.
    Voce ira reparar que algumas subs estão sem os handless, nao foi eu que retirei ou esqueci de por, o proprio programa esta sumindo com os handless. eu ja arrumei todos , mas eles somem toda hora.
    Imports Microsoft.Win32
    Public Class Login_Form
        Public UserTipe As String = ""
        Public tentativas As Integer = 3
        Public Sub Logar()
            If txt_user.SelectedItem = "Usuario 1" Then
                UserTipe = "User1"
                comando.LogIn()
    
            End If
            If txt_user.SelectedItem = "Usuario 2" Then
                comando.LogIn()
                UserTipe = "User2"
    
            End If
            If txt_user.SelectedItem = "Admin" Then
                UserTipe = "Admin"
                comando.LogIn()
    
            End If
            If txt_user.SelectedItem = "Convidado" Then
                UserTipe = "Convidado"
                comando.LogIn()
    
            End If
        End Sub
    
        Private Sub Monitor_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
            If tentativas = 0 Then
                btn_login_custom.Enabled = False
                label_aguarde.Text = "Aguarde"
                label_segundos.Text = "segundos."
                label_tempo.Text = 10
                penal_timer.Start()
                Monitor.Stop()
            End If
        End Sub
    
        Private Sub penal_timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
            If label_tempo.Text > 1 Then
                btn_login_custom.Enabled = False
                label_tempo.Text = label_tempo.Text - 1
            Else
                tentativas = 3
                label_aguarde.Text = ""
                label_segundos.Text = ""
                label_tempo.Text = ""
                btn_login_custom.Enabled = True
                Monitor.Start()
                penal_timer.Stop()
            End If
    
        End Sub
    
        Private Sub txt_pass_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
            If btn_login_custom.Enabled = False Then
    
            Else
                If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Enter) Then
                    btn_logar_code()
                End If
            End If
    
        End Sub
    
        Private Sub protect_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
            Dim t() As Process
            t = Process.GetProcessesByName("taskmgr")
            If t.Length > 0 Then
                t(0).Kill()
            End If
        End Sub
    
        Private Sub txt_user_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
            If txt_user.SelectedItem = "Convidado" Then
                txt_pass.Enabled = False
            Else
                txt_pass.Enabled = True
            End If
        End Sub
    
        Private Sub Login_Form_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
            If e.Alt And e.KeyCode = Keys.F4 Then
                e.Handled = True
            End If
        End Sub
    
        Private Sub Login_Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
            GetRegistro()
    
            Try
                wallchange.Change()
            Catch ex As Exception
    
            End Try
        End Sub
        Private Sub Registro(ByVal Path As String)
            Dim regKey As RegistryKey
            regKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
            regKey.SetValue("CyberEx", Path)
        End Sub
        Private Sub GetRegistro()
            Dim path As String
            Dim regKey As RegistryKey
            regKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
            path = regKey.GetValue("CyberEx")
    
            If path = Application.StartupPath & "\" & My.Application.Info.AssemblyName Then
    
            Else
                Registro(Application.StartupPath & "\" & My.Application.Info.AssemblyName)
            End If
        End Sub
        Private Sub btn_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            If MessageBox.Show("Deseja desligar o computador ?", "Aviso", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Yes Then
                Try
                    My.Settings.Save()
                    System.Diagnostics.Process.Start("ShutDown", "/s /t 0")
                    End
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
    
            Else
    
            End If
        End Sub
    
        Private Sub btn_login_custom_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
            btn_logar_code()
        End Sub
        Public Sub btn_logar_code()
            If txt_user.SelectedItem = "Convidado" Then
                btn_login_custom.Image = My.Resources.login_button_mouseclick
                btn_login_custom.Enabled = False
                txt_pass.Enabled = False
                lb_lg_status.Text = "Logando..."
                Timer1.Start()
            Else
                If txt_pass.Text = "" Or txt_user.Text = "" Then
                    btn_login_custom.Image = My.Resources.login_button_mouseclick
                Else
                    btn_login_custom.Image = My.Resources.login_button_mouseclick
                    btn_login_custom.Enabled = False
                    txt_pass.Enabled = False
                    lb_lg_status.Text = "Logando..."
                    Timer1.Start()
                End If
            End If
        End Sub
        Private Sub timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timer1.Tick
            Timer1.Stop()
            btn_login_custom.Image = My.Resources.login_button
            btn_login_custom.Enabled = True
            txt_pass.Enabled = True
            lb_lg_status.Text = ""
            Logar()
        End Sub
    
        Private Sub btn_login_custom_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_login_custom.MouseEnter
            btn_login_custom.Image = My.Resources.login_button_mouseover
        End Sub
        
        Private Sub btn_login_custom_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_login_custom.MouseLeave
            btn_login_custom.Image = My.Resources.login_button
        End Sub
    
    End Class


    quinta-feira, 28 de março de 2013 20:18
  • Muito estranho
    Mas quando você digita o  Handles no p´ropio código ele não desaparece certo só desaparencendo quando você executa o programa.
    Já tentou verificar com o debug ?
    quinta-feira, 28 de março de 2013 20:22
  • Muito estranho
    Mas quando você digita o  Handles no p´ropio código ele não desaparece certo só desaparencendo quando você executa o programa.
    Já tentou verificar com o debug ?

    Olha , eu arrumei todos os handless , recoloquei eles, usei o debug , build. fechei tudo e abri denovo.mas continua ainda , os handless somem.

    os handless some quando eu dou um duplo clike no designe. Quando cliko 2 veses no form. para ir ate o codigo Form.load. os handless somem.

    nao so no form load , como nos outros controles do form tambem.


    quinta-feira, 28 de março de 2013 20:32
  • Ninho_Blink

    Obrigado por me responder.

    Consegui resolver esse problema. Era algo com o vb.

    Eu simplesmente retirei todo o codigo. E fui repondo, Sub por Sub para encontrar o problema;

    Mas apos eu repor todas as subs, o erro sumiu.

    Obrigado pelas respostas.


    sábado, 30 de março de 2013 14:59