用VB6.0自制压缩与解压缩程序(二)

      Left            =   60

      TabIndex        =   16

      Top             =   3480

      Width           =   1260

   End

End

Attribute VB_Name = "frmAddInfo"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

'''' ===================================================================

'''' 信息打包与展开 (打包模块，在此对包文件添加信息并进行压缩)

''''

'''' 功能 :利用系统所存在的资源自作压缩与解压缩程序

''''

'''' 作    者 :谢家峰

'''' 整理日期 :2004-08-08

'''' Email    :douhapy@sina.com

''''

'''' ===================================================================

''''

Option Explicit

'''' --------------------------------------------

'''' 设置编辑信息框

''''

'''' --------------------------------------------

''''

Sub EditLstvInfo(ByVal Item As MSComctlLib.ListItem)

    Dim i As Integer

    If Item Is Nothing Then

        For i = 0 To 1

          txtEditInfo(i) = ""

        Next

        framInfo(0) = framInfo(0).Tag

        framInfo(0).Enabled = False

        cmdinfo(0).Enabled = False

        cmdinfo(1).Enabled = False

        cmdinfo(2).Enabled = False

        cmdinfo(2).Caption = "修改信息"

        cmdOK(0).Enabled = False

        cmdOK(1).Enabled = False

        Exit Sub

    End If

    framInfo(0) = "第" & Item.text & "列" & framInfo(0).Tag

    With Item

        txtEditInfo(0) = .SubItems(1)

        txtEditInfo(1) = .SubItems(2)

    End With

    framInfo(0).Enabled = True

    cmdinfo(0).Enabled = True

    cmdinfo(1).Enabled = True

    cmdinfo(2).Enabled = True

    cmdinfo(2).Tag = Item.Index

    cmdinfo(2).Caption = "修改第" & cmdinfo(2).Tag & "行信息"

    cmdOK(0).Enabled = True

    cmdOK(1).Enabled = True

End Sub

'''' -------------------------------------------------------------

'''' ListView控件重新排序，且返回最后一个被精选的项，若没有返回0

''''

'''' -------------------------------------------------------------

''''

Function lstInfo_sort() As Long

    Dim i, j As Long

    j = 0

    For i = 1 To lstInfo.ListItems.count

        lstInfo.ListItems(i).text = i

        If lstInfo.ListItems(i).Selected Then j = i

    Next

    lstInfo_sort = j

End Function

'''' --------------------------------------------

''''检索所添加的信息在ListView控件中是否有重复

''''

'''' --------------------------------------------

''''

Function Check_OverLap(infoname As String) As Boolean

    Dim i As Long

    With lstInfo.ListItems

        For i = 1 To .count

         &nbs

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ...  下一页 >> 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18