随笔分类 -  Visual Basic

远程获取内容,并将内容存在本地电脑上,包括任何文件
摘要:"http://" then '-------------如果前面没有http就是本地文件,交给LocalFile处理------------LocalFile(path)else'--------------------否则为远程文件,交给RemoteFile处理------------------RemoteFile(Path)end if'Response.Write err.Descri... 阅读全文
posted @ 2004-08-12 22:31 雪美·考拉 阅读(967) 评论(0) 推荐(0)
把域名解释成对应的IP
摘要:Private Const SOCKET_ERROR As Long = -1Private Const MAX_WSADescription = 256Private Const MAX_WSASYSStatus = 128Private Const ERROR_SUCCESS As Long = 0Private Const WS_VERSION_REQD As Long ... 阅读全文
posted @ 2004-08-02 13:44 雪美·考拉 阅读(1061) 评论(3) 推荐(0)
VB 字符串续行符最多25行…………
摘要:真丢人,今天才发现的,一个大的SQL语句写了不到一半就写不开了!VB6 这样也不是太好……………… 阅读全文
posted @ 2004-07-29 23:21 雪美·考拉 阅读(3053) 评论(7) 推荐(0)
VB6创建的ActiveX控件中实现对目标载体的SubClass
摘要:总是觉得这个题目比较绕口!但是,琢磨了半天也没想出个更能让人一看就明了的人话…………算了,写内容吧,对于我来讲这个更像人话 ^_^以在VB6中实现窗体可调整到的最大或最小尺寸这一过程为例:当然在.NET里这个最终效果的实现只需要对Form.MaximumSize和Form.MinimumSize 属性做以定义即可!在VB6的岁月里,这个是要求程序员们自己来回调处理WM_GETMINMAXINFO消... 阅读全文
posted @ 2004-06-25 23:06 雪美·考拉 阅读(1709) 评论(3) 推荐(0)
用VB6实现的3D文字按钮
摘要:成品样式如下:源代码如下:1、新建EXE工程。2、添加模块,键入下面代码' -------- API 函数声明 -----------------Option Explicit Public Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" ( _ Destination As Any, _ Source As ... 阅读全文
posted @ 2004-06-24 15:24 雪美·考拉 阅读(2222) 评论(5) 推荐(0)
VB6实现的自动停靠窗体
摘要:1、新建EXE工程。2、添加模块,键入以下代码:'------------------- Module ---------------------------------------' 2003-9-10' 作者:任兀(DSclub)''如果有问题'请E-Mail:dsclub@hotmail.com''-----------------------------------------------... 阅读全文
posted @ 2004-06-24 15:22 雪美·考拉 阅读(1719) 评论(0) 推荐(0)
禁用Windows的开始按钮
摘要:禁用Windows的开始按钮'' Paste this into a Code Mode (BAS)'Option Explicit'private Declare Function FindWindowEx Lib "user32" _ Alias "FindWindowExA" (byval hWnd1 as Long, byval hWnd2 as Long, _ ... 阅读全文
posted @ 2004-06-21 08:44 雪美·考拉 阅读(1230) 评论(1) 推荐(0)
几个用VB6操作GDI+的好文、好代码
摘要:VB6用GDI+创建缩略图http://www.mvps.org/emorcillo/vb6/multimedia/thumbnail.shtml[这篇代码里有个错误,是作者的拼写错误:' Create the StdPicture object Set CreatheThumbnail = HandleToPicture(hBitmap, _ ... 阅读全文
posted @ 2004-06-18 21:54 雪美·考拉 阅读(1715) 评论(0) 推荐(0)