Weiteres Problem:
Ich habe zwei Formular-Fenster (MDI)
Bekomme aber bei dieser Proc eine Fehlermeldung:
Private Sub Command1_Click()
frmMDI.Arrange vbTileHorizontal
End Sub
Laufzeitfehler 424 - Objekt erforderlich
Was mach ich denn da schon wieder falsch ???
Also der bisher (zumeist von VB 6.0) generierte Code sieht so aus.
Funzt aber net:
Private Declare Function OSWinHelp% Lib „user32“ Alias „WinHelpA“ (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
Private Sub MDIForm_Load()
Me.Left = GetSetting(App.Title, „Settings“, „MainLeft“, 1000)
Me.Top = GetSetting(App.Title, „Settings“, „MainTop“, 1000)
Me.Width = GetSetting(App.Title, „Settings“, „MainWidth“, 6500)
Me.Height = GetSetting(App.Title, „Settings“, „MainHeight“, 6500)
LoadNewDoc
LoadNewDoc
End Sub
Private Sub Command1_Click()
frmMDI.Arrange vbTileHorizontal
End Sub
Private Sub LoadNewDoc()
Static lDocumentCount As Long
Dim frmD As frmDocument
lDocumentCount = lDocumentCount + 1
Set frmD = New frmDocument
frmD.Caption = "Document " & lDocumentCount
frmD.Show
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
If Me.WindowState vbMinimized Then
SaveSetting App.Title, „Settings“, „MainLeft“, Me.Left
SaveSetting App.Title, „Settings“, „MainTop“, Me.Top
SaveSetting App.Title, „Settings“, „MainWidth“, Me.Width
SaveSetting App.Title, „Settings“, „MainHeight“, Me.Height
End If
End Sub
Private Sub tbToolBar_ButtonClick(ByVal Button As MSComCtlLib.Button)
On Error Resume Next
Select Case Button.Key
Case „Neu“
LoadNewDoc
Case „Öffnen“
Case „Speichern“
'Zu erledigen: Schaltflächencode für ‚Speichern‘ hinzufügen.
MsgBox „Schaltflächencode für ‚Speichern‘ hinzufügen.“
Case „Fett“
ActiveForm.rtfText.SelBold = Not ActiveForm.rtfText.SelBold
Button.Value = IIf(ActiveForm.rtfText.SelBold, tbrPressed, tbrUnpressed)
Case „Kursiv“
ActiveForm.rtfText.SelItalic = Not ActiveForm.rtfText.SelItalic
Button.Value = IIf(ActiveForm.rtfText.SelItalic, tbrPressed, tbrUnpressed)
Case „Unterstrichen“
ActiveForm.rtfText.SelUnderline = Not ActiveForm.rtfText.SelUnderline
Button.Value = IIf(ActiveForm.rtfText.SelUnderline, tbrPressed, tbrUnpressed)
Case „Links ausrichten“
ActiveForm.rtfText.SelAlignment = rtfLeft
Case „Zentrieren“
ActiveForm.rtfText.SelAlignment = rtfCenter
Case „Rechts ausrichten“
ActiveForm.rtfText.SelAlignment = rtfRight
End Select
End Sub
Private Sub mnuHelpAbout_Click()
MsgBox "Version " & App.Major & „.“ & App.Minor & „.“ & App.Revision
End Sub
Private Sub mnuHelpSearchForHelpOn_Click()
Dim nRet As Integer
'Falls für dieses Projekt keine Hilfedatei angegeben
'ist, wird dem Benutzer eine Meldung angezeigt.
'Sie können die Hilfedatei für Ihre Anwendung im
'Dialogfeld Projekteigenschaften festlegen
If Len(App.HelpFile) = 0 Then
MsgBox „Hilfeinhalt konnte nicht angezeigt werden. Dieser Anwendung ist keine Hilfedatei zugeordnet.“, vbInformation, Me.Caption
Else
On Error Resume Next
nRet = OSWinHelp(Me.hwnd, App.HelpFile, 261, 0)
If Err Then
MsgBox Err.Description
End If
End If
End Sub
Private Sub mnuHelpContents_Click()
Dim nRet As Integer
'Falls für dieses Projekt keine Hilfedatei angegeben
'ist, wird dem Benutzer eine Meldung angezeigt.
'Sie können die Hilfedatei für Ihre Anwendung im
'Dialogfeld Projekteigenschaften festlegen
If Len(App.HelpFile) = 0 Then
MsgBox „Hilfeinhalt konnte nicht angezeigt werden. Dieser Anwendung ist keine Hilfedatei zugeordnet.“, vbInformation, Me.Caption
Else
On Error Resume Next
nRet = OSWinHelp(Me.hwnd, App.HelpFile, 3, 0)
If Err Then
MsgBox Err.Description
End If
End If
End Sub
Private Sub mnuFileExit_Click()
'Formular entladen
Unload Me
End Sub
Private Sub mnuFileClose_Click()
'Zu erledigen: Code für ‚mnuFileClose_Click‘ hinzufügen.
MsgBox „Code für ‚mnuFileClose_Click‘ hinzufügen.“
End Sub
Private Sub mnuFileNew_Click()
LoadNewDoc
End Sub