Ungewollte Code-Leerzeilen im Beitrag aber nicht in Vorschau
Verfasst: 04.12.2002 21:36
Hallo,
ich habe da mal eine Frage zur Code und Zitatansicht, wenn man dort Code in einen Beitrag einfügt.
Dieser Code als Link hinterlegt sieht in der Vorschau korrekt aus: http://www.test.access-power.de/Code1.gif
Erstellt man mit diesem Code dann den Beitrag dann schaut das Ergebnis dann so aus: http://www.test.access-power.de/Code2.gif Es wird immer eine Leerzeile zuviel erzeugt ?!?
Kann man das beeinflussen, so dass es wie in der Vorschau dargestellt wird ???
Vielen Dank für jeden Tipp
AWSW
ich habe da mal eine Frage zur Code und Zitatansicht, wenn man dort Code in einen Beitrag einfügt.
Dieser Code als Link hinterlegt sieht in der Vorschau korrekt aus: http://www.test.access-power.de/Code1.gif
Erstellt man mit diesem Code dann den Beitrag dann schaut das Ergebnis dann so aus: http://www.test.access-power.de/Code2.gif Es wird immer eine Leerzeile zuviel erzeugt ?!?
Kann man das beeinflussen, so dass es wie in der Vorschau dargestellt wird ???
<pre>Private Sub Class_Initialize()
On Error Resume Next
'// ======================================================================
'// WshShell-Objekt erstellen
'// ======================================================================
Set m_objWshShell = CreateObject("WScript.Shell")
WSCShell_Created = (Not m_objWshShell Is Nothing) And (Err.Number = 0)
If Err.Number <> 0 Then Err.Clear
'// ======================================================================
'// ShellApplication-Objekt erstellen
'// ======================================================================
Set m_objShellApp = CreateObject("Shell.Application")
ShellApp_Created = (Not m_objShellApp Is Nothing) And (Err.Number = 0)
If Err.Number <> 0 Then Err.Clear
'// ======================================================================
'// WshNetwork-Objekt erstellen
'// ======================================================================
Set m_objWshNetwork = CreateObject("WScript.Network")
WSCNetwork_Created = (Not m_objWshNetwork Is Nothing) And (Err.Number = 0)
If Err.Number <> 0 Then Err.Clear
'// ======================================================================
'// Scripting.FileSystemObject-Objekt erstellen
'// ======================================================================
Set m_objScrFso = CreateObject("Scripting.FileSystemObject")
SCRFso_Created = (Not m_objScrFso Is Nothing) And (Err.Number = 0)
If Err.Number <> 0 Then Err.Clear
'// ======================================================================
'// System32-Verzeichnis ermitteln (wird von ControlPanelItem benötigt)
'// ======================================================================
SetSys32Folder
End Sub
<pre>
Vielen Dank für jeden Tipp

AWSW