000
25.02.2005, 16:28 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)
|
Hi..
Habe schnell eine AboutBox Funktion gemacht, die leider nicht ganz funktioniert...
Ich habe folgenden Code in einem Modul:
| Visual Basic: |
Public Function AboutBox(ProgrammName As String)
Dim rest1 As String
Dim Schaeden As String
Dim schaedenboxtitel As String
Dim schaedenboxtext As String
schaedenboxtitel = "Über " & ProgrammName
Schaeden = "sXene Software übernimmt keine Haftung für aufkommende Schäden. Wenn Sie Systemprobleme nach dem Benutzen von " & ProgrammName & " haben, wenden Sie sich an den sXene Software Support. Diese Adresse ist im Impressum von http://www.sxene.de zu finden. Schicken Sie eine E-Mail an Support@sxene.de." & vbCrLf
rest1 = "sXene Software Productions 2004-2005 (C) 2004-2005 by sXSoft." & vbCrLf & "http://www.sXene.de" & vbCrLf & vbCrLf & "sXSoft, the sXene Software logo and other names of sx/sxene are NOT registred." & vbCrLf & vbCrLf & ProgrammName & "(C) 2005 by sXene Software" & vbCrLf & vbCrLf & "(C) 2005" & "All Rights Reserved."
schaedenboxtext = Schaeden & rest1
End Function
|
Sieht jetzt sehr unübersichtlich aus, ist aber eigentlich nur Text für ne MsgBox.
Dim rest1 As String
Dim Schaeden As String
Dim schaedenboxtitel As String
Dim schaedenboxtext As String
Die sind da angegeben.
Jetz habe ich in einem Form ein anm Objekt. (Windows Animation, namens anmMain)
und folgenden Code:
| Visual Basic: |
Private Sub Form_Load()
AboutBox "GetRight 2005"
End Sub
Private Sub anmMain_DblClick()
MsgBox schaedenboxtext, vbInformation, schaedenboxtitel
End Sub
|
Jetzt wird die MsgBox angezeigt, aber ohne Text, ohne Titel... Nur mit dem Icon.
Kann der String aus dem Modul nicht richtig übergeben werden?
Sonst würde er ja anzeigen, dass er den String nicht gefunden hat... Tut er aber nicht!
Der erste der mir bei dem Tipp hilft bekommt das Programm in der Beta als erstes... 
Gesponsert von sXene.de 
Danke schon einmal im vorraus.
| Bearbeitung: |
Da hat sich nen Target-Blank reingeschmuggelt, hab jetzt die WWW-Umwandlung deaktiviert.
|
--
Mit freundlichen Grüßen
Audron, audron@sxene.de
Dieser Post wurde am 25.02.2005 um 16:29 Uhr von Audron-AT-www editiert. |
