- 博客(30)
- 收藏
- 关注
原创 setup factory使用的一些技巧
1.创建快捷方式如果想将用setup factory 打包的文件在桌面上创建快捷方式的话,只要在打包前双击.exe文件,在弹出的窗口中进行有一个快捷方式,勾选桌面,ok了 2.安装后运行时出现错误错误提示:运行时错误76,找不到路径。解决办法:看看安装路径的时候是不是有空格,如果没有的话,试着把文件夹的名称缩短一点。
2007-07-27 09:05:00 1773
原创 回车键时命令执行
希望当点击回车键时是某一个命令按钮执行该命令,比如用户登录窗体,当输入密码后,希望点击回车键使确定命令按钮执行,只要在如下命令加入:Private Sub txtPassword_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then SendKeys "{Tab}"End IfEnd Sub然后将确定按钮的default属性设置为tru
2007-07-26 16:11:00 1748
原创 VB编程之提速攻略
● 判断空字符串 判断空字符串的常用方法是使用下面的语句:If my_string = "" Then... ,但是请采用另外一种方法,就是判断字符串的长度是否为0,这要比前者运行快,代码是: If Len(my_string) = 0 Then ... 。 ● 使用With命令引用多次使用的对象 这要比在每条语句中都完整地引用对象名称执行速度快许多!
2007-07-24 09:57:00 1141
原创 判断是否相等用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 674
原创 VB中感叹号“!”与圆点“.”的用法差异
河北 马昱 在Visual Basic中,惊叹号“!”与圆点“.”都用于给对象命名,但两者语法上却存在很大的区别,这点在编程时尤其需要注意。 圆点操作符“.”用来表示对象的属性和方法,在引用时,需要用到对象的Name、圆点和需要的属性或方法。例如要引用文本框Textl中的文本属性时可用reponse$=Text1.Text,再如要改变Form1窗体返回或读取对象高度的单位时用Form1
2007-07-24 08:55:00 1462
原创 格式化输入。MASKED EDIT控件
在数据输入过程中,有些数据要求一定的格式,比如限制输入的只能为数字或英文字符,这可用VB的格式输入文本框来实现。它与文本框(TEXT BOX)功能基本相似,但多了一个MASK属性,MASK属性常用的设定如下: #—限定仅能输入数字0~9; A— 限定输入为英文字符及数字; ?—限定仅能输入英文字符; .—限定小数点位置; :—限定
2007-07-24 08:43:00 1314
原创 防止程序自身多次运行。
由于WINDOWS的多任务处理功能, 有些程序可能打开后忘记了,下次用时还可能再打开,这样做会占用系统资源降低系统效率。为了防止自身被多次运行,可利用VB应用对象提供的PrevInstance属性来检测内存中是否已有一个自身的副本,若有则给出提示后结束。一般将检测代码放在FORM_LOAD()中,因为程序一运行就要检测。代码如下:sub form_load()if App.PrevInst
2007-07-24 08:27:00 609
原创 创建外部链接表示例
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 731
原创 记录集填充msflexgrid表格
以下程序用于用记录集填充msflexgrid表格,参数一为表格控件名,参数二为ado记录集名.Public Function datatogrid(pGrid As MSHFlexGrid, rs As ADODB.Recordset) As Boolean 本函数特别要求,对于含的小数点的数值型数据,要补足小数点后两位 功能:将记录添充到表格中 接收参数:表格名称和记录集
2007-07-11 08:45:00 952
原创 两个字符串处理函数
个字符串处理函数:1、ParameterValue()2、ParameterCount() 用法示例:dim TheString as StringTheString="欢迎,光临,枕善居,源代码"msgbox ParameterCount(",",TheString)返回 4ParameterValue(",",TheString,2) 返回 "欢迎"Public Function Parame
2007-07-10 17:31:00 576
原创 判断数据类型函数
断数据类型的函数,不同于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 850
原创 各种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 1365
原创 科学家藏猫猫-------摘自马大哈的博客
一群伟大的科学家死后在天堂里玩藏猫猫,轮到爱因斯坦抓人,他数到100睁开眼睛,看到所有人都藏起来了,只有牛顿还站在那里。 爱因斯坦走过去说:“牛顿,我抓住你了。” 牛顿:“不,你没有抓到牛顿。” 爱因斯坦:“你不是牛顿你是谁?” 牛顿:“你看我脚下是什么?” 爱因斯坦低头看到牛顿站在一块长宽都是一米的正方形的地板砖上,不解。 牛顿:“我脚下这是一平方米的方块,我站在上面就是牛顿/平
2007-07-05 09:50:00 976 1
原创 给listview的各行设置不同的颜色
Public Sub SetListViewColor(ByRef LV As ListView) ========================================================== 开发人员:段利庆 编写时间:06-12-05 过程名称:SetListViewColor 参数说明:Lv ListView
2007-07-03 16:00:00 2534
原创 Excel应用实例:轻松画出复杂的函数曲线
目标:教您轻松画好一条复杂的函数曲线。 实例:给出了一个函数式所对应的曲线的例子。 难点分析: 一些教师会遇到画函数曲线的问题吧!如果想快速准确地绘制一条函数曲线,可以借助EXCEL的图表功能,它能使您画的曲线既标准又漂亮。您一定会问,是不是很难学呀?其实一点儿也不难,不信您就跟我试一试。 以绘制y=|lg(6+x^3)|的曲线为例,其方法如下: 1) 自变量
2007-07-02 15:30:00 5100
原创 网页文章无法复制的破解法——最简单的绝招
分类:网站建设很多资料性的网络文章,往往在网页禁止使用“复制”、“粘贴”命令。破解方法很简单: 单击IE浏览器的“工具”——“internet选项”——“安全”,将其中的“internet”的安全级别设为最高级别,“确定”后刷新网页即可。 原理:安全级别最高的时候,一切控件和脚本均不能运行,再厉害的网页限制手段统统全部作废。呵呵 ,是不是很开心啊,还不赶快试试!!!
2007-07-02 09:16:00 1036
原创 用baidu 突破收费网站的大门
分类:默认栏目让收费网站去死吧,用baidu 突破 比如说我想找mp3首先打开http://www.baidu.com在关键词输入框中输入index of mp3,选择回车搜索,得到了一些网页,不要以为这是一些普通的页面,其实它們是一些mp3网站的資源列表,点击打開它來看看,怎麼樣?是不是所有資源一收眼底了? 以下是百度搜索排名 1. index of mpeg4 3. in
2007-07-02 09:15:00 817
原创 用CorelDraw 9轻松做徽标
分类:默认栏目 我们经常可以看到许多大公司(如微软、Intel和IBM等)的LOGO(徽标)非常简洁、美观。其实,这些徽标的制作方法都比较简单,非专业人士都可以制作。在这里我们用CorelDraw 9为例给大家讲解。 选择“工具→符号与特殊字符”菜单项,选中“Wingdings”字符集,找
2007-07-02 09:09:00 617
原创 电脑故障处理经验一则
分类:电脑网络故障现象:从桌面或开始菜单中打开任何一个程序, 出现错误提示:"0x........"指令引用的"0x00000000"内存,该内存不能为"read"。省略号代表可变值。而从“运行”中打开程序没问题。 处理方法:运行regedit进入注册表, 在HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Ex
2007-07-02 09:04:00 492
原创 实时曲线和历史曲线的显示(多种办法)
用VB开发工控软件(HMI)时,经常需要对工艺参数进行趋势曲线的显示,这通常需要使用控件来实现,自然有第三方提供的控件,但那是需要付费的,并且有的使用情况并不理想,自己开发的话又差强人意,这里提供一个实时曲线显示的程序,给大家以启发。通过对程序的修改,可以很方便的应用到实际工程中去。首先建立一个名为DrawLine的类模块,代码如下:Public HorzSplits As LongPub
2007-07-02 09:02:00 4964
原创 用VB实现工业控制的实时曲线和历史曲线
在大型的工业现场控制中,一般用DCS(集散控制系统)来实现过程控制。在DCS中,实时曲线可显示该控制点的当前趋势,以监测该点在现场工况变化的情况下的控制稳定性,历史曲线可观察过去一段时间内某一点的变化趋势,并供工艺人员分析工艺流程的稳定性和故障原因。然而在小型的工业控制中,由于控制规模小,控制回路少,因此可用PC机就能完成整个过程控制,在实时曲线和历史曲线方面,可用就能实现,并可与大型的DCS相媲
2007-07-02 09:00:00 3527 1
原创 VB数据库编程的几点心得(上)
一、ADODB.Connection的连接字符串(ConnectionString)的生成之道 ADO是当前访问数据库的主流,但其ConnectionString往往有一大串,并且在访问不同的数据库(如Access和SQL Server),或访问方式(通过ODBC和OLE DB)不一样时,其具体参数的设置差异很大,这给连接字符串的编写增加了一定的难度。这里给大家介绍两种生成ConnectionS
2007-07-02 08:51:00 975
原创 得到颜色的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 560
原创 CrystalReport 使用总結
水晶报表是一个优秀的报表开发工具,本人在开发通用管理系统的时候,所有报表都使用水晶报表,其简单、易用和强大的功能令笔者倍加喜爱,现将水晶报表使用手记呈现给大家。 一、在使用自带的水晶报表时,请注册,否则只能使用30次水晶报表注册码注册号:6707437608密码:AAP5GKS0000GDE100DS 二、使用CrystalReportViewer进行预览CrystalReportViewer控件
2007-07-02 08:48:00 857
原创 用VB编写DLL动态链接库方法
VB中创建的DLL只是COM组件,无法作为输出函数的DLL,其实这只是个错误的说法。其实MS非常狡猾,如果你是个VB疯狂发烧友的话,应该早就狂试出这种可以创建输出函数的DLL的方法。 VB编译文件实际上采取了两次编译的方法,首先是调用C2.exe产生*.OBJ文件,然后调用Link.EXE连接。如果在LINK的时候添加EXPORT选项,实际上是可以输出函数的。但是,在VB的工程选项中将这
2007-07-02 08:47:00 1472 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 6730 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 2740
原创 十大热门语言大汇集,什么程序员最易找工作?
掌握一些编程语言可让您在职场竞争中收放自如,而扎实的技巧将会让您炙手可热。但是,语言种类繁多。很多开发人员掌握多种语言,懂得在合适的地方合适的时间使用正确的语言,而大多长期从事编程的人员会告诉您周期性的学习新的语言是成为一名优秀成功的网络开发人员的重要步骤。 圣地亚哥的软件工程公司Interknowlogycom的CEO Huckaby说:“我的一位老师曾说编程语言就是一门语言。它与你是否为一个
2007-07-02 08:40:00 717
原创 如何找回丢失的“显示桌面”图标
如何找回“显示桌面”图标分类:电脑网络“显示桌面”按钮是大家经常用到的操作按钮,有时误删除掉后,然后使用起来非常不方便。 因为刚刚一个朋友说自己不小心把快速启动栏的“显示桌面”图标给删除了,所以我把解决的方法总结了一下,写到这里。 一、可是使用快捷键暂时替换对“显示桌面”图标的依赖,快捷键是“windows键+D”。 二、点击“开始→运行”,在弹出的“运行”对话框中输入“REGSVR3
2007-07-02 08:37:00 1611
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人