存档

文章标签 ‘vb’

VB中建立等待几秒钟的函数

2015年11月11日
VB中建立等待几秒钟的函数已关闭评论

过程给你: Private Declare Function timeGetTime Lib “winmm.dll” () As Long Sub Delay(Byval DelayTime As Long) ‘单位是毫秒 DelayTime =DelayTime + Timegettime Do While Timegettime < DelayTime DoEvents Loop End Sub 调用的时候这样写: … Delay 1000  ‘延时一秒 … 用这个过程比较好,不会造成程序“假死”的现象。   vb_delay_time_function

more...

程序设计, 软件技巧

office2010激活方法

2012年2月18日
office2010激活方法已关闭评论

今天朋友要安装office2010没有激活 的! 最后内事问百度,外事问谷歌,房事问搜狗的方法找到了答案. 下载地址,不予提供了,网上有的是。 以下是朋友编写的批处理程序。 激活后需要备份3个文件 C:\Program Files\Common Files\Microsoft Shared\OFFICE14\Office Setup Controller\pkeyconfig-office.xrm-ms C:\ProgramData\Microsoft\OfficeSoftwareProtectionPlatform\tokens.dat C:\ProgramData\Microsoft\OfficeSoftwareProtectionPlatform\Cache\cache.dat 以上以win7下安装office2010,默认路径,将这3个文件放在同一文件夹下,建个批处理@echo offecho 请在管理员administrator下运行echo. & pausenet stop osppsvctakeown /f C:\Program Files\Common Files\Microsoft Shared\OFFICE14\Office Setup Controller\pkeyconfig-office.xrm-mstakeown /f C:\ProgramData\Microsoft\OfficeSoftwareProtectionPlatform\tokens.dattakeown /f C:\ProgramData\Microsoft\OfficeSoftwareProtectionPlatform\Cache\cache.datcacls C:\Program Files\Common Files\Microsoft Shared\OFFICE14\Office Setup Controller\pkeyconfig-office.xrm-ms /t /e /g administrator:fcacls C:\ProgramData\Microsoft\OfficeSoftwareProtectionPlatform\tokens.dat /t /e /g administrator:fcacls C:\ProgramData\Microsoft\OfficeSoftwareProtectionPlatform\Cache\cache.dat /t /e /g administrator:fdel C:\Program Files\Common Files\Microsoft Shared\OFFICE14\Office Setup Controller\pkeyconfig-office.xrm-msdel C:\ProgramData\Microsoft\OfficeSoftwareProtectionPlatform\tokens.datdel C:\Pr

more...

软件技巧 ,

Excel使用VB宏生成SQL语句

2011年8月18日
Excel使用VB宏生成SQL语句已关闭评论

有时候需要将Excel文件中的数据导入到数据库中,常用的做法是使用程序读取Excel,然后存入数据库;这里换一个方法,用Excel生成SQL语句,然后用这些SQL语句来更新数据库。 本文主要说明Excel如何使用VB宏构造需要的SQL语句,并生成文件。 1、先看看生成SQL的界面:   2、如何添加按钮: 依次打开:视图–工具栏–控件工具箱,选择“命令按钮”,自己画一个就行了; 依次打开:右键–属性,可以修改名称、样式等。 具体操作可以上网找找。   3、如何使用VB宏: 依次打开:工具–宏–安全性,看看你的Excel是否允许使用“宏”。 然后打开:工具–宏–Visual Basic 编辑器,双击左侧的“Sheet1”,然后在右侧的代码区域粘贴如下代码:   ‘最大行数 Const MAX_NUM_ROW = 5000   ‘导出文件路径所在单元格 Const PATH_OUTPUT_ROW = 3 Const PATH_OUTPUT_COL = 3   ‘定义列常量 Const NAME_COL = 1 Const GENDER_COL = 2 Const PHONE_COL = 3 Const EMAIL_COL = 4   ‘读取数据开始行数 Const START_ROW = 5   ‘定义数据实体类 Private Type Tmplt NAME As String GENDER As String PHONE As String EMAIL As String End Type   ‘行数变量 Dim noOfTmplts As Integer   ‘数据实体类数组 Dim TmpltArray(MAX_NUM_ROW) As Tmplt   ‘点击按钮触发事件 Private Sub CommandButton1_Click() g

more...

软件技巧 , ,

如何用VB控制EXCEL生成报表(转)

2010年6月28日
如何用VB控制EXCEL生成报表(转)已关闭评论

贾利冬(www.vbworld.ccoo.com) 做为一种简捷、系统的 Windows应用程序开发工具,Visual Basic 6 具有强大的数据处理功能,提供了多种数据访问方法,可以方便地存取Microsoft SQL Server、Oracle、XBase等多种数据库,被广泛应用于建立各种信息管理系统。但是,VB缺乏足够的、符合中文习惯的数据表格输出功能,虽然使用Crystal Report控件及 Crystal Reports程序可以输出报表,但操作起来很麻烦,中文处理能力也不理想。Excel作为Micorsoft公司的表格处理软件在表格方面有着强大的功能,我们可用VB5编写直接控制Excel操作的程序,方法是用VB的OLE自动化技术获取Excel 2000 的控制句柄,从而直接控制Excel 2000的一系列操作。 下面给出一个实例: 首先建立一个窗体(FORM1)在窗体中加入一个DATA控件和一按钮, 引用Microsoft Excel类型库: 从”工程”菜单中选择”引用”栏; 选择Microsoft Excel 9.0 Object Library; 选择”确定”。 然后在FORM的LOAD事件中加入: Private Sub Form_Load() ‘数据库及表可以另选,本文以Nwind.mdb为例 Data1.DatabaseName = “C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb” Data1.RecordSource = “Customers” Data1.Refresh End Sub 在按钮的CLICK事件中加入 Private Sub Command1_Click() Dim Irow, Icol As Integer Dim Irowcount, Icolcoun

more...

软件技巧

VB借助EXCEL实现表格设计(转)

2010年6月28日
VB借助EXCEL实现表格设计(转)已关闭评论

1、定义EXCEL对象变量 dim  x  as excel.application 2、VB中,启动EXCEL set x=createobject(“excel.application”) 3、新建一个EXCEL工作簿 x.workbooks.add 4、选定工作表1 set xsheet=xbook.worksheets(1) 5、指定单元格,并赋值 xsheet.cell(1,1)=ret.fields(0) 6、指定EXCEL列宽 xsheet.column(1).columnwidth=10 7、RANGE()函数,选定单元格区域 range(cells(1,1),cells(10,20)) 8、设置EXCEL字体 xsheet.range(cells(1,1),cells(10,20)).font.name=”黑体” 9、设置EXCEL为粗体 xsheet.range(cells(1,1),cells(10,20)).fontbold=true 10、设置EXCEL表格边框 xsheet.range(cells(1,1),cells(10,20)).borders.linestyle=xlcontinuous 11、运行时,显示EXCEL或隐藏EXCEL x.visible=true 12、保存工作簿 xbook save 13、退出EXCEL x.quit 14、交还控制权给EXCEL set x=nothing 15、打印EXCEL表 x.active.window.selectedsheets.printout copies=numcopies 16、退出EXCEL时,不出现保存提示。 x.displayalerts=false 17、怎样运用EXCEL公式? x.range(“A3”).formula= “=max(A1,A2)” 18、EXCEL代码获取技巧 打开EXCEL中的工具—-宏—-录制新宏,然后进行手工操作,结束后把所录的宏代码贴进你的VB程序就行。 19、合并单元格代码 x.range(“A2:A5”).inergecells=true 20、自动调整列宽代码 x.column(“A:I”).autofit    ‘ a到 I列自动调整列宽 21、文本自动换行代码 x.rows(3).wrap

more...

软件技巧 ,