Usuário com melhor resposta
Handles sumindo ?

Pergunta
-
Respostas
-
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.
- Marcado como Resposta Eduardo Henrique Antunes sábado, 30 de março de 2013 14:59
Todas as Respostas
-
-
Isso acontece com todos os form ?
Não , somente com uma Form. A principal.
- Editado Eduardo Henrique Antunes 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
- Editado Eduardo Henrique Antunes quinta-feira, 28 de março de 2013 20:20
-
-
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.
- Editado Eduardo Henrique Antunes quinta-feira, 28 de março de 2013 20:33
-
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.
- Marcado como Resposta Eduardo Henrique Antunes sábado, 30 de março de 2013 14:59