wenjian.frm

此系统用于教学所用,用于老师进行教学所用

VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash9a.ocx"
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Begin VB.Form wenjian 
   Caption         =   "精彩课程"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin SHDocVwCtl.WebBrowser Web 
      Height          =   1575
      Left            =   6600
      TabIndex        =   1
      Top             =   600
      Width           =   2295
      ExtentX         =   4048
      ExtentY         =   2778
      ViewMode        =   0
      Offline         =   0
      Silent          =   0
      RegisterAsBrowser=   0
      RegisterAsDropTarget=   1
      AutoArrange     =   0   'False
      NoClientEdge    =   0   'False
      AlignLeft       =   0   'False
      NoWebView       =   0   'False
      HideFileNames   =   0   'False
      SingleClick     =   0   'False
      SingleSelection =   0   'False
      NoFolders       =   0   'False
      Transparent     =   0   'False
      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
      Location        =   "http:///"
   End
   Begin ShockwaveFlashObjectsCtl.ShockwaveFlash msh 
      Height          =   2295
      Left            =   720
      TabIndex        =   0
      Top             =   480
      Width           =   3735
      _cx             =   6588
      _cy             =   4048
      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
      Profile         =   0   'False
      ProfileAddress  =   ""
      ProfilePort     =   0
   End
End
Attribute VB_Name = "wenjian"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Const SW_SHOWMAXIMIZED = 3
Private Sub Form_Load()
wenjian.Left = 0
wenjian.Top = 0
wenjian.Width = Screen.Width
wenjian.Height = Screen.Height
msh.Movie = App.Path & "\flash\wenj.swf"
msh.Left = 0
msh.Top = 0
msh.Width = wenjian.Width
msh.Height = wenjian.Height
Web.Left = 3300
Web.Top = 2400
Web.Width = msh.Width - 4100
Web.Height = msh.Height - 3000
End Sub

Private Sub msh_FSCommand(ByVal command As String, ByVal args As String)
If command = "wlgl" Then
    MsgBox "物理管理！"
End If
If command = "ykyl" Then
   Web.Navigate App.Path + "\www\1.htm"
End If
If command = "jpjc" Then
      Dim pat
      pat = "C:\Documents and Settings\yuan\桌面\试题入库123\试题入库123\123.ppt"      '假设是你所放文件的路径
     ShellExecute GetDesktopWindow(), "open", pat, pat, "f:\", SW_SHOWMAXIMIZED
End If
If command = "jcsp" Then
     MsgBox "精彩视频！"
End If
If command = "xttk" Then
    mima.Show
    wenjian.Hide
End If
If command = "fh" Then
    End
End If
End Sub