vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 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

Fortgeschrittene Programmierung
Re: Dateien Speichern und Auslesen (Combo Box) 
Autor: ModeratorDieter (Moderator)
Datum: 25.01.02 11:01
Hi IRaMPaGel,

hier alles, was Du dazu brauchst: 
<code><font color=#000099>Option</font> <font color=#000099>Explicit</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Combo1_KeyPress(KeyAscii <font color=#000099>As</font> <font _
  color=#000099>Integer</font>)
  <font color=green>' in ComboListe aufnehmen</font>
  <font color=#000099>Dim</font> I <font color=#000099>As</font> <font _
    color=#000099>Integer</font>
  <font color=#000099>Dim</font> bExists <font color=#000099>As</font> <font _
  color=#000099>Boolean</font>
 
  <font color=#000099>With</font> Combo1
    <font color=#000099>If</font> KeyAscii = 13 <font color=#000099>And</font> _
      .Text <> "" <font color=#000099>Then</font>
      <font color=green>' Prüfen ob bereist vorhanden</font>
      bExists = <font color=#000099>False</font>
      <font color=#000099>For</font> I = 0 <font color=#000099>To</font> _
        .ListCount - 1
        <font color=#000099>If</font> .List(I) = .Text <font _
        color=#000099>Then</font>
          bExists = <font color=#000099>True</font>: <font _
          color=#000099>Exit</font> <font color=#000099>For</font>
        <font color=#000099>End</font> <font color=#000099>If</font>
      <font color=#000099>Next</font> I
 
      <font color=#000099>If</font> <font color=#000099>Not</font> bExists _
        <font color=#000099>Then</font> .AddItem .Text
    <font color=#000099>End</font> <font color=#000099>If</font>
  <font color=#000099>End</font> <font color=#000099>With</font>
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
<font color=#000099>Public</font> <font color=#000099>Sub</font> Combo_Save()
  <font color=green>' Inhalt der ComboBox speichern</font>
  <font color=#000099>Dim</font> F <font color=#000099>As</font> <font _
    color=#000099>Integer</font>
  <font color=#000099>Dim</font> I <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
 
  F = FreeFile
  <font color=#000099>Open</font> "DeineDatei.dat" <font _
    color=#000099>For</font> <font color=#000099>Output</font> <font _
    color=#000099>As</font> #F
  <font color=#000099>With</font> Combo1
    <font color=#000099>For</font> I = 0 <font color=#000099>To</font> _
      .ListCount - 1
      <font color=#000099>Print</font> #F, .List(I)
    <font color=#000099>Next</font> I
  <font color=#000099>End</font> <font color=#000099>With</font>
  <font color=#000099>Close</font> #F
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
<font color=#000099>Public</font> <font color=#000099>Sub</font> Combo_Read()
  <font color=green>' Combo-Inhalt einlesen</font>
  <font color=#000099>Dim</font> F <font color=#000099>As</font> <font _
    color=#000099>Integer</font>
  <font color=#000099>Dim</font> sLine <font color=#000099>As</font> <font _
  color=#000099>String</font>
 
  <font color=#000099>With</font> Combo1
    <font color=green>' Combo zunächst leeren</font>
    .Clear
 
    <font color=#000099>If</font> Dir("DeineDatei.dat") <> "" <font _
      color=#000099>Then</font>
      F = FreeFile
      <font color=#000099>Open</font> "DeineDatei.dat" <font _
        color=#000099>For</font> <font color=#000099>Input</font> <font _
        color=#000099>As</font> #F
      <font color=#000099>While</font> <font color=#000099>Not</font> EOF(F)
        <font color=#000099>Line</font> <font color=#000099>Input</font> #F, _
          sLine
        .AddItem sLine
      <font color=#000099>Wend</font>
      <font color=#000099>Close</font> #F
    <font color=#000099>End</font> <font color=#000099>If</font>
  <font color=#000099>End</font> <font color=#000099>With</font>
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> Form_Load()
  Combo_Read
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> Form_Unload( _
  Cancel <font color=#000099>As</font> <font color=#000099>Integer</font>)
  Combo_Save
<font color=#000099>End</font> <font color=#000099>Sub</font></code>
Cu
Dieter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Dateien Speichern und Auslesen (Combo Box)75IRaMPaGeI25.01.02 10:49
Re: Dateien Speichern und Auslesen (Combo Box)532ModeratorDieter25.01.02 11:01
Re: Dateien Speichern und Auslesen (Combo Box)97IRaMPaGeI25.01.02 11:10
Noch ne Frage dazu51IRaMPaGeI25.01.02 11:31
Re: Noch ne Frage dazu48IRaMPaGeI25.01.02 11:49
Re: Dateien Speichern und Auslesen (Combo Box)48IRaMPaGeI25.01.02 11:02

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