80 lines
2.0 KiB
Plaintext
80 lines
2.0 KiB
Plaintext
VERSION 5.00
|
|
Begin VB.Form frmTexteingabe
|
|
BorderStyle = 3 'Fester Dialog
|
|
ClientHeight = 3195
|
|
ClientLeft = 45
|
|
ClientTop = 330
|
|
ClientWidth = 4680
|
|
LinkTopic = "Form2"
|
|
MaxButton = 0 'False
|
|
MinButton = 0 'False
|
|
ScaleHeight = 3195
|
|
ScaleWidth = 4680
|
|
ShowInTaskbar = 0 'False
|
|
StartUpPosition = 3 'Windows-Standard
|
|
Begin VB.CommandButton cmdCancel
|
|
Caption = "Abbrechen"
|
|
Height = 435
|
|
Left = 1290
|
|
TabIndex = 2
|
|
Top = 2700
|
|
Width = 1035
|
|
End
|
|
Begin VB.CommandButton cmdOK
|
|
Caption = "OK"
|
|
Height = 435
|
|
Left = 2580
|
|
TabIndex = 1
|
|
Top = 2700
|
|
Width = 1035
|
|
End
|
|
Begin VB.TextBox txtText
|
|
Height = 2625
|
|
Left = 60
|
|
MultiLine = -1 'True
|
|
TabIndex = 0
|
|
Top = 0
|
|
Width = 4605
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmTexteingabe"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Public mstrText As String
|
|
Public mblnGeaendert As Boolean
|
|
|
|
Private Sub cmdCancel_Click()
|
|
mblnGeaendert = False
|
|
Unload Me
|
|
End Sub
|
|
|
|
Private Sub cmdOK_Click()
|
|
If mblnGeaendert Then
|
|
If MsgBox("Möchten Sie den Text wirklich ändern?", vbYesNo Or vbDefaultButton2, "Bitte bestätigen") = vbYes Then
|
|
mstrText = txtText
|
|
Unload Me
|
|
Else
|
|
cmdCancel.Default = True
|
|
End If
|
|
Else
|
|
Unload Me
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Form_Activate()
|
|
txtText.SetFocus
|
|
End Sub
|
|
|
|
|
|
Private Sub Form_Load()
|
|
txtText = mstrText
|
|
cmdCancel.Enabled = False
|
|
End Sub
|
|
|
|
Private Sub txtText_KeyPress(KeyAscii As Integer)
|
|
mblnGeaendert = True
|
|
cmdCancel.Enabled = True
|
|
End Sub
|