Matlab GUI,activex控件,播放视频，菜单，打开文件对话框

% 窗体打开前，执行该函数----------------------------------------------------
function playMTV_OpeningFcn(hObject, eventdata, handles, varargin)
handles.output = hObject;

pos=[0 0 0 0];
%MovieControl=actxcontrol('AMOVIE.ActiveMovieControl.2',pos);
%actxcontrol   get(MovieControl)  查看文档属性
MovieControl=actxcontrol('WMPlayer.OCX.7',pos);  %调用Windows的系统控件(activex控件)
handles.MovieControl=MovieControl;  %绑定到全局变量中
mp=handles.MovieControl.currentMedia;
handles.output=mp;

guidata(hObject, handles);

% 打开文件按钮，播放视频----------------------------------------------------
function Untitled_2_Callback(hObject, eventdata, handles)

[filename pathname]=uigetfile('*.*','选择媒体文件');   %打开文件对话框
if ~filename   %如果没有打开文件
return;
end
url1=[pathname filename];  %拼接绝对路径
set(handles.MovieControl,'URL',url1);  %用MovieControl播放视频

% 窗体大小改变时，执行该函数------------------------------------------------
function figure1_SizeChangedFcn(hObject, eventdata, handles)

units=get(handles.figure1,'units');
set(handles.figure1,'units','pixels');   %将单位设置成像素
pos=get(handles.figure1,'Position');
set(handles.figure1,'units',units);
pos=[0 0 pos(3:4)];
move(handles.MovieControl,pos);   %设置MovieControl控件的大小随窗体大小的改变而改变

% 退出按钮-----------------------------------------------------------------
function Untitled_3_Callback(hObject, eventdata, handles)

clc;
clear all;
close(gcf);