- 博客(25)
- 资源 (84)
- 收藏
- 关注
RSS订阅原创 [vb]On Error GoTo 0和On Error resume区别
On Error GoTo 0表示禁止当前过程中任何已启动的错误处理程序。On Error Resume Next说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。On Error GoTo line启动错误处理程序，且该例程从必要的 line 参数中指定的 line 开始。line 参数可以是任何行标...
2012-06-29 13:57:07
1249
原创 80后的十三种最深寂寞
1、独自在街道上游荡，看着街道上熙熙攘攘的人群，那些欢笑着的脸孔，那些都是不属于你的，你只是一个过客，什么也带不走，什么也留不下 ，再怎样的热闹，再怎样的繁华，却越发衬托你的形单影只 ，在人群中，你默然抬起头，却找不到一张熟悉的面孔…… 2、一个人蜷缩在床上，无法入睡，脑子里想着莫名其妙的问题，黑暗犹如一张巨大的蛛网把你包裹在内，厚厚的棉被里，你感觉好冷 ，从枕头下掏出手机，却发现你不知道该打给谁...
2012-06-20 06:10:08
80
原创 记录一下:在菜单上添加自绘图形的例子(VB6代码)
不复杂,记录在这里以备用 效果图: 代码如下： Option Explicit'在菜单上添加自绘图形的例子'窗体上添加一个Picture1,一个Command1,一个至少带一个下级菜单的顶级菜单.'BY 嗷嗷叫的老马'http://www.m5home.com/Private Declare Function GetSubMenu Lib "user32...
2012-06-20 06:09:39
464
原创 中国最假的36句话(转自傲游论坛)
中国最假的36句话 1．就想抱着你睡觉，我绝对不动手动脚。 2．公车司机：后面还有一辆车。 3．饭店服务员：您要的菜马上就好。 4．小学老师，你跟我说实话，我不告诉你家长。 5．初中老师：这节课体育老师有事不上了。 6．高中老师：我就占你们一分钟。 7．学习好的同学：这次又没考好。 8．一群人来打球：我们都不会玩。 9．街边小店：跳楼大甩卖。 10.领导上台前说:下面我简单...
2012-06-20 06:02:18
115
原创 vb中findwindow的疑惑
目的是学习使用findwindow的方法 |问题是程序运行得不到正确答案 步骤是 :'Module Module1 //模块中声明findwindowDeclare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As...
2012-06-19 22:46:46
767
原创 [vb]FindWindow使用方法
FindWindow使用方法━━━━━━━━━━━━━━━━━━━━━━━━━━Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 这个函数有两个参数，第一个是要找的窗口的类，第二...
2012-06-19 22:46:18
4183
原创 [原创]FOCUS处理系统流程之：流程批量生成（个人专用懒人版）
根据标准流程生成整个工区流程文件 （１）可按按目录生成 （２）可替换其中的关键字 标准流程准确，则生成的流程将一点到底，所剩的操作变成鼠标的操作，懒之产物。 界面如下： ☆其它物探处理原创软件相关☆： [原创]大文本文件极速合并（sps文件合并） [原创]unix格式文本文件转dos格式文本文件 unix2dos [原创]Focus流程之：SEGD数据快速合并 [原创]Focus...
2012-06-17 09:35:37
122
原创 [原创]windows下unix2dos dos2unix 文本文件批量转换工具
下载地址： http://download.csdn.net/detail/miaozk2006/5884455老版下载地址：http://download.csdn.net/detail/miaozk2006/4470260一、软件界面如下： 二、功能： １、unix格式与dos文本文件相互转换 ２、软件为图形界面，但也支持DOS命令提示符下使用。 dos下使用的格式为：...
2012-06-17 08:29:10
4302
原创 VB常用文件类
Option Explicit'*************************************************************************************************************' 读写文件函数'**********************************************************...
2012-06-13 23:25:43
276
原创 [vb]url utf-8编码
Public Function UTF8_URLEncoding(szInput)Dim wch, uch, szRetDim xDim nAsc, nAsc2, nAsc3If szInput = "" ThenUTF8_URLEncoding = szInputExit FunctionEnd IfFor x = 1 To Len(szInput)wch = Mid(szInput, ...
2012-06-13 09:20:13
347
原创 VB中的format格式化函数
VB Format函数 Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 数字类型的格式化 - - - - - - - - - - - - - - - - - - - - - - - - - - - - -...
2012-06-13 09:12:00
1092
原创 VB中字符串匹配的多种方式
这段时间在移植项目的过程中，起初我想判断一个字符串中是否存在某字符（串），直接的使用方法是用instr（start，string1，string2，VB compare），但经过分析在VB中可以只用一下方法来判断！ 1.常用的 InStr 方法 Function InStr([Start], [String1], [String2], [Compare As VbCompareMethod = ...
2012-06-13 09:11:55
3184
原创 vb使用open方法读写文件
（一）打开和关闭文件 1、顺序文件 打开顺序文件，我们可以使用Open语句。它的格式如下：Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize] 说明： （1）参数pathname 表示要打开的文件名，文件名可以包含有驱动器和目录 （2）Input Output 和Appe...
2012-06-11 05:38:53
1404
原创 VB 超简单的屏幕截图代码
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Sub Form_DblClick() '双击窗体截图keybd_event vbKeySnapshot, 0&a...
2012-06-10 13:32:28
2434
原创 vb以类名或窗口标题查找句柄并关闭
'添加 Command1Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function GetWindowThreadProcessId ...
2012-06-10 13:09:12
2211
原创 vbScript中WScript.Shell对象的 run 和 exec
vbScript中WScript.Shell对象的run和exec━━━━━━━━━━━━━━━━━━━━━━━━━━方法声明：Function Exec(ByVal Command As String) As WshExecFunction Run(ByVal Command As String, [ByVal WindowStyle], [ByVal WaitOnReturn]) As Int...
2012-06-10 12:39:29
657
原创 VBA语法200句
目录?? 定制模块行为 ?? 工作簿 ?? 工作表 ?? 单元格和单元格区域 [显示全部] 定制模块行为 (1) Option Explicit ''强制对模块内所有变量进行声明 Option Private Module ''标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Compare Text ''字符串不区分大小写 Option Base 1 ''指...
2012-06-10 11:49:26
385
原创 在VB6.0中怎么实现escape和unescape
两套方案,一是调用JAVAscript对象,二是自己写代码编码与解码,代码在CSDN中的以下帖子里贴出: 方案一代码: 复制内容到剪贴板 程序代码Function Escape(ByVal pstrInput As String) As StringDim objScrCtl As ObjectSet objScrCtl = CreateObject("MSScriptContro...
2012-06-06 07:16:22
466
原创 vb求任意两线交点
代码：Option ExplicitPrivate Type PointX As DoubleY As DoubleEnd TypePrivate Type LinesP1 As PointP2 As PointEnd TypeConst CROSS As Long = 0 '相交Const COLINE As Long = 1 '共线Const PARALLEL As L...
2012-06-05 14:43:41
1387
原创 求两直线交点程序 C
const double EPS = 1e-5; // 计算精度 const int CROSS = 0; // 两直线相交 const int COLINE = 1; ...
2012-06-05 13:17:39
526
原创 unix/mac/dos-windows三种文本文件的格式的行尾区别
在项目程序中，用fgets()读一个文本文件，一行一行的读取，之前测试的所有的文件都没有问题，今天突然拿到一个文件测试时却出问题了，调试发现它并没有一行一行的读，但是用notepad++明明可以看到文件是一行一行的啊，又不是没有回车，纠结一会，发现这个错误的文件是mac格式的，关于unix/mac/dos-windows三种文本文件的格式的行尾区别，以下是搜索到的资料： <stro...
2012-06-01 17:44:12
552
原创 ANSI字符与Unicode字符的互相转换
摘自：http://blog.csdn.net/yockie/article/details/7381896 ANSI字符是单字节的，Unicode字符是双字节的，VC6.0默认是用ANSI字符的，而后来的7、8默认都是用Unicode字符。。导致字符的问题经常遇到，最好又不要强制类型转换（有时候结果不正确不说，这种转换会导致很多漏洞。。）。这次真是被逼急了，就上网找了点资料总结一下。。...
2012-06-01 16:41:40
652
原创 linux下文本文件转换编码格式的方法
windows下我们一般是用Editplus另存为的方法来转换文本文件的编码方式，例如gb2312转换成utf8，utf8转换成gbk等等。 在linux，有一个专门的命令用来执行编码转换，它就是iconv，iconv有几个典型的参数： -f， 即from，表示文件的原始编码 -t， 即to， 表示要转换成什么编码格式 -l， 即list， 列举目前所有已知的编码方式 例如： ic...
2012-06-01 11:06:47
594
原创 vb读取文件的模式和方法
名词解释： 记录：计算机处理数据的基本单位，由若干个相互关联的数据项组成。相当于表格中的一行。 文件：记录的集合，相当于一张表。 文件类型：顺序文件、随机文件、二进制文件。 访问模式：计算机访问文件的方式，VB中有顺序、随机、二进制三种访问模式。 2. 顺序访问模式 顺序访问模式的规则最简单，指读出或写入时，从第一条记录“顺序”地读到最后一条记录...
2012-06-01 10:50:27
965
原创 Linux文本文件与Windows下的格式转换
常常有时候在Linux下编写的程序，拷贝到Windows下，就会出现无法运行的状况。明明在Linux下成功编译且没任何问题的源代码为什么会到Windows下就出现n多个编译错误呢？ 其实很简单，这个原因还是Windows自己造成的。Windows不遵守标准自搞一套标准的行为在业界已是无人不知的。 在dos下，列的结束符有两个控制符：一个归位字符(carria...
2012-06-01 09:19:48
248
Oracle_VM_VirtualBox_Extension_Pack-5.0.2-102096扩展包
2015-09-06
联想多媒体键盘驱动LXB-CH0507.rar
2015-07-27
Oracle_VM_VirtualBox_Extension_Pack-4.3.10
2014-05-13
Oracle_VM_VirtualBox_Extension_Pack-4.2.16扩展包
2013-08-24
【原创】两线交点坐标批量计算
2013-08-07
[原创]unix2dos dos2unix 批量 windows升级版
2013-08-07
[原创]unix2dos工具
2012-08-02
unix2dos工具批量转换
2012-07-31
windows下UNIX2DOS
2012-07-30
unix2dos 文本文件相互转换
2012-07-30
软件运行库VBVC 201108精简版
2012-01-23
VirtualBox 4.1.6 Software Developer Kit (SDK) 软件开发工具包
2011-11-06
Oracle_VM_VirtualBox_Extension_Pack-4.1.6-74713.vbox-extpack
2011-11-06
Oracle_VM_VirtualBox_Extension_Pack-4.1.4-74291
2011-10-07
Qbasic 学习basic的最早必备软件
2011-09-28
Oracle_VM_VirtualBox_Extension_Pack-4.1.2-73507.vbox-extpack
2011-08-31
VC2010sp1运行库(Visual C++ 2010)简体中文版
2011-08-27
vc2005运行库x86&x64
2011-08-27
qtcore.dll 各版本打包下载下（ x64版）
2011-08-27
qtcore.dll 各版本打包下载上（ x86版）
2011-08-27
威刚 S102 8G 16g USB3.0量产工具 Innostor 902 MP Package v2.03.00.11
2011-08-22
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人