博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

06 2009 档案

窗体控件大小随窗体大小变化而变化(VB.NET)

摘要：有时窗体变化后，如改变分辨率后控件大小却不能随之改变。手工代码调整实在麻烦，下面的模块实现自动查找窗体上控件并使其改变大小以适应窗体变化。在Form的Resize事件中调用函数Resize_All就能实现控件自动调整大小，如：Private Sub Form_Resize()Dim H, i As IntegerOn Error Resume NextResize_ALL Me 'Me是窗体名，Form1,Form2等等都可以End Sub在模块中添加以下代码：Public Type ctrObjName As StringIndex As LongParrent As StringTop A 阅读全文

posted @ 2009-06-29 11:16 随风飘零0 阅读(1506) 评论(0) 推荐(0)

Error 403--Forbidden

摘要：Error 403--ForbiddenFrom RFC 2068 Hypertext Transfer Protocol -- HTTP/1.1:10.4.4 403 ForbiddenThe server understood the request, but is refusing to fulfill it. Authorization will not help and the request SHOULD NOT be repeated. If the request method was not HEAD and the server wishes to make public 阅读全文

posted @ 2009-06-28 00:17 随风飘零0 阅读(278) 评论(0) 推荐(0)

JPWordDeal

摘要：Project1.vbpType=ExeForm=Form1.frmReference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE AutomationClass=JPWordDeal; clsJPWordDeal.clsObject={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCXModule=modIni; modIni.basModule=modPub; modPub.basIconForm="Fo 阅读全文

posted @ 2009-06-26 11:41 随风飘零0 阅读(183) 评论(0) 推荐(0)

批量编译vb6文件并拷贝到指定目录

摘要：@echo offfor /r %%a in (*.vbp) do (if exist %%a echo %%a && vb6 /make "%%a")md binfor /r %%a in (*.exe) do (if exist %%a copy "%%a" bin)pause::1.将vb目录添加到系统环境变量path::2.将此bat放到所有vbp文件的最上层目录 阅读全文

posted @ 2009-06-26 11:05 随风飘零0 阅读(316) 评论(0) 推荐(0)

WindowKiller

摘要：Project1.vbpType=ExeForm=frmMain.frmReference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE AutomationObject={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; richtx32.ocxModule=modPub; modPub.basIconForm="frmMain"Startup="frmMain"HelpFile=""Title="WindowKiller"ExeN 阅读全文

posted @ 2009-06-12 18:13 随风飘零0 阅读(226) 评论(0) 推荐(0)

VB快速读取TextBox第N行的数据 (转载)

摘要：【简 介】TextBox 是以 vbCr+vbLf 为分行符号， 如果我们要逐一读取 TextBox 每一行， 无非是寻找 vbCr+vbLf 的所在位置， 然后取出每一行的字串， 不过这个方法不快，而且如果我们要读取第 N 行数据，还是要从第 1、2、…N-1 行逐一读起，实在麻烦。 还好 Windows API 提供有读取 TextBox 第 N 行的功能细节如下： 　　1、API 的声明： 　　Public Const EM_GETLINE = amp;HC4 　　Public Const EM_LINELENGTH = amp;HC1 　　Public Const EM_LINEIND 阅读全文

posted @ 2009-06-11 14:20 随风飘零0 阅读(303) 评论(0) 推荐(0)

纯api实现ping主机（仅仅返回是否ping通）

摘要：modPing.basAttribute VB_Name = "modPing"'modPing'MsgBox IPValid("10.167.133.205")Option ExplicitPrivate Const IP_STATUS_BASE = 11000Private Const IP_SUCCESS = 0Private Const IP_BUF_TOO_SMALL = (11000 + 1)Private Const IP_DEST_NET_UNREACHABLE = (11000 + 2)Private Const IP_DEST_HOST_UNREACHABLE = (110 阅读全文

posted @ 2009-06-05 13:11 随风飘零0 阅读(570) 评论(0) 推荐(0)