VB
文章平均质量分 68
rainstormmaster
这个作者很懒,什么都没留下…
展开
-
关于定时关闭询问对话框的一点体会
用过瑞星杀毒软件的朋友都知道,他可以定时关闭询问对话框。询问对话框的实现很简单,调用vb中提供的msgbox就可以实现了,可是问题是询问对话框是模式对话框,不关闭它的话,下面的代码无法继续执行,这一点也多多少少给朋友们造成了一些困饶。那么怎么解决呢,我的方案是调用api函数messagebox代替msgbox,结合timer控件实现自动关闭,闲话少说,看代码,下面的代码演示了如何在1原创 2004-02-26 14:49:00 · 2161 阅读 · 5 评论 -
VB:屏蔽IE的右键菜单
关于BHO的文章现在已经很多了,对BHO就不做介绍了。 原理是利用在BHO中维护一个IWebbrowser2接口,然后通过这个接口获得一个IHTMLDocument2接口,然后通过这个接口获得ICustomDoc 接口,然后通过ICustomDoc 接口的SetUIHandle方法将自己的IDocHostUIHandler实现连接到IE上面 下面说说要原创 2007-05-01 18:37:00 · 4397 阅读 · 3 评论 -
VB6:自定义控件如何设置默认属性
其实,这个问题没什么技术含量,可是偏偏许多人不知道,于是有了这篇文章。 首先,新建一个ActiveX Control工程,在界面上放一个TextBox,然后,打开代码窗口,输入如下代码:Public a As String Public Property Get Value() As String a = Text1.Text Valu原创 2007-04-15 17:38:00 · 8092 阅读 · 0 评论 -
VB:如何向richtextbox中插入flash影片
这个问题是在看了http://blog.csdn.net/dtianx/archive/2004/11/17/184949.aspx这篇文章后产生的,当时的想法很简单,就是网上还找不到类似的VB代码,于是就想写成一个VB实现之类的东东,改写的过程很顺利。但改完之后就想到能不能插入flash影片呢,于是就有了这篇东西。 从理论上说COM对象只要实现了IOLEOBJECT接口原创 2006-02-09 13:30:00 · 11318 阅读 · 2 评论 -
快速获得Richtextbox控件指定行文本的方法
通常我们要获得EDIT编辑框的某一行的文本,只要用sendmessage发送EM_GETLINE消息就可以了,然而当我们试图发送EM_GETLINE消息给Richtextbox控件时,却得不到正确的数据,这在Richtextbox控件同时包含中文和英文时表现的很明显,而如果Richtextbox控件的内容只有英文时,发送EM_GETLINE消息则可以得到正确的数据(写到这里,不由得开始羡慕米国人不原创 2005-11-20 09:19:00 · 7435 阅读 · 8 评论 -
VB程序运行时显示 ocx 控件的属性页的方法
这篇文章只是回答CSDN网友standys2004提出的问题的,所以,您大可以略过不看 首先,COM对象如果要支持属性页特性,那么它必须实现ISpecifyPropertyPages接口,同样我们只要实现了ISpecifyPropertyPages接口,就可以显示属性页,在vb中实现ISpecifyPropertyPages接口需要我们了解ODL语言,编好ODL文件后,再编译为TLB文件,这里,我原创 2005-11-04 08:57:00 · 4928 阅读 · 32 评论 -
Crypto—一个类模块(转贴)
来源:http://www.mentalis.org/类模块(clsCryptoFilterBox)Option ExplicitPrivate Declare Function CryptAcquireContext Lib "advapi32.dll" Alias "CryptAcquireContextA" (phProv As Long, pszContainer As Str转载 2004-09-11 08:17:00 · 3119 阅读 · 3 评论 -
VB中给listview的item添加多行气泡式Tooltip
一个类模块,命名为:CTooltip,代码如下:Option ExplicitPrivate Declare Sub InitCommonControls Lib "comctl32.dll" ()Windows API FunctionsPrivate Declare Function CreateWindowEx Lib "user32" Alias "CreateWindow原创 2004-01-07 11:24:00 · 2809 阅读 · 8 评论 -
VB嵌入文件的非常规实现
在文件中嵌入文件,一般都是通过资源文件来实现的,至于具体的实现步骤,我想就不用我罗嗦了,网上有很多这样的文章,不清楚的朋友可以自己搜索一下。但是有些情况下,用资源文件无法解决问题,就不得不迂回一下,比如要实现所谓的绿色软件(在这里我要说明的是,这篇文章没有涉及任何高级技巧,因此,您略过不看,我也不会感到难过),事实上,大家知道,vb程序的运行需要vb运行库的支持,所以,用vb做绿色软原创 2004-01-07 11:22:00 · 2022 阅读 · 11 评论 -
用VB将剪切板中的图片保存为JPG文件
Option Explicit窗体上一个按钮,一个imgedit控件Private Sub Command1_Click() If (ImgEdit1.IsClipboardDataAvailable And ImgEdit1.ImageDisplayed) Then 从剪贴板粘贴图象,其参数为Imgedit的显示区域的起始坐标 ImgEdit1.Clipboa原创 2004-02-20 11:32:00 · 5594 阅读 · 5 评论 -
一个利用随机数加密字串的算法
首先这个算法没什么特殊之处,只是怕以后找不到,所以放到了这上面 每个字节加密后有6种结果(占两个字节,如果需要大于6种的话,就要多用1个字节,即占3 个字节),也就是说如果字串占n个字节的话,可能产生的结果为6的n次方个,这个算法破解的强度不大,大家可以完善一下:窗体上一个按钮,两个listboxOption ExplicitPrivate Sub Com原创 2004-03-30 19:25:00 · 2897 阅读 · 20 评论 -
用diskid.dll和disk32.dll获得硬盘序列号
今天夜里两点,还没有入睡,就把取得序列号的代码简单写了一下,没有分别在不同的系统上调试,只在win2000下调试通过,如果有问题的话,请告诉我,我再修改1.调用diskid.dll实现:Option ExplicitPrivate Declare Function IsWinNT Lib "DiskID.DLL" () As LongPrivate Declare Funct原创 2004-02-04 10:00:00 · 7342 阅读 · 13 评论 -
VB:如何读出unicode编码的txt文件内容
其实,这个问题很简单 ,可偏偏很多人不知道,于是写了这个先用2进制方式打开文件,读出数据到byte数组中,然后用copymemory去掉文件头(头两个字符分别是FF FE(16进制))得到一个新的byte数组,最后利用strconv函数即可,下面给出代码:Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32" Alias "Rt原创 2007-05-03 10:40:00 · 6622 阅读 · 3 评论