win-hesse
Apr 29, 2011
view5723
view8
0
Goto Top

Vba CheckBox in txt speichern

GermansolvedQuestionVB for ApplicationsDevelopment
Hallo Zusammen,

ich versuche gerade mein erstes VB Projekt umzusetzen

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


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 face-sad 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 !!!
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 165411

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

Printed on: April 19, 2024 at 13:04 o'clock

8 Comments
Latest comment
Goto Top
Member: TsukiSan
TsukiSan Apr 29, 2011 at 13:59:05 (UTC)
Goto Top
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
Member: win-hesse
win-hesse Apr 29, 2011 at 14:07:19 (UTC)
Goto Top
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()
Member: TsukiSan
TsukiSan Apr 29, 2011 at 14:24:58 (UTC)
Goto Top
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
Member: win-hesse
win-hesse Apr 29, 2011 at 14:25:12 (UTC)
Goto Top
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
Member: TsukiSan
TsukiSan Apr 29, 2011 at 14:27:12 (UTC)
Goto Top
warst schneller, als ich.
schau mal meinen Hinweis!

Gruss
Tsuki
Member: bastla
bastla Apr 29, 2011 at 16:00:20 (UTC)
Goto Top
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
Member: TsukiSan
TsukiSan Apr 30, 2011 at 13:23:23 (UTC)
Goto Top
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
Member: win-hesse
win-hesse May 02, 2011 at 07:52:21 (UTC)
Goto Top
Interessante lösung ...

werde damit mal was spielen und schauen das ich es vollständig verstehe face-smile
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsjstrickerWIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 3 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment