+1 800 256 3608 (toll-free in North America) or +49 7531 90 60 10| service@combit.com

Abstürze


(Guest) #1

Hallo,

ich hole mir von einem Projekt die Location eines bestimmten Elements mit folgendem Code (vb.net):

		Dim ds As DataSet = xxx

		Dim ll As New ListLabel
		ll.LicensingInfo = "<lizenzschlüssel>"
		ll.IncludeFontDescent = False

		ll.AutoDesignerFile = file
		ll.AutoDestination = LlPrintMode.Export
		ll.AutoMasterMode = LlAutoMasterMode.AsVariables
		ll.AutoMultipage = True
		ll.AutoProjectType = LlProject.List
		ll.AutoShowSelectFile = False
		ll.ConvertCRLF = True
		ll.NoNoTableCheck = False
		ll.Core.LlSetOption(137, 1)

		ll.DataSource = ds
		ll.DataMember = ds.Tables(0).TableName
		Dim proj As New ListLabelDomProjectList(ll)
		proj.Open(file, LlDomFileMode.Open)
		Dim left As Integer
		Dim top As Integer
		Dim width As Integer
		Dim height As Integer
		For Each item As combit.ListLabel13.Dom.ListLabelDomObjectBase In proj.Objects
			If TypeOf item Is combit.ListLabel13.Dom.ListLabelDomObjectReportContainer Then
				With CType(item, ListLabelDomObjectReportContainer)
					left = .Position.Left
					top = .Position.Top
					width = .Position.Width
					height = .Position.Height
				End With
			End If
		Next

		proj.Close()

Nach 3 oder viemaligem Aufruf beendet sich mein Programm unvermittelt, sobald ich in eine andere Applikation wechsle. Gibt es irgendeine Einstellung um dieses Problem zu beheben? Hab ich etwas vergessen?

Danke im Voraus,
T.Stiel


(Guest) #2

“T.Stiel” <t.stiel@gp-softwa…> schrieb im Newsbeitrag
news:6216362008104629@combit.net

Nach 3 oder viemaligem Aufruf beendet sich mein Programm unvermittelt,
sobald ich in eine andere Applikation wechsle. Gibt es irgendeine
Einstellung um dieses Problem zu beheben? Hab ich etwas vergessen?

Der Code sieht fuer mich eigentlich gut aus. Wuerde ich mal bei combit
direkt fragen.

G.