ho un problema non riesco a mettere il form in Me.Visible = False, uso questo codice:
codice:Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load TextBox1.Text = String.Empty Me.Cursor = Cursors.AppStarting Try NotifyIcon1.Visible = True Dim wc As New WebClient() Dim IIP As String = Encoding.ASCII.GetString(wc.DownloadData(New Uri("http://pchelplive.com/ip.php"))) Application.DoEvents() TextBox1.Text = Replace(IIP, Chr(10), "") NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info NotifyIcon1.BalloonTipTitle = "IP" NotifyIcon1.BalloonTipText = "Il Mio IP:" & TextBox1.Text NotifyIcon1.ShowBalloonTip(500) ToolStripTextBox1.Text = TextBox1.Text Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow Me.Visible = False Catch ex As Exception MessageBox.Show("Controllare la scheda di rete o il modem", "Errore", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) If TextBox1.Text <> CDec(TextBox1.Text) Then TextBox1.Text = String.Empty NotifyIcon1.Visible = True NotifyIcon1.BalloonTipIcon = ToolTipIcon.Error NotifyIcon1.BalloonTipTitle = "IP Errore " NotifyIcon1.BalloonTipText = "Il Mio IP: Assente" NotifyIcon1.ShowBalloonTip(10) Me.Cursor = Cursors.Default Me.Visible = True End Try Me.Cursor = Cursors.Default End Sub

Rispondi quotando


