saddogchen-CSDN博客

原创文件的读取VB6 方法二

参考博客 https://blog.csdn.net/lyserver/article/details/4106290 lyserver的专栏Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any,...

2018-05-21 14:50:09 888

原创文件的读取vb6 方法一

参考 https://bbs.csdn.net/topics/340173969/ 中的a1875566250的回复Option ExplicitPrivate Declare Function OpenFile& Lib "kernel32" (ByVal FileName As String, ByVal OFs As Long, ByVal Flags As Long)P...

2018-05-21 14:49:13 1193

原创 C#中的数据转换

[code="c#"] private void testConvert() { string a = "1110101010010010111110"; label1.Text = bin2hex(a).ToString();//2进制转16进制 3AA4BE string b...

2018-03-13 10:40:37 177

原创 VB.NET 中动态添加按钮并添加点击事件

Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click Dim btn(10) As Button Dim count1 As Int16 For count1 = 0 To 10 btn(count...

2016-12-03 11:41:18 3939

c#中动态添加按钮并添加点击事件

[code="c#"]using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Linq;using System.Text;using System.Threading.T...

2016-06-05 21:25:31 9471

原创 jquery关于select框的取值和赋值

jQuery("#select_id").change(function(){}); // 1.为Select添加事件，当选择其中一项时触发 var checkValue = jQuery("#select_id").val(); // 2.获取Select选中项的Value var checkText = jQuery("#select_id :selected").text(...

2015-08-13 13:35:48 109

VB.net 的习惯代码

VB.net中相关的使用从VB6转变过来创建固定指定空间长度的字符串VB6 dim str_tmp as string(1024)VB.net中我是这样搞的dim chr_tmp(1024) as chardim str_tmp as stringstr_tmp=chr_tmp检查str_tmp的长度就是1025（str_tmp.lenth）获...

2014-02-26 10:37:18 115

使用方法很简单，先新建一个类文件，将代码复制进取，然后在一个窗体的空白区域添加一个类型实例。Dim WithEvents MyHook As New SystemHook()然后使用静态绑定事件就可以了。Hook的所有信息已经被封装在了事件的参数中，非常方便哦~' 非常不容易才翻译过来的。' 博客: http://hi.baidu.com/clso' 论坛: http://clso.xunta...

2013-10-08 15:45:12 921

原创文件列表

Public Function Findfile(MyPath As String, Expand As String, MyList As ListBox)Dim Myname As StringDim dir_i() As StringDim i, idir As LongDim str_FileNameList() As StringDim date_CreatTime() As Dat...

2013-07-16 10:58:32 98

原创 Sqlite数据库的使用

·创建数据库：strFilename = App.Path & "\test.db"Set cn = New LITEXLib.LiteConnectioncn.Path = strFilenamecn.Open·创建表：创建名为testtable的表，含testCol01,testCol02,testCol03三个字段，字段的属性为text tableName = "testtable...

2013-06-09 16:22:07 181

saddogchen的博客