摄像头测试窗口.ef

摄像监控：系统云台镜头控制系统。使用VB开发语言

引入 用户界面, 工具,efapi,vfw;

公开 类 摄像头测试窗口<基类型 = 窗口>
{
	//<< 声明组件开始 (请勿修改此行及以下代码↓)
	用户界面.面板 _主面板;
	用户界面.按钮 按钮1;
	用户界面.按钮 按钮2;
	用户界面.面板 面板1;
	用户界面.编辑框 编辑框1;
	用户界面.按钮 按钮3;
	用户界面.标签 标签1;

	//>> 声明组件结束 (请勿修改此行及以上代码↑)

	公开 初始化(容器控件 父窗口<可为空> = 空)
	{
		本对象.创建窗口(父窗口);
	}

	私有 创建窗口(容器控件 父窗口<可为空> = 空)
	{
		//<< 创建窗口开始 (请勿修改此行及以下代码↓)
		整数 风格 = 0;
		风格 |= 窗口风格.显示最大化按钮;
		风格 |= 窗口风格.显示最小化按钮;
		风格 |= 窗口风格.显示关闭按钮;
		风格 |= 窗口风格.显示标题栏;
		风格 |= 窗口风格.显示系统菜单;
		风格 |= 窗口风格.边框可改变大小;
		基类.创建(父窗口, "摄像头测试", 50, 50, 396, 353, 风格 ,"");
		居中(方位.双向);
		显示(真);
		//>> 创建窗口结束 (请勿修改此行及以上代码↑)
	}

	私有 逻辑 创建窗口控件()
	{
		//<< 创建组件开始 (请勿修改此行及以下代码↓)
		_主面板 = 创建 用户界面.面板();
		_主面板.名称 = "_主面板";
		_主面板.创建(本对象);
		_主面板.设置尺寸(本对象.取客户区尺寸());

		按钮1 = 创建 用户界面.按钮();
		按钮1.名称 = "按钮1";
		按钮1.创建(_主面板);
		按钮1.左边 = 32;
		按钮1.顶边 = 272;
		按钮1.宽度 = 98;
		按钮1.高度 = 37;
		按钮1.标题 = "开始采集";

		按钮2 = 创建 用户界面.按钮();
		按钮2.名称 = "按钮2";
		按钮2.创建(_主面板);
		按钮2.左边 = 264;
		按钮2.顶边 = 272;
		按钮2.宽度 = 91;
		按钮2.高度 = 34;
		按钮2.标题 = "停止";

		面板1 = 创建 用户界面.面板();
		面板1.名称 = "面板1";
		面板1.创建(_主面板);
		面板1.左边 = 32;
		面板1.顶边 = 24;
		面板1.宽度 = 320;
		面板1.高度 = 240;
		面板1.背景色 = 创建 工具.颜色(64, 128, 128);

		编辑框1 = 创建 用户界面.编辑框();
		编辑框1.名称 = "编辑框1";
		编辑框1.创建(_主面板);
		编辑框1.左边 = 176;
		编辑框1.顶边 = 320;

		按钮3 = 创建 用户界面.按钮();
		按钮3.名称 = "按钮3";
		按钮3.创建(_主面板);
		按钮3.左边 = 32;
		按钮3.顶边 = 320;
		按钮3.标题 = "照相";

		标签1 = 创建 用户界面.标签();
		标签1.名称 = "标签1";
		标签1.创建(_主面板);
		标签1.左边 = 120;
		标签1.顶边 = 320;
		标签1.宽度 = 56;
		标签1.高度 = 14;
		标签1.标题 = "文件名:";

		本对象.宽度 = 本对象.取尺寸().宽度 - 本对象.取客户区尺寸().宽度 + 396;
		本对象.高度 = 本对象.取尺寸().高度 - 本对象.取客户区尺寸().高度 + 353;
		//>> 创建组件结束 (请勿修改此行及以上代码↑)
		返回 真;
	}

	公开 事件处理 逻辑 创建完毕(创建完毕事件 事件)
	{
		创建窗口控件();
		返回 真;
	}
        int hWnd;
	公开 事件处理 逻辑 按钮1_按钮被单击(按钮被单击 事件)
	{     int wnd=this.取句柄();
		hWnd=vfw.创建采集窗口("captrue",vfw.WS_CHILD|vfw.WS_VISIBLE,32,24,320,240,wnd,0);
		vfw.连接设备(hWnd);        //vfw.WS_CHILD|vfw.WS_VISIBL 这两个可以根据需要来设定
		vfw.设置缩放允许(hWnd);//这个方法用不用都无所谓
		vfw.预览(hWnd);
		返回 真;
	}

	公开 事件处理 逻辑 按钮2_按钮被单击(按钮被单击 事件)
	{
		vfw.停止(hWnd);
		vfw.销毁采集窗口(hWnd);
		返回 真;
	}

	公开 事件处理 逻辑 按钮3_按钮被单击(按钮被单击 事件)
	{
		vfw.照相(hWnd,编辑框1.文本);
		返回 真;
	}

	//== 在此添加事件处理代码 (请勿修改此行)
}