vb文档中心

Option Explicit
Dim FSO As New FileSystemObject
Dim currentFolder As Folder
Dim currentFolderName As String
Dim folderItem, fileItem
Private Sub Form_Load()

currentFolderName = FSO.GetFolder(App.Path) & "\content"
SeachFolder (FSO.GetFolder(currentFolderName))

End Sub
Function SeachFolder(str As String)
Dim itemFolder
Dim curFolder As Folder
Set curFolder = FSO.GetFolder(str)

Dim itemFile
For Each itemFolder In curFolder.SubFolders
SeachFolder (CStr(itemFolder))
Me.Text1.Text = Me.Text1.Text & itemFolder & Chr(13) & Chr(10)
For Each itemFile In itemFolder.Files
Me.Text1.Text = Me.Text1.Text & itemFile & Chr(13) & Chr(10)
Next
Next

End Function
注：要用FSO，需要引用Microsoft Scripting Runtime，窗体上要放一个text控件，用来显示。 ......

分类：VB学习字号：大大中中小小 mid(字符串，从第几个开始，长度) 在[字符串]中[从第几个开始]取出[长度个字符串]
例如 mid("小欣无敌",1,3) 则返回 "小欣无"
instr(从第几个开始,字符串1,字符串2) 从规定的位置开始查找，返回字符串2在字符串1中的位置
例如 instr(1,"小欣无敌","小") 则返回 1,instr(2,"小欣无敌","小")，则返回 0 。 0 表示未找到
InStrRev(字符串1,字符串2,从第几个开始) 从规定的位置开始，从后住前查找，返回字符串2在字符串1中的位置，此处注意，虽是从后住前查找，但是返回的值还是从前往后算的。
例如 instrRev("小欣无敌","小",2) 则返回 2 ; instrRev("小欣无敌","欣",1) 则返回 0 ,因为它从"小欣无敌"的第1个字开始往前查找，所以找不到。0 表示未找到
left(字符串,长度) 从[字符串]的左边开始返回[长度]个字符
例如 Left("小欣无敌,3) 则返回 "小欣无"
right(字符串 ......

VB颜色和RGB色互相转换头疼了我好一段时间,如今找到解决办法了
特别贴出来与大家共享
Type RGB
    Red As String
    Green As String
    Blue As String
End Type
Public Function ColorToRGB(ByVal dwColor As Long) As RGB
    Dim clrHex As String
    clrHex = Replace(Format(Hex$(dwColor), "@@@@@@"), " ", "0")
    ColorToRGB.Red = Mid$(clrHex, 5, 2)
    ColorToRGB.Green = Mid$(clrHex, 3, 2)
    ColorToRGB.Blue = Mid$(clrHex, 1, 2)    '
End Function
Public Function RgbToColor(ByVal rColor As String)
    Dim tempColor As String, RedColor As String, GreenColor As String, BlueColor As String
    tempColor = Replace(rColor, "0x", "")
    RedColor = Mid(tempColor, 1, 2)
    GreenColor = Mid(tempColor, 3, 2)
    BlueColor = Mid(tempColor, 5, 2)
    RgbToCol ......

http://tieba.baidu.com/f?kz=255370663
搜集到一个程序
几乎都用它来完成采集任务了！贡献出来啊，很简单滴
Function strCut(strContent, StrStart, StrEnd) As String '通用截取函数
Dim strHtml, S1, S2 As String
dim strstart,strend as string
strHtml = strContent
On Error Resume Next

S1 = InStr(strHtml, StrStart) + Len(StrStart)
S2 = InStr(S1, strHtml, StrEnd)
strCut = Mid(strHtml, S1, S2 - S1)

End Function
Private Sub Form_Load()
Dim hunzi1, hunzi2 As String
hunzi1 = "<html><title>this is title</title></html>"
hunzi2 = strCut(hunzi1, "<title>", "</title>")
MsgBox hunzi2
End Sub ......

VB
    If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
    MSComm1.CommPort = i1
    MSComm1.PortOpen = True
    MSComm1.InputMode = comInputModeBinary
    MSComm1.InBufferCount = 0
    MSComm1.InputLen = 0
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.RThreshold = 1
    MSComm1.OutBufferCount = 0
C++
/****************************************************************/
//串行口初始化
if(m_ctrlComm.GetPortOpen())   //如果串口已经打开，则关闭。
  m_ctrlComm.SetPortOpen(FALSE);
m_ctrlComm.SetCommPort(1);    //选择com1
if( !m_ctrlComm.GetPortOpen()) 字串9
  m_ctrlComm.SetPortOpen(TRUE);  //打开串口
else
  AfxMessageBox("不能打开串行口！");
m_ctrlComm.SetSettings("9600,n,8,1"); //波特率9600，无校验，8个数据位，1个 ......

VB文本加密特别设计到中文加密让很多人费尽周折,经常会碰到解密中文出现乱码的情况
下面这篇文章将对此做了说明
代码也在文章里面包括
计算机世界2000年第36期
实现中文文本的加密方法
武汉交通科技大学计算机科学与工程系吴业福
　　
本文介绍了在VB6中实现中、英文文本加、解密的技术细节。文中深入地探讨了VB6中汉字加、解密的原理、散列函数的构造方案，在加、解密方产生散列函数的种子值（初始值）和用于加、解密的随机序列数的方法。最后该技术实现了一个简单的128位的加、解密方案。文中涉及到了加密技术的一些主要关键概念及其具体实现技术，如散列函数、加密强度等。　
绪论
　　加密（Encryption）是信息保护的一种必不可少的手段。目前有两种基本的加密方法，即私钥加密和公钥加密。用VB既可用自定义算法实现简便的私钥加密，也可通过调用Crypto API接口实现复杂的公钥加密。
　　本文介绍一种私钥加密技术，不仅能加密英文文本，而且能有效加密汉字。
　　密文文本=HASH(DateTime)＋HASH(DateTime＋Key)＋ Encryption(Text,HASH(DateTime)＋HASH(DateTime＋Key)
　　 VB具体实现技术
　　1．基本加� ......

VB遍历当前目录

VB 字符串处理函数集

VB 中颜色互相转换的两个小函数(REG和 VB颜)

用vb怎么获取网页标题

VB/C++/C#串口通讯源代码【附详细注释】

VB/C++/C#串口通讯源代码【附详细注释】

VB/C++/C#串口通讯源代码【附详细注释】

VB/C++/C#串口通讯源代码【附详细注释】

VB 实现中文文本的加密方法