Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Vba CheckBox in txt speichern

Frage Entwicklung VB for Applications

Mitglied: win-hesse

win-hesse (Level 1) - Jetzt verbinden

29.04.2011 um 15:52 Uhr, 4897 Aufrufe, 8 Kommentare

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 ...

01.
  
02.
Public Class Form1 
03.
 
04.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
05.
 
06.
        Dim Inhalt As String 
07.
        Inhalt = "Text1" & vbCrLf & "Text2" 
08.
        Open ("C:\text.txt")  For Output As #1 
09.
        Print (#1, Inhalt) 
10.
        Close (#1) 
11.
 
12.
    End Sub 
13.
 
14.
End Class


jemand eine Idee wie ich das hin bekommen kann ??

vor ab schon mal vielen dank für eure hilfe !!!
Mitglied: TsukiSan
29.04.2011 um 15:59 Uhr
Hallo win-hesse,

nur mal so eine Idee! probier mal:
01.
dim d as Freefile 
02.
dim Inhalt  
03.
Inhalt = "meinText" 
04.
open "C:\text.text" for append as d 
05.
Print #d, Inhalt 
06.
close
so ähnlich hat's zumindest bei den Vorgängerversionen funktioniert.

Gruss
Tsuki
Bitte warten ..
Mitglied: win-hesse
29.04.2011 um 16:07 Uhr
oh danke für die schnelle antwort
leider nicht

aber so schreibt er schon mal etwas in die TXT

01.
        Dim Inhalt 
02.
        Inhalt = "meinText" 
03.
        FileOpen(1, "C:\text.txt", OpenMode.Append) 
04.
        Print(1, Inhalt) 
05.
        Close()
Bitte warten ..
Mitglied: TsukiSan
29.04.2011 um 16:24 Uhr
na das ist doch schon mal was!
in den Vorgängerversionen von VB kann man die
"Zustände" der Checkboxen wie folgt abfragen:
Beispiel:
01.
a = checkbox1.value 
02.
'etc
und dann dein Schnippet etwas umgeschrieben müßte es doch funktionieren, oder?

Gruss
Tsuki
Bitte warten ..
Mitglied: win-hesse
29.04.2011 um 16:25 Uhr
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 ??


01.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
02.
 
03.
        Dim Inhalt 
04.
 
05.
        FileOpen(1, "C:\text.txt", OpenMode.Append) 
06.
 
07.
        If CheckBoxM1.Checked = True Then 
08.
            Inhalt = "P1: 1" 
09.
        Else 
10.
            Inhalt = "P1: 2" 
11.
        End If 
12.
        Print(1, Inhalt & vbCrLf) 
13.
 
14.
        If CheckBoxB1.Checked = True Then 
15.
            Inhalt = "P2: 1" 
16.
        Else 
17.
            Inhalt = "P2: 2" 
18.
        End If 
19.
        Print(1, Inhalt & vbCrLf) 
20.
 
21.
        Close() 
22.
 
23.
 
24.
    End Sub
Bitte warten ..
Mitglied: TsukiSan
29.04.2011 um 16:27 Uhr
warst schneller, als ich.
schau mal meinen Hinweis!

Gruss
Tsuki
Bitte warten ..
Mitglied: bastla
29.04.2011 um 18:00 Uhr
Hallo win-hesse und willkommen im Forum, hallo Tsuki!

Etwas zum Spielen:
01.
Dim objControl As Control 
02.
Dim strList As String = "", strControlString = "", strType As String = "", strValue As String = "" 
03.
For Each objControl In Me.Controls 
04.
    strControlString = objControl.ToString 
05.
    strType = Split(Split(strControlString, ".")(3), ",")(0) 
06.
    strValue = Trim(Split(strControlString, ":")(1)) 
07.
    strList = strList & objControl.Name & "#" & strType & "#" & strValue & vbCrLf 
08.
 Next 
09.
 MsgBox(strList)
Ansonsten zB How to loop through multiple checkboxes

Grüße
bastla
Bitte warten ..
Mitglied: TsukiSan
30.04.2011 um 15:23 Uhr
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
Bitte warten ..
Mitglied: win-hesse
02.05.2011 um 09:52 Uhr
Interessante lösung ...

werde damit mal was spielen und schauen das ich es vollständig verstehe
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (20)

Frage von Xaero1982 zum Thema Microsoft ...

Outlook & Mail
gelöst Outlook 2010 findet ost datei nicht (19)

Frage von Floh21 zum Thema Outlook & Mail ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...