home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 7 / Chip_Hitware_Vol_07.iso / chiphit7 / online / htmlpro / disk1 / ressourc.fr_ / ressourc.fr
Text File  |  1996-10-03  |  14KB  |  428 lines
  1. VERSION 4.00
  2. Begin VB.Form ressource 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4140
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   7305
  8.    Height          =   4545
  9.    Left            =   1080
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4140
  12.    ScaleWidth      =   7305
  13.    Top             =   1170
  14.    Width           =   7425
  15.    Begin VB.CommandButton Command1 
  16.       Caption         =   "speichere"
  17.       Height          =   1095
  18.       Left            =   4260
  19.       TabIndex        =   0
  20.       Top             =   0
  21.       Width           =   3045
  22.    End
  23. End
  24. Attribute VB_Name = "ressource"
  25. Attribute VB_Creatable = False
  26. Attribute VB_Exposed = False
  27. Private Sub Command1_Click()
  28. Dim pri As ressourceme
  29. startpfad = App.Path
  30.  we$ = right$(startpfad, 1)
  31.  If we$ <> "\" Then startpfad = startpfad + "\"
  32.    
  33.    filenum = FreeFile
  34.    Path = startpfad + "htmldes.res"
  35.    Open Path For Random As #filenum Len = Len(pri)
  36.      pri.titel = "Maximale Bilderzahl erreicht"
  37.      pri.inhalt = "Pro Projekt k÷nnen maximal 1000 Bilder geladen werden."
  38.      pri.vorgabe = "48"
  39.      Put #filenum, 1, pri
  40.      
  41.      pri.titel = "Grafik laden"
  42.      pri.inhalt = "Grafikdatei nicht gefunden " + bipath$ + " verwende kⁿnftig gleichnamige Grafik aus Projektverzeichniss"
  43.      pri.vorgabe = "48"
  44.      Put #filenum, 2, pri
  45.      
  46.      pri.titel = "Grafik laden"
  47.      pri.inhalt = "Kann Grafikdatei nicht finden"
  48.      pri.vorgabe = "48"
  49.      Put #filenum, 3, pri
  50.      
  51.       pri.titel = "Hinweis: Nicht alle angewΣhlten Seiten wurden eingebunden"
  52.      pri.inhalt = " Seiten wurden von Ihnen angewΣhlt, jedoch nicht in die Hilfedatei eingebunden, da Vorwahl " + Chr$(34) + "Verweis" + Chr$(34) + " angewΣhlt."
  53.      pri.vorgabe = "48"
  54.      Put #filenum, 4, pri
  55.      
  56.        pri.titel = "Kann Kein Projekt finden "
  57.      pri.inhalt = "Start erfolgt ohne ÷ffnen eines Projektes"
  58.      pri.vorgabe = "48"
  59.      Put #filenum, 5, pri
  60.      
  61.      pri.titel = "Keine Seite zum Bearbeiten"
  62.      pri.inhalt = "Achtung bitte wΣhlen Sie eine Seite an!"
  63.      pri.vorgabe = "49"
  64.      Put #filenum, 6, pri
  65.      
  66.      pri.titel = "Fehler Formularelement anzeigen"
  67.      pri.inhalt = "Kann Formularelement nicht darstellen"
  68.      pri.vorgabe = "48"
  69.      Put #filenum, 7, pri
  70.      
  71.      pri.titel = "Bild Σndern"
  72.      pri.inhalt = " Soll dieses Bild geΣndert werden ??"
  73.      pri.vorgabe = "49"
  74.      Put #filenum, 8, pri
  75.      
  76.       pri.titel = "Bild einfⁿgen"
  77.      pri.inhalt = "Soll hier ein Bild eingefⁿgt werden??"
  78.      pri.vorgabe = "49"
  79.      Put #filenum, 9, pri
  80.      
  81.      pri.titel = "Makroaufruf in Anker Σndern"
  82.      pri.inhalt = "<<Soll dieser Makroaufruf in einen Anker geΣndert werden ??"
  83.      pri.vorgabe = "35"
  84.      Put #filenum, 10, pri
  85.      
  86.        pri.titel = "Anker Σndern"
  87.      pri.inhalt = "<<Soll diser Anker geΣndert werden ??"
  88.      pri.vorgabe = "35"
  89.      Put #filenum, 11, pri
  90.      
  91.      pri.titel = "Anker ⁿber Grafik"
  92.      pri.inhalt = "Soll mit dieser Grafik ein Anker definiert werden?"
  93.      pri.vorgabe = "35"
  94.      Put #filenum, 12, pri
  95.      
  96.      pri.titel = "Verweis nach Anker in Anker Σndern"
  97.      pri.inhalt = "<<Soll dieser Verweis in einen Anker geΣndert werden ??"
  98.      pri.vorgabe = "35"
  99.      Put #filenum, 13, pri
  100.      
  101.      pri.titel = "Anker definieren"
  102.      pri.inhalt = "<<Soll mit diesem Text ein Anker definiert werden??"
  103.      pri.vorgabe = "35"
  104.      Put #filenum, 14, pri
  105.      
  106.      pri.titel = "Makroaufruf in Verweis Σndern"
  107.      pri.inhalt = "<<Soll dieser Makroaufruf in einen Verweis geΣndert werden ??"
  108.      pri.vorgabe = "35"
  109.      Put #filenum, 15, pri
  110.      
  111.       pri.titel = "Anker in Verweis Σndern"
  112.      pri.inhalt = "<<Soll dieser Anker in einen Verweis geΣndert werden ??"
  113.      pri.vorgabe = "35"
  114.      Put #filenum, 16, pri
  115.      
  116.      pri.titel = "Verweis ⁿber Grafik"
  117.      pri.inhalt = "Soll mit dieser Grafik ein Verweis definiert werden"
  118.      pri.vorgabe = "35"
  119.      Put #filenum, 17, pri
  120.      
  121.      pri.titel = "Verweis Σndern"
  122.      pri.inhalt = "<<<Soll der Verweis zu diesem Anker geΣndert werden ??"
  123.      pri.vorgabe = "35"
  124.      Put #filenum, 18, pri
  125.      
  126.      pri.titel = "Verweis Σndern"
  127.      pri.inhalt = "<<<Soll dieser Verweis geΣndert werden ??"
  128.      pri.vorgabe = "35"
  129.      Put #filenum, 19, pri
  130.      
  131.      pri.titel = "Verweis festlegen"
  132.      pri.inhalt = "<<Soll mit diesem Text ein Verweis definiert werden??>>"
  133.      pri.vorgabe = "49"
  134.      Put #filenum, 20, pri
  135.      
  136.      pri.titel = "Anker in Makroaufruf Σndern"
  137.      pri.inhalt = "<<<Soll dieser Anker in einen Makroaufruf geΣndert werden ??"
  138.      pri.vorgabe = "35"
  139.      Put #filenum, 21, pri
  140.      
  141.      pri.titel = "Verweis nach Anker in Makroaufruf Σndern"
  142.      pri.inhalt = "<<<Soll dieser Verweis in einen Makroaufruf geΣndert werden ??"
  143.      pri.vorgabe = "35"
  144.      Put #filenum, 22, pri
  145.      
  146.      pri.titel = "Makroaufruf ⁿber Grafik"
  147.      pri.inhalt = "Soll mit dieser Grafik ein Makroaufruf gemacht werden?"
  148.      pri.vorgabe = "35"
  149.      Put #filenum, 23, pri
  150.      
  151.      pri.titel = "Makroaufruf Σndern"
  152.      pri.inhalt = "<<<Soll dieser Makroaufruf geΣndert werden ??"
  153.      pri.vorgabe = "35"
  154.      Put #filenum, 24, pri
  155.      
  156.      pri.titel = "Makro festlegen"
  157.      pri.inhalt = "<<<Soll mit diesem Text ein Makro definiert werden??"
  158.      pri.vorgabe = "49"
  159.      Put #filenum, 25, pri
  160.      
  161.      pri.titel = "Achtung Text enthΣlt Formatierungen"
  162.      pri.inhalt = "Die Formatierungen werden an den ausgetauschten Text angehΣngt"
  163.      pri.vorgabe = "49"
  164.      Put #filenum, 26, pri
  165.      
  166.       pri.titel = "Text ersetzen"
  167.      pri.inhalt = "Soll dieser Text ersetzt werden??"
  168.      pri.vorgabe = "51"
  169.      Put #filenum, 27, pri
  170.      
  171.      pri.titel = "Projektdatei erstellen"
  172.      pri.inhalt = "Kann Projektdatei nicht erstellen  "
  173.      pri.vorgabe = "48"
  174.      Put #filenum, 28, pri
  175.      
  176.      pri.titel = "Fehler Bild laden"
  177.      pri.inhalt = "Kann Bild nicht finden "
  178.      pri.vorgabe = "48"
  179.      Put #filenum, 29, pri
  180.      
  181.      pri.titel = "Fehler in Pfad"
  182.      pri.inhalt = "<<<Kann Browser nicht starten"
  183.      pri.vorgabe = "48"
  184.      Put #filenum, 30, pri
  185.      
  186.       pri.titel = "Makro nicht gefunden"
  187.      pri.inhalt = "<<<kann dieses Makro nicht finden"
  188.      pri.vorgabe = "48"
  189.      Put #filenum, 31, pri
  190.      
  191.        pri.titel = "WWW-Seite erstellen"
  192.      pri.inhalt = "Kann WWW-Seite nicht abspeichern "
  193.      pri.vorgabe = "48"
  194.      Put #filenum, 32, pri
  195.      
  196.         pri.titel = "─nderungen speichern"
  197.      pri.inhalt = "Sollen die ─nderungen ⁿbernommen werden"
  198.      pri.vorgabe = "49"
  199.      Put #filenum, 33, pri
  200.      
  201.      pri.titel = "Textbaustein speichern??"
  202.      pri.inhalt = "<<<Sie haben diesen Textbaustein geΣndert. Sollen die ─nderungen gespeichert werden??"
  203.      pri.vorgabe = "49"
  204.      Put #filenum, 34, pri
  205.      
  206.      pri.titel = "Makro abspeichern?"
  207.      pri.inhalt = "Die Makros fⁿr diese Seite haben sich geΣndert. Speichern??"
  208.      pri.vorgabe = "49"
  209.      Put #filenum, 35, pri
  210.      
  211.       pri.titel = "Makro abspeichern?"
  212.      pri.inhalt = "Die Makros fⁿr diese Seite haben sich geΣndert. Speichern??"
  213.      pri.vorgabe = "49"
  214.      Put #filenum, 36, pri
  215.      
  216.        pri.titel = "Zeichenformatierung l÷schen?"
  217.      pri.inhalt = "<<<Soll umschalten auf diese Formatierung gel÷scht werden"
  218.      pri.vorgabe = "49"
  219.      Put #filenum, 37, pri
  220.      
  221.          pri.titel = "Zeichenformatierung l÷schen?"
  222.      pri.inhalt = "<<<Soll diese Textauszeichnung gel÷scht werden"
  223.      pri.vorgabe = "49"
  224.      Put #filenum, 38, pri
  225.      
  226.         pri.titel = "Zeichenformatierung l÷schen?"
  227.      pri.inhalt = "Soll umschalten auf Farbe gel÷scht werden"
  228.      pri.vorgabe = "49"
  229.      Put #filenum, 39, pri
  230.      
  231.         pri.titel = "Zeichenformatierung l÷schen?"
  232.      pri.inhalt = "Soll unterstreichen ein gel÷scht werden"
  233.      pri.vorgabe = "49"
  234.      Put #filenum, 40, pri
  235.      
  236.           pri.titel = "Zeichenformatierung l÷schen?"
  237.      pri.inhalt = "Soll unterstreichen aus gel÷scht werden"
  238.      pri.vorgabe = "49"
  239.      Put #filenum, 41, pri
  240.      
  241.        pri.titel = "Zeichenformatierung l÷schen?"
  242.      pri.inhalt = "Soll durchstreichen gel÷scht werden"
  243.      pri.vorgabe = "49"
  244.      Put #filenum, 42, pri
  245.      
  246.       pri.titel = "Zeichenformatierung l÷schen?"
  247.      pri.inhalt = "Soll durchstreichen aus gel÷scht werden"
  248.      pri.vorgabe = "49"
  249.      Put #filenum, 43, pri
  250.      
  251.       pri.titel = "Zeichenformatierung l÷schen?"
  252.      pri.inhalt = "Soll umschalten auf Fett gel÷scht werden"
  253.      pri.vorgabe = "49"
  254.      Put #filenum, 44, pri
  255.      
  256.        pri.titel = "Zeichenformatierung l÷schen?"
  257.      pri.inhalt = "Soll Fett aus gel÷scht werden"
  258.      pri.vorgabe = "49"
  259.      Put #filenum, 45, pri
  260.      
  261.       pri.titel = "Zeichenformatierung l÷schen?"
  262.      pri.inhalt = "Soll umschalten auf Italic gel÷scht werden"
  263.      pri.vorgabe = "49"
  264.      Put #filenum, 46, pri
  265.      
  266.      pri.titel = "Zeichenformatierung l÷schen?"
  267.      pri.inhalt = "Soll Italic aus gel÷scht werden"
  268.      pri.vorgabe = "49"
  269.      Put #filenum, 47, pri
  270.      
  271.       pri.titel = "Zeichenformatierung l÷schen?"
  272.      pri.inhalt = "Soll dieses Bild gel÷scht werden"
  273.      pri.vorgabe = "49"
  274.      Put #filenum, 48, pri
  275.      
  276.         pri.titel = "Zeichenformatierung l÷schen?"
  277.      pri.inhalt = "Soll dieses Formular-Element gel÷scht werden"
  278.      pri.vorgabe = "49"
  279.      Put #filenum, 49, pri
  280.      
  281.       pri.titel = "Zeichenformatierung l÷schen?"
  282.      pri.inhalt = "Soll der Zeilenwechsel gel÷scht werden"
  283.      pri.vorgabe = "49"
  284.      Put #filenum, 50, pri
  285.      
  286.      pri.titel = "Zeichenformatierung l÷schen?"
  287.      pri.inhalt = "Soll der Tabulator gel÷scht werden"
  288.      pri.vorgabe = "49"
  289.      Put #filenum, 51, pri
  290.      
  291.      pri.titel = "Zeichenformatierung l÷schen?"
  292.      pri.inhalt = "Soll die Zelle der Tabelle gel÷scht werden"
  293.      pri.vorgabe = "49"
  294.      Put #filenum, 52, pri
  295.      
  296.      pri.titel = "WWW-Seite besteht schon"
  297.      pri.inhalt = "Achtung es wurde bereits eine Seite unter diesem Namen gespeichert"
  298.      pri.vorgabe = "49"
  299.      Put #filenum, 53, pri
  300.      
  301.      pri.titel = "Grafik ausrichten"
  302.      pri.inhalt = "Soll die Grafik links oder rechts ausgerichtet werden?? OK = links Abbrechen = rechts"
  303.      pri.vorgabe = "49"
  304.      Put #filenum, 54, pri
  305.      
  306.      pri.titel = "Grafik L÷schen"
  307.      pri.inhalt = "Soll diese Grafik aus dieser Seite gel÷scht werden ??"
  308.      pri.vorgabe = "49"
  309.      Put #filenum, 55, pri
  310.      
  311.      pri.titel = "Keine Seite zum ▄bernehmen"
  312.      pri.inhalt = "Achtung bitte wΣhlen Sie eine Seite an!"
  313.      pri.vorgabe = "49"
  314.      Put #filenum, 56, pri
  315.      
  316.       pri.titel = "Verweise l÷schen"
  317.      pri.inhalt = "Soll dieses Bild nicht weiter als Verweissensitiv verwaltet werden??"
  318.      pri.vorgabe = "49"
  319.      Put #filenum, 57, pri
  320.      
  321.      pri.titel = "Grafik nicht gefunden"
  322.      pri.inhalt = "HTML-Designer hat im Originalverzeichniss die Grafik nicht gefunden, Im Projektverzeichniss existiert jedoch eine Grafik mit dem gleichen Namen, soll diese kⁿnftig geladen werden??"
  323.      pri.vorgabe = "49"
  324.      Put #filenum, 58, pri
  325.      
  326.       pri.titel = "Fehler Bild laden"
  327.      pri.inhalt = "<<<Kann Bild nicht finden "
  328.      pri.vorgabe = "48"
  329.      Put #filenum, 59, pri
  330.      
  331.        pri.titel = "Kein weiteres Stamm-Makro speicherbar"
  332.      pri.inhalt = "Sie k÷nnen maximal 1000 Stamm-Makros anlegen"
  333.      pri.vorgabe = "48"
  334.      Put #filenum, 60, pri
  335.      
  336.       pri.titel = "Kein weiteres Makro speicherbar"
  337.      pri.inhalt = "Sie k÷nnen pro Projekt maximal 1000 Makros anlegen"
  338.      pri.vorgabe = "48"
  339.      Put #filenum, 61, pri
  340.      
  341.       pri.titel = "Makrodatei erstellen"
  342.      pri.inhalt = "<<Kann Makrodatei nicht erstellen  "
  343.      pri.vorgabe = "48"
  344.      Put #filenum, 62, pri
  345.      
  346.         pri.titel = "Fehler in Stamm-Makro"
  347.      pri.inhalt = "Formatfehler in Makrodefinition"
  348.      pri.vorgabe = "48"
  349.      Put #filenum, 63, pri
  350.      
  351.        pri.titel = "Fehler in Stamm-Makro"
  352.      pri.inhalt = "Formatfehler >>"
  353.      pri.vorgabe = "48"
  354.      Put #filenum, 64, pri
  355.      
  356.          pri.titel = "Stamm-Makro l÷schen"
  357.      pri.inhalt = "Wollen Sie wirklich diesen Eintag l÷schen??"
  358.      pri.vorgabe = "49"
  359.      Put #filenum, 65, pri
  360.      
  361.          pri.titel = "Makro aus Projektdatei l÷schen"
  362.      pri.inhalt = "Wollen Sie wirklich diesen Eintag l÷schen??"
  363.      pri.vorgabe = "49"
  364.      Put #filenum, 66, pri
  365.      
  366.         pri.titel = "Maximale Anzahl erreicht"
  367.      pri.inhalt = "Achtung es k÷nnen fⁿr dieses Projekt keine weiteren Gliederungen angelegt werden!"
  368.      pri.vorgabe = "49"
  369.      Put #filenum, 67, pri
  370.      
  371.          pri.titel = "Textdatei importieren"
  372.      pri.inhalt = "Kann Textdatei nicht ÷ffenen"
  373.      pri.vorgabe = "48"
  374.      Put #filenum, 68, pri
  375.      
  376.         pri.titel = "Demoversion"
  377.      pri.inhalt = "Diese Option wird nur in der Vollversion unterstⁿtzt"
  378.      pri.vorgabe = "48"
  379.      Put #filenum, 69, pri
  380.      
  381.          pri.titel = "Anker l÷schen"
  382.      pri.inhalt = "<<Soll dieser Anker gel÷scht werden??"
  383.      pri.vorgabe = "49"
  384.      Put #filenum, 70, pri
  385.      
  386.         pri.titel = "Fehler beim laden"
  387.      pri.inhalt = "Kann Formulardatenbank nicht ÷ffnen>>"
  388.      pri.vorgabe = "48"
  389.      Put #filenum, 71, pri
  390.      
  391.        pri.titel = "Form-Element Umwandeln"
  392.      pri.inhalt = "Wollen Sie das aktuelle Element umwandeln in "
  393.      pri.vorgabe = "4"
  394.      Put #filenum, 72, pri
  395.      
  396.         pri.titel = "Fehler beim laden"
  397.      pri.inhalt = "Kann HTML-Datei nicht ÷ffnen>>>"
  398.      pri.vorgabe = "48"
  399.      Put #filenum, 73, pri
  400.      
  401.        pri.titel = "Fehler beim laden"
  402.      pri.inhalt = "Kann HTML-Datei nicht ÷ffnen>>>"
  403.      pri.vorgabe = "48"
  404.      Put #filenum, 74, pri
  405.      
  406.        pri.titel = "Maximale Seitenzahl erreicht"
  407.      pri.inhalt = "Sie k÷nnen mit dieser Version keine weitere Seite anlegen."
  408.      pri.vorgabe = "48"
  409.      Put #filenum, 75, pri
  410.      
  411.      
  412.      
  413.      Close #filenum
  414.    
  415. Exit Sub
  416.  
  417. fehlermeme:
  418. Msg = Error(Err)
  419. Rem ⁿbergebe Fehlermeldung und lade dann manuell
  420. meto% = 1000
  421. Close #filenum
  422. Resume endeame
  423.  
  424. endeame:
  425. End Sub
  426.  
  427.  
  428.