Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 4960 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 ..
Ähnliche Inhalte
Microsoft Office
gelöst VBA Excel Tabellenblätter als PDF speichern (8)

Frage von Florian86 zum Thema Microsoft Office ...

Batch & Shell
gelöst Checkbox Event (11)

Frage von Markus2016 zum Thema Batch & Shell ...

VB for Applications
gelöst VBA-Makro verschwindet nach Speichern (5)

Frage von lupi1989 zum Thema VB for Applications ...

Datenbanken
Access Checkbox mit Kombifeld und dann filtern

Frage von atomas42 zum Thema Datenbanken ...

Neue Wissensbeiträge
Sicherheit

How I hacked hundreds of companies through their helpdesk

Information von SeaStorm zum Thema Sicherheit ...

Erkennung und -Abwehr

Ccleaner-Angriff war nur auf große Unternehmen gemünzt

(10)

Information von Lochkartenstanzer zum Thema Erkennung und -Abwehr ...

Sicherheit

Eventuell neue Lücke in Intels ME

Information von sabines zum Thema Sicherheit ...

Heiß diskutierte Inhalte
Humor (lol)
gelöst Freidach Beitrag (40)

Frage von Penny.Cilin zum Thema Humor (lol) ...

Windows 7
gelöst SSD - Win7 Lags (20)

Frage von ph5555 zum Thema Windows 7 ...

Firewall
gelöst Firewall Firmeneimsatz (19)

Frage von wiesi200 zum Thema Firewall ...