Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / AVI_PLYR / AVI_1.FRM (.txt) next >

Wrap

Visual Basic Form | 1995-03-15 | 7.5 KB | 265 lines

Form1 .AVI in Window Demo Form15 Command5 Sound Command4 Command3 Command2 Pause Command1 File1 *.avi Drive1 Picture1 Label1 Label10 about About... about1 About .AVI File Viewer Demo Dir1_Change! Form1 ListIndex3 File1 PathQ Drive1_Change Drive1 File1_Click TheFile EnabledN Form_Load MMControl1_Done@ NotifyCode MMControl1 Notify Shareable DeviceType% Form_UnloadQ Cancelh Action mciExecute MMControl1_PlayClick MMControl1_PauseClick1 MMControl1_StopClick6 Command Picture1_Click Picture1_GotFocus HwndFrame GetFocus WaitForEventsToFinish Picture1[ hWndDisplay MMControl1_PlayGotFocus PlayClick Form_KeyPress KeyAscii] Form_MouseMove Button Shift Picture icons| arrow1 arrows arw02dn none_ClickV Dir1_GotFocus Picture2` File1_GotFocus File1_MouseUp File1_LostFocus UsesWindows palse< FileName; Form_GotFocus DisplayType MMCControl1 MMControl1_PlayCompleted* ErrorCode MMControl1_StopGotFocus Drive1_GotFocusq Picture2_ClickH Picture2_GotFocus0 HwndFrameMMControl1m Begin AVIFile WaitForEventw MMControl1_NextClick Panel3D1_DragDrop SourceN Control Frame3D1_DragDrop about_Click about1_Click CRLF) about2_Clickw generalg procedure displaying/ videos window PlayEnableD PlayEnabled PauseEnable StopEnabled PauseEnabled Picture1_KeyPress AVIFilename InstHScroll1_Change mciCommand( Command1_Click Label3 CaptionY Label5 mciReturn~ mciReturnLength mciErrString mciErrLengthq Text2 Device Text1} mcihWnd mciError mciSendString Success mciGetErrorString] List1 Combo1 Combo1_Change Label8I Command2_Click List1_Clicke Combo1_Click AVIVideo Command3_Click mciFile mciDevice File1_DblClick Command4_Click Sound Command5_Click} Command6_Click Text3 AliasName handle DisplayFrame/ GroupPush3D1_Click ValueE GroupPush3D2_Click[ GroupPush3D5_Click GroupPush3D3_Click falseEnd GroupPush3d3 GroupPush3D1 GroupPush3D4_Click Label10 mciFileName GroupPush3d5 Audio SndFlag Label1_Click Label2_Click- Label3_Click= Label6_ClickM Label7_Click Label5_Clickm Text1_Change Text3_Change Command7_Click video Label10_Click Enable Paused falseElse SoundStatus Label1 Command1 Command2 BackColor FrameHwnd HwndFr about1_Click Written by Rolf Mathison Compuserve 76376,3224 This program demonstrates How to play .AVI files in a window (Print out the form text & code for details) Command1_Click Close any open MCI devices Close all Open the file with an alias (VID) open alias Set the Focus to window where you want the video to play. Picture1 GotFocus will return window "handle #" (hWnd) as HwndFrame We have to put a delay here to allow for timing, or we may get the wrong hWnd #a Convert to string and set the window to use window handle Show the filename and mode then play the videon Playing... Play VID Command2_Click If we're not already paused, use the "Pause" commandw Pause Paused... If we're paused use the "Play" command to resumem Play Playing... toggle the status of the "Paused" flag Command3_Click Single step video forward by "1" framen step by 1 Change the mode label, SetFocus back to "Pause" Single Step... Command4_Click Stop the video, close the MCI device Close all Clear Filename, show mode Done... SetFocus to Picture1 and blank out the videos SetFocus back for the next file Command5_Click Toggle the sound on and off setaudio Sound Off... setaudio Sound On... toggle the status of the "SoundStatus" flag Dir1_Change Get the Directory Drive1_Change Get the disk drive File1_Click Get the MCI filename SetFocus to "Play"" File1_DblClick This just is a shortcut, it will start playing the videog without pressing the "Play" key Close any open MCI devices Close all Open up the file, using an alias (VID)l open alias Set focus to window where video is to play We have to put a delay here to allow for timing, or we may get the wrong hWnd #a Picture1 GotFocus returns window "handle#" as HwndFrame Convert it to a string and set the window to use window handle Label the filename and mode Playing... Play the videon play File1_GotFocus Form_Unload Close all files on exit Close all Picture1_GotFocus Get the hWnd "handle number" for the Picture1 windoww HwndFrame & GetFocus() are defined in Global.basn