Formular [X]-en

15/04/2009 - 09:16 von Andreas Hess | Report spam
Hallo,

In einem Formular ist ja obern (immer) auch das [X] vorgesehen, das
standardmàßig ein Fenster schließt.

Gibt es eine Möglichkeit, den Betàtigungszustand dieses [X]
abzufragen?

Problem:
Ich hab ein Formular, das je nach Eingabe eines Buchstanbens oder der
ESC-Taste eine Aktion ausführt. Nach einem Buchstaben wird das
Formular neu aufgebaut. Nach der ESC-Taste gechlossen. Aus irgendeinem
Grund (dagegen sprechende Programmierung will ich nicht
ausschließen!!!) schließt sich das Formular aber nicht endgültig, wenn
ich das [X] betàtige. Vielmehr reagiert es, as würde ein Buchstabe
eingegeben werden.

Code (Formular aufrufen)
<SNIP>--
Public Sub SpamSortieren()

Stoppen = False

Do While Stoppen = False
SpamFeld.Show vbModal
Loop

End Sub
<SNAP>--



Code (Formular):

<SNIP>--
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer)

' s (für Spam) gedrückt
If (KeyCode = 83) Then
Unload SpamFeld
IfSPAMMoveMailTo

' k (für Kein Spam) gedückt
ElseIf (KeyCode = 75) Then
Unload SpamFeld
IfNoSPAMMoveMailTo

' ESC gedrückt
ElseIf (KeyCode = 27) Then
Unload SpamFeld
Stoppen = True

' t für Test gedrückt
ElseIf (KeyCode = 84) Then
Unload SpamFeld
Stoppen = True
End If
End Sub
<SNAP>--


Code Aktion (Bsp IfNoSPAMMoveMailTo)

<SNIP>--
Public Sub IfNoSPAMMoveMailTo()

Check_Ausdruck
If Druckstatus = True Then

GoTo Ende03

Else

On Error Resume Next


Set objFolder01 = Outlook.Session.Folders("Öffentliche
Ordner").Folders("Diese E-Mail ist kein Spam.")

Set objFolder02 = Outlook.Session.Folders("Öffentliche
Ordner").Folders("Posteingang")

For Each objItem In Outlook.ActiveExplorer.Selection
Set CopiedItem = objItem.Copy
Call CopiedItem.Move(objFolder02)
'Call objItem.Copy(objFolder02)
Call objItem.Move(objFolder01)
Next

Set objItem = Nothing
Set objFolder01 = Nothing
Set objFolder02 = Nothing

End If

Ende03:

End Sub
<SNAP>--




Weiß jmd Rat bzw Abhilfe???
Danke schon jetzt, Grüße aus Stuttgart,

Andreas
 

Lesen sie die antworten

#1 Andreas Hess
15/04/2009 - 09:18 | Warnen spam
Ach ja, hab ich vergessen...
ich weiß, daß es sich hier um eine Word-VBA-Gruppe handelt. Das
Problem scheint mir aber hier auch gut aufgehoben und die Kompetenz
ist hier am größten! ;-)

Ähnliche fragen