Grammalecte  Hex Artifact Content

Artifact dd471e7eecd998582d7340fe774fabf66e6f0696adc18c38649ac1155fe25749:


0000: 52 45 4d 20 20 2a 2a 2a 2a 2a 20 20 42 41 53 49  REM  *****  BASI
0010: 43 20 20 2a 2a 2a 2a 2a 0a 52 45 4d 20 64 6f 65  C  *****.REM doe
0020: 73 6e e2 80 99 74 20 77 6f 72 6b 20 6f 6e 20 4c  sn...t work on L
0030: 4f 20 28 42 75 67 29 0a 0a 4f 70 74 69 6f 6e 20  O (Bug)..Option 
0040: 45 78 70 6c 69 63 69 74 0a 0a 27 20 61 20 73 69  Explicit..' a si
0050: 6d 70 6c 65 20 73 63 72 69 70 74 20 74 6f 20 63  mple script to c
0060: 72 65 61 74 65 20 61 20 74 61 62 63 6f 6e 74 6f  reate a tabconto
0070: 6c 0a 53 75 62 20 54 65 73 74 54 61 62 0a 09 44  l.Sub TestTab..D
0080: 69 6d 20 64 69 61 6c 6f 67 4d 6f 64 65 6c 20 61  im dialogModel a
0090: 73 20 4f 62 6a 65 63 74 0a 09 64 69 61 6c 6f 67  s Object..dialog
00a0: 4d 6f 64 65 6c 20 3d 20 43 72 65 61 74 65 55 6e  Model = CreateUn
00b0: 6f 53 65 72 76 69 63 65 28 22 63 6f 6d 2e 73 75  oService("com.su
00c0: 6e 2e 73 74 61 72 2e 61 77 74 2e 55 6e 6f 43 6f  n.star.awt.UnoCo
00d0: 6e 74 72 6f 6c 44 69 61 6c 6f 67 4d 6f 64 65 6c  ntrolDialogModel
00e0: 22 29 0a 09 64 69 61 6c 6f 67 4d 6f 64 65 6c 2e  ")..dialogModel.
00f0: 50 6f 73 69 74 69 6f 6e 58 20 3d 20 30 0a 09 64  PositionX = 0..d
0100: 69 61 6c 6f 67 4d 6f 64 65 6c 2e 50 6f 73 69 74  ialogModel.Posit
0110: 69 6f 6e 59 20 3d 20 30 0a 09 64 69 61 6c 6f 67  ionY = 0..dialog
0120: 4d 6f 64 65 6c 2e 57 69 64 74 68 20 3d 20 32 30  Model.Width = 20
0130: 30 0a 09 64 69 61 6c 6f 67 4d 6f 64 65 6c 2e 48  0..dialogModel.H
0140: 65 69 67 68 74 20 3d 20 31 35 30 0a 0a 09 44 69  eight = 150...Di
0150: 6d 20 62 75 74 74 6f 6e 4d 6f 64 65 6c 20 61 73  m buttonModel as
0160: 20 4f 62 6a 65 63 74 0a 09 62 75 74 74 6f 6e 4d   Object..buttonM
0170: 6f 64 65 6c 20 3d 20 64 69 61 6c 6f 67 4d 6f 64  odel = dialogMod
0180: 65 6c 2e 43 72 65 61 74 65 49 6e 73 74 61 6e 63  el.CreateInstanc
0190: 65 28 22 63 6f 6d 2e 73 75 6e 2e 73 74 61 72 2e  e("com.sun.star.
01a0: 61 77 74 2e 55 6e 6f 43 6f 6e 74 72 6f 6c 42 75  awt.UnoControlBu
01b0: 74 74 6f 6e 4d 6f 64 65 6c 22 29 0a 09 62 75 74  ttonModel")..but
01c0: 74 6f 6e 4d 6f 64 65 6c 2e 50 6f 73 69 74 69 6f  tonModel.Positio
01d0: 6e 58 20 3d 20 37 35 0a 09 62 75 74 74 6f 6e 4d  nX = 75..buttonM
01e0: 6f 64 65 6c 2e 50 6f 73 69 74 69 6f 6e 59 20 3d  odel.PositionY =
01f0: 20 31 33 30 0a 09 62 75 74 74 6f 6e 4d 6f 64 65   130..buttonMode
0200: 6c 2e 57 69 64 74 68 20 3d 20 35 30 0a 09 62 75  l.Width = 50..bu
0210: 74 74 6f 6e 4d 6f 64 65 6c 2e 48 65 69 67 68 74  ttonModel.Height
0220: 20 3d 20 31 34 0a 09 62 75 74 74 6f 6e 4d 6f 64   = 14..buttonMod
0230: 65 6c 2e 4c 61 62 65 6c 20 3d 20 22 74 65 73 74  el.Label = "test
0240: 22 0a 09 62 75 74 74 6f 6e 4d 6f 64 65 6c 2e 54  "..buttonModel.T
0250: 61 62 49 6e 64 65 78 20 3d 20 31 0a 0a 09 64 69  abIndex = 1...di
0260: 6d 20 74 61 62 73 4d 6f 64 65 6c 20 61 73 20 4f  m tabsModel as O
0270: 62 6a 65 63 74 09 0a 09 74 61 62 73 4d 6f 64 65  bject...tabsMode
0280: 6c 20 3d 20 64 69 61 6c 6f 67 4d 6f 64 65 6c 2e  l = dialogModel.
0290: 43 72 65 61 74 65 49 6e 73 74 61 6e 63 65 28 22  CreateInstance("
02a0: 63 6f 6d 2e 73 75 6e 2e 73 74 61 72 2e 61 77 74  com.sun.star.awt
02b0: 2e 74 61 62 2e 55 6e 6f 43 6f 6e 74 72 6f 6c 54  .tab.UnoControlT
02c0: 61 62 50 61 67 65 43 6f 6e 74 61 69 6e 65 72 4d  abPageContainerM
02d0: 6f 64 65 6c 22 29 0a 09 74 61 62 73 4d 6f 64 65  odel")..tabsMode
02e0: 6c 2e 50 6f 73 69 74 69 6f 6e 58 20 3d 20 36 0a  l.PositionX = 6.
02f0: 09 74 61 62 73 4d 6f 64 65 6c 2e 50 6f 73 69 74  .tabsModel.Posit
0300: 69 6f 6e 59 20 3d 20 36 0a 09 74 61 62 73 4d 6f  ionY = 6..tabsMo
0310: 64 65 6c 2e 57 69 64 74 68 20 3d 20 31 38 38 0a  del.Width = 188.
0320: 09 74 61 62 73 4d 6f 64 65 6c 2e 48 65 69 67 68  .tabsModel.Heigh
0330: 74 20 3d 20 31 32 30 0a 09 74 61 62 73 4d 6f 64  t = 120..tabsMod
0340: 65 6c 2e 54 61 62 49 6e 64 65 78 20 3d 20 32 0a  el.TabIndex = 2.
0350: 09 0a 09 64 69 61 6c 6f 67 4d 6f 64 65 6c 2e 69  ...dialogModel.i
0360: 6e 73 65 72 74 42 79 4e 61 6d 65 28 22 62 75 22  nsertByName("bu"
0370: 2c 62 75 74 74 6f 6e 4d 6f 64 65 6c 29 0a 09 64  ,buttonModel)..d
0380: 69 61 6c 6f 67 4d 6f 64 65 6c 2e 69 6e 73 65 72  ialogModel.inser
0390: 74 42 79 4e 61 6d 65 28 22 74 61 62 22 2c 74 61  tByName("tab",ta
03a0: 62 73 4d 6f 64 65 6c 29 0a 0a 09 44 69 6d 20 64  bsModel)...Dim d
03b0: 69 61 6c 6f 67 20 61 73 20 4f 62 6a 65 63 74 0a  ialog as Object.
03c0: 09 64 69 61 6c 6f 67 20 3d 20 43 72 65 61 74 65  .dialog = Create
03d0: 55 6e 6f 53 65 72 76 69 63 65 28 22 63 6f 6d 2e  UnoService("com.
03e0: 73 75 6e 2e 73 74 61 72 2e 61 77 74 2e 55 6e 6f  sun.star.awt.Uno
03f0: 43 6f 6e 74 72 6f 6c 44 69 61 6c 6f 67 22 29 0a  ControlDialog").
0400: 09 64 69 61 6c 6f 67 2e 73 65 74 4d 6f 64 65 6c  .dialog.setModel
0410: 28 64 69 61 6c 6f 67 4d 6f 64 65 6c 29 0a 09 0a  (dialogModel)...
0420: 09 64 69 6d 20 61 72 67 73 28 29 20 0a 09 61 72  .dim args() ..ar
0430: 67 73 20 3d 20 41 72 72 61 79 28 31 29 0a 0a 09  gs = Array(1)...
0440: 44 69 6d 20 74 61 62 50 61 67 65 4d 6f 64 65 6c  Dim tabPageModel
0450: 20 61 73 20 4f 62 6a 65 63 74 0a 09 74 61 62 50   as Object..tabP
0460: 61 67 65 4d 6f 64 65 6c 20 3d 20 64 69 61 6c 6f  ageModel = dialo
0470: 67 4d 6f 64 65 6c 2e 63 72 65 61 74 65 49 6e 73  gModel.createIns
0480: 74 61 6e 63 65 28 22 63 6f 6d 2e 73 75 6e 2e 73  tance("com.sun.s
0490: 74 61 72 2e 61 77 74 2e 74 61 62 2e 55 6e 6f 43  tar.awt.tab.UnoC
04a0: 6f 6e 74 72 6f 6c 54 61 62 50 61 67 65 4d 6f 64  ontrolTabPageMod
04b0: 65 6c 22 29 0a 09 74 61 62 50 61 67 65 4d 6f 64  el")..tabPageMod
04c0: 65 6c 2e 69 6e 69 74 69 61 6c 69 7a 65 28 61 72  el.initialize(ar
04d0: 67 73 29 0a 09 74 61 62 50 61 67 65 4d 6f 64 65  gs)..tabPageMode
04e0: 6c 2e 54 69 74 6c 65 20 3d 20 22 50 61 67 65 20  l.Title = "Page 
04f0: 31 22 0a 09 0a 09 61 72 67 73 20 3d 20 41 72 72  1"....args = Arr
0500: 61 79 28 32 29 0a 09 44 69 6d 20 74 61 62 50 61  ay(2)..Dim tabPa
0510: 67 65 4d 6f 64 65 6c 32 20 61 73 20 4f 62 6a 65  geModel2 as Obje
0520: 63 74 0a 09 74 61 62 50 61 67 65 4d 6f 64 65 6c  ct..tabPageModel
0530: 32 20 3d 20 64 69 61 6c 6f 67 4d 6f 64 65 6c 2e  2 = dialogModel.
0540: 63 72 65 61 74 65 49 6e 73 74 61 6e 63 65 28 22  createInstance("
0550: 63 6f 6d 2e 73 75 6e 2e 73 74 61 72 2e 61 77 74  com.sun.star.awt
0560: 2e 74 61 62 2e 55 6e 6f 43 6f 6e 74 72 6f 6c 54  .tab.UnoControlT
0570: 61 62 50 61 67 65 4d 6f 64 65 6c 22 29 0a 09 74  abPageModel")..t
0580: 61 62 50 61 67 65 4d 6f 64 65 6c 32 2e 69 6e 69  abPageModel2.ini
0590: 74 69 61 6c 69 7a 65 28 61 72 67 73 29 0a 09 74  tialize(args)..t
05a0: 61 62 50 61 67 65 4d 6f 64 65 6c 32 2e 54 69 74  abPageModel2.Tit
05b0: 6c 65 20 3d 20 22 50 61 67 65 20 32 22 0a 0a 09  le = "Page 2"...
05c0: 44 69 6d 20 66 69 78 65 64 54 65 78 74 4d 6f 64  Dim fixedTextMod
05d0: 65 6c 20 61 73 20 4f 62 6a 65 63 74 0a 09 66 69  el as Object..fi
05e0: 78 65 64 54 65 78 74 4d 6f 64 65 6c 20 3d 20 74  xedTextModel = t
05f0: 61 62 50 61 67 65 4d 6f 64 65 6c 2e 63 72 65 61  abPageModel.crea
0600: 74 65 69 6e 73 74 61 6e 63 65 28 22 63 6f 6d 2e  teinstance("com.
0610: 73 75 6e 2e 73 74 61 72 2e 61 77 74 2e 55 6e 6f  sun.star.awt.Uno
0620: 43 6f 6e 74 72 6f 6c 46 69 78 65 64 54 65 78 74  ControlFixedText
0630: 4d 6f 64 65 6c 22 29 0a 09 66 69 78 65 64 54 65  Model")..fixedTe
0640: 78 74 4d 6f 64 65 6c 2e 50 6f 73 69 74 69 6f 6e  xtModel.Position
0650: 58 20 3d 20 31 30 0a 09 66 69 78 65 64 54 65 78  X = 10..fixedTex
0660: 74 4d 6f 64 65 6c 2e 50 6f 73 69 74 69 6f 6e 59  tModel.PositionY
0670: 20 3d 20 31 30 0a 09 66 69 78 65 64 54 65 78 74   = 10..fixedText
0680: 4d 6f 64 65 6c 2e 57 69 64 74 68 20 3d 20 35 30  Model.Width = 50
0690: 0a 09 66 69 78 65 64 54 65 78 74 4d 6f 64 65 6c  ..fixedTextModel
06a0: 2e 48 65 69 67 68 74 20 3d 20 33 30 0a 09 66 69  .Height = 30..fi
06b0: 78 65 64 54 65 78 74 4d 6f 64 65 6c 2e 4c 61 62  xedTextModel.Lab
06c0: 65 6c 20 3d 20 22 46 69 78 65 64 54 65 78 74 22  el = "FixedText"
06d0: 0a 0a 09 74 61 62 50 61 67 65 4d 6f 64 65 6c 2e  ...tabPageModel.
06e0: 69 6e 73 65 72 74 42 79 4e 61 6d 65 28 22 69 6e  insertByName("in
06f0: 74 61 62 22 2c 66 69 78 65 64 54 65 78 74 4d 6f  tab",fixedTextMo
0700: 64 65 6c 29 0a 0a 09 44 69 6d 20 74 6f 6f 6c 6b  del)...Dim toolk
0710: 69 74 20 61 73 20 4f 62 6a 65 63 74 0a 09 74 6f  it as Object..to
0720: 6f 6c 6b 69 74 20 3d 20 43 72 65 61 74 65 55 6e  olkit = CreateUn
0730: 6f 53 65 72 76 69 63 65 28 22 63 6f 6d 2e 73 75  oService("com.su
0740: 6e 2e 73 74 61 72 2e 61 77 74 2e 54 6f 6f 6c 6b  n.star.awt.Toolk
0750: 69 74 22 29 0a 09 64 69 61 6c 6f 67 2e 63 72 65  it")..dialog.cre
0760: 61 74 65 50 65 65 72 28 74 6f 6f 6c 6b 69 74 2c  atePeer(toolkit,
0770: 6e 75 6c 6c 29 0a 09 0a 09 74 61 62 73 4d 6f 64  null)....tabsMod
0780: 65 6c 2e 69 6e 73 65 72 74 42 79 49 6e 64 65 78  el.insertByIndex
0790: 28 30 2c 74 61 62 50 61 67 65 4d 6f 64 65 6c 29  (0,tabPageModel)
07a0: 0a 09 74 61 62 73 4d 6f 64 65 6c 2e 69 6e 73 65  ..tabsModel.inse
07b0: 72 74 42 79 49 6e 64 65 78 28 31 2c 74 61 62 50  rtByIndex(1,tabP
07c0: 61 67 65 4d 6f 64 65 6c 32 29 0a 0a 09 64 69 61  ageModel2)...dia
07d0: 6c 6f 67 2e 67 65 74 43 6f 6e 74 72 6f 6c 28 22  log.getControl("
07e0: 74 61 62 22 29 2e 41 63 74 69 76 65 54 61 62 50  tab").ActiveTabP
07f0: 61 67 65 49 44 20 3d 20 31 0a 0a 09 64 69 61 6c  ageID = 1...dial
0800: 6f 67 2e 65 78 65 63 75 74 65 28 29 0a 45 6e 64  og.execute().End
0810: 20 53 75 62 0a                                    Sub.