第三十三讲　深入PB的高级应用 PowerBuild嵌入OLE（二）	打印本页
	我们继续上一讲的内容 　　编写“导入” 按钮的Clicked事件，编写程序： 　　string docname, named 　　integer i_value,li_temp 　　if iv_ole_type="word" then 　　i_value=GetFileOpenName（"Select File",docname, named, & "DOC","Doc Files （*.DOC）,*.DOC"） 　　end if 　　if iv_ole_type="excel" then 　　i_value = GetFileOpenName（"Select File",docname, & named,"Xls","Excel Files （*.xls）,*.xls"） 　　end if 　　if iv_ole_type="pic" then 　　i_value = GetFileOpenName（"Select File",docname, named, & "Picture","Jpg Files （*.jpg）,*.jpg,Bmp Files （*.bmp）,*.bmp"） 　　end if 　　if iv_ole_type="txt" then 　　i_value = GetFileOpenName（"Select File",docname, named, & "Txt","Txt Files （*.txt）,*.txt"） 　　end if 　　if iv_ole_type="all" then 　　i_value =GetFileOpenName（"Select File",docname, named, & "All","All Files （*.*）,*.*"） 　　end if 　　IF i_value = 1 THEN 　　li_temp=ole_1.insertfile（docname） 　　if li_temp<>0 then 　　MessageBox（"提示","导入失败!"） 　　end if 　　end if 　　选择“导出按钮”的Clicked事件。 　　string docname, named 　　integer i_value,li_temp 　　if iv_ole_type="word" then 　　i_value = GetFileSaveName（"Save File", docname, named, & "DOC", "Doc Files 　　（*.DOC）, *.DOC"） 　　end if 　　if iv_ole_type="excel" then 　　i_value = GetFileSaveName（"Save File", docname, named, & "Xls","Excel Files 　　（*.xls）,*.xls"） 　　end if 　　if iv_ole_type="pic" then 　　i_value = GetFileSaveName（"Save File",docname, named, & "picture","Jpg Files 　　（*.jpg）,*.jpg, Bmp Files （*.bmp）,*.bmp"） 　　end if 　　if iv_ole_type="txt" then 　　i_value = GetFileSaveName（"Save File",docname, named, & "txt","Txt Files 　　（*.txt）,*.txt"） 　　end if 　　if iv_ole_type="all" then 　　i_value = GetFileSaveName（"Save File",docname, named, & "All","All Files 　　（*.*）,*.*"） 　　end if 　　IF i_value = 1 THEN 　　li_temp=ole_1.saveas（docname） 　　if li_temp<>0 then 　　MessageBox（"提示","导出失败!"） 　　end if 　　 　　end if