Combobox Auswahl in ini festlegen

ErfinderDesRades · 26. Dezember 2015, 21:22

Wie gesagt: Dein Code-Stil ist grauenhaft - ich blick da nicht durch. Du sagst, wenn du auf "Übernehmen" klickst, aber im Code findet sich überhaupt nix mit "Übernehmen" - da gibts nur Button1 - 4.
Gib deinen Controls sprechende Namen, dann versteht man den Code besser.

Aber das ist nur das eine.
Ebensowichtig ist Visual Studio - Empfohlene Einstellungen - aber scheint dir ja am A... vorbei zu gehen.

Noim · 26. Dezember 2015, 21:32

ErfinderDesRades schrieb:

Wie gesagt: Dein Code-Stil ist grauenhaft - ich blick da nicht durch. Du sagst, wenn du auf "Übernehmen" klickst, aber im Code findet sich überhaupt nix mit "Übernehmen" - da gibts nur Button1 - 4.
Gib deinen Controls sprechende Namen, dann versteht…

Mir geht es nicht am A.. vorbei, ich habe es nur nicht wirklich verstanden.

Und hier mal alles in benannt:

Spoiler anzeigen

VB.NET-Quellcode

Imports INILib
Public Class Einstellungen
Dim ifFile As New IniFile()
Dim ip As String
Dim port As String
Dim ob2() As String
Dim password As String
Dim prog As Boolean
Dim debug As String
Dim check As String
Private Sub Einstellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ifFile.LoadFile("settings.ini")
Dim ipc() As String = ifFile.GetKey("Settings", "ip").ToString.Split("=")
ip = ipc(1)
TextBox1.Text = ip
Dim portc() As String = ifFile.GetKey("Settings", "port").ToString.Split("=")
port = portc(1)
TextBox2.Text = port
Dim passwordc() As String = ifFile.GetKey("Settings", "password").ToString.Split("=")
password = passwordc(1)
TextBox3.Text = password
Dim debugc() As String = ifFile.GetKey("Settings", "debug").ToString.Split("=")
debug = debugc(1)
Dim checkc() As String = ifFile.GetKey("Settings", "auto-refresh").ToString.Split("=")
check = checkc(1)
CheckedListBox1.Items.Add("Debug")
CheckedListBox1.Items.Add("Auto-Refresh")
If debug.Contains("true") Then
CheckedListBox1.SetItemCheckState(0, CheckState.Checked)
End If
If check.Contains("true") Then
CheckedListBox1.SetItemCheckState(1, CheckState.Checked)
End If
Dim ob() As String = ifFile.GetKey("Objecte", "objecte").ToString.Split("=")
ob2 = ob(1).Split(",")
ListBoxObjects.Items.AddRange(ob2)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles ÜbernehmenCheckList.Click
If CheckedListBox1.GetItemCheckState(0) = CheckState.Checked Then
ifFile.SetValue("Settings", "debug", "true")
ElseIf CheckedListBox1.GetItemCheckState(0) = CheckState.Unchecked Then
ifFile.SetValue("Settings", "debug", "false")
End If
If CheckedListBox1.GetItemCheckState(1) = CheckState.Checked Then
ifFile.SetValue("Settings", "auto-refresh", "true")
ElseIf CheckedListBox1.GetItemCheckState(1) = CheckState.Unchecked Then
ifFile.SetValue("Settings", "auto-refresh", "false")
End If
ifFile.Save("settings.ini")
Dim oForm As Form1
oForm = New Form1()
oForm.Show()
oForm.Refresh()
Me.Hide()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles ÜbernehmenIPUndDenAnderenScheiß.Click
Dim section As IniFileSection = ifFile.CreateSection("Settings")
ifFile.SetValue("Settings", "ip", TextBox1.Text)
ifFile.SetValue("Settings", "port", TextBox2.Text)
ifFile.SetValue("Settings", "password", TextBox3.Text)
ifFile.Save("settings.ini")
Dim oForm As Form1
oForm = New Form1()
oForm.Show()
oForm.Refresh()
Me.Hide()
End Sub
Private Sub Einstellungen_Closing(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Dim oForm As Form1
oForm = New Form1()
oForm.Show()
Me.Hide()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Hinzufügen.Click
Dim oForm As Add
oForm = New Add()
oForm.Show()
Me.Hide()
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles ÜbernehmenObjects.Click
ifFile.SetValue("Objecte", "objecte", String.Join(",", ListBoxObjects.Items.Cast(Of String)))
ifFile.Save("settings.ini")
Dim oForm As Form1
oForm = New Form1()
oForm.Refresh()
oForm.Show()
Me.Hide()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Entfernen.Click
ListBoxObjects.Items.Remove(ListBoxObjects.SelectedItem)
Me.Refresh()
End Sub
End Class

VB.NET-Quellcode

Public Class Add
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles HinzufügenAddForm.Click
Dim oForm As Einstellungen
oForm = New Einstellungen()
oForm.Show()
oForm.ListBoxObjects.Items.Add(TextBox.Text)
Me.Hide()
End Sub
End Class

Nikx · 26. Dezember 2015, 23:11

Okay, DAS ist grausam. Machs anders: Du rufst die AddForm mit .ShowDialog auf und gibst ihr eine Property, in dem Fall reicht eine Property ItemText As String.
In der Form selbst setzt du dann diese Property, und dann schließt du die Form wieder, NICHT mit Me.Hide, sondern mit .Close. In der MainForm machst du dann folgendes:

C#-Quellcode

var addFrm = new AddItemForm();
if (addFrm.ShowDialog() == DialogResult.OK) {
// Hier kannste die Daten mit addFrm.ItemText abrufen und der ListBox adden
}

Das ist C#, kannst du aber nach VB umschreiben, die Keywords sind genau die gleichen

Und mach mal jedes Me.Hide raus.

Grüße

ErfinderDesRades · 27. Dezember 2015, 00:23

Noim schrieb:

Mir geht es nicht am A.. vorbei, ich habe es nur nicht wirklich verstanden.

Ah - das alte Kommunikations-Problem: Extrem viele ignorieren Inhalte, die sie nicht verstehen.
Anstatt nachzufragen.
Dabei sind das genau die allerwichtigsten Inhalte, das ist nämlich, was sie lernen müssen.

Und was macht das auf mich fürn Eindruck? Natürlich, dass, was ich dir erzähle dir am A... vorbei geht.
Weil kommt kein Kommentar zu, und am Code seh ich, ist auch nix von umgesetzt.

Immerhin haben wir nun herausgefunden, dass du iwas nicht verstehst an Visual Studio - Empfohlene Einstellungen
Das kann gut sein, denn die Begründungen sieht man nur ein, wenn man minimal was versteht vom Programmieren, wenn man Datentypen voneinander unterscheiden kann, und wenn man weiß, was eine Objekt-Methode ist.

Also einfach mal machen, was da empfohlen ist. Es ist ja eine Anleitung, der man nur zu folgen braucht.

Oder steig um auf c#, da musst du nix umstellen, damit die Programmiersprache den OOP-Prinzipien entspricht, sondern den Anti-OOP-Quatsch gibts da von vornherein nicht.

Einfach mal machen, dann hast du sofort zig Fehlermeldungen - alles Meldungen zu Punkten, wo dein Proggi unsauber ist. Also die Fehler waren schon vorher da, nur jetzt nimmt der Compiler sie auch ernst.
Und das hilft dir enorm beim programmieren lernen, bzw. ermöglicht es erst.

Noim · 27. Dezember 2015, 12:07

ErfinderDesRades schrieb:

Zitat von Noim: „Mir geht es nicht am A.. vorbei, ich habe es nur nicht wirklich verstanden.“Ah - das alte Kommunikations-Problem: Extrem viele ignorieren Inhalte, die sie nicht verstehen.
Anstatt nachzufragen.
Dabei sind das genau die…

Ich komme von Java, und habe erst Heiligabend Angefangen mit VB zu Programmieren. Für mich war es erstmal wichtiger etwas hinzukriegen. Ich hatte auch vor auf C# umzusteigen, da das vom Gefühl her eher wie Java ist. Das Programm ist eine Erweiterung für das Programm Homeputer (Kennt wahrscheinlich niemand). Ich sende über Telnet an das Programm Befehle wie ist die Lampe an oder mach die Lampe aus. Homputer sendet das dann an ein anderes selbstgeschriebendes Programm vom Vorbesitzer des Hauses das dies an ein kleines Gerät im Haus sendet was über ein Bus System alle Sachen im Haus wie Steckdosen an und ausschalten kann. Wenn ich euch den Sourcecode von dem Programm des Vorbesitzers Zeigen würde, würdet ihr zusammen klappen. Der hat ohne Sinn und verstand gearbeitet. Es Funktioniert aber, ist in VB 6.0 geschrieben was ein Problem ist, da wir auf Windows Server umgestiegen sind und es dort ja kein VB 6 gibt, was wir dann über einen nicht offizielle Quelle installieren mussten. Warte warum erzähle ich das. Keine Ahnung. Ich würde gerne das Programm vom Vorbesitzer in .Net umschreiben, aber im ernst, das wäre soviel Arbeit.
Egal...
Ich werde mal heute kucken was mit den Empfohlenen Settings gemeint ist. Z.B habe ich nicht verstanden was mir das:

VB.NET-Quellcode

Option Strict Off
Imports Microsoft.VisualBasic

bringen soll. Im Grunde ändert das ja nicht wirklich etwas oder ?

Und ist damit gemeint das ich nicht mehr einfach die Sachen so dahin schreiben soll, sondern, ich weiß nicht wie ich es ausdrücke soll, den so zu sagen Vollständigen Pfad woher etwas kommt oder was.

<span data-bbcode="quote" class="">Combobox Auswahl in ini festlegen</span>

Also irgendetwas mache ich Falsch.

Spoiler anzeigen

VB.NET-Quellcode

Option Strict Off
Imports INILib
Imports Microsoft.VisualBasic
Public Class Einstellungen
Dim ifFile As New IniFile()
Dim ip As String
Dim port As String
Dim ob2() As String
Dim password As String
Dim prog As Boolean
Dim debug As String
Dim check As String
Private Sub Einstellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ifFile.LoadFile("settings.ini")
Dim ipc() As String = ifFile.GetKey("Settings", "ip").ToString.Split("=")
ip = ipc(1)
TextBox1.Text = ip
Dim portc() As String = ifFile.GetKey("Settings", "port").ToString.Split("=")
port = portc(1)
TextBox2.Text = port
Dim passwordc() As String = ifFile.GetKey("Settings", "password").ToString.Split("=")
password = passwordc(1)
TextBox3.Text = password
Dim debugc() As String = ifFile.GetKey("Settings", "debug").ToString.Split("=")
debug = debugc(1)
Dim checkc() As String = ifFile.GetKey("Settings", "auto-refresh").ToString.Split("=")
check = checkc(1)
CheckedListBox1.Items.Add("Debug")
CheckedListBox1.Items.Add("Auto-Refresh")
If debug.Contains("true") Then
CheckedListBox1.SetItemCheckState(0, CheckState.Checked)
End If
If check.Contains("true") Then
CheckedListBox1.SetItemCheckState(1, CheckState.Checked)
End If
Dim ob() As String = ifFile.GetKey("Objecte", "objecte").ToString.Split("=")
ob2 = ob(1).Split(",")
ListBoxObjects.Items.AddRange(ob2)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles ÜbernehmenCheckList.Click
If CheckedListBox1.GetItemCheckState(0) = CheckState.Checked Then
ifFile.SetValue("Settings", "debug", "true")
ElseIf CheckedListBox1.GetItemCheckState(0) = CheckState.Unchecked Then
ifFile.SetValue("Settings", "debug", "false")
End If
If CheckedListBox1.GetItemCheckState(1) = CheckState.Checked Then
ifFile.SetValue("Settings", "auto-refresh", "true")
ElseIf CheckedListBox1.GetItemCheckState(1) = CheckState.Unchecked Then
ifFile.SetValue("Settings", "auto-refresh", "false")
End If
ifFile.Save("settings.ini")
Dim oForm As Form1
oForm = New Form1()
oForm.Show()
oForm.Refresh()
Me.Hide()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles ÜbernehmenIPUndDenAnderenScheiß.Click
Dim section As IniFileSection = ifFile.CreateSection("Settings")
ifFile.SetValue("Settings", "ip", TextBox1.Text)
ifFile.SetValue("Settings", "port", TextBox2.Text)
ifFile.SetValue("Settings", "password", TextBox3.Text)
ifFile.Save("settings.ini")
Dim oForm As Form1
oForm = New Form1()
oForm.Show()
oForm.Refresh()
Me.Hide()
End Sub
Private Sub Einstellungen_Closing(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Dim oForm As Form1
oForm = New Form1()
oForm.Show()
Me.Hide()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Hinzufügen.Click
Dim addFrm = New Add()
' Hier kannste die Daten mit addFrm.ItemText abrufen und der ListBox adden
ListBoxObjects.Items.Add(addFrm.TextBox.Text)
If addFrm.ShowDialog() = DialogResult.OK Then
End If
'Dim oForm As Add
'oForm = New Add()
'oForm.Show()
'Me.Hide()
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles ÜbernehmenObjects.Click
ifFile.SetValue("Objecte", "objecte", String.Join(",", ListBoxObjects.Items.Cast(Of String)))
ifFile.Save("settings.ini")
Dim oForm As Form1
oForm = New Form1()
oForm.Refresh()
oForm.Show()
Me.Hide()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Entfernen.Click
ListBoxObjects.Items.Remove(ListBoxObjects.SelectedItem)
Me.Refresh()
End Sub
End Class

VB.NET-Quellcode

Public Class Add
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles HinzufügenAddForm.Click
'Dim oForm As Einstellungen
'oForm = New Einstellungen()
'oForm.Show()
'oForm.ListBoxObjects.Items.Add(TextBox.Text)
'Me.Hide()
Me.Close()
End Sub
End Class

ErfinderDesRades · 27. Dezember 2015, 12:50

vielleicht hast du was übersehen?

Was du zitierst ist ja erst der 3. Schritt.
Zuvor wäre ja das Video von xssSpacey nachzumachen, und in den Projekteinstellungen den Schrott abzustellen.

Wenn sich dann zuviele Fehler zeigen, als dass man sie sich in einem Arbeitsschritt korrigieren könnte, erst dann führt man den Schrott Datei-weise wieder ein - der von dir zitierte Schritt.
Wo ich das empfehle, da hab ich das aber doch auch erklärt, warum: Nämlich damit man nun datei-weise es wieder entfernen kann, und so nur die Fehler jeweils einer Datei zu beheben hat.

Weil ein größeres Projekt mit mw. 5 Dateien, da zeigen sich leicht > 100 Fehler, das ist entmutigend, und ausserdem kann man die Korrekturen erst testen, wenn alle Stellen korrigiert sind, und bei Änderung an 100 Stellen - ohne zwischenzeitlichem Testlauf hat man leicht andere Fehler wieder eingebaut.

Nun klarer?

Übrigens vielen Dank für die Infos zu deim Background.
Normal, wenn ein Code-Problem zu beschreiben ist, will ich solch garnet wissen, aber zum Thema Kommunikation selbst scheint mir das iwie doch hilfreich - weißauchnet warum.

Zum Umschreiben eines vb6-Programms: Das wär tatsächlich keine schlechte Entscheidung, es nicht nach vb.net zu portieren, sondern nach c#.

Kein Mensch begreift anfangs, dass vb.net eine total andere Sprache ist als vb6, also vb.net ist von vb6 genauso weit entfernt wie es c# ist.

Die Ähnlichkeiten sind nur scheinbar, und das ist verheerend, denn verleitet, im vb.net-Context dennoch vb6 zu coden statt vb.net - wie's sich gehören täte.

Weil leider ist es in vb.net möglich, manche vb6-Vorgehensweisen zu reproduzieren (vor allem, wenn man die "Deppen-Einstellungen", mit denen vb.net ausgeliefert wird, nicht korrigiert).
Aber die vb6-Vorgehensweisen sind in keinem Fall wirklich notwendig, und besser wäre, sich gleich in die jeweils vorgesehenen vb.net-Vorgehensweisen einzuarbeiten.
Und von den 100% unnötigen Fällen ist nur 1% zumindest gleichwertig zu vb.net, 99% sind nicht nur unnötig, sondern definitiv und in jedem Einzelfall sachlich begründbar schlechter.

Noim · 27. Dezember 2015, 14:06

ErfinderDesRades schrieb:

vielleicht hast du was übersehen?

Was du zitierst ist ja erst der 3. Schritt.
Zuvor wäre ja das Video von xssSpacey nachzumachen, und in den Projekteinstellungen den Schrott abzustellen.

Wenn sich dann zuviele Fehler zeigen, als dass man sie sich in…

Ok ich habe jetzt in den VS Einstellungen Option Strict auf On gesetzt. Aber ich hatte jetzt keine wirklich Veränderung. Oder muss ich auch noch andere Sachen ändern. Wahrscheinlich oder ? Es kommen keine Fehler und das Programm Funktioniert bis auf den Fehler den ich beschrieben habe noch immer. Ach und es tut sich doch etwas, er fügt doch Sachen in die ListBox hinzu, undzwar "", also nichts, und das setzt er dann auch in die INI Datei. Das ist fatal, wenn man dann wieder das Programm startet, stürtzt es ab, weshalb ich unbedingt noch einbauen will das er an der Stelle:

VB.NET-Quellcode

Dim ob() As String = ifFile.GetKey("Objecte", "objecte").ToString.Split("=")
ob2 = ob(1).Split(",")
ComboBox1.Items.AddRange(ob2)
ComboBox1.SelectedIndex = ComboBox1.Items.Count - 1

jeden String der "" ist, entfernt. Habe es schon versucht, doch irgendwie klappt das nicht so wie ich will. Und dann ist halt noch immer das Problem das er nichts hinzufügt.

ErfinderDesRades · 27. Dezember 2015, 14:14

ähm - wirklich?
Weil

VB.NET-Quellcode

ob2 = ob(1).Split(",")

dürfte unter Option Strict On nicht kompilieren.

Noim · 27. Dezember 2015, 14:21

ErfinderDesRades schrieb:

ähm - wirklich?
Weil VB.NET-Quellcode (1 Zeile)dürfte unter Option Strict On nicht kompilieren.

Funktioniert aber wirklich. Ich habe es gerade nochmal ausprobiert und auch nochmal überprüft ob ich es eingestellt habe.

ErfinderDesRades · 27. Dezember 2015, 14:42

Entweder ein Wunder oder du irrst dich.
Oder die Msdn-Doku lügt: msdn.microsoft.com/de-de/libra…ring.split(v=vs.110).aspx
Dort kannst du nachlesen, dass es keine String.Split() überladung gibt, die einen einzelnen String akzeptieren würde. Und zumindest mein System verhält sich auch so.

Noim · 27. Dezember 2015, 18:26

Ich schließe das Thema mal, da ich mich jetzt entschieden habe das Programm in C# neu zu schreiben. Und diesmal ohne INI sondern mit einem Data Set (Jetzt muss ich nur noch herausfinden wie das geht xD das Video vom Freundlich wirkenden Inder hat mir nicht geholfen :D)

ErfinderDesRades · 27. Dezember 2015, 18:34

ein freundlich wirkender Inder? hastemal einen Link?

Ansonsten kann ich dich noch mit .net-Lern-Pensum vollballern: Datenverarbeitungs-Vorraussetzungen

Es ist in c# dasselbe Pensum wie in vb.net, nur die Deppen-Einstellungen bleiben einem erspart.
Gucks dir an, denn wie Visualstudio tickt, was inhaltlich ein gutes Buch ausmacht, Layout, zusammenbinden von Solutions, Datenmodellierung, Databinding - ist alles dasselbe auch in c#

Noim · 27. Dezember 2015, 18:46

ErfinderDesRades schrieb:

ein freundlich wirkender Inder? hastemal einen Link?

Ansonsten kann ich dich noch mit .net-Lern-Pensum vollballern: Datenverarbeitungs-Vorraussetzungen

Es ist in c# dasselbe Pensum wie in vb.net, nur die Deppen-Einstellungen bleiben einem erspart.
Gucks dir an, denn wie Visualstudio tickt, was inhaltlich ein gutes Buch ausmacht, Layout, zusammenbinden von Solutions, Datenmodellierung, Databinding - ist alles dasselbe auch in c#

Du scheinst echt hier der Spezialist für alles zu sein

Ich habe einen neues Thema im Forum dafür jetzt eröffnet, dieses wurde immer unübersichtlicher und ist vom Thema abgekommen.

Also für mich hat er sich extrem nach einem Inder angehört:

Combobox Auswahl in ini festlegen

ErfinderDesRades schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

C#-Quellcode

Noim schrieb:

ErfinderDesRades schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

ErfinderDesRades schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

ErfinderDesRades schrieb:

ErfinderDesRades schrieb:

Benutzer online 1

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben