----程式码：

PrivateSubForm_Load()

Label1.Alignment=2

Label2.Alignment=2

Label1.Caption="电影结束画面的卷动效果

选中lib文件夹，右键单击，弹出菜单，选择Add Copy of->Library Files:

学习FFmpeg免不了要看效果，而windows的自带播放器又垃圾得一匹，而且我们会需要看视频的元数据，看他的编码，用一般的这播放器，能看但是不是很方便Variant用于数字上下文中时作为数字处理，用于字符串上下文中时作为字符串处理

历史文章:

JAVA微信企业付款到零钱(十分钟搞定)

微信授权获取用户openId的方法和步骤

一个微信号同时支持多个环境网页授权

微信两种签名算法MD5和HMAC-SHA256"

EndSub

'类的代码全部结束

(四)窗体代码的引用编程；

在窗体FORM1中添加文本控件TEXT1、下拉列表控件COMBO1、命令按钮COMMAND1(CAPTION="开始转化")，调整三个控件到适当位置

}PrivateDeclareFunctionEnableWindowLib"user32"(ByValhWndAsInteger,ByValaBOOLAsInteger)AsInteger

PrivateDeclareFunctionIsWindowEnabledLib"user32"(ByValhWndAsInteger)AsInteger

PrivateDeclareFunctionGetMenuLib"user32"(ByValhWndAsInteger)AsInteger

PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong

PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,ByVallpvParamAsAny,ByValfuWinIniAsLong)AsLong

PrivateTaskBarhWndAsLong

PrivateIsTaskBarEnabledAsInteger

PrivateTaskBarMenuHwndAsInteger

'禁止或允许使用Alt-Tab

SubFastTaskSwitching(bEnabledAsBoolean)

DimXAsLong,bDisabledAsLong

bDisabled=NotbEnabled

X=SystemParametersInfo(97,bDisabled,CStr(1),0)

EndSub

'禁止使用Ctrl-Alt-Del

PublicSubDisableTaskBar()

DimEWindowAsInteger

TaskBarhWnd=FindWindow("Shell_traywnd","")

IfTaskBarhWnd<>0Then

EWindow=IsWindowEnabled(TaskBarhWnd)

IfEWindow=1Then

IsTaskBarEnabled=EnableWindow(TaskBarhWnd,0)

EndIf

EndIf

EndSub

'允许使用Ctrl-Alt-Del

PublicSubEnableTaskBar()

IfIsTaskBarEnabled=0Then

IsTaskBarEnabled=EnableWindow(TaskBarhWnd,1)

EndIf

EndSub

'禁止Ctrl Alt Del

'声明(ForWin95)：

ConstSPI_SCREENSAVERRUNNING=97

PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,lpvParamAsAny,ByValfuWinIniAsLong)AsLong

使用：

'禁止

DimpOldAsBoolean

CallSystemParametersInfo(SPI_SCREENSAVERRUNNING,True,pOld,0)

'开启

DimpOldAsBoolean

CallSystemParametersInfo(SPI_SCREENSAVERRUNNING,False,pOld,0)->

关闭的话也要使用 sudo 来关闭，否则会报上面的错误不被和谐程序需要，我在网上找了很久才找到，刚刚把程序写好，并加写了注释，希望能帮助大家

再写程序前先引用

microsoftexcel11.0objectLibrary

我看到的文章是10.0的，我这是office2003是11.0，只要安了excel就有这个引用~

PrivateSubcmdsave_Click()

MsgBox"文件保存为:D:\电网配电线路管理信息系统\信息查询结果\事故信息查询结果.xls"

DimiAsInteger

DimjAsInteger

DimexAsObject

DimexwbookAsObject

DimexsheetAsObject

Setex=CreateObject("Excel.Application")

Setexwbook=Nothing

Setexsheet=Nothing

Setexwbook=ex.Workbooks().Add

Setexsheet=exwbook.Worksheets("sheet1")

'在excel里表格的表头，这是根据我的需要添加的标头

ex.Range("c3").Value="日期"

ex.Range("d3").Value="时间"

ex.Range("e3").Value="站点"

ex.Range("f3").Value="汇报人"

ex.Range("g3").Value="线路双编号"

ex.Range("h3").Value="保护动作类型"

ex.Range("i3").Value="事故原因"

ex.Range("j3").Value="处理负责人"

ex.Range("k3").Value="处理方法"

ex.Range("l3").Value="处理结果"

ex.Range("m3").Value="结束时间"

ex.Range("n3").Value="备注"

'i为记录个数使用循环将数据全部添加

Fori=1ToAdodc1.Recordset.RecordCount

j=3 i

'k为数据列数

Fork=0To11

'通过使用变量k和j变换单元格位置

q=Chr(99 k)&j

'将datagrid1的数据放到单元格内

ex.Range(q).Value=DataGrid1.Columns(k)

Nextk

'指针下移

IfAdodc1.Recordset.EOF=FalseThen

Adodc1.Recordset.MoveNext

EndIf

Nexti

'保存输入到事故信息查询结果.xls

exwbook.SaveAs"D:\电网配电线路管理信息系统\信息查询结果\事故信息查询结果.xls"

'退出excel

ex.Quit

EndSub

我觉得这段程序很简单而且很使用，使用时不要打开事故信息查询结果.xls否则会报错

存储时系统会自动提示是否更换文件，根据自己用发来用->if (!this.dialect.afterCount(count, parameter, rowBounds)) {。