VB.NET-尝试在树视图中填充vss文件

时间:2013-06-30 18:09:29

标签: vb.net visual-studio visual-sourcesafe

我正在尝试将Source Safe中的树样式视图复制到我在vb.net中的应用程序中......我已经添加了COM对象并成功连接到Source Safe数据库...我需要的是填充方法使用源安全文件的树视图....填充它的逻辑和其他必要的信息...任何人都可以帮助我??? 我已经在我的表单中插入了树视图 我已经为源安全添加了COM对象 我已连接到source safe'srcsafe.ini'文件以进行数据库连接 我知道我可以使用递归程序来获取源安全的所有文件 唯一的问题是我不知道源安全功能。我已经尝试过MSDN网站并阅读有关源安全的所有属性。但我如何使用它们,需要一些例子。 关于源安全中的标志,当我从我的应用程序执行源安全功能时,我需要对这些标志做什么。 如何在源代码中对用户提供安全的限制                                                                                              ]

1 个答案:

答案 0 :(得分:1)

以下是VSS Automation的文档。我有另一个链接但现在似乎已经破了。

http://msdn.microsoft.com/en-us/library/bb509341(v=vs.80).aspx

要使用VSS,首先要创建VSSDatabaseClass类的实例并调用其Open方法:

Dim vssDatabase As String = "\\server\somepath\srcsafe.ini"
Dim ssdb As new VSSDatabaseClass()
ssdb.Open(vssDatabase, userName, password)

您最常使用的两种方法是get_VSSItem()和get_Items()。这些将返回一个单一的VSSItem(它是一个文件或项目)或一组项目。因此,要获取数据库的根项目,您将使用以下代码:

Dim root As IVSSItem = ssdb.getVSSItem("$/", False)

VSSItem的Type属性指示项目是项目还是文件。如果它是一个项目,您可以使用get_Items获取其子项:

If root.Type = 0 Then    'Type = 0 means it's a project
    Dim items As IVSSItems = root.get_Items(False)
    For Each item As IVSSItem In items
        If item.Type = 0 Then
            'item is a project
        Else
            'item is a file
        End If
    Next
End If

我希望这能让你开始。