vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 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

Visual-Basic Einsteiger
Re: Text aus PicBox speichern + Verknüpfen von Combo-Boxen 
Autor: Master
Datum: 11.01.03 12:54

Hallo

zu 1) wenn jede Combobox den bestimmte Eintrag mit dem selben Index hat dann mach das so: (geht nur, wenn du ein Steuerelementenfeld erstellt hast)
Private Sub Combo1_Click(Index As Integer)
Dim i
For i=Combo1.LBound To Combo1.UBound
Combo1(i).ListIndex=combo1(index).listindex
Next i
End Sub
zu 2): Ich nehme mal an das zu den Text mit PictureX.Print anzeigen lässt. Aber abgesehen davon: das geht nicht. Aber du kannst es so lösen:
Option Explicit
Dim myText As String
 
Private Sub PrintText(sText as String)
'Wenn Text leer ist dann wird PictureBox gelöscht
If sText="" then
Picture1.Cls
myText=""
else
Picture1.Print sText
myText=myText & vbCrLf & sText
end if
End Sub
zu 3)
Speichere folgenden Code am besten in ein Modul: (siehe)
Public Sub ListeSpeichern(Liste As Control, ByVal sFile As String)
  Dim F As Integer
  Dim I As Integer
 
  F = FreeFile
  Open sFile For Output As #F
  With Liste
    For I = 0 To .ListCount - 1
      Print #F, .List(I)
    Next I
  End With
  Close #F
End Sub
 
Public Sub ListeEinlesen(Liste As Control, ByVal sFile As String)
  Dim F As Integer
  Dim Eintrag As String
 
  With Liste
    ' sicherheitshalber ListBox leeren
    .Clear
 
    ' nur, wenn Datei "sFile" existiert
    If Dir(sFile) <> "" Then
      F = FreeFile
      Open sFile For Input As #F
      While Not Eof(F)
        Line Input #F, Eintrag
        .AddItem Eintrag
      Wend
      Close #F
    End If
  End With
End Sub
' Form:
' Beim Aufrufen der Form, Liste füllen
Private Sub Form_Load()
  ListeEinlesen Combo1, App.Path & "\MeineListe.dat"
End Sub
 
' nachfolgenden Code dort einfügen, wo die Liste gespeichert werden soll...
' z.B. beim Beenden der Form
Private Sub Form_Unload()
  ListeSpeichern Combo1, App.Path & "\MeineListe.dat"
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Text aus PicBox speichern + Verknüpfen von Combo-Boxen474Karo25410.01.03 16:17
Re: Text aus PicBox speichern + Verknüpfen von Combo-Boxen309Master11.01.03 12:54

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