_Windbell的个人资料 - RAT

_Windbell _Windbell

关注数: 0 粉丝数: 4 发帖数: 296 关注贴吧数: 2

路过 rt

大家新年快乐~ RT~

[半成品][源]VistaForm模拟一楼给百度。。预览效果图。。

一个简单的BusyProgressBar 好久没来发帖了。。今天发一个比较简单的东东。。一个简易的滚动条。。vista下的带高光的。。虽然没有技术含量。。。一楼给百度。。二楼发网盘地址。。

最少代码又很快的反色 '一个picturebox，Load一张图片 Private Sub Form_Click() Me.PaintPicture Picture1.Picture, 0, 0, , , , , , , vbNotSrcCopy End Sub 呵呵。。突然想到的。。原来光栅运算是这么神奇又效率。。去掉开头和末尾2句。。实际上就一句。。呵呵。。

To：编写发邮件程序的朋友们---邮件格式详解呵呵。。好久没更新文章了。。看最近编写邮件发送程序的朋友们挺多的，这次就用Winsock的方法写了一篇邮件格式详解。。文章写的比较杂乱，因为我还在上初二，文笔不太好，多多见谅啦！文章比较长。。估计帖子里可能放不完。。所以就发到空间里了。。文章地址：http://hi.baidu.com/%5Fwindbell/blog/item/6e284f8878c542b40e2444e6.html希望吧主老师们帮我加个精，给更多的朋友们学习下。。希望不是奢望啦。。呵呵。。

Byval和Byref的问题两个有什么区别。。。一下摘自MSDN。。。实在看不懂。。。那位高手帮解下。。按值传递参数（Byval）按值传递参数时，传递的只是变量的副本。如果过程改变了这个值，则所作变动只影响副本而不会影响变量本身。用 ByVal 关键字指出参数是按值来传递的。按地址传递参数（Byref）按地址传递参数使过程用变量的内存地址去访问实际变量的内容。结果，将变量传递给过程时，通过过程可永远改变变量值。

子类化拦截星号密码查看自己瞎写的。。高手别看啦。。。'添加一个TEXT1'模块Public Declare 函数 CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPublic Const GWL_WNDPROC = (-4)Public Const EM_GETPASSWORDCHAR = &HD2Public Const WM_GETTEXT = &HD 'Public preWinProc As LongPublic 函数 wndproc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongIf Msg = WM_GETTEXT Then hWnd = Form1.hWnd'将之送往原来的Window Procedurewndproc = CallWindowProc(preWinProc, hWnd, Msg, wParam, lParam)End 函数 'FormPrivate Declare 函数 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate Declare 函数 SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Sub Form_Load()'记录原来的Window Procedure的位址preWinProc = GetWindowLong(Text1.hWnd, GWL_WNDPROC)'设定Text的Window Procedure到wndprocCall SetWindowLong(Text1.hWnd, GWL_WNDPROC, AddressOf wndproc)Text1.PasswordChar = "*"End SubPrivate Sub Form_Unload(Cancel As Integer)'取消Message的截取，而使之又只送往原来的Window ProcedureCall SetWindowLong(Text1.hWnd, GWL_WNDPROC, preWinProc)End Sub

自己瞎捣鼓出来的开方函数（非Sqr）无聊随便写着玩的。。。晕晕。。百度又是发广告贴。。。具体上我空间里看吧。。http://hi.baidu.com/%5Fwindbell/blog/item/a0dd2b316a995e9fa8018ecf.html

1 下一页