VB综合实训.docx

VB综合实训

第一篇：VB综合实训VB换肤（GUI界面）第一种方法：后缀为.she文件的皮肤SkinSharp换肤库不是COM组件，无需进行系统注册，仅以标准dll方式存在。1.打开vb6开发环境，新建一个工程文件，并存档2.将一个名为“肤色”的文件夹和一个名为SkinH_VB6.dll的文件拷贝到工程所在的目录3.外部函数接口api函数原型，把这原形放在通用声明段PrivateDeclareFunctionSkinH_AttachExLib“SkinH_VB6.dll”(ByVallpSkinFileAsString,ByVallpPasswdAsString)AsLong4.若需要什么样的皮肤（即.she文件）就在相应的事件（比喻在Form_Load()）中输入下面的内容：SkinH_AttachExApp.Path&“/皮肤/vista.she”,“”app.path：系统字串常量，返回工程所在的路径。皮肤：是跟工程在同一目录下的一个文件夹vista.she：皮肤文件，可以把网上下载的.she文件放在同目录下用时，只接按上四步骤即可。第二种方法：ActiveSkin4.3软件的应用。可以自己更改皮肤1.安装ActiveSkin4.3。同其它软件安装一样。2.汉化该软件。直接运行setup.exe（汉化的安装文件）。点下一步直至完成3.新建一个VB工程文件，在工具箱灰白色地方右键单击，选择[部件]，在部件对话框中勾选ActiveSkin4.3后单击[应用][确定]4.在出现的两个控件中选择拖入到窗体上。右键单击，选择[编辑皮肤]即可到ActiveSkin4.3中编辑皮肤5.Label控件必须使用该部件给的ab控件来替换。原本的A是不会显示6.选择相应的事件(如Form_Load())。在该事件中输入：Skin1.ApplySkinMe.hWnd7.如果要移植你的程序到别的机器上运行，请编译打包。因为该皮肤需要系统其它文件来支持。所以你可以选择VB-PowerWrap进行VB程序的封装VB与ACCESS2003数据库连接相关步骤：第一步：建立连接1.引用相关组件：MicrosoftActiveXDataObjects2.0Library。MicrosoftADODataControl6.02.在通用声明段申明：DimmConnAsADODB.Connection3.在对应的事件（如Form_Click()）中：setmConn=NewADODB.Connection或DimmConnAsNewADODB.Connection4.设置其连接字串（与磁盘上的MDB文件建立连接）：mConn.ConnectionString=“Provider=Microsoft.jet.oledb.4.0;DataSource=”&App.Path&“RSData.mdb”5.打开连接：mConn.Open6.测试连接是否成功：ifmConn.State=adStateOpenthenmsgbox“数据库已经连接成功！”elsemsgbox“数据库连接不成功！”以上连接方法是在事件里完成，也可以把连接做一个过程，需要连接时直接带参调用也可。如在模块中这样定义PublicconnAsNewADODB.ConnectionPublicFunctionDBConnection(FileNameAsString)AsBooleanSetconn=NewADODB.Connectionconn.ConnectionString=“provider=microsoft.jet.oledb.4.0;”&“datasource=”&FileNameconn.OpenIfconn.State=adStateOpenThenDBConnection=TrueElseDBConnection=FalseEndIfEndFunction然后回事件中调该函数。其相应代码如下：PrivateSubCommand2_Click()CommonDialog1.ShowOpenText1.Text=CommonDialog1.FileNameIfDBConnection(Text1.Text)ThenMsgBox“连接成功！”ElseMsgBox“连接失败！”EndIfEndSub第二步：从数据库中取出记录，绑定到相对应的控件(MicrosoftDataGridControl6.0(SP6)(OLEDB))中1.在通用声明段定义记录对象：DimrsAsNewADODB.Recordset2.在相应的事件（如Form_Click()）中定义：Setrs=NewADODB.RecordsetDimsqlAsStringsql=“select*from部门表”rs.CursorLo