// *********************************************************
// ドキュメントのロード
// *********************************************************
BOOL LboxIEControl::Load( LboxString *LString )
{	
	return LboxIEControl::Load( LString->szLboxString );
}
BOOL LboxIEControl::Load( LPTSTR lpPath )
{
	if ( this->pIEControl == NULL ) {
		this->SetControlErrorMessage();
		return false;
	}
	if ( this->hWnd == NULL ) {
		this->SetWndErrorMessage();
		return false;
	}

	_bstr_t bstrValue;
	VARIANT vParam;

	bstrValue.operator = (lpPath);
	vParam.vt = VT_BSTR;
	vParam.bstrVal = 
		(wchar_t*)(bstrValue.operator const wchar_t * ());

	BOOL bError;

	bError = false;

	SHDocVw::IWebBrowser2Ptr pIE;
	pIE.operator = (
		(SHDocVw::IWebBrowser2Ptr *)&(this->pIEControl)
	);

	try {
		if ( pIE != NULL ) {
			pIE->Navigate2(&vParam);
		}
		else {
			bError = true;
		}
	}
	catch (_com_error &e)
	{
		bError = true;
	}

	this->pIEControl = pIE.Detach( );

	return !bError;
}