vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Re: Gerne... 
Autor: Dartrax
Datum: 26.05.04 20:41
Die Funktion wird als letztes mit dem Rückgabewert der vorherigen ausgeführt. Funktioniert aber wahrscheinlich noch nicht ganz richtig. 

    ' Prozedur: Erstellt ein neues Dokument aus einer vorhandenen 
    ' Dokumentstruktur
    Public Sub DocCreate(ByRef Document As Document)
        With Document
 
            ' HTML-Datei für das Template erstellen
            Dim FiStr As IO.FileStream = New IO.FileStream( _
              Application.StartupPath & "\new\.htm", System.IO.FileMode.Create)
            Dim StrWr As IO.StreamWriter = New IO.StreamWriter(FiStr)
            ' In HTML-Datei schreiben
            With StrWr
                .WriteLine("<html>")
                .WriteLine("  <body bgcolor=""#e5e5e5"" onContextMenu=""return" & _
                  "false"">")
                .WriteLine("    <table width=""100%"" height=""100%""" & _
                "cellpadding=""50"">")
                .WriteLine("      <tr>")
                .WriteLine("        <td align=""center""2>")
                .WriteLine("          <table width=""806"" height=""1126""" & _
                  "cellspacing=""0"" cellpadding=""0"" bgcolor=""#ffffff"">")
                .WriteLine("            <tr height=""10"">")
                .WriteLine("              <td width=""10""><img" & _
                  "src=""edge_topleft.bmp""></td>")
                .WriteLine("              <td width=""780""" & _
                "background=""side_top.bmp""></td>")
                .WriteLine("              <td width=""16""><img" & _
                "src=""edge_topright.bmp""></td>")
                .WriteLine("            </tr>")
                .WriteLine("            <tr height=""1100"">")
                .WriteLine("              <td background=""side_left.bmp""></td>")
                .WriteLine("              <td align=""center""" & _
                  "style=""BORDER-RIGHT:black 1px solid; BORDER-TOP:black 1px" & _
                  "solid; BORDER-LEFT:black 1px solid; BORDER-BOTTOM:black 1px" & _
                  "solid"">")
                .WriteLine("                <iframe name=""iframe"" src=""" & _
                Document.TemplateDirectory & "\screen.htm"" width=""100%""" & _
                "height=""100%"" frameborder=""0""></iframe>")
                .WriteLine("              </td>")
                .WriteLine("              <td valign=""top""" & _
                  "background=""side_right.bmp""><img" & _
                  "src=""side_corner_top.bmp""></td>")
                .WriteLine("            </tr>")
                .WriteLine("            <tr height=""16"">")
                .WriteLine("              <td><img src=""edge_bottomleft.bmp""></td>")
                .WriteLine("              <td" & _
                  "background=""side_bottom.bmp""><img" & _
                  "src=""side_corner_bottom.bmp""></td>")
                .WriteLine("              <td><img" & _
                "src=""edge_bottomright.bmp""></td>")
                .WriteLine("            </tr>")
                .WriteLine("          </table>")
                .WriteLine("        </td>")
                .WriteLine("      </tr>")
                .WriteLine("    </table>")
                .WriteLine("  </body>")
                .WriteLine("</html>")
                .Close()
            End With
 
            ' WebBrowserlayout einstellen
            .WebBrowser.Dock = DockStyle.Fill
            ' Neue Zeugnisauswahlfenster-Instanz
            .Sheetpanel = New Sheetpanel
            ' Zeugnisauswahlfenster anzeigen
            FrmMain.PnlSheets.Controls.Add(.Sheetpanel)
            .Sheetpanel.Dock = DockStyle.Fill
            ' TabPage im Vordergrund anzeigen
            FrmMain.TabHost.SelectedIndex = .TabIndex
            ' "Rot-seh-Schutz" ausblenden
            FrmMain.LblBackground.Visible = False
 
            ' Backuppath der Zeugnisgruppe ermitteln und speichern
            If .SavePath <> "" Then
                If IO.File.Exists(Application.StartupPath & "\backup\" & _
                  IO.Path.GetFileName(.SavePath)) = True Then
                    For i As Integer = 0 To IO.Directory.GetFiles( _
                    Application.StartupPath & "\backup", "*.atz").Length - 1
                        If IO.File.Exists(Application.StartupPath & "\backup\" _
                        & IO.Path.GetFileNameWithoutExtension(.SavePath) & " " _
                        & i + 2 & ".atz") = False Then
                            .BackupPath = Application.StartupPath & "\backup\" _
                            & IO.Path.GetFileNameWithoutExtension(.SavePath) & _
                            " " & i + 2 & ".atz"
                        End If
                    Next
                Else
                    .BackupPath = Application.StartupPath & "\backup\" & _
                      IO.Path.GetFileName(.SavePath)
                End If
            Else
                ' Dokumentnummer addieren
                DocumentNumber += 1
                .BackupPath = Application.StartupPath & "\backup\Zeugnisgruppe" & _
                  "" & DocumentNumber & ".atz"
            End If
            FrmMain.TabHost.TabPages(.TabIndex).Title = _
              IO.Path.GetFileNameWithoutExtension(.BackupPath)
Dartrax

Meine Homepage: www.dartrax.de

Posting wie es leibt und lebt
. . . und voll daneben geht!
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Spätgebundene Zuweisung an ein Feld des Werttyps 'MeinTyp' i...1.951Dartrax25.05.04 15:30
Re: Spätgebundene Zuweisung an ein Feld des Werttyps 'MeinTy...1.148ModeratorDaveS25.05.04 16:27
Re: Spätgebundene Zuweisung an ein Feld des Werttyps 'MeinTy...1.364Dartrax25.05.04 17:21
Re: Spätgebundene Zuweisung an ein Feld des Werttyps 'MeinTy...1.162ModeratorDaveS25.05.04 17:27
Dankeschön!1.139Dartrax25.05.04 17:55
So das geht aber nicht mit einem Array1.117Dartrax25.05.04 18:37
Re: So das geht aber nicht mit einem Array1.226WaldiMaywood25.05.04 19:58
Re: So das geht aber nicht mit einem Array1.369Dartrax25.05.04 20:13
Re: So das geht aber nicht mit einem Array1.082spike2425.05.04 20:19
Und ich bin ein Freund von neuem...1.134Dartrax26.05.04 00:00
Re: Und ich bin ein Freund von neuem...1.110spike2426.05.04 08:43
Re: Und ich bin ein Freund von neuem...1.079Dartrax26.05.04 15:47
Re: Und ich bin ein Freund von neuem...1.074spike2426.05.04 16:32
Gerne...1.181Dartrax26.05.04 20:37
Re: Gerne...1.250Dartrax26.05.04 20:38
Re: Gerne...1.142Dartrax26.05.04 20:41
Re: Gerne...1.171Dartrax26.05.04 20:42
Re: Gerne...1.101spike2426.05.04 21:05
Macht ja nichts...1.118Dartrax26.05.04 22:29
Re: So das geht aber nicht mit einem Array1.109WaldiMaywood25.05.04 20:21
Dankeschön 1.083Dartrax25.05.04 23:57

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel