Vba CheckBox in txt speichern

Hallo Zusammen,

ich versuche gerade mein erstes VB Projekt umzusetzen

habe Visual Basic 2010 Express Installiert und es läuft auch super

ich habe mehr CheckBoxen (1-10) erstellt und will nur im erste stepp hin bekommen das wenn man ein paar ausgewählt hat und auf den Button1 Klicket das die aktiven Boxen zb. mit 1 oder die inaktiven mit 0 in eine txt geschriebn werden

online habe ich gelesen das diese per Open "C:\text.txt" und PRINT gehen sollte

dann bin ich einfach mal hin gegenagen und habe ein Beispiel code kopiert
nur leider kommen so bei mir gleich 4 Fehler

Ausdruck erwartet und ...

 
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Inhalt As String
        Inhalt = "Text1" & vbCrLf & "Text2"  
        Open ("C:\text.txt")  For Output As #1  
        Print (#1, Inhalt)
        Close (#1)

    End Sub

End Class

jemand eine Idee wie ich das hin bekommen kann ??

vor ab schon mal vielen dank für eure hilfe !!!

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 165411

Url: https://administrator.de/contentid/165411

Ausgedruckt am: 23.11.2024 um 02:11 Uhr

8 Kommentare

Neuester Kommentar

Hallo win-hesse,

nur mal so eine Idee! probier mal:

dim d as Freefile
dim Inhalt 
Inhalt = "meinText"  
open "C:\text.text" for append as d  
Print #d, Inhalt
close

so ähnlich hat's zumindest bei den Vorgängerversionen funktioniert.

Gruss
Tsuki

oh danke für die schnelle antwort
leider nicht

aber so schreibt er schon mal etwas in die TXT

        Dim Inhalt
        Inhalt = "meinText"  
        FileOpen(1, "C:\text.txt", OpenMode.Append)  
        Print(1, Inhalt)
        Close()

na das ist doch schon mal was!
in den Vorgängerversionen von VB kann man die
"Zustände" der Checkboxen wie folgt abfragen:
Beispiel:

a = checkbox1.value
'etc  

und dann dein Schnippet etwas umgeschrieben müßte es doch funktionieren, oder?

Gruss
Tsuki

jetzt auf einmal ging es einfach *freu*
zuerst habe ich lange bei goo... gesucht und jetzt
nach dem Problem 1 gelöst war ging es super einfach ... vermutlich aber nicht besonderst schön
jemand eine idee ??

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Inhalt

        FileOpen(1, "C:\text.txt", OpenMode.Append)  

        If CheckBoxM1.Checked = True Then
            Inhalt = "P1: 1"  
        Else
            Inhalt = "P1: 2"  
        End If
        Print(1, Inhalt & vbCrLf)

        If CheckBoxB1.Checked = True Then
            Inhalt = "P2: 1"  
        Else
            Inhalt = "P2: 2"  
        End If
        Print(1, Inhalt & vbCrLf)

        Close()


    End Sub

warst schneller, als ich.
schau mal meinen Hinweis!

Gruss
Tsuki

Hallo win-hesse und willkommen im Forum, hallo Tsuki!

Etwas zum Spielen:

Dim objControl As Control
Dim strList As String = "", strControlString = "", strType As String = "", strValue As String = ""  
For Each objControl In Me.Controls
    strControlString = objControl.ToString
    strType = Split(Split(strControlString, ".")(3), ",")(0)  
    strValue = Trim(Split(strControlString, ":")(1))  
    strList = strList & objControl.Name & "#" & strType & "#" & strValue & vbCrLf  
 Next
 MsgBox(strList)

Ansonsten zB How to loop through multiple checkboxes

Grüße
bastla

hi bastla,

Nur kleiner Hinweis (falls das jemand liest): bei VB6 und Co ist die Syntax anders.
Aber generell hat bastla aufgezeigt, wie man CONTROLS in Arrays packt und somit
auf deren Eigenschaften Zugriff hat.

Super Sache! Danke und

Gruss
Tsuki