16 lines
547 B
Plaintext
16 lines
547 B
Plaintext
Public Class Form1
|
|
Dim dbc As New TKB.VV.DB.DB_Connection
|
|
|
|
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Me.DiagramControl1.Init_Diagram()
|
|
Me.DiagramControl1.ConnectionString = Globals.sConnectionString
|
|
Me.DiagramControl1.TempFilePath = "c:\temp\"
|
|
Me.DiagramControl1.ApplikationNr = 358
|
|
End Sub
|
|
|
|
|
|
Private Sub DiagramControl1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DiagramControl1.Load
|
|
|
|
End Sub
|
|
End Class
|