-
VB 写的文件分割工具，还蛮好用的。附上源码
所属栏目：[大数据] 日期：2020-12-16 热度：119
VERSION 5.00 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx" Begin VB.Form frmMain BorderStyle = 1 ′Fixed Single Caption = "文件分割工具" ClientHeight = 2880 ClientLeft = 45 ClientTop = 330 ClientWidth = 3795 KeyPr[详细]
-
慢速媒体排序 （VB 6.0）
所属栏目：[大数据] 日期：2020-12-16 热度：164
http://topic.csdn.net/u/20110104/19/c7ad4498-5b3c-46cb-a0e5-2cbb080349ea.html Option ExplicitDim a() As SingleDim b() As Long '用于存放a()数组的索引Dim N As Long '数组元素的个数Dim MaxValueCounts As Long '筛选最大数值的个数Private Sub Form[详细]
-
捕获子线程异常 vb.net c#
所属栏目：[大数据] 日期：2020-12-16 热度：168
c# 如果程序里面使用了多线程技术的话!就需要对子线程的异常做出特殊的处理! 据我所知,如果没有做特殊处理的话,好像子线程的异常不会抛给主线程,有时会直接在客户端抛出异常(这当然不是我们想要的),更夸张的是,有时直接把程序给强制关闭了! 在用户的角度上,[详细]
-
用Mindmanager整理的VB常用函数
所属栏目：[大数据] 日期：2020-12-16 热度：112
用Mindmanager整理的VB常用函数 概览： 第一层 完整版：[详细]
-
使用VB获得系统目录路径
所属栏目：[大数据] 日期：2020-12-16 热度：87
函数声明: Private Declare Function SHGetSpecialFolderLocationLib " Shell32 " (ByValhwndOwner As Long ,ByValnFolder As Integer ,ppidl As Long ) As Long Private Declare Function SHGetPathFromIDListLib " Shell32 " Alias " SHGetPathFromIDListA[详细]
-
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
所属栏目：[大数据] 日期：2020-12-16 热度：101
[ 原创 ] 实现用 VB.Net/(C#) 开发 K/3 BOS 插件的真正可行方法 ------------ （网上流传的 C Sharp 写插件实是不可行的） 金蝶 K3 BOS 的插件官方是用 VB6 编写的，如果 能用 .Net 下的语言工具开发 BOS 插件是一件很愉快的事情，其中缘由不言而喻，而本文[详细]
-
vb.net 控件（包括字体）随窗体按比例缩放
所属栏目：[大数据] 日期：2020-12-16 热度：116
Public Class frmDl Dim x As Single = 0 Dim y As Single = 0 Private Sub frmDl_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load x = Me .Width y = Me .Height setTag( Me ) End Sub ' 递归取控件的原始大小和[详细]
-
vb picturebox 加载网络图片的两种方法，分无缓存加载和有缓存加
所属栏目：[大数据] 日期：2020-12-16 热度：106
Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long,ByVal punkCaller As Long,ByVal dwReserved As Long,ByVal clrReserved As OLE_COLOR,ByRef riid As TGUID,ByRef ppvRet As IPicture) As Long Private Type T[详细]
-
vb6.0 做的ocx 安全接口
所属栏目：[大数据] 日期：2020-12-16 热度：52
我在做这个OC X时遇到的问题给大家共享一下， 首先共同的我就不说了， l转载 http://support.microsoft.com/kb/182598 下面的步骤说明如何创建一个简单的 Visual Basic 控件并将其标记为可安全执行脚本和 $ 初始化。 创建一个新的文件夹，您可以在其中保存创[详细]
-
VB利用XMLHTTP读取远程数据，如txt
所属栏目：[大数据] 日期：2020-12-16 热度：90
VB使用XMLHTTP读取远程txt，解决了缓存及编码问题。 以下表格中的就是代码，其中关于解决缓存方面网上有说方法是使用 XMLObject.setRequestHeader "If-Modified-Since","0" 但是测试发现当读取3-4次时会出现bad request的提示，后来查到资料，"0”写成一个很[详细]
-
VB 使用 XMLHttp Pool 的例子
所属栏目：[大数据] 日期：2020-12-16 热度：147
代码： Form：Form1 Option Explicit Private Pools As HttpPool Private Sub Command1_Click() Dim o As MSXML2.XMLHTTP Set o = Pools.GetObject() Dim Handler As MyReadyStateHandler Set Handler = New MyReadyStateHandler Handler.ini o o.OnReadySta[详细]
-
纯VB代码取得硬盘的物理序列号
所属栏目：[大数据] 日期：2020-12-16 热度：76
网上有很多获取硬盘序列号的代码，但大部分都只能取得逻辑分区的序列号，而不能取得硬盘的物理序列号。我们知道，逻辑分区的序列号是FORMAT时产生的，重新FORMAT将会改变。这对于要求唯一识别码的程式来说是致命的。这段代码利用API可以取得物理硬盘的很多特[详细]
-
读写二进制文件 VB.NET
所属栏目：[大数据] 日期：2020-12-16 热度：164
需要引入命名空间 Imports System.IO '二进制流 转文件 Public Function BinaryToFile(ByVal byTmp As Byte(),ByVal path As String) As Boolean Dim fs As FileStream Dim bwr As BinaryWriter fs = New FileStream(path,FileMode.Create) bwr = New Binary[详细]
-
VB scrpit 修改配置文件（读写XML）
所属栏目：[大数据] 日期：2020-12-16 热度：121
‘VB scrpit 修改配置文件（XML）： Dim WshShellSet WshShell = CreateObject("Wscript.Shell")Set fso = CreateObject("Scripting.FileSystemObject")' Create log file for the script Set logStream = fso.createtextfile("updateConfig.log",True)logSt[详细]
-
初学者的个人的一些经验，希望大家不要见笑 （1）
所属栏目：[大数据] 日期：2020-12-16 热度：193
1.对于像msdn中的控件之类的就我自己的经验来看就是把控件的名称和用途都列在例如像word上，等到工作的时候就可以直接在word中查询，然后直接在msdn中查看详细资料。 2.对于msdn中介绍的例如vb8.0的各个版本的特性和vb8.0语言的新内容。直接浏览就可以了，不[详细]
-
#define的用法
所属栏目：[大数据] 日期：2020-12-16 热度：173
语法 一 : # define 标识符 被标识符代表的字符串 // 这种用法很简单 , 就是一种替换 . 语法 二 : # define 标识符 [( 参数 1,....., 参数 n)] 被标识符代表的字符串 // 其中 , 在 " 被标识符代表的字符串 " 中出现的形参将在使用时被实参替代 . 就像写函数[详细]
-
vb 制作 webbrowser1 浏览器
所属栏目：[大数据] 日期：2020-12-16 热度：134
'如果你希望新打开的网页出现在同一个窗口，可以这样做 Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1 Private Sub Form_Load() Set Web_V1 = WebBrowser1.Object WebBrowser1.Navigate2 "http://zhidao.baidu.com/browse/74" End Sub Private Sub Web[详细]
-
VB 判断 WebBrowser是否已经加载网页完毕
所属栏目：[大数据] 日期：2020-12-16 热度：53
1、 Private Sub Form_Load() WebBrowser1.navigate "http://blog.csdn.net/lbuskeep" Do DoEvents If Not WebBrowser1.Busy And WebBrowser1.LocationURL "http://blog.csdn.net/lbuskeep" Then MsgBox "OK" Exit Do End If Loop End Sub Private Sub WebBr[详细]
-
vb.net Windows服务添加安装程序
所属栏目：[大数据] 日期：2020-12-16 热度：154
都使用了windows service installer快两年了，还是记不住如何去使用。（人懒没办法），现在整理出来： １．将写好的windows服务切换到设计视图，右键－添加安装程序 ２． 切换到新生成的ProjectInstaller.cs设计视图，找到serviceProcessInstaller1对Account[详细]
-
VB 显示内存中的图片
所属栏目：[大数据] 日期：2020-12-16 热度：103
'假设Form上已经存在Picture1的控件，并已经设置好图片DimPBagAsNewPropertyBagDimB()AsBytePBag.WriteProperty"Picture",Picture1.Picture'读取Picture1.Picture图片并写到Pbag容器中B=PBag.Contents'获取容器Byte到B()数组中'这时B就时我们想要获得的Byte[详细]
-
vb6调试程序中的一些意外情况
所属栏目：[大数据] 日期：2020-12-16 热度：76
1.今天运行以前的程序，在Right()处竟然报错说：找不到工程或库。 解决方法：工程引用里有一项丢失的引用，不引用即可，比如mdac2.6。有时候是没有缺失的引用项，我试着去掉scrrun.dll的引用，然后再添加，再regsvr32 scrrun.dll一下，就好了。 2.activex部[详细]
-
关于向量中的元素类型
所属栏目：[大数据] 日期：2020-12-16 热度：189
假设Base 是 Derive的基类； 定义vectorBase vb; 那么向量容器vb中只能存放Base的实例，而不能存放Derive的实例； 为了存放Derive的实例，需写成： vectorBase * vb;[详细]
-
编写字库汉化程序~VB篇/VC篇 by sumiya
所属栏目：[大数据] 日期：2020-12-16 热度：124
大概1年前些过程序生成字库的程序，今天又要用到了，结果找了半天找不到，只好再重新写一遍了，这个就是当时参考的教程，很不错的。 显示： 1BPP_VB 1BPP_VC 4BPP_VB 4BPP_VC 写入 1BPP_VB 4BPP_VB -------------------------------------------------------[详细]
-
做连连看……
所属栏目：[大数据] 日期：2020-12-16 热度：188
人家说情人节嘛，单身的要玩连连看，能消一对算一对，所以，当时突然有想做个连连看的冲动…… 想了一想，表示C++的界面编程还不会- -|||下学期才学……所以勉强用vb做一个算了…… 其实我下面讲的是和算法有关的东西，不会砸代码上来……所以不会vb的也没事[详细]
-
VB.Net冒泡排序代码
所属栏目：[大数据] 日期：2020-12-16 热度：78
VB.Net冒泡排序代码(有详细解释) 冒泡排序是一种最常见的排序方法。VB.Net可写出代码如下： Function BubbleSort( ByVal Ar As Array) Dim i As Integer Dim j As Integer Dim Temp '不定义变量类型,以自动适应数组Ar的类型 Dim Flag As Boolean Dim n As In[详细]
