Aktuelle Registerlasche aktualisieren
[Visual Basic]
Private Sub Refresh_Registerlasche()
[Visual Basic] Private Sub Refresh_Registerlasche()
Select Case Me.TabControlApplikation.SelectedTab.Text
Case "Vertragsinhalt", "Suchbegriffe"
Case "Lizenzen"
Refresh_Lizenzen()
Case "Dokumente"
Refresh_Dokumente()
Case "Kontakte"
Refresh_Kontakte()
Case "Ereignisse"
'Refresh_Ereignisse()
Case "Vertragsbeziehungen"
Refresh_Vertragsbeziehungen()
Case "Testing"
Refresh_Drehbuecher()
Refresh_Abhaengigkeiten()
Case "Architektur"
Me.Check_Changes()
Me.DiagramControl1.Init_Diagram()
Me.DiagramControl1.Refresh()
Me.DiagramControl1.TempFilePath = Globals.clsapplication.sTmp_filepath
Me.DiagramControl1.ConnectionString = Globals.sConnectionString
Me.DiagramControl1.ApplikationNr = Me.Applikation.iApplikationNr.Value
Me.DiagramControl1.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
Me.FormDataChanged = False
Case "Release-Logbuch"
refresh_ReleaseLogbuch()
End Select
End Sub
Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition