Sie möchten eine Datei mit dem Standard-Dialogfeld öffnen? Für unser Beispiel benötigen Sie eine TextBox (Text1), deren MultiLine-Eigenschaft auf True gesetzt ist, einen CommandButton (cmdOpen) sowie das CommonDialog Control, das Sie über " Komponenten hinzufügen" auswählen. Dann noch folgenden Code: Private Sub cmdOpen_Click() ' wird im "CommonDialog" auf "Abbrechen" geklickt, ' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst. Dim F As Integer Dim AllText As String Dim LineOfText As String On Error Resume Next With CommonDialog1 .CancelError = True ' Filter setzen - hier wird festgelegt, mit welchem Format ' eine Datei geöffnet wird. .Filter = "Textdateien (*.txt)|*.txt" ' Dialogfeld Öffnen anzeigen .ShowOpen If .FileName <> "" Then F = FreeFile Open .FileName For Input As #F ' Zeilen aus Textdatei einlesen und in Variable AllText speichern Do Until EOF(F) Line Input #F, LineOfText AllText = AllText & LineOfText & vbCrLf Loop Close #F ' Inhalt der Variable AllText im Textfeld ausgeben Text1.Text = AllText End If End With End Sub Starten Sie Ihr Programm, klicken Sie auf den CommandButton und öffnen Sie eine Textdatei. Diese Seite wurde bereits 32.867 mal aufgerufen. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung sevOutBar 4.0 Vertikale Menüleisten á la Outlook Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. |
||||||||||
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. |