自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

冰痕工作室

IceSoft Studio

  • 博客(10)
  • 收藏
  • 关注

转载 界面开发之Flat3DButton

自己是否想过重画控件,现在用强大的VB来实现吧。下例就是简单的利用VB中的CommandButton改变成Flat3DButton风格。其实就是利用VB的SubClass去处理父窗口的WM_DRAWITEM消息。1. 建立一个标准EXE工程,加入Command1和Command2,将Command1的Style属性设为Graphical。2. 加入模块,取名SubClass_Flat3

2004-10-30 14:59:00 983

转载 vb的GUID生成算法

 源代码推荐:vb的GUID生成算法RETURNS:  GUID if successful; blank string otherwise.Unlike the GUIDS in the registry, this function returns GUIDwithout "-" characters.  See comments for how to modify if you

2004-10-30 14:58:00 1542

转载 Visual Basic的类对于面向对象的支持

VB最为人垢病的是它的面向对象特性。实际上VB是一种基于对象的开发工具。在VB中 建立的类是支持继承的。下面是范例: 首先建立一个新工程,然后添加一个新的类模块(Class Module),类名称设定为BaseClass。 然后在BaseClass中加入以下代码: Public Sub BaseSub() 虚拟特性,BaseSub在子类中实现 End Sub 然后添加两个类模块,类名称分别设定为

2004-10-30 14:49:00 1502

转载 本例把“记事本”程序放进自己的窗体里

本例把“记事本”程序放进自己的窗体里Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As Long) As LongPrivate Declare Function GetParent Lib "user32" (

2004-10-26 17:29:00 1298

转载 Intel奔腾系列CPU指令全集(包含P4)

机器码 指令代码 说明 37                AAA                      ASCII adjust AL after additionD5 0A             AAD                      ASCII adjust AX before divisionD5 ib             (No mnemonic)        

2004-10-24 07:51:00 2009

转载 MD5值相同的两个不同的文件

Verifying the results of:  Collisions for Hash Functions MD4, MD5, HAVAL-128 and RIPEMD  by Xiaoyun Wang, Dengguo Feng, Xuejia Lai, Hongbo Yu  (available from http://eprint.iacr.org/2004/199/)Earlier

2004-10-24 07:46:00 3134

转载 VB自定义异常处理

模块:Option ExplicitPublic Const EXCEPTION_MAXIMUM_PARAMETERS = 15 ----------------------------- Exception-Handling Structures -----------------------------Type EXCEPTION_POINTERS     pExceptionR

2004-10-23 13:56:00 1781

原创 变体类型在循环中的测试

使用下面的代码进行测试Dim i As Long, a As LongPrivate Sub Command1_Click()For i = 1 To 10    a = a + 2Next iEnd Sub使用SC找到Command1的入口点,OD进行调试,发现循环部分的反汇编是下面的样子004019CD   > 8BD1           MOV EDX,ECX004019CF   . 8B

2004-10-22 13:37:00 1305 2

原创 VB中字符串处理函数反汇编对比

简单代码用于反汇编测试对比:不带$的字符串处理函数测试代码:Dim s As StringPrivate Sub Command1_Click()s = Left("test str", 3)End SubSC可知Command1_Click的入口点:00401A30反汇编代码:00401A84   . C745 C0 CC1640>MOV DWORD PTR SS:[EBP-40],WITHOU

2004-10-22 13:36:00 3107

原创 纯代码方式的图片透明传输

Option ExplicitPublic Declare Function CreateCompatibleDC Lib "gdi32.dll" (ByVal hdc As Long) As LongPublic Declare Function CreateCompatibleBitmap Lib "gdi32.dll" (ByVal hdc As Long, ByVal nWidth As

2004-06-23 07:04:00 1417

空空如也

空空如也

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

TA关注的人

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