FileName = Dir$
Loop
ReDim Preserve result(0 To count) As String
GetFiles = result
End Function
'''' --------------------------------------
'''' 转换字符串
''''
'''' --------------------------------------
''''
Public Function StringFromBuffer(buffer As String) As String
Dim nPos As Long
nPos = InStr(buffer, vbNullChar)
If nPos > 0 Then
StringFromBuffer = Left$(buffer, nPos - 1)
Else
StringFromBuffer = buffer
End If
End Function
'''' --------------------------------------
'''' 写内容到文本文件中
''''
'''' --------------------------------------
''''
Sub WriteTextFileContents(text As String, FileName As String, Optional AppendMode As Boolean)
Dim fnum As Integer, isOpen As Boolean
On Error GoTo Error_Handler
fnum = FreeFile()
If AppendMode Then
Open FileName For Append As #fnum
Else
Open FileName For Output As #fnum
End If
isOpen = True
Print #fnum, text
Error_Handler:
If isOpen Then Close #fnum
If Err Then Err.Raise Err.Number, , Err.Description
End Sub
'''' --------------------------------------
'''' 读信息到Ini文件中
''''
'''' --------------------------------------
''''
Public Function ReadIniFile(ByVal strIniFile As String, ByVal strSection As String, ByVal strKey As String) As String
Dim strBuffer As String * 255
If GetPrivateProfileString(strSection, strKey, vbNullString, strBuffer, 255, strIniFile) Then
ReadIniFile = StringFromBuffer(strBuffer)
End If
End Function
'''' --------------------------------------
'''' 添加信息到ListView控件中
''''
'''' --------------------------------------
''''
Sub lstvInfo_Add(LstVControl As ListView, InfoNum As Integer, SelectedFlag As Boolean, ParamArray InfoStr())
Dim i As Integer
With LstVControl
.ListItems.Add , , Trim(InfoStr(0))
If SelectedFlag Then
.ListItems(.ListItems.count).Selected = True
Else
.ListItems(.ListItems.count).Selected = False
End If
For i = 2 To InfoNum
.ListItems(.ListItems.count).ListSubItems.Add , , Trim(InfoStr(i - 1))
Next
.ListItems(.ListItems.count).EnsureVisible
End With
End Sub
自此,代码Copy完成,这时你再打开工程,编译运行。
1. 信息打包:在frmMain窗体中点击“打包”,直至打开frmAddInfo窗体,在其中点击“添加信息”进行信息添加项,同时,你也可以修改目标信息的路径及文件(说明修改完成后,别忘了点击“修改信息”信息按钮噢),你也可以给你的压缩包修改一个名字。最后点击“信息打包”按钮,进行打包;
2. 信息包展开:打包完成,你可以通过frmMain窗体中的展开程序进行压缩包展开,该展开形式对于存在的文件将覆盖,你可以修给代码,使之符合你自己的要求;
3. 你可以将你的压缩和该程序一同发给你的客户,这样,客户通过展开按钮便可以给你的程序进行信息更新了;
4. 你也可以将这些代码变通形式内嵌在你的程序中,通过文件关联,直接打开你的包文件,这样会更有趣;
5. 若你是Dephi或C++程序员,我相信你看了代码后,用你的方式做起来会更简单。
上一页 [1] [2] [3] [4] [5] 下一页 没有相关教程
|