自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(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 6267 3

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

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

2007-05-01 18:37:00 4250 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 7829

原创 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 10714 2

原创 快速获得Richtextbox控件指定行文本的方法

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

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

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

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

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

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

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

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

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

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

2004-02-26 14:49:00 2094 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 5115 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 7137 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 2657 8

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

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

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

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除