frmmain.frm

本程序使用VB语言编程

VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash.ocx"
Begin VB.Form Frmmain 
   Caption         =   "聊天/文件传输服务程序"
   ClientHeight    =   7695
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   3660
   Icon            =   "Frmmain.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   7695
   ScaleWidth      =   3660
   StartUpPosition =   3  '窗口缺省
   Begin ShockwaveFlashObjectsCtl.ShockwaveFlash ShockwaveFlash1 
      Height          =   495
      Left            =   600
      TabIndex        =   0
      Top             =   240
      Width           =   1575
      _cx             =   2778
      _cy             =   873
      FlashVars       =   ""
      Movie           =   ""
      Src             =   ""
      WMode           =   "Window"
      Play            =   -1  'True
      Loop            =   -1  'True
      Quality         =   "High"
      SAlign          =   ""
      Menu            =   -1  'True
      Base            =   ""
      AllowScriptAccess=   "always"
      Scale           =   "ShowAll"
      DeviceFont      =   0   'False
      EmbedMovie      =   0   'False
      BGColor         =   ""
      SWRemote        =   ""
      MovieData       =   ""
      SeamlessTabbing =   -1  'True
   End
   Begin VB.Image Image1 
      Height          =   4215
      Left            =   240
      Picture         =   "Frmmain.frx":27A2
      Stretch         =   -1  'True
      Top             =   1440
      Width           =   2055
   End
   Begin VB.Menu server 
      Caption         =   "聊天网络服务"
      Begin VB.Menu ser 
         Caption         =   "本机为服务器"
      End
      Begin VB.Menu clt 
         Caption         =   "本机为客房机"
      End
      Begin VB.Menu myie 
         Caption         =   "上网喽"
      End
   End
   Begin VB.Menu filecs 
      Caption         =   "文件传输"
      Begin VB.Menu fileser 
         Caption         =   "本机为服务器"
      End
      Begin VB.Menu filecli 
         Caption         =   "本机为客户机"
      End
   End
End
Attribute VB_Name = "Frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub clt_Click()
Frmclt.Show
End Sub

Private Sub filecli_Click()
Dim j As Integer
j = Shell(App.Path & "\filecs\Client\Client.exe", vbNormalFocus)
End Sub

Private Sub fileser_Click()
Dim j As Integer
j = Shell(App.Path & "\filecs\server\server.exe", vbNormalFocus)
End Sub

Private Sub Form_Load()
Frmmain.Top = 100
Frmmain.Left = 100
ShockwaveFlash1.Top = 0
ShockwaveFlash1.Left = 0
ShockwaveFlash1.Width = Frmmain.Width
Image1.Width = Frmmain.Width
Image1.Height = Frmmain.Height - ShockwaveFlash1.Height
Image1.Top = ShockwaveFlash1.Height
Image1.Left = 0
Randomize Timer
kk = Int(Rnd * 10) + 1
ShockwaveFlash1.Movie = App.Path & "\pic\" & "3dquan.swf"
Image1.Picture = LoadPicture(App.Path & "\pic\djc" & kk & ".jpg")
End Sub

Private Sub myie_Click()
Form4.Show
End Sub

Private Sub ser_Click()
frmser.Show
End Sub