- 博客(84)
- 收藏
- 关注
RSS订阅原创 在英文操作系统下提示：Run Time error'-2147467259(80004005) '的一种解决办法
我用的是access数据库。 在中文环境下运行毫无问题，但是等到了给老外装上去后，显示Run Time error-2147467259(80004005) .后来我试着将数据库全部改成英文的，仍然有这个问题，后来我在工具------>选项------->常规中将新建数据库排序次序改为常规后就可以了。
2007-12-21 14:09:00
11384
1
原创 IT人士群聚喝酒的讲究----------摘自02级计算机本科
大家喝的是啤酒，这时你入座了…… 你给自己倒了杯可乐，这叫低配置。 你给自已倒了杯啤酒，这叫标准配置。 你给自己倒了杯茶水，这茶的颜色还跟啤酒一样，这叫木马。 你给自己倒了杯可乐，还滴了几滴醋，不仅颜色跟啤酒一样，而且不冒热气还有泡泡，这叫超级木马。 你的同事给你倒了杯白酒，这叫推荐配置。 人到齐了，酒席开始了。 你先一个人喝了一小口，这叫单元测试。 你跟旁边的人说
2007-12-12 10:59:00
737
原创 如何设置excel中重复的单元格颜色
当在excel中输入相同的数据时，用不同的底色显示。比如说输入L2006A2008这个图号的时候，如果此前曾经有过这样的一个图号存在的话，就用红色的底色显示。设置如下：选中L2006A2008单元格A1,菜单-----》条件格式-----》公式，输入这样的公式=countif($A$1:$A1,$A1)>1点击格式，设置字体的颜色和背景图案的颜色。然后用格式刷刷一下A列，这样的话，如果再输入L20
2007-12-11 09:13:00
7006
转载 教你如何做控件*.ocx--------------------摘自丹心软件设计
一个控件有很多事件如：Click、MouseDown、MouseUp、MouseMove等。要触发这些事件都需要你加入代码。在控件的声明处加入Public Event Click()就表明该控件有一“Click”事件。自己编写的控件有什么事件就在声明处加几条事件如今OCX控件在编程中已占领了很重要的地
2007-11-19 17:26:00
825
原创 绿软必备：ActiveXDLL免注册调用的方法 ----------------摘自丹心软件设计
阿国哥的代码(找到链接后再补上)，我稍微改良了一下，做绿色软件的朋友肯定用的到。IDE下可以引用那个dll使用。编译后可以在未注册dll的计算机上正常工作了。使用方法：Dim pDll As Long 记录Dll，用来最后完美释放Dim Update As Update.Handle 要实例化的对象Set Update = LoadObjectByName(App.Path & "/Updat
2007-11-19 17:16:00
943
原创 必须掌握的八个DOS命令!-----摘自天涯恨客的博客
一，ping 它是用来检查网络是否通畅或者网络连接速度的命令。作为一个生活在网络上的管理员或者黑客来说，ping命令是第一个必须掌握的DOS命令，它所利用的原理是这样的：网络上的机器都有唯一确定的IP地址，我们给目标IP地址发送一个数据包，对方就要返回一个同样大小的数据包，根据返回的数据包我们可以确定目标主机的存在，可以初步判断目标主机的操作系统等。下面就来看看它的一些常用的操作。先看看
2007-09-29 11:24:00
610
原创 关于对汉字长度的计算。用len 函数是错误的，应该用asc函数
由于中文是双字节字符，也就是说一个汉字占两个ASC码的位置，而VB显然是为英语国家设计的用Len函数无法返回汉字字节，也就是说一个汉字和和一个ASC字符在Len函数中得到的值是一样的，这就需要特殊处理。用Asc（）函数，在括号内放入一个ASC字符或字符串，它会把第一个ASC码转化为0－255的数值，而把一个汉字放入，它的值必然不在0－255，这也就可以作为判定汉字的基础。我们可以把英文算作半个汉字
2007-08-30 13:42:00
2064
原创 setup factory使用的一些技巧
1.创建快捷方式如果想将用setup factory 打包的文件在桌面上创建快捷方式的话，只要在打包前双击.exe文件，在弹出的窗口中进行有一个快捷方式，勾选桌面，ok了 2.安装后运行时出现错误错误提示：运行时错误76，找不到路径。解决办法：看看安装路径的时候是不是有空格，如果没有的话，试着把文件夹的名称缩短一点。
2007-07-27 09:05:00
1705
原创 回车键时命令执行
希望当点击回车键时是某一个命令按钮执行该命令，比如用户登录窗体，当输入密码后，希望点击回车键使确定命令按钮执行，只要在如下命令加入：Private Sub txtPassword_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then SendKeys "{Tab}"End IfEnd Sub然后将确定按钮的default属性设置为tru
2007-07-26 16:11:00
1702
原创 VB编程之提速攻略
● 判断空字符串 判断空字符串的常用方法是使用下面的语句：If my_string = "" Then... ，但是请采用另外一种方法，就是判断字符串的长度是否为0，这要比前者运行快，代码是： If Len(my_string) = 0 Then ... 。 ● 使用With命令引用多次使用的对象 这要比在每条语句中都完整地引用对象名称执行速度快许多！
2007-07-24 09:57:00
1110
原创 判断是否相等用is而不是"="以及null的使用注意事项
Dim ADim B As StringDim C As IntegerDim D As Object A 等于 Empty， 因为尚未初始化的「不定型变量」都等于 Empty。但如果检测 A = "" 或 A = 0， 也都可以得到 True 值。 B 等于 ""， 因为尚未初始化的非固定长度「字串」都等于 "" 。 但请注意 B C 等于 0， 这个还有问题吗？ D 等
2007-07-24 08:57:00
655
原创 VB中感叹号“！”与圆点“．”的用法差异
河北 马昱 在Visual Basic中，惊叹号“！”与圆点“．”都用于给对象命名，但两者语法上却存在很大的区别，这点在编程时尤其需要注意。 圆点操作符“．”用来表示对象的属性和方法，在引用时，需要用到对象的Name、圆点和需要的属性或方法。例如要引用文本框Textl中的文本属性时可用reponse＄＝Text1．Text，再如要改变Form1窗体返回或读取对象高度的单位时用Form1
2007-07-24 08:55:00
1432
原创 格式化输入。MASKED EDIT控件
在数据输入过程中，有些数据要求一定的格式，比如限制输入的只能为数字或英文字符，这可用VB的格式输入文本框来实现。它与文本框（TEXT BOX）功能基本相似，但多了一个MASK属性，MASK属性常用的设定如下： ＃—限定仅能输入数字0～9； A— 限定输入为英文字符及数字； ？—限定仅能输入英文字符； ．—限定小数点位置； ：—限定
2007-07-24 08:43:00
1283
原创 防止程序自身多次运行。
由于WINDOWS的多任务处理功能， 有些程序可能打开后忘记了，下次用时还可能再打开，这样做会占用系统资源降低系统效率。为了防止自身被多次运行，可利用VB应用对象提供的PrevInstance属性来检测内存中是否已有一个自身的副本，若有则给出提示后结束。一般将检测代码放在FORM＿LOAD（）中，因为程序一运行就要检测。代码如下：sub form＿load（）if App．PrevInst
2007-07-24 08:27:00
553
原创 创建外部链接表示例
CreateLinkedTable() Dim cat As ADOX.Catalog Dim tbl As ADOX.Table Dim aLocalLinkedTables() As String Dim i As Integer Dim cSourceDATA As String Dim cLinkedTableList AS String Set
2007-07-11 08:53:00
702
原创 记录集填充msflexgrid表格
以下程序用于用记录集填充msflexgrid表格，参数一为表格控件名，参数二为ado记录集名．Public Function datatogrid(pGrid As MSHFlexGrid, rs As ADODB.Recordset) As Boolean 本函数特别要求，对于含的小数点的数值型数据，要补足小数点后两位 功能：将记录添充到表格中 接收参数：表格名称和记录集
2007-07-11 08:45:00
935
原创 两个字符串处理函数
个字符串处理函数：1、ParameterValue()2、ParameterCount() 用法示例：dim TheString as StringTheString="欢迎,光临,枕善居,源代码"msgbox ParameterCount(",",TheString)返回 4ParameterValue(",",TheString,2) 返回 "欢迎"Public Function Parame
2007-07-10 17:31:00
544
原创 判断数据类型函数
断数据类型的函数,不同于VarType() 函数，VarType() 函数返回的是 integer型值，这个函数返回的是字符串。Public Function getDataType(v As Variant) As String Select Case VarType(v) Case vbArray getDataType = "vbArray"
2007-07-10 17:30:00
817
原创 各种Excel VBA的命令
为设置密码窗口 (1) If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 密码正确时执行 Else: MsgBox "密码错误，即将退出！" 此行与第2行共同设置密码 End If 本示例为设置密码窗口 (1) X = MsgBox("是否真的要结帐？", vbYesNo) If X = vbYes Then Close 本示例为设置
2007-07-10 17:01:00
1328
原创 科学家藏猫猫-------摘自马大哈的博客
一群伟大的科学家死后在天堂里玩藏猫猫，轮到爱因斯坦抓人，他数到100睁开眼睛，看到所有人都藏起来了，只有牛顿还站在那里。 爱因斯坦走过去说：“牛顿，我抓住你了。” 牛顿：“不，你没有抓到牛顿。” 爱因斯坦：“你不是牛顿你是谁？” 牛顿：“你看我脚下是什么？” 爱因斯坦低头看到牛顿站在一块长宽都是一米的正方形的地板砖上，不解。 牛顿：“我脚下这是一平方米的方块，我站在上面就是牛顿/平
2007-07-05 09:50:00
962
1
原创 给listview的各行设置不同的颜色
Public Sub SetListViewColor(ByRef LV As ListView) ========================================================== 开发人员：段利庆 编写时间：06-12-05 过程名称：SetListViewColor 参数说明：Lv ListView
2007-07-03 16:00:00
2486
原创 Excel应用实例：轻松画出复杂的函数曲线
目标：教您轻松画好一条复杂的函数曲线。 实例：给出了一个函数式所对应的曲线的例子。 难点分析： 一些教师会遇到画函数曲线的问题吧!如果想快速准确地绘制一条函数曲线，可以借助EXCEL的图表功能，它能使您画的曲线既标准又漂亮。您一定会问，是不是很难学呀？其实一点儿也不难，不信您就跟我试一试。 以绘制y=|lg（6+x^3）|的曲线为例，其方法如下： 1) 自变量
2007-07-02 15:30:00
4950
原创 网页文章无法复制的破解法——最简单的绝招
分类:网站建设很多资料性的网络文章，往往在网页禁止使用“复制”、“粘贴”命令。破解方法很简单： 单击IE浏览器的“工具”——“internet选项”——“安全”，将其中的“internet”的安全级别设为最高级别，“确定”后刷新网页即可。 原理：安全级别最高的时候，一切控件和脚本均不能运行，再厉害的网页限制手段统统全部作废。呵呵 ，是不是很开心啊，还不赶快试试！！！
2007-07-02 09:16:00
1028
原创 用baidu 突破收费网站的大门
分类:默认栏目让收费网站去死吧，用baidu 突破 比如说我想找mp3首先打开http://www.baidu.com在关键词输入框中输入index of mp3，选择回车搜索，得到了一些网页，不要以为这是一些普通的页面，其实它們是一些mp3网站的資源列表，点击打開它來看看，怎麼樣？是不是所有資源一收眼底了？ 以下是百度搜索排名 1. index of mpeg4 3. in
2007-07-02 09:15:00
800
原创 用CorelDraw 9轻松做徽标
分类:默认栏目 我们经常可以看到许多大公司（如微软、Intel和IBM等）的LOGO（徽标）非常简洁、美观。其实，这些徽标的制作方法都比较简单，非专业人士都可以制作。在这里我们用CorelDraw 9为例给大家讲解。 选择“工具→符号与特殊字符”菜单项，选中“Wingdings”字符集，找
2007-07-02 09:09:00
599
原创 电脑故障处理经验一则
分类:电脑网络故障现象：从桌面或开始菜单中打开任何一个程序, 出现错误提示："0x........"指令引用的"0x00000000"内存,该内存不能为"read"。省略号代表可变值。而从“运行”中打开程序没问题。 处理方法：运行regedit进入注册表, 在HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Ex
2007-07-02 09:04:00
479
原创 实时曲线和历史曲线的显示(多种办法）
用VB开发工控软件(HMI)时，经常需要对工艺参数进行趋势曲线的显示，这通常需要使用控件来实现，自然有第三方提供的控件，但那是需要付费的，并且有的使用情况并不理想，自己开发的话又差强人意，这里提供一个实时曲线显示的程序，给大家以启发。通过对程序的修改，可以很方便的应用到实际工程中去。首先建立一个名为DrawLine的类模块，代码如下：Public HorzSplits As LongPub
2007-07-02 09:02:00
4818
原创 用VB实现工业控制的实时曲线和历史曲线
在大型的工业现场控制中，一般用DCS（集散控制系统）来实现过程控制。在DCS中，实时曲线可显示该控制点的当前趋势，以监测该点在现场工况变化的情况下的控制稳定性，历史曲线可观察过去一段时间内某一点的变化趋势，并供工艺人员分析工艺流程的稳定性和故障原因。然而在小型的工业控制中，由于控制规模小，控制回路少，因此可用PC机就能完成整个过程控制，在实时曲线和历史曲线方面，可用就能实现，并可与大型的DCS相媲
2007-07-02 09:00:00
3437
1
原创 VB数据库编程的几点心得(上)
一、ADODB.Connection的连接字符串（ConnectionString）的生成之道 ADO是当前访问数据库的主流，但其ConnectionString往往有一大串，并且在访问不同的数据库（如Access和SQL Server），或访问方式（通过ODBC和OLE DB）不一样时，其具体参数的设置差异很大，这给连接字符串的编写增加了一定的难度。这里给大家介绍两种生成ConnectionS
2007-07-02 08:51:00
961
原创 得到颜色的RGB值
Public Function GETRGB(lngColor As Long) As String Dim strR As String Dim strG As String Dim strB As String strR = CStr(lngColor Mod 256) strG = CStr(lngColor / 256 Mod 256) strB = C
2007-07-02 08:50:00
545
原创 CrystalReport 使用总結
水晶报表是一个优秀的报表开发工具，本人在开发通用管理系统的时候，所有报表都使用水晶报表，其简单、易用和强大的功能令笔者倍加喜爱，现将水晶报表使用手记呈现给大家。 一、在使用自带的水晶报表时，请注册，否则只能使用30次水晶报表注册码注册号:6707437608密码:AAP5GKS0000GDE100DS 二、使用CrystalReportViewer进行预览CrystalReportViewer控件
2007-07-02 08:48:00
823
原创 用VB编写DLL动态链接库方法
VB中创建的DLL只是COM组件，无法作为输出函数的DLL，其实这只是个错误的说法。其实MS非常狡猾，如果你是个VB疯狂发烧友的话，应该早就狂试出这种可以创建输出函数的DLL的方法。 VB编译文件实际上采取了两次编译的方法，首先是调用C2.exe产生*.OBJ文件，然后调用Link.EXE连接。如果在LINK的时候添加EXPORT选项，实际上是可以输出函数的。但是，在VB的工程选项中将这
2007-07-02 08:47:00
1409
2
原创 MSChart饼图显示百分比-------牵手的博客
画饼图所需要的数据都在数组里面:dim dataArray(0 to iMax, 0 to 1)其中dataArray(i,0)是标题 dataArray(i,0)是数字代码如下： MSChart.chartType = VtChChartType2dPie 画饼图 MSChart.Visible = T
2007-07-02 08:46:00
6663
1
原创 让Timer控件每5分钟触发一次事件
Timer控件的Interval属性可以设置为0到65535之间的任意直，所以用Timer触发事件的最大时间间隔只能有65秒，因此如何能设置更长的时间间隔呢？可以在事件中建立代码，用系统时间确定这个时间间隔。 Dim dtNextTime as Date Private Sub Form_load() Timer1.interval=500
2007-07-02 08:43:00
2659
原创 十大热门语言大汇集,什么程序员最易找工作?
掌握一些编程语言可让您在职场竞争中收放自如，而扎实的技巧将会让您炙手可热。但是，语言种类繁多。很多开发人员掌握多种语言，懂得在合适的地方合适的时间使用正确的语言，而大多长期从事编程的人员会告诉您周期性的学习新的语言是成为一名优秀成功的网络开发人员的重要步骤。 圣地亚哥的软件工程公司Interknowlogycom的CEO Huckaby说：“我的一位老师曾说编程语言就是一门语言。它与你是否为一个
2007-07-02 08:40:00
703
原创 如何找回丢失的“显示桌面”图标
如何找回“显示桌面”图标分类:电脑网络“显示桌面”按钮是大家经常用到的操作按钮，有时误删除掉后，然后使用起来非常不方便。 因为刚刚一个朋友说自己不小心把快速启动栏的“显示桌面”图标给删除了，所以我把解决的方法总结了一下，写到这里。 一、可是使用快捷键暂时替换对“显示桌面”图标的依赖，快捷键是“windows键+D”。 二、点击“开始→运行”，在弹出的“运行”对话框中输入“REGSVR3
2007-07-02 08:37:00
1591
原创 回车键时按钮获得焦点
Private Sub txtPassword_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then SendKeys "{Tab}" End IfEnd Sub
2007-06-29 11:15:00
674
原创 使用excel的一些注意事项
为了使用 Excel 对象，必须设置对 Excel 对象库的引用。为此，可以单击 “工程”菜单，然后单击“首选”。找到 Excel 对象库并双击它。最后单击“确定”。同样地，应该注意如果和 Excel 5.0对象库一起使用 GetObject，那么必须将变量声明为WorkSheet；如果使用的是 Excel 8.0 对象库，应该将变量声明为 WorkBook 。
2007-06-25 09:34:00
958
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人