主界面.frm

一个VB编写的校园即时广播系统,具有简单的定时广播性能

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Form2 
   BorderStyle     =   5  'Sizable ToolWindow
   Caption         =   "Net Call"
   ClientHeight    =   4860
   ClientLeft      =   60
   ClientTop       =   285
   ClientWidth     =   1890
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4860
   ScaleWidth      =   1890
   StartUpPosition =   3  '窗口缺省
   Visible         =   0   'False
   Begin VB.Timer Timer1 
      Interval        =   400
      Left            =   1395
      Top             =   765
   End
   Begin MSWinsockLib.Winsock W1 
      Left            =   1320
      Top             =   60
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   327681
      RemoteHost      =   "127.0.0.1"
      RemotePort      =   7777
   End
   Begin VB.CommandButton setcom 
      Caption         =   "系统"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   7.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   0
      TabIndex        =   1
      Top             =   4500
      Width           =   585
   End
   Begin VB.ListBox L1 
      Height          =   4200
      ItemData        =   "主界面.frx":0000
      Left            =   30
      List            =   "主界面.frx":0007
      TabIndex        =   0
      Top             =   0
      Width           =   1155
   End
   Begin VB.Menu systemset 
      Caption         =   "菜单1"
      Visible         =   0   'False
      Begin VB.Menu sysset 
         Caption         =   "系统设置"
      End
      Begin VB.Menu pset 
         Caption         =   "个人设置"
      End
   End
   Begin VB.Menu menu 
      Caption         =   "菜单1"
      Visible         =   0   'False
      Begin VB.Menu sendmag 
         Caption         =   "发送消息"
      End
      Begin VB.Menu sendfile 
         Caption         =   "发送文件"
      End
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Login.Show
Me.Left = Screen.Width - (Screen.Width - Me.Left)
End Sub

Private Sub L1_Click()
PopupMenu menu, 8, 0
End Sub

Private Sub setcom_Click()
PopupMenu systemset, 8, 0
End Sub

Private Sub Timer1_Timer()
If W1.State = sckConnected Then
W1.SendData "onli"
End If
End Sub

Private Sub W1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox Description, vbOKOnly, "错误"
End Sub