169 lines
3.9 KiB
Plaintext
169 lines
3.9 KiB
Plaintext
VERSION 5.00
|
|
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
|
|
Begin VB.Form FrmInitProTool
|
|
Caption = "Pruef2000 initProTool"
|
|
ClientHeight = 1635
|
|
ClientLeft = 60
|
|
ClientTop = 345
|
|
ClientWidth = 4155
|
|
LinkTopic = "Form2"
|
|
ScaleHeight = 1635
|
|
ScaleWidth = 4155
|
|
StartUpPosition = 3 'Windows-Standard
|
|
Begin VB.CommandButton cmdNeustart
|
|
Caption = "ProTool neu starten"
|
|
Height = 435
|
|
Left = 960
|
|
TabIndex = 3
|
|
Top = 1020
|
|
Width = 1845
|
|
End
|
|
Begin VB.Timer Timer1
|
|
Left = 360
|
|
Top = 990
|
|
End
|
|
Begin VB.CommandButton cmdCancel
|
|
Caption = "Abbrechen"
|
|
Height = 435
|
|
Left = 3030
|
|
TabIndex = 2
|
|
Top = 1020
|
|
Width = 975
|
|
End
|
|
Begin MSComctlLib.ProgressBar ProgressBar1
|
|
Height = 345
|
|
Left = 150
|
|
TabIndex = 1
|
|
Top = 540
|
|
Width = 3825
|
|
_ExtentX = 6747
|
|
_ExtentY = 609
|
|
_Version = 393216
|
|
Appearance = 1
|
|
End
|
|
Begin VB.Label Label1
|
|
Caption = "Verbinden mit ProTool..."
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 13.5
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 435
|
|
Left = 0
|
|
TabIndex = 0
|
|
Top = 0
|
|
Width = 4125
|
|
End
|
|
End
|
|
Attribute VB_Name = "FrmInitProTool"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
|
|
Public mhProTool As Long
|
|
Public mblnFertig As Boolean
|
|
|
|
Private Sub cmdCancel_Click()
|
|
Unload Me
|
|
mblnFertig = True
|
|
End Sub
|
|
|
|
Private Sub cmdNeustart_Click()
|
|
StartProTool
|
|
End Sub
|
|
|
|
Private Sub Form_Load()
|
|
|
|
mblnFertig = False
|
|
ProgressBar1.Max = 10
|
|
Me.Visible = True
|
|
|
|
If initProTool() = True Then
|
|
mblnFertig = True
|
|
Unload Me
|
|
Exit Sub
|
|
End If
|
|
|
|
' Holt String zum Starten der ProTool Anwendung aus der ini Datei
|
|
sProtoolStart = g_App.Settings.getProToolString
|
|
|
|
If sProtoolStart <> "" Then
|
|
Call StartProTool
|
|
StartTimer
|
|
Else
|
|
mblnFertig = True
|
|
Unload Me
|
|
Exit Sub
|
|
End If
|
|
|
|
waitForEnde
|
|
End Sub
|
|
|
|
Private Function StartProTool() As Boolean
|
|
Dim sProtoolStart As String
|
|
Dim hProTool As Long
|
|
|
|
' Holt String zum Starten der ProTool Anwendung aus der ini Datei
|
|
sProtoolStart = g_App.Settings.getProToolString
|
|
mhProTool = Shell(sProtoolStart, vbNormalFocus)
|
|
|
|
End Function
|
|
|
|
|
|
|
|
|
|
Sub StartTimer()
|
|
Timer1.Enabled = True
|
|
Timer1.Interval = 1000
|
|
End Sub
|
|
|
|
Private Sub Form_Unload(Cancel As Integer)
|
|
mblnFertig = True
|
|
End Sub
|
|
|
|
Private Sub Timer1_Timer()
|
|
Me.SetFocus
|
|
|
|
|
|
If ProgressBar1.Value < ProgressBar1.Max Then
|
|
ProgressBar1.Value = ProgressBar1.Value + 1
|
|
Else
|
|
ProgressBar1.Value = ProgressBar1.Min
|
|
End If
|
|
|
|
If initProTool() = True Or mblnFertig = True Then
|
|
Timer1.Enabled = False
|
|
mblnFertig = True
|
|
Unload Me
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Public Function initProTool() As Boolean
|
|
On Error GoTo Errorhandler
|
|
Dim sProtoolStart As String
|
|
|
|
Set m_ProToolAppObj = GetObject(, "PTPRORUN.Document")
|
|
initProTool = True
|
|
|
|
'hProTool = g_App.Settings.getProToolAppTitle
|
|
|
|
mblnFertig = True
|
|
AppActivate hProTool, False
|
|
Exit Function
|
|
Errorhandler:
|
|
initProTool = False
|
|
End Function
|
|
|
|
|
|
Public Sub waitForEnde()
|
|
Do While Not mblnFertig
|
|
Sleep 500, True
|
|
Loop
|
|
End Sub
|