自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(5)
  • 资源 (3)
  • 论坛 (4)
  • 收藏
  • 关注

原创 VB 延时类

Option Explicit Private Type FILETIME    dwLowDateTime As Long    dwHighDateTime As LongEnd Type Private Const WAIT_ABANDONED& = &H80&Private Const WAIT_ABANDONED_0& = &H80&Private C

2012-12-06 07:23:41 1088

原创 vb 读取文件指定行

Public Function ReadRowConnent(FileName As String, iRow As Integer)    'FileName = App.Path & "\Config.ini"    If Len(Dir$(FileName)) = 0 Then        err.Raise 53 '文件没有找到        '这里处理没找到文件事件

2012-12-06 03:38:58 3256

原创 VB 快速读取文件内容的方法

读取text文件的最快方法是使用Input$函数,就象下面的过程:Function FileText(ByVal filename As String) As StringDim handle As Integer' 判断文件存在性If Len(Dir$(filename)) = 0 Then Err.Raise 53 '文件没有找到End If' 以binary模式打开文件

2012-12-06 02:30:29 4195 1

原创 VB 注册表操作

'*****下面先声明一些常量******************************************Public Const HKEY_CLASSES_ROOT = &H80000000Public Const HKEY_CURRENT_CONFIG = &H80000005Public Const HKEY_CURRENT_USER = &H80000001Publ

2012-12-06 02:24:11 1382

原创 vb webbrowser 在原窗口打开弹出新窗口的链接

代码1:Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Dim frm As Form1Set frm = New Form1frm.Visible = TrueSet ppDisp = frm.WebBrowser1.objectEnd Sub 代码2:Private S

2012-12-05 19:51:56 9057

通讯调试软件集成串口、并口、USB、TCP、UDP、MQTT、蓝牙、WIFI、摄像头调试功能

集串口、并口、USB、TCP、UDP、MQTT、蓝牙、WIFI、摄像头调试功能及众多实用小工具

2021-01-03

VB捆绑文件成图片的源代码

VB使用图片捆绑文件小工具带源代码,隐藏文件圣器

2012-03-07

制造虚拟来路

制造虚拟来路,可以仿各大站的虚拟来路。站长统计内也可以查正确的模仿来路。

2012-03-07

蓝图的留言板

发表于 2020-01-02 最后回复 2020-01-02

请教一个 php5.4 安装Zend Optimizer 的问题

发表于 2012-07-02 最后回复 2013-09-26

C# 数据库字段为nvarchar(MAX)类型 但保存的时候还依然提示截断字符串或二进制数据

发表于 2012-05-27 最后回复 2012-05-27

[已处理] 版主老大,我的博客怎么被屏蔽了

发表于 2011-01-18 最后回复 2011-01-21

空空如也

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

TA关注的人 TA的粉丝

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