mdiudp.frm

用VC++编写的源码

VERSION 5.00
Object = "{B0E4B491-7E7B-11D0-8E50-444553540000}#4.0#0"; "ICONTRAY.OCX"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "UDP Chat"
   ClientHeight    =   5940
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   8040
   Icon            =   "MDIUDP.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   Begin IconTrayOCX.IconTray IconTray1 
      Left            =   600
      Top             =   480
      _ExtentX        =   688
      _ExtentY        =   741
      Icon            =   ""
   End
   Begin VB.Menu mnuNewRoom 
      Caption         =   "&New Room"
   End
   Begin VB.Menu mnusys 
      Caption         =   "&System Tray"
   End
   Begin VB.Menu cWindows 
      Caption         =   "&Windows"
      Begin VB.Menu cascade 
         Caption         =   "Ca&scade"
      End
      Begin VB.Menu mnuhorizontal 
         Caption         =   "&Horizontal"
      End
      Begin VB.Menu mnuvertical 
         Caption         =   "&Vertical"
      End
      Begin VB.Menu mnuarrangeicons 
         Caption         =   "&Arrange Icons"
      End
      Begin VB.Menu dash 
         Caption         =   "-"
      End
      Begin VB.Menu allwindows 
         Caption         =   "Chat Windows"
         WindowList      =   -1  'True
      End
   End
   Begin VB.Menu mnuhelp 
      Caption         =   "&Help"
      Begin VB.Menu mnuhelphelp 
         Caption         =   "&Help"
      End
      Begin VB.Menu mnuhelpabout 
         Caption         =   "&About"
      End
   End
   Begin VB.Menu mnuOptions 
      Caption         =   "&Options"
      Visible         =   0   'False
      Begin VB.Menu mnuudp 
         Caption         =   "Open UDP Chat"
      End
      Begin VB.Menu mnusytrayexit 
         Caption         =   "Exit"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cascade_Click()
Me.Arrange (vbCascade)
End Sub

Private Sub MDIForm_Load()
mdiform1.IconTray1.Icon = mdiform1.Icon
mdiform1.IconTray1.Add
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
If Form2.sckSend.State = sckConnected Then
    Form2.sckSend.SendData "Connection Closed"
    Form2.sckSend.Close
    mdiform1.IconTray1.Remove
    mdiform1.IconTray1.Update
    End
Else
    mdiform1.IconTray1.Remove
    mdiform1.IconTray1.Update
    End
End If
End Sub

Private Sub mnuarrangeicons_Click()
Me.Arrange (vbArrangeIcons)
End Sub

Private Sub mnuhorizontal_Click()
Me.Arrange (vbHorizontal)
End Sub

Private Sub mnuNewRoom_Click()
    Static lDocumentCount As Long
    Dim frmD As Form2
    lDocumentCount = lDocumentCount + 1
    Set frmD = New Form2
    frmD.Caption = "UDP Chat Room: " & lDocumentCount
    On Error Resume Next
    frmD.txtSend.Width = frmD.ScaleWidth - 1000
    frmD.txtMain.Width = frmD.ScaleWidth
    frmD.txtMain.Height = frmD.ScaleHeight - 1900
    frmD.cmdSend.Left = frmD.ScaleWidth - 900
    frmD.Show
End Sub

Private Sub mnurecieve_Click()
form1.Show
End Sub

Private Sub mnusys_Click()
    mdiform1.Visible = False
'    Form2.Visible = False
    mdiform1.IconTray1.ToolTip = "Srini's UDP Chat"
    mdiform1.IconTray1.Icon = Form2.Icon
    mdiform1.IconTray1.Add
End Sub

Private Sub mnusytrayexit_Click()
Unload Me
End Sub

Private Sub mnuudp_Click()
Form2.Visible = True
End Sub

Private Sub mnuvertical_Click()
Me.Arrange (vbVertical)
End Sub