質問編集履歴
1
誤字
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -11,7 +11,7 @@
|
|
|
11
11
|
Dim evListener As Object
|
|
12
12
|
DialogLibraries.LoadLibrary("Standard")
|
|
13
13
|
FindUserDialog=CreateUnoDialog( DialogLibraries.Standard.dFindUser )
|
|
14
|
-
|
|
14
|
+
evListener=CreateUnoListener( "FindUserDialog_","com.sun.star.awt.XTopWindowListener" )
|
|
15
15
|
FindUserDialog.addTopWindowListener( evListener )
|
|
16
16
|
|
|
17
17
|
FindUserDialog.Execute()
|