VB
文章平均质量分 54
laotou99
这个作者很懒,什么都没留下…
展开
-
VB保存图片文件到数据库
VERSION 5.00Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"Begin VB.Form Form1 Caption =原创 2016-03-12 23:48:59 · 3136 阅读 · 0 评论 -
VB哈希表的实现
VERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = 1935 ClientLeft = 60 ClientTop = 345 ClientWidth = 3600 LinkTopic = "Fo原创 2013-02-20 15:10:29 · 3851 阅读 · 0 评论 -
VB堆栈的实现
VERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = "Fo原创 2013-02-16 15:11:12 · 3110 阅读 · 0 评论 -
VB操作INI文件读写示例
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName原创 2013-02-06 16:12:29 · 11205 阅读 · 1 评论 -
VB窗体弹出菜单设计
VERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3195 ClientLeft = 165 ClientTop = 450 ClientWidth = 4680 LinkTopic = "F原创 2013-01-23 11:12:45 · 2829 阅读 · 0 评论 -
VB动态加载数组控件
intCMD = intCMD + 1 Load Me.Command1(intCMD) Me.Command1(intCMD).Caption = "我是按钮" + CStr(intCMD) Me.Command1(intCMD).Top = Me.Height / 2 + intCMD Me.Command1(intCMD).Left = Me.Width /原创 2013-01-02 22:58:50 · 1189 阅读 · 0 评论 -
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 · 696 阅读 · 1 评论 -
VB发邮件1
'///////////////////////////////////////////'' 本程序为简邮邮件组件的演示程序'' 作者: 三毛' QQ:510784518' 博客:http://hi.baidu.com/suruiqiang''///////////////////////////////////////////Option Explicit转载 2012-12-26 15:36:50 · 3098 阅读 · 1 评论 -
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 · 2892 阅读 · 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 · 3312 阅读 · 4 评论 -
卡片游戏
2013-03-07放上初个程序的模型http://www.kuaipan.cn/file/id_43844898763310096.htm一.概述 看了我叫MT的一个在线卡片游戏,让我想起了很多,想到最早的口袋怪兽,真女神传说,数码宝贝,还有以前在久游时研究的卡片游戏等。一直还是想做点小游戏练练已经生疏的手,但总是找不到好的题材,和技术上的难度,还有时间等问原创 2013-03-04 17:02:21 · 670 阅读 · 0 评论 -
可比可比,APP项目开发策划。
2013-05-29上传些开发中的画面我曾经有个项目,我发誓绝对比一淘早,但后来一淘出来了,项目组的人都去做别的事了。于是项目在刚开发的阶段就停止了。后来就没有后来了。今天我在整理我的收藏夹时,我发现我收藏了好多,电子产品,大多不是想买,而只是喜欢,关注下价格,每天都会去看看,然后当有人要买电子产品的时原创 2013-04-29 09:41:35 · 1038 阅读 · 2 评论 -
VB6学习技巧
2015-10-09在窗体的load函数中,是不可以使用print命令直接在窗体上打印字符的,可在下个过程函数,如点击窗体等里打印。原创 2015-10-10 00:04:05 · 805 阅读 · 0 评论 -
Ray Caster Maze
VERSION 5.00Begin VB.Form frmMain Caption = "Ray Caster Maze" ClientHeight = 9315 ClientLeft = 60 ClientTop = 450 ClientWidth = 13605 KeyPreview原创 2015-09-15 17:45:59 · 509 阅读 · 0 评论 -
VB EXCEL 2007 TO 2003
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)Public Sub translateFormat(strS1 As String, strD1 As String, strPath As String)' Dim xlApp As New Excel.Application D转载 2014-04-03 09:59:34 · 1723 阅读 · 0 评论 -
超级简单进销存-立项
2013-08-08完善了商品查询,并放上个正式免费版。http://pan.baidu.com/share/link?shareid=1598381385&uk=3288766898原创 2012-11-11 15:11:12 · 3433 阅读 · 2 评论 -
VB操作EXCEL文件大全
Dim xlApp As New Excel.ApplicationDim xlBook As New Excel.WorkbookDim xlSheet As New Excel.WorksheetPublic Sub exportExcel()' Dim strA1() As String, strA2() As String, strTmp1 A原创 2013-10-23 10:31:05 · 20968 阅读 · 1 评论 -
VB自动接收邮件
Private Sub Command1_Click()' Dim pop3 As Object Dim EmailMsg As Object Set pop3 = CreateObject("JMail.POP3") pop3.Connect "username","password","mail.mydomain.com" Debug.Pri原创 2013-07-18 11:23:26 · 4610 阅读 · 1 评论 -
数据库高手请进
2013-06-26今天决定开源部分源码VERSION 5.00Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"Begin VB.Form MainForm BorderStyle = 1 'Fixed Single Caption = "数据库原创 2012-07-27 05:26:29 · 1465 阅读 · 1 评论 -
VB BASE64
Option ExplicitPublic Function Base64Encode2(Infile As String, Outfile As String)Dim FnumIn As Integer, FnumOut As IntegerDim mInByte(3) As Byte, mOutByte(4) As ByteDim myByte As ByteDim i As In转载 2013-06-24 11:31:54 · 917 阅读 · 0 评论 -
SmallTalkEDI程序
SmallTalkEDI程序立项SmallTalkEDI程序,报文程序,自动邮件程序。SmallTalk是个怎么样的程序呢?它没有程序界面,它只有后台运行段。它可以有程序界面,它的程序界面可以按照你的需求制定。可以使其多样性的,按照实际业务需求的程序界面。它能干什么呢?它可以将数据输出为EXCEL,CSV,XML,PDF等指定格式文件。它可以自动发邮原创 2013-06-19 13:15:32 · 1059 阅读 · 0 评论 -
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 · 7136 阅读 · 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 · 570 阅读 · 2 评论 -
MYLP标签打印程序
MYLPMy Label Printer模板标签打印程序设计策划文档开发记录 2012/10/08决定开发个根据所定义的模板而打印标签的程序,因工作需要,经常需要打印标签与货物上,商业的标签打印程序价格又贵,并功能繁多,很多功能并不需要的。而共享与免费软件虽价格便宜或不需要但是功能单一,并不能很好地完成工作,需要二次开发。故此,想特意开发个,能满足工作需要的,并原创 2012-10-08 13:49:43 · 1034 阅读 · 1 评论 -
数据库性能比较
附上源代码下载http://download.csdn.net/detail/laotou99/43288271.往ACCESS数据库中插入10万条数据基本耗时在13分钟左右2. 往ORACLE中插入10万条数据基本耗时6分钟左右。原创 2012-05-25 11:29:24 · 824 阅读 · 1 评论 -
用VB 关闭其他应用程序
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As LongPrivate Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As转载 2012-02-09 23:59:04 · 3902 阅读 · 2 评论 -
VB 网络学习笔记1
TCPVERSION 5.00Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"Begin VB.Form frmServer Caption = "frmServer" ClientHeight = 3195 ClientLeft =原创 2012-01-11 10:53:47 · 804 阅读 · 1 评论 -
VB 文件读写笔记2
1.读取txt文本文件到文本框Private Sub Command1_Click()' Dim str As String Open "d:\My Documents\VB6\T12010901\a1.txt" For Input As 1 Do While Not EOF(1) Input #1, str原创 2012-01-09 22:56:13 · 827 阅读 · 1 评论 -
VB 文件读写笔记
VB 文件读写笔记原创 2011-01-11 16:06:00 · 822 阅读 · 1 评论 -
转:在VB中用DAO实现数据库编程
转:在VB中用DAO实现数据库编程转载 2010-12-08 15:58:00 · 1575 阅读 · 3 评论 -
转:VB6.0数据库访问技术与例程解析
转:VB6.0数据库访问技术与例程解析转载 2010-12-08 16:16:00 · 1006 阅读 · 1 评论 -
VB性能记录
此贴专门用来记录,我在VB中写的测试程序,与测试代码VERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = 6945 ClientLeft = 60 ClientTop = 345 ClientWidth = 9原创 2012-10-30 15:34:09 · 699 阅读 · 1 评论 -
GCMS2.0-仓储管理系统
GCMS2.0-仓储缸里系统jWMS的升级版本使用更强大的SQL-SERVER和更先进的图形界面。先放上几张截图,为开发中的版本原创 2012-11-01 10:08:06 · 1303 阅读 · 1 评论 -
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 · 4840 阅读 · 2 评论 -
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 · 1478 阅读 · 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 · 639 阅读 · 1 评论 -
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 · 805 阅读 · 2 评论 -
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 · 4304 阅读 · 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 · 989 阅读 · 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 · 1606 阅读 · 1 评论