rainstormmaster-优快云博客

原创 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 6711 3

原创 VB：屏蔽IE的右键菜单

关于BHO的文章现在已经很多了，对BHO就不做介绍了。原理是利用在BHO中维护一个IWebbrowser2接口，然后通过这个接口获得一个IHTMLDocument2接口，然后通过这个接口获得ICustomDoc 接口，然后通过ICustomDoc 接口的SetUIHandle方法将自己的IDocHostUIHandler实现连接到IE上面下面说说要

2007-05-01 18:37:00 4439 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 8179

原创 VB:如何向richtextbox中插入flash影片

这个问题是在看了http://blog.youkuaiyun.com/dtianx/archive/2004/11/17/184949.aspx这篇文章后产生的，当时的想法很简单，就是网上还找不到类似的VB代码，于是就想写成一个VB实现之类的东东，改写的过程很顺利。但改完之后就想到能不能插入flash影片呢，于是就有了这篇东西。从理论上说COM对象只要实现了IOLEOBJECT接口

2006-02-09 13:30:00 13134 2

通常我们要获得EDIT编辑框的某一行的文本,只要用sendmessage发送EM_GETLINE消息就可以了，然而当我们试图发送EM_GETLINE消息给Richtextbox控件时，却得不到正确的数据，这在Richtextbox控件同时包含中文和英文时表现的很明显，而如果Richtextbox控件的内容只有英文时，发送EM_GETLINE消息则可以得到正确的数据（写到这里，不由得开始羡慕米国人不

2005-11-20 09:19:00 7493 8

原创 VB程序运行时显示 ocx 控件的属性页的方法

这篇文章只是回答优快云网友standys2004提出的问题的，所以，您大可以略过不看首先，COM对象如果要支持属性页特性，那么它必须实现ISpecifyPropertyPages接口，同样我们只要实现了ISpecifyPropertyPages接口，就可以显示属性页，在vb中实现ISpecifyPropertyPages接口需要我们了解ODL语言，编好ODL文件后，再编译为TLB文件，这里，我

2005-11-04 08:57:00 4977 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 3167 3

原创一个利用随机数加密字串的算法

首先这个算法没什么特殊之处，只是怕以后找不到，所以放到了这上面每个字节加密后有6种结果（占两个字节，如果需要大于6种的话，就要多用1个字节，即占3 个字节），也就是说如果字串占n个字节的话，可能产生的结果为6的n次方个，这个算法破解的强度不大，大家可以完善一下：窗体上一个按钮，两个listboxOption ExplicitPrivate Sub Com

2004-03-30 19:25:00 2936 20

原创关于定时关闭询问对话框的一点体会

用过瑞星杀毒软件的朋友都知道，他可以定时关闭询问对话框。询问对话框的实现很简单，调用vb中提供的msgbox就可以实现了，可是问题是询问对话框是模式对话框，不关闭它的话，下面的代码无法继续执行，这一点也多多少少给朋友们造成了一些困饶。那么怎么解决呢，我的方案是调用api函数messagebox代替msgbox，结合timer控件实现自动关闭，闲话少说，看代码，下面的代码演示了如何在1

2004-02-26 14:49:00 2182 5

原创用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 5732 5

原创用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 7398 13

原创 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 2851 8

原创 VB嵌入文件的非常规实现

在文件中嵌入文件，一般都是通过资源文件来实现的，至于具体的实现步骤，我想就不用我罗嗦了，网上有很多这样的文章，不清楚的朋友可以自己搜索一下。但是有些情况下，用资源文件无法解决问题，就不得不迂回一下，比如要实现所谓的绿色软件（在这里我要说明的是，这篇文章没有涉及任何高级技巧，因此，您略过不看，我也不会感到难过），事实上，大家知道，vb程序的运行需要vb运行库的支持，所以，用vb做绿色软

2004-01-07 11:22:00 2051 11

rainstormmaster的专栏