OpenOffice.info

puclic const ....

werde es am montag prüfen. Es Funktioniert mit [code]puclic const ....[/code]

[quote]Dann würde das Makro eine entsprechende Fehlermeldung ausspucken.[/quote]

Stimmt, Du hast Recht ich hatte den Hinweis auf die leere Msg-Box überlesen.



GRuß
Stephan

const STR_MSG_QUESTION_SAVE_CHANGES =16

Public const STR_MSG_QUESTION_SAVE_CHANGES =16

de(0)

Servus

[quote="Stephan"]Weil das Makro nicht weiß wo die Funktion zu finden ist. [/quote]
Dann würde das Makro eine entsprechende Fehlermeldung ausspucken.

[quote="juergen_w1987"]Warum ist das so und wie löse ich das Problem?[/quote]
Du könntest z.B.
[code]const STR_MSG_QUESTION_SAVE_CHANGES =16[/code]
ändern in
[code]Public const STR_MSG_QUESTION_SAVE_CHANGES =16[/code]

Welchen Inhalt hat
[code]de(0)[/code]?
Gar keinen?

msgbox  MeineBibliothek.Language.GetString(...)

msgbox  Language.GetString(...)

[quote]Warum ist das so und wie löse ich das Problem?[/quote]

Weil das Makro nicht weiß wo die Funktion zu finden ist.

Es [u]sollte[/u] reichen die Funktion mit voller 'Adresse' anzusprechen, also <Biblothek>.<modul>.<funtionsname>.Function, z.B.:

[code]msgbox MeineBibliothek.Language.GetString(...)[/code]

oder auch (wenn alles in gleicher Bibliothek stattfindet)

[code]msgbox Language.GetString(...)[/code]


ich habe das jetzt aber nicht geprüft, wenns nicht funktioniert nochmals melden.


GRuß
Stephan

Sub SaveKonfiguration

	dim closeValue as Integer
	closeValue = msgbox (GetString(STR_MSG_QUESTION_SAVE_CHANGES),4,"MiSS Base")
	If closeValue = 7 Then 'nein		
 	else	'ja
 		ManipulateFilePath
 	End If
End Sub

Global languageNumber As Integer
Global de(40)		' Array for german language
Global en(40)		' Array for english	language
Global ch(40)		' Array for chinese	language

const GERMAN		= 0		
const ENGLISH		= 1
const CHINESE		= 2
const STR_MSG_QUESTION_SAVE_CHANGES =16

Function GetString(index As Integer)
	If languageNumber = GERMAN Then
		GetString = de(index)
	ElseIf languageNumber = ENGLISH Then
		GetString = en(index)
	ElseIf languageNumber = CHINESE Then
		GetString = ch(index)
	End If

End Function

Hy leute folgendes Problem: MSGBOX von SaveKonfiguration ist leer!!! Werte werden in einer anderen Funktion(auch in Modul Language) in die Variablen geschrieben, diese wird auch ausgeführt.
Warum ist das so und wie löse ich das Problem? Hat das was mit option explicit zu tun?

Habe schon getestet wenn ich die gleiche MSGBOX im Modul Language einbaue gehts.

Funktion SaveKonfiguration in Modul Konfig

[code]Sub SaveKonfiguration

dim closeValue as Integer
closeValue = msgbox (GetString(STR_MSG_QUESTION_SAVE_CHANGES),4,"MiSS Base")
If closeValue = 7 Then 'nein
else 'ja
ManipulateFilePath
End If
End Sub[/code]

Funktion GetString in Modul Language

[code]Global languageNumber As Integer
Global de(40) ' Array for german language
Global en(40) ' Array for english language
Global ch(40) ' Array for chinese language

const GERMAN = 0
const ENGLISH = 1
const CHINESE = 2
const STR_MSG_QUESTION_SAVE_CHANGES =16

Function GetString(index As Integer)
If languageNumber = GERMAN Then
GetString = de(index)
ElseIf languageNumber = ENGLISH Then
GetString = en(index)
ElseIf languageNumber = CHINESE Then
GetString = ch(index)
End If

End Function[/code]