frmmain.frm

vb内嵌flash应用 Type=Exe Form=frmMain.frm Reference=*G{00020430-0000-0000-C000-000000000046}#2.0#0#..

VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "SWFLASH.OCX"
Begin VB.Form frmMain 
   BorderStyle     =   4  'Fixed ToolWindow
   ClientHeight    =   3720
   ClientLeft      =   15
   ClientTop       =   15
   ClientWidth     =   3720
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3720
   ScaleWidth      =   3720
   StartUpPosition =   2  'CenterScreen
   Begin ShockwaveFlashObjectsCtl.ShockwaveFlash xWin 
      Height          =   3750
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   3750
      _cx             =   6615
      _cy             =   6615
      Movie           =   ""
      Src             =   ""
      WMode           =   "Window"
      Play            =   -1  'True
      Loop            =   0   'False
      Quality         =   "High"
      SAlign          =   ""
      Menu            =   0   'False
      Base            =   ""
      Scale           =   "ShowAll"
      DeviceFont      =   0   'False
      EmbedMovie      =   0   'False
      BGColor         =   ""
      SWRemote        =   ""
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ReleaseCapture& Lib "user32" ()
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
Private Declare Function SendMessageLong& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long)
Private Declare Function SetFocusEx Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Private Const SC_MOVE = &HF012
Private Const WM_SYSCOMMAND = &H112
Private Sub Form_Load()
OnTop Me, True
xWin.Movie = App.Path & "\tutorial.swf"
End Sub
Private Sub Form_Resize()
Select Case Me.WindowState
    Case vbMinimized
        Caption = "Flash in VB Tutorial - by Newmann"
    
    Case vbNormal
        Caption = ""
        Move Left, Top, 3750, 3750
End Select
End Sub
Private Sub Form_Unload(Cancel As Integer)
OnTop Me, False
Set frmMain = Nothing
End Sub
Private Sub xWin_FSCommand(ByVal command As String, ByVal args As String)
Static NhWnd& 'Variable to store WordPad's window handle

Select Case command
    Case "tb_action"
        Select Case args
            Case "move_win"
                ReleaseCapture
                SendMessageLong Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0

            Case "close_win"
                If MsgBox("Are you sure you want to close this tutorial?", vbYesNo + vbInformation + vbDefaultButton2, "End Tutorial?") = vbYes Then End
            
            Case "min_win"
                Me.WindowState = vbMinimized
                
        End Select
    Case "win_action"
        Select Case args
            Case "open_wordpad" 'Opens WordPad
                Shell "C:\Program Files\Accessories\WordPad.exe", vbNormalFocus
                NhWnd = FindWindow(vbNullString, "Document - WordPad")
                Call SetWindowText(NhWnd, "Flash Tutorial - WordPad")
            
            Case "write_text" 'Writes Text into WordPad
                Clipboard.Clear
                Clipboard.SetText InputBox("Which text do you want to write into NotePad?", "Write Text Into NotePad", "Visual Basic integration into Flash -- A Simple Tutorial by Newmann"), 1
                AppActivate "Flash Tutorial - WordPad"
                SendKeys "%EP"
                
            Case "close_wordpad" 'Closes WordPad
                Clipboard.Clear
                AppActivate "Flash Tutorial - WordPad"
                SendKeys "%{F4}N"
        End Select
End Select
End Sub
Private Sub OnTop(ByVal frm As Form, ByVal YesNo As Boolean)
Dim TopPixels&, LeftPixels&, WidthPixels&, HeightPixels&

TopPixels = frm.Top / Screen.TwipsPerPixelY
LeftPixels = frm.Left / Screen.TwipsPerPixelX
WidthPixels = frm.Width / Screen.TwipsPerPixelY
HeightPixels = frm.Height / Screen.TwipsPerPixelX

Select Case YesNo
    Case True: SetWindowPos frm.hwnd, -1, LeftPixels, TopPixels, WidthPixels, HeightPixels, &H50
    Case False: SetWindowPos frm.hwnd, -2, LeftPixels, TopPixels, WidthPixels, HeightPixels, &H50
End Select
End Sub