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 ...
jemand eine Idee wie ich das hin bekommen kann ??
vor ab schon mal vielen dank für eure hilfe !!!
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/forum/vba-checkbox-in-txt-speichern-165411.html
Ausgedruckt am: 24.12.2024 um 17:12 Uhr
8 Kommentare
Neuester Kommentar
Hallo win-hesse und willkommen im Forum, hallo Tsuki!
Etwas zum Spielen:
Ansonsten zB How to loop through multiple checkboxes
Grüße
bastla
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)
Grüße
bastla