diff options
Diffstat (limited to 'doc/codesnippets/doc/src/snippets/code/doc_src_examples_activeqt_comapp.qdoc')
-rw-r--r-- | doc/codesnippets/doc/src/snippets/code/doc_src_examples_activeqt_comapp.qdoc | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/doc/codesnippets/doc/src/snippets/code/doc_src_examples_activeqt_comapp.qdoc b/doc/codesnippets/doc/src/snippets/code/doc_src_examples_activeqt_comapp.qdoc deleted file mode 100644 index 0414e5016..000000000 --- a/doc/codesnippets/doc/src/snippets/code/doc_src_examples_activeqt_comapp.qdoc +++ /dev/null @@ -1,39 +0,0 @@ -//! [0] -Private Application As comappLib.Application -Private MyApp As Boolean - -Private Sub UpdateList() - DocumentList.Clear - DocumentsCount.Caption = Application.documents.Count - For Index = 0 To Application.documents.Count - 1 - DocumentList.AddItem (Application.documents.Item(Index).Title) - Next -End Sub - -Private Sub Form_Load() - On Error GoTo CreateNew - Set Application = GetObject(, "comapp.Application") - MyApp = False - GoTo Initialized -CreateNew: - On Error GoTo InitializeFailed - Set Application = New Application - Application.Visible = True - MyApp = True -Initialized: - Caption = Application.id - UpdateList -InitializeFailed: -End Sub - -Private Sub Form_Unload(Cancel As Integer) - If MyApp Then - Application.quit - End If -End Sub - -Private Sub NewDocument_Click() - Application.documents.addDocument - UpdateList -End Sub -//! [0] |