自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(15)
  • 资源 (16)
  • 收藏
  • 关注

原创 VB直角寻路学习1

Private Const Col_Num = 100Private Const Row_Num = 100Private Const a = 10Private Type Ant_Type x As Integer y As Integer x1 As Integer y1 As Integer stat

2012-12-27 23:48:26 703 1

转载 VBFPT获取文件

Private Sub Command2_Click()Inet1.Protocol = icFTPInet1.RemoteHost = "61.147.114.28" '服务器地址Inet1.RemotePort = 21 'FTP端口Inet1.UserName = "1787" '用户名Inet1.Password = "fclbri" '密码Print "开始"'上传

2012-12-26 15:40:21 578 2

转载 VBMD5加密

Private Sub Command1_Click()MsgBox Md5_File_Calc(Text1.Text)End SubPrivate Sub Command2_Click()MsgBox Md5_String_Calc(Text2.Text)End SubOption ExplicitPrivate Const OFFSET_4 = 4294967296#P

2012-12-26 15:39:19 817 2

转载 VB自动注册DLL文件

Const A = 10Const B = 5Private Sub Command1_Click()Dim oMathLib As New Class1Dim r As IntegerMsgBox oMathLib.Add(A, B)End SubPrivate Sub Command2_Click()'uninstallShell "cmd /c RegSvr32 /u /

2012-12-26 15:37:48 4863 2

转载 VB发邮件1

'///////////////////////////////////////////'' 本程序为简邮邮件组件的演示程序'' 作者: 三毛' QQ:510784518' 博客:http://hi.baidu.com/suruiqiang''///////////////////////////////////////////Option Explicit

2012-12-26 15:36:50 3116 1

转载 VB屏幕截图1

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc

2012-12-26 15:35:50 1491 1

转载 VB遍历目录文件夹2

Private Sub Command1_Click()get_folders List1, "c:\windows"End SubPrivate Sub get_folders(ByRef List1 As ListBox, ByVal path As String)'引用了Microsoft Scripting RuntimeDim fso As New Scripting.Fil

2012-12-26 15:34:24 3322 4

转载 VB遍历目录文件

Private Sub Command1_Click()sDirTraversal "c:\windows", List1End SubPrivate Sub Command2_Click()Dim sE As Long, cP As Long, tP As String, tpLT As IntegertP = UCase(InputBox("Type:=")): tpLT = Le

2012-12-26 15:33:28 2907 1

转载 VB用API获取本机IP地址

Option ExplicitPublic Const MIN_SOCKETS_REQD As Long = 1Public Const WS_VERSION_REQD As Long = &H101Public Const WS_VERSION_MAJOR As Long = WS_VERSION_REQD \ &H100 And &HFF&Public Const WS_VERSIO

2012-12-26 15:32:27 7160 1

转载 VB启动计算机并控制

Private Sub Command1_Click()Dim I As IntegerDim Jh As String'===Shell "calc.exe", 1For I = 1 To 9SendKeys Replace("{" & Str(I) & "}", " ", "")SendKeys "{+}"NextEnd SubPrivate Sub Command2_

2012-12-26 15:30:55 645 1

原创 VB加零函数

Public Function AddZero(strTmp As String) As String '添加0 Dim intCD, intCDC As Integer intCD = Len(strTmp) intCDC = 10 - intCD If intCDC > 0 Then Dim strZCD As String st

2012-12-23 12:47:47 1014 1

原创 vb JMail简单使用指南

vb JMailSub test2()' On Error GoTo Err_test2 Dim Jmail Set Jmail = CreateObject("jmail.Message") Jmail.Charset = "gb2312"‘设置邮件的编码 Jmail.Silent = False Jmail.Priority

2012-12-13 10:00:55 4314 1

转载 DELPHI简介

概述:  在古希腊神话里,DELPHI是智慧女神,米开朗基罗在意大利有著名的DELPHI雕像 。   由Borland公司推出的Delphi是全新的可视化编程环境,为我们提供了一种方便、快捷的Windows应用程序开发工具。它使用了Microsoft Windows图形用户界面的许多先进特性和设计思想,采用了弹性可重复 利用的完整的面向对象程序语言(Object-Oriented

2012-12-13 09:40:33 1685 1

原创 VB网络操作学习笔记

VERSION 5.00Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3225 ClientLeft = 60 Client

2012-12-10 13:38:10 1618 1

原创 vb邮件功能测试

VERSION 5.00Object = "{20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0"; "MSMAPI32.OCX"Begin VB.Form Form1 BorderStyle = 1 'Fixed Single Caption = "Form1" ClientHeight =

2012-12-07 16:22:09 1145 2

收集的区块链技术PPT

收集的好多区块链的PPT技术解析幻灯片。里面有详细的技术解析。告知区块链的技术原理。

2018-09-14

金典算法收集

网上收集的,编程中用到的金典算法。

2016-06-22

wince 开发利器

用PASCAL开发wince程序的必须品。

2014-02-11

Delphi快速入门

网上收集的DELPHI开发资料与教材,包括基础入门,控件使用,数据库开发,图形开发等。

2012-12-11

超级简单进销存

超级简单进销存程序,内涵执行文件,和数据库文件。 运行需要VB环境,或是ADO和MSCOMCT2.0.OCX 详细信息,查看以下博客 http://blog.csdn.net/laotou99/article/details/8171257

2012-12-02

简单库存程序VB打包安装版

一个小型的仓储管理软件,因上次上传的版本,有人反映运行时缺少控件,故此次特发送个VB打包安装版上来。

2012-10-08

VB写的小型数据库MYDATA

其实现包括(不区分大小写)一定要已";"结尾 CREATE Table 例: CREATE TABLE ABC( A1(100), A2(100), A3(100) ); 说明A1为字段名,括号中的100为字段长度 SELECT FROM 例: SELECT * FROM ABC; 显示ABC表中的所有字段,如A1,A2,A3 SELECT A1,A2,A3 FROM ABC;显示ABC表中所选的字段,这里选择了A1,A2,A3 INSERT INTO 例: INSERT INTO ABC(A1,A2,A3)VALUES(AAA,BBB,CCC); 其中INTO 后面跟的为表名,括号后是表中要添加数据的字段,VALUES后是字段所对应的数据。 另奉上项目地址 http://blog.csdn.net/laotou99/article/details/7793201

2012-08-02

上海打工记游戏源码

一个类似与北浮的游戏 详细请看这里 http://blog.csdn.net/laotou99/article/details/7654505

2012-06-12

数据库测试源码

写了个小型的数据库测试代码,只能够插入数据哦。

2012-05-25

EasyStock简单仓储系统

一个仓储管理软件,可管理小型仓库,用于物资的存放管理。

2012-05-16

jWMS仓储管理系统。大家一起学习

仓储管理系统。包含入库,出库,库存等管理模块,并可对客户,料号,库位等进行管理。

2012-04-25

jCpuTest 系统测试软件

jCpuTest 小小的 基于JAVA的 系统性能测试软件

2010-03-25

MFC入门教程(全)

MFC入门教程(全) MFC入门教程(全) MFC入门教程(全) MFC入门教程(全) MFC入门教程(全) MFC入门教程(全) MFC入门教程(全) MFC入门教程(全)

2009-09-11

VB学习资料PPT大全

很多 我收集的 VB 学习PPT 很详细,很基础的学习资料

2009-04-03

空空如也

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

TA关注的人

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