class1.cls

求最短路径的vb程序,可以根据需要社顶路径的名称来实现最短路径的求借

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Class1"
Attribute VB_GlobalNameSpace = True
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Dim bOpen As Boolean
Dim X1 As Long, Y1 As Long, X2 As Long, Y2 As Long
Public Sub WaitOpen()
If (bOpen = False) Then
    Load FormWait
    FormWait.Show
    DoEvents
    bOpen = True
End If
End Sub

Public Sub WaitClose()
If (bOpen = True) Then
    bOpen = False
    Unload FormWait
    DoEvents
End If
End Sub

Public Sub WaitValue(x As Variant)
FormWait.BarWait.Line (X1, Y1)-(x, Y2), , BF

If (x = X2) Then FormWait.BarWait.Visible = False
End Sub
Public Sub WaitMinMax(X1t As Variant, X2t As Variant)
If (bOpen = False) Then Call WaitOpen

X1 = X1t
X2 = X2t
If (X1 = X2) Then X2 = X1 + 1

Y1 = 0
Y2 = 10
FormWait.BarWait.Scale (X1, Y1)-(X2, Y2)
'FormWait.BarWait.Line (X1, Y1)-(X2, Y2), , B
FormWait.BarWait.Visible = True
DoEvents
End Sub

Public Sub WaitCaption(Caption As String)
If (bOpen = False) Then Call WaitOpen
FormWait.LabelWait.Caption = Caption
DoEvents
End Sub

Private Sub Class_Initialize()
bOpen = False
End Sub