|
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] 下一页 | 
