97 lines
2.6 KiB
Plaintext
97 lines
2.6 KiB
Plaintext
VERSION 5.00
|
|
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "richtx32.ocx"
|
|
Begin VB.Form frmWasIstNeu
|
|
BorderStyle = 3 'Fester Dialog
|
|
Caption = "Pruef2000: Was ist Neu"
|
|
ClientHeight = 6705
|
|
ClientLeft = 45
|
|
ClientTop = 330
|
|
ClientWidth = 7620
|
|
LinkTopic = "Form2"
|
|
MaxButton = 0 'False
|
|
MinButton = 0 'False
|
|
ScaleHeight = 6705
|
|
ScaleWidth = 7620
|
|
ShowInTaskbar = 0 'False
|
|
StartUpPosition = 3 'Windows-Standard
|
|
Begin VB.CommandButton cmdOK
|
|
Caption = "OK"
|
|
Default = -1 'True
|
|
Height = 375
|
|
Left = 3210
|
|
TabIndex = 1
|
|
Top = 6240
|
|
Width = 1185
|
|
End
|
|
Begin RichTextLib.RichTextBox RichTextBox1
|
|
Height = 6015
|
|
Left = 0
|
|
TabIndex = 0
|
|
Top = 0
|
|
Width = 7575
|
|
_ExtentX = 13361
|
|
_ExtentY = 10610
|
|
_Version = 393217
|
|
Enabled = -1 'True
|
|
ReadOnly = -1 'True
|
|
ScrollBars = 2
|
|
TextRTF = $"frmWasIstNeu.frx":0000
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmWasIstNeu"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
|
|
|
|
Private Sub cmdOk_Click()
|
|
Unload Me
|
|
End Sub
|
|
|
|
Private Sub Form_Activate()
|
|
On Error GoTo Errorhandler
|
|
RichTextBox1.LoadFile "\\sla12file\Auftrag\Pruefstation 2000 EXE\VersionHistory.rtf"
|
|
|
|
If cmdOK.Enabled = True Then
|
|
cmdOK.SetFocus
|
|
End If
|
|
|
|
SetWindowTopMost Me.hwnd
|
|
|
|
Exit Sub
|
|
Errorhandler:
|
|
Unload Me
|
|
End Sub
|
|
|
|
Private Sub Form_KeyPress(KeyAscii As Integer)
|
|
KeyAscii = 0
|
|
End Sub
|
|
|
|
Private Sub Form_Load()
|
|
On Error GoTo Errorhandler
|
|
|
|
If Dir(App.Path & "\" & App.EXEName & ".exe") <> "" Then
|
|
Me.Caption = "Pruef2000 Version " & App.Major & "." & App.Minor & "." & App.Revision & " vom " & FileDateTime(App.Path & "\" & App.EXEName & ".exe") & ": Was ist neu?"
|
|
End If
|
|
|
|
Exit Sub
|
|
Errorhandler:
|
|
LogIntoDB "Fehler " & Err.Number & " in frmWasIstNeu.Form_Load() " & Err.Description
|
|
End Sub
|
|
|
|
Private Sub Form_Resize()
|
|
RichTextBox1.Left = 0
|
|
RichTextBox1.Top = 0
|
|
|
|
RichTextBox1.Height = Me.ScaleHeight - 2 * cmdOK.Height
|
|
RichTextBox1.Width = Me.ScaleWidth
|
|
|
|
cmdOK.Top = RichTextBox1.Top + RichTextBox1.Height + 0.5 * cmdOK.Height
|
|
cmdOK.Left = (Me.ScaleWidth - cmdOK.Width) / 2
|
|
End Sub
|
|
|
|
|
|
|
|
|