- 博客(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 579 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 4871 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 1492 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 3323 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 7164 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 1015 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 1688 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 1619 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
超级简单进销存
2012-12-02
VB写的小型数据库MYDATA
2012-08-02
MFC入门教程(全)
2009-09-11
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人