重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
vb.net里好像提供了自动转换vb6程序的,直接点 文件-打开 选择vbp文件,然后下一步下一步就行了,好像是的
目前成都创新互联公司已为超过千家的企业提供了网站建设、域名、虚拟空间、网站托管运营、企业网站设计、延庆网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
引用MicrosoftDAO3.6ObjectLibraryPublicFunctionDaoOpenDB(ByValpDbTypeAsString,ByValpDbNameAsString,ByValpMdbCnctAsString)AsIntegerOnErrorGoToErr_HandlerDimm_DbDataBaseAsDAO.DatabaseDimgwsMainworkSpaceAsDAO.WorkspaceDimDAODBEngineAsNewDAO.DBEngine()Dimm_DbWkSpace=DAODBEngine.CreateWorkspace("","Admin","")IfpDbType="c_ACCESS"Then'Accessm_DbDataBase=m_DbWkSpace.OpenDatabase(pDbName)Else'Oraclem_DbDataBase=m_DbWkSpace.OpenDatabase(pDbName,True,False,pMdbCnct)EndIfDaoOpenDB=c_OK'你在全局中已定义ExitFunctionErr_Handler:DaoOpenDB=c_NG'你在全局中已定义MsgBox(Err.Description,MsgBoxStyle.OkOnly+MsgBoxStyle.Critical,"Err")EndFunction
sender就是引发事件的对象,因为不知道具体类型所以用object类型,在vb.net就是把sender转成窗体类型 意思就是关闭当前窗体。如果转成VB6的话就是Unload me