I am doing irc chat similar to mirc chat if i connected to
irc.webamster.com i had no problem. but if connected to eu.undernet.org.
i got error....somthing bug me! O:-)
'February 2004
'An unhandled exception of type 'System.NullReferenceException' occurred
in system.windows.forms.dll
'Additional information: Object reference not set to an instance of an
object.
Option Explicit On
Option Strict Off
Imports System
Imports System.Text
'Imports System.Net.Dns
'Imports System.Net.Sockets
Namespace PirateChat
Public Class mainPirateChat <============ error occurred here in bold
Inherits System.Windows.Forms.Form
Private WithEvents netBots As New PirateChat.ClientFactory
Private WithEvents Netsock As New PirateChat.SockFactory
Private clsReader As New PirateChat.clsReadWriteXML
Private Sub mnuWindowCascade_Click_1(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
mnuWindowCascade.Click, mnuWindowTitleH.Click, mnuWindowTitleV.Click,
mnuWindowArrange.Click
Dim mi As MenuItem = CType(sender, MenuItem)
Select Case mi.Text
Case "&Cascade"
Me.LayoutMdi(MdiLayout.Cascade)
Case "Title Horizontal"
Me.LayoutMdi(MdiLayout.TileHorizontal)
Case "Title &Vertical"
Me.LayoutMdi(MdiLayout.TileVertical)
Case "&Arrange Icons"
Me.LayoutMdi(MdiLayout.ArrangeIcons)
End Select
End Sub
Private Sub mnuIrc_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles mnuIrcConnect.Click, mnuIrcPref.Click,
mnuIrcExit.Click
Dim mi As MenuItem = CType(sender, MenuItem)
Select Case mi.Text
Case "Connect"
netBots.ConnectServer()
Case "Preferences..."
Dim frmPref As New PirateChat.frmPreferences
frmPref.MdiParent = Me
frmPref.Show()
Case "Exit"
Me.Close()
End Select
End Sub
Private Sub mnuServer_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles mnuSerAdm.Click, mnuSerMotd.Click,
mnuSerInfo.Click, _
mnuSerMap.Click, mnuSerLink.Click, mnuSerVer.Click,
mnuSerCom.Click, mnuSerTime.Click, mnuSerLoAU.Click
Dim mi As MenuItem = CType(sender, MenuItem)
Select Case mi.Text
Case "Admin Info"
Netsock.SendData(Netsock.StringToBytes("admin" &
vbCrLf))
Case "MOTD"
Netsock.SendData(Netsock.StringToBytes("motd" & vbCrLf))
Case "Server Info"
Netsock.SendData(Netsock.StringToBytes("server" &
vbCrLf))
Case "Map Info"
Netsock.SendData(Netsock.StringToBytes("map" & vbCrLf))
Case "Link Info"
Netsock.SendData(Netsock.StringToBytes("links" &
vbCrLf))
Case "Server's Commands"
Case "Server's Time"
Netsock.SendData(Netsock.StringToBytes("time" & vbCrLf))
Case "Server's Version"
Netsock.SendData(Netsock.StringToBytes("version" &
vbCrLf))
Case "List of All Users"
End Select
End Sub
Private Sub mnuInfo_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles mnuInfoAlias.Click, mnuInfoStart.Click,
mnuInfoChan.Click, _
mnuInfoNot.Click, mnuInfoserInf.Click
Dim mi As MenuItem = CType(sender, MenuItem)
Select Case mi.Text
Case "Aliases..."
mnuFrmHandling(mi.Text)
Case "Startup..."
mnuFrmHandling(mi.Text)
Case "Channels..."
mnuFrmHandling(mi.Text)
Case "Notify lists..."
Dim nlform As New frmNotifyLists
nlform.MdiParent = Me
nlform.Show()
Case "Server's status"
netBots.nStatus.MdiParent = Me
netBots.nStatus.Show()
End Select
End Sub
Private Sub mnuFrmHandling(ByVal frmName As String)
For Each frm As Form In Me.MdiChildren
If frm.Name = frmName Then
frm.BringToFront()
Exit Sub
End If
Next
Dim frmNew As frmAlias
frmNew = New frmAlias
frmNew.MdiParent = Me
frmNew.Name = frmName
Select Case frmName
Case "Aliases..."
frmNew.Text = frmName
Case "Startup..."
frmNew.Text = frmName
Case "Channels..."
frmNew.Text = frmName
End Select
frmNew.Show()
End Sub
End Class
End Namespace