自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

Code Corner

关闭!

原创 毕业设计进行时--文件(夹)加密软件设计

标记一下,还不好说问题一:VB中解决工程组引用问题出错表现:VB中文版添加工程组(ActiveX)后不能全编译  出现:工程组未设置为双向兼容错误解决办法:英文版好象还没出现过这个问题先把ActiveX工程全部编译后再全编译用VB6和VC++6分别写MD5和CRC32 DLL(开发日志)目前只有C...

2005-04-28 14:26:00

阅读数 1407

评论数 1

原创 俺Blog"选项-配置-静态新闻/声明代码"

今日天气src=http://appnews.qq.com/cgi-bin/news_qq_search?city=%CE%F7%B0%B2>My Notes:ID:bafony &nbspQQ:83461326E-Mail: bafony@163.com

2004-10-13 21:59:00

阅读数 786

评论数 0

转载 收来的几个好东东

GGBaiDu陕西软考中国系统分析员万年历(带农历)时间科普网站金山词霸在线查询IP地址查询(亚太网络信息中心) 手机查询/IP查询/邮编、区号、地名互查

2004-10-02 13:01:00

阅读数 544

评论数 0

原创 零碎代码

显示关闭计算机对话框Option ExplicitPrivate Declare Function ShutDownDialog Lib "shell32" Alias "#60" (ByVal YourGuess As Long) As LongPriva...

2004-09-27 02:55:00

阅读数 826

评论数 0

原创 LockListViewHead

Option ExplicitPrivate Sub Command1_Click()    Call LockListViewHead(ListView1.hwnd)End SubPrivate Sub Command2_Click()    Call UnLockHead(ListView1....

2004-09-27 02:28:00

阅读数 867

评论数 0

原创 GetPID

Option ExplicitConst MAX_PATH = 260Const TH32CS_SNAPPROCESS = 2&Private Type PROCESSENTRY32    lSize            As Long    lUsage           As Lo...

2004-09-27 02:19:00

阅读数 941

评论数 0

原创 GetInternetIP

if user is not connected to internet, it will return the Lan IPConst MAX_IP = 5   To make a buffer..Type IPINFO    dwAddr As Long   IP address    dw...

2004-09-27 01:59:00

阅读数 830

评论数 0

原创 列举正在运行的所有应用程序

Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As LongPublic Declare Function IsWindowVi...

2004-09-27 01:45:00

阅读数 1678

评论数 0

原创 四舍五入

Public Function RoundF(Number, Optional NumOfDigits As Long) As Double    If Not IsNumeric(Number) Then Exit Function    Dim iPos As Long    iPos = I...

2004-09-27 01:37:00

阅读数 817

评论数 0

原创 BrowseFolder

Option ExplicitPrivate Const MAX_PATH = 260Private Const BIF_RETURNONLYFSDIRS = 1With New FolderPrivate Const BIF_NEWDIALOGSTYLE As Long = &H40ud...

2004-09-27 01:35:00

阅读数 1477

评论数 0

原创 ShowInTaskbar

Public Declare Function GetWindowLong Lib "user32" Alias _"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPubl...

2004-09-26 17:40:00

阅读数 1046

评论数 0

原创 Autoresize of columns in MSHFlexGrid with multiple bands

Public Function FG_AutosizeCols(myGrid As MSHFlexGrid, _                                Optional ByVal lFirstCol As Long = -1, _                     ...

2004-09-26 14:48:00

阅读数 1069

评论数 0

原创 Autosize the columns and rows in MSFlexGrid

Public Function FG_AutosizeRows(myGrid As MSFlexGrid, _                                Optional ByVal lFirstRow As Long = -1, _                      ...

2004-09-26 14:47:00

阅读数 2409

评论数 0

转载 VB6网站和论坛(收集)

http://www.thevbzone.com       (Class Modules,Standard Modules,Code Project,Forum)http://www.vbrad.comhttp://www.vbnet.mvps.org国内:http://www.vbgood.c...

2004-09-26 12:53:00

阅读数 1172

评论数 0

原创 GetLnkTargetPath

Function GetTargetPath(ByVal LinkName As String)    On Local Error Resume Next    Dim Obj As Object    Set Obj = CreateObject("WScript.Shell&quo...

2004-09-25 18:54:00

阅读数 1012

评论数 1

原创 MSFlexGrid MouseWheel Supported

modMouseWheel.basPrivate Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" ( _                          By...

2004-09-25 15:17:00

阅读数 2267

评论数 2

原创 Win2K/NT/XP环境下LWIN,RWIN,WIN+Any,Ctrl+Esc,Alt+Esc,Alt+TAB等键的禁用

参考国外一些网站,论坛代码,得到以下综合,以上环境中测试通过,版权归原作者所有。add a checkbox named chkDisable.caption="&Disable ALT-TAB, ALT-ESC, CTRL-ESC,LWin,RWin,Win+Any"...

2004-08-26 00:48:00

阅读数 2449

评论数 1

原创 获取机器DirectX版本

引用windows scripting host object modelPrivate Sub Form_Load()Dim regwsh, Value, DValue, temp As StringSet regwsh = New IWshShell_ClassDValue = regwsh....

2004-05-28 10:25:00

阅读数 1432

评论数 0

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