自定义博客皮肤VIP专享

*博客头图：

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

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

博客底图：

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

栏目图：

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

主标题颜色：

RGB颜色，例如：#AFAFAF

Hover：

RGB颜色，例如：#AFAFAF

副标题颜色：

RGB颜色，例如：#AFAFAF

预览 取消 提交

自定义博客皮肤

-+
上一步保存

miaozk2006的专栏

点滴积累与收藏:关于技术，关于生活

  • 博客(21)
  • 资源 (84)
  • 收藏
  • 关注
全部文章> 2013年01月
排序：
按最后发布时间
按访问量
RSS订阅
12月 11月 10月 09月 08月 07月 06月 05月 04月 03月 02月 01月

原创 VB 获取Textbox文本框中的行数函数

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _                          (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _                          lParam As ...

2013-01-31 17:16:14 2639

原创 VB 读写TXT文本文件函数

以下两个函数分别读取TXT文本文件与写入文件 Private Function GetTXT(Path As String) '读取文本    Open Path For Input As #1    GetTXT = StrConv(InputB(LOF(1), 1), vbUnicode)    Close #1End Function Private Sub SetTXT(Strl As...

2013-01-31 17:16:07 1097

原创 VB 提取TextBox 文本框中指定一行字符串

这是使用EM_GETLINE message来做，比较奇特的是lParam是指向一个字串所在的位置，但是该字串传入时，前两个Byte要存该字串允许的最大长度。'以下在Form需一个TextBox，并设定MultiLine = True, 一个Command Button    Private Sub Command1_Click()        Dim str5 As String   ...

2013-01-31 17:16:01 2970

原创 VB 获取汉字拼音的首字母

Public Function py(mystr As String) As StringIf Asc(mystr) < 0 ThenIf Asc(Left$(mystr, 1)) < Asc("啊") Thenpy = "0"Exit FunctionEnd IfIf Asc(Left$(mystr, 1)) >= Asc("啊") And Asc(Left$(mystr,...

2013-01-31 11:46:50 1844

原创 VB 汉字字符串转换成拼音

以下这个函数可以将一个汉字字符串转换成拼音 Private Function Getpy(Txt)Dim d, TmpTxtDim wzcode, i, TmpWZ, a, b, iiSet d = CreateObject("Scripting.Dictionary")d.Add "a", -20319d.Add "ai", -20317d.Add "an",...

2013-01-31 11:46:44 1256

原创 VB判断指定名字的进程是否存在函数

'============================================================='函数名：CheckApplicationIsRun'作 用：判断进程是否存在'参 数：szExeFileName ----进程名字'返回值：布尔值 ----True进程存在,False不存在'=======================================...

2013-01-30 21:38:40 427

原创 VB 两种方法实现热键

方法一： Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer '添加个Timer控件 名字为：Timer1'Interval属性设为100Private Sub Timer1_Timer()If GetAsyncKeyState(vbKeyQ) ThenPrint "你...

2013-01-30 21:38:23 656

原创 VB 使用SendMessage枚举文件与目录

源码如下：Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const LB_DIR = &H18...

2013-01-30 18:21:51 297

原创 兰索拉唑片

兰索拉唑片 

2013-01-30 15:58:21 75

原创 VB 二进制数组与十六进制字符串相互转换

1.VB 二进制Byte()数组转换成十六进制字符串函数：Private Function BytesToHex(bytB() As Byte) As StringDim strTmp As String, i As LongFor i = 1 To UBound(bytB)strTmp = strTmp & " " & Hex(bytB(i))DoEventsNextBy...

2013-01-30 07:19:54 2265

原创 VB 二进制数据读写实例

代码如下： Dim arrBinary() As Byte Open "C:\123.exe" For Binary As #1ReDim arrBinary(LOF(1) - 1) '重定义数组Get #1, , arrBinary() '将文件的数据赋给arrBinary二进制数组变量Close #1 Open "C:\456.exe" For Binary As #1Put #1...

2013-01-30 07:19:48 1016

原创 VB 进制转换大全(十进制、十六进制、八进制、二进制、二进制流)互转

模块包含了下面的各种转换： 二进制转十进制二进制转化为八进制二进制转化为十六进制 八进制转化为十进制八进制转化为二进制八进制转化为十六进制 十进制转二进制十进制转化为八进制十进制转化为十六进制 十六进制转化为二进制十六进制转化为八进制十六进制转化为十进制 16进制转ASC10进制长整数转4位16进制字符串10进制长整数转2位16进制字符串ASCII字符串转16进制字符串反16...

2013-01-30 07:19:43 2856

原创 VB 判断是否文本文件

 代码如下： Option ExplicitPublic Function IsTextFile(Bytes() As Byte) As BooleanDim i As Long, AscN As Long, Length As LongLength = UBound(Bytes) + 1If Length < 3 ThenIsTextFile = IsGB(Bytes...

2013-01-29 12:23:04 343

原创 VB 读取UTF-8编码文件函数

参数：Path 文件路径Unicode 文件编码Public Function File_get_contents(Path As String, Optional Unicode = "GB2312") Dim arrBinary() As Byte Open Path For Binary As #1ReDim arrBinary(LOF(1) - 1)Get #1, , arrB...

2013-01-29 12:22:38 1771

原创 VB 按指定编码格式写入文本文件

 代码如下： 'VB 按指定编码格式写入文本文件，默认GB2312编码。 Private Sub SaveFile(FilePath As String, strText As String, Optional Charset As String = "GB2312")Dim Obj As ObjectSet Obj = CreateObject("ADODB.Stream")With O...

2013-01-29 12:21:21 1744

原创 VB UTF-8 URL编码函数

代码如下：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$(szI...

2013-01-29 12:21:15 581

原创 VB 实现UTF-8 与GB2312互转

模块代码如下： '* ************************************** *'* 模块名称：modCharset.bas'* 模块功能：GB2312与UTF8相互转换函数'* 作者：lyserver'* ************************************** * Option Explicit '- ------------------...

2013-01-29 12:21:12 3007

原创 VB 设置ListView中指定一行的背景颜色

代码如下：'SetListViewBGColor(ListView控件名称,要设置的背景颜色行号,颜色值-默认：&HB6B4FF)Public Sub SetListViewBGColor(ByRef ListView As ListView, _                              ByRef Index As Long, _            ...

2013-01-28 09:21:27 3352

原创 VB SendMessage向其他程序窗口发送字符串消息实例

以下通过程序的标题来获取该窗口的句柄,然后通过SendMessage函数给该窗口句柄发送WM_SETTEXT消息。代码如下：'先创建一个文本文档,命名为： 1.txt' 然后打开测试。。。Private Const WM_SETTEXT = &HCPrivate Declare Function SendMessage _Lib "user32" _Alias "S...

2013-01-28 09:20:21 5284

原创 VB Listview导出到CSV文件函数

示例：Call ListviewToCSV(Listview1,"C:\123.csv")最后一个参数Encabezado决定是是否导出表头。默认是导出的。函数代码如下：Public Function ListviewToCSV(ListView As ListView, sFile As String, Optional Encabezado As Boolean = True) As ...

2013-01-28 09:18:28 410

原创 微软公告:Visual Basic 6 完全兼容 Windows 8 的整个产品周期

 微软刚刚将其 Windows 系统对 Visual Basic 6 程序的完全兼容支持延长到了 Windows 8 的整个产品周期. Visual Basic 6 最早发售于 1998 年, 所以现在来看 VB6 程序将至少被支持 24 年. 相比之下 .NET Framework 1.1 (2002 年发行) 则仅仅被支持了 7 年, 到了 Windows 7 (2009) 便被微软抛...

2013-01-27 13:05:54 149

(原创) 大文本文件极速合并（sps文件合并）
１、普通文本文件的合并 　　　　　　　　　 ２、大文件快速合并，空行及重复行删除等功能 ３、合并物探处理中使用的SPS文件

2017-01-13

VirtualBox-5.0.2
VirtualBox-5.0.2 虚拟机

2015-09-07

VirtualBoxSDK-5.0.2-102096开发包
VirtualBoxSDK 5.0.2-102096 SDK开发包

2015-09-06

Oracle_VM_VirtualBox_Extension_Pack-5.0.2-102096扩展包
Oracle_VM_VirtualBox_Extension_Pack-5.0.2-102096扩展包

2015-09-06

索尼录音笔SX1000程序与驱动For Mac&WIN
索尼录音笔 SX1000 程序与驱动 提供Mac系统微软WINDOWS系统的软件和驱动程序 有用得到的朋友可以下载

2015-07-27

打印机驱动HP2035 W32&WIN64
惠普打印机驱动 HP2035 驱动包括32位和64位系统 产品名称：HP2035 产品型号为：CE461A 需要的朋友下载

2015-07-27

联想多媒体键盘驱动LXB-CH0507.rar
联想多媒体键盘驱动配置程序 FOR X86 WIN7系统测试通过 键盘产品型号：LXB-CH0507 驱动盘上的文件名称：11000863.exe 请需要的朋友收藏

2015-07-27

Oracle_VM_VirtualBox_Extension_Pack-4.3.10
Oracle_VM 多平台扩展包 Oracle_VM_VirtualBox_Extension_Pack-4.3.10

2014-05-13

Oracle_VM_VirtualBox_Extension_Pack-4.2.16扩展包
Oracle_VM_VirtualBox_Extension_Pack-4.2.16扩展包 支持所用多平台

2013-08-24

【原创】两线交点坐标批量计算
原来从事物探行业，经常遇到计算测线交点坐标的问题，根据已知的L1线两点(X1,Y1),(X11,Y11),和L2线上两点(x2,y2),(x22,y22)计算交点，在一般情况遇到，虽然通过解方程组便可得到，但对于我们使用较为频繁时，就显得无奈了，便写成代码制作成了软件方便个人使用。今日释放出来，有需要的朋友可以下载使用。 功能简单介绍： 1.具体可以看软件帮助 2.支持批量 和双线两计算方式 3.如果位置对应，可以直接从EXCEL表格中拷贝数据 4.两线交点计算时，可以一次性都由2个点的坐标，具体看帮助 5.批量的数据格式可以根据鼠标悬停看提示，按提示格式编写即可，具体还是看帮助。 6.增加了快捷键操作，不经常使用，此功能可以忽略。

2013-08-07

[原创]unix2dos dos2unix 批量 windows升级版
unix2dos批量转换工具（双向） MS桌面版 前一版描述较不祥细，以至于很同朋友不知道可以选择多个文件拖放，故在此多啰嗦几句。 注明：1、窗口支持拖放，单文件或多文件同时拖放均可 2、新版本添加文件列表窗口中点“右键”可以“添加”文件按钮 3、窗口中有无文件列表均可调入“右键”菜单，以弹出待使用的功能 老版本暂不删除，地址为： http://download.csdn.net/detail/miaozk2006/4470260 4、强列注明该软件非LINUX/UNIX版本，是纯WINDOWS(XP ,98,VISTA,WIN7，win8 下均可使用） 5、如果内置到其它程序，可能通过批处理调用，因为其支持DOS命令运行调用。具体看如下描述 功能：DOS=>UNIX UNIX=>DOS 运行环境：MS-WINDOWS,及DOS下 注：支持命令行参数调用

2013-08-07

[原创]unix2dos工具
unix2dos批量转换工具（双向） MS桌面版 功能：DOS=>UNIX UNIX=>DOS 运行环境：ms-WINDOWS,及DOS下 注：支持命令行参数调用

2012-08-02

unix2dos工具批量转换
unix2dos 批量转换 纯绿色 操作环境：Microsoft桌面操作系统/dos下操作 使用方法：拖放要转换的文本文件至输入窗口中，选择要转换的方式（DOS2UNIX或UNIX2DOS），点转换即可直接转换 注：支持命令提示符下参数操作 功能： unix文本文件与dos文本文件相互转换 1、unix文本转DOS文本文件 2、dos文本转UNIX文本文件

2012-07-31

windows下UNIX2DOS
unix2dos 操作环境：Microsoft桌面操作系统/dos下操作 使用方法：拖放要转换的文本文件至输入窗口中，选择要转换的方式（DOS2UNIX或UNIX2DOS），点转换即可直接转换 注：支持命令提示符下参数操作 功能： unix文本文件与dos文本文件相互转换 1、unix文本转DOS文本文件 2、dos文本转UNIX文本文件

2012-07-30

unix2dos 文本文件相互转换
unix2dos 操作环境：Microsoft桌面操作系统/dos下操作 使用方法：拖放要转换的文本文件至输入窗口中，选择要转换的方式（DOS2UNIX或UNIX2DOS），点转换即可直接转换 注：支持命令提示符下参数操作 功能： unix文本文件与dos文本文件相互转换 1、unix文本转DOS文本文件 2、dos文本转UNIX文本文件

2012-07-30

hp无线助手（boradcom无线助手）
hp无线助手（boradcom无线助手）

2012-05-14

(1寸&2寸)照片生成器
如题：1寸照片生成器 把原始照片压缩成1寸照片 二寸照片生成器 把原始照片压缩成2寸照片

2012-03-14

P2P搜索神器
P2P搜索神器

2012-02-21

BeTwin2特别版
BeTwin2特别版, 一机多用必备软件，需要双显，不做过多介绍，你懂的

2012-02-21

外壳扩展工具包(ShellKit) 珍藏自用版
外壳扩展工具包(ShellKit) 不作介绍，windows右键SHELL菜单，方便操作

2012-01-23

软件运行库VBVC 201108精简版
绿色软件运行所必须的微软软件运行支持库,均为静默版 visual basic virtual machine (5.1) visual basic virtual machine (6.0) microsoft c runtime library (7.0) microsoft c runtime library (7.10) microsoft visual c++ 2005 sp1 (8.0.61001)（2011.05.14最新数字签名） microsoft visual c++ 2008 sp1 (9.0.30729.6161)（2011.04.19最新数字签名）

2012-01-23

微软核心模块shell32.dll的应用
微软核心模块shell32.dll的应用

2011-12-22

20款超酷VB皮肤控件源码
20款超酷VB皮肤控件源码

2011-12-22

批处理BAT转EXE
批处理BAT转EXE 把批处理文件转换成可以直接执行的EXE文件

2011-12-22

ppt幻灯片转EXE
ppt幻灯片转EXE 包括：简单模块和增强模式两种方式，生成时有很多详细的选项进行设置 简单实用

2011-12-22

个人珍藏EmEditor实用加强版
个人珍藏EmEditor实用加强版 文本编辑，程序编写 个人感觉直超NOTEPAD++

2011-12-17

Segy查看 SegyView
查看地震数据格式Segy SegyView 简单实用

2011-12-17

虚拟机VirtualBox-4.1.6-74713-Win
虚拟机VirtualBox-4.1.6-74713-Win

2011-11-18

VirtualBox 4.1.6 Software Developer Kit (SDK) 软件开发工具包
VirtualBox 4.1.6 Software Developer Kit (SDK) 软件开发工具包

2011-11-06

Oracle_VM_VirtualBox_Extension_Pack-4.1.6-74713.vbox-extpack
Oracle_VM_VirtualBox_Extension_Pack-4.1.6-74713.vbox-extpack 扩展包

2011-11-06

Oracle_VM_VirtualBox_Extension_Pack-4.1.4-74291
Oracle_VM_VirtualBox_Extension_Pack-4.1.4-74291 Oracle virtualbox虚拟机最新扩展包

2011-10-07

Qbasic 学习basic的最早必备软件
Qbasic 学习basic的最早必备软件，从早期的MS-DOS中提取，绿色运行版，学买BASIC的好软件，原老级软件，大家可以下载收藏

2011-09-28

虚拟机VirtualBox-4.1.2-73507-Win
虚拟机VirtualBox-4.1.2-73507-Win 另外还有对应的扩展包

2011-09-13

Oracle_VM_VirtualBox_Extension_Pack-4.1.2-73507.vbox-extpack
Oracle_VM_VirtualBox_Extension_Pack-4.1.2-73507.vbox-extpack Oracle virtualbox虚拟机最新扩展包

2011-08-31

VC2010sp1运行库(Visual C++ 2010)简体中文版
Microsoft Visual C++ 2010Redistributable Package (x86) 安装 Visual C++ 库的运行时组件，使用户能够在未安装 Visual C++ 2010 的计算机上运行使用 Visual C++ 开发的应用程序

2011-08-27

vc2005运行库x86&x64
Microsoft Visual C++ 2005 Redistributable Package (x86) 安装在未安装 Visual C++ 2005 的计算机上运行使用 Visual C++ 开发的应用程序所需的 Visual C++ 库的运行时组件. x86和x64双版本

2011-08-27

qtcore.dll 各版本打包下载下（ x64版）
qtcore.dll 各版本打包下载下（ x64版） 在网上下载，发现很难下载到，到处理收集打包上传供需要的人下载 版本包括： 4.1.0.0 4.2.3.0 4.3.3.0 4.3.5.0 4.4.0.0 4.4.3.0 4.5.0.0 4.5.1.0 4.5.2.0 4.5.3.0 4.6.0.0 4.6.2.0

2011-08-27

qtcore.dll 各版本打包下载上（ x86版）
qtcore.dll 各版本打包下载上（ x86版） 在网上下载，发现很难下载到，到处理收集打包上传供需要的人下载 版本包括： 4.1.0.0 4.1.2.0 4.1.3.0 4.1.4.0 4.1.5.0 4.2.0.0 4.2.1.0 4.2.2.0 4.2.3.0 4.3.0.0 4.3.2.0 4.3.3.0 4.3.4.0 4.3.5.0 4.4.0.0 4.4.1.0 4.4.3.0 4.5.0.0 4.5.0.15 4.5.1.0 4.5.2.0 4.5.3.0 4.6.0.0 4.6.1.0 4.6.2.0 4.6.3.0 4.7.0.0 4.7.1.0 4.7.2.0 4.7.3.0

2011-08-27

威刚 S102 8G 16g USB3.0量产工具 Innostor 902 MP Package v2.03.00.11
威刚 S102 8G 16g USB3.0量产工具 最新版 Innostor 902 MP Package v2.03.00.11 量产工具，对于普通用户来说就是对U盘分区，制作加密盘，制作启动盘，过多的不说了，懂行的下载 友情警示： 量产是一项很危险的行为，U盘量产由于产品质量参差不齐等多种因素可能会使U盘量产失败。所以要有量产失败的心理承受力。另外S102 是一款较新的USB3的主控，量产工具等目前来说大家积累的参考经验还比较少，所要量产之前要慎重啊！ 把自己刚入手的 威刚 S102 16G分为两个区，第一个区分为光盘启动盘。有兴趣的可以参阅我的博文：http://miaozk2006.blog.163.com/blog/static/38247058201172412458459/

2011-08-22

VB MSDN 简体中文版
VB MSDN 简体中文版 VB帮助文件安装版

2011-08-20

查看更多

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

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