|
VB.Net-Forum - Beitragsübersicht - |
|
Thema | V12: My.Settings |
Von |
Inveritas |
Datum |
04. September 2015 um 10:38:53 |
Frage |
sow ... habe ein erneutes Problem ...
es werden in my.settings iwi keine Einträge gespeichert ...Private Sub setup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.Text = My.Settings.url TextBox2.Text = My.Settings.purl TextBox3.Text = My.Settings.port #Region "Centrierung" Label1.Left = CInt((Me.Width - Label1.Width) / 2) Label2.Left = CInt((Me.Width - Label2.Width) / 2) Label3.Left = CInt((Me.Width - Label3.Width) / 2) Label4.Left = CInt((Me.Width - Label4.Width) / 2) PictureBox6.Left = CInt((Me.Width - PictureBox6.Width) / 2) RichTextBox1.Left = CInt((Me.Width - RichTextBox1.Width) / 2) PictureBox9.Left = CInt((Me.Width - PictureBox9.Width) / 2) #End Region #Region " Ausgabe der RichTextBox" RichTextBox1.SelectionAlignment = HorizontalAlignment.Center Dim h As Integer = RichTextBox1.Size.Height Dim f As Single = RichTextBox1.Font.Height For i As Integer = 0 To CInt(Math.Truncate(h / f)) \ 9 - 1 '(1 Is For 1 Line text ...Set 2 If you have 2 lines text e.t.c) RichTextBox1.Text += vbCr & vbLf Next RichTextBox1.Text += "In this window you can enter your server data." & vbCrLf & vbCrLf & " IMPORTANT INFO !!!!!!!" & vbCrLf & vbCrLf & "After you have clicked Save , this window will never Open again !!!" & vbCrLf & " Please check your entries exactly did befor they will save. " & vbCrLf & " Best greetings," & vbCrLf & "Sonaca" #End Region End Sub #Region "savebutten" ' Abfrage ob die textboxen ausgefüllt worden sind Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click If TextBox1.Text = "" Then MsgBox("Pleae Enter ur Update URL") Else My.Settings.url = TextBox1.Text My.Settings.Save() End If If TextBox2.Text = "" Then MsgBox("Pleae Enter ur Website URL") Else My.Settings.purl = TextBox2.Text My.Settings.Save() End If If TextBox3.Text = "" Then Else My.Settings.port = TextBox3.Text My.Settings.Save() My.Settings.Reload() End If 'Abfrage ob eine url zum updater und zur hompage gespeichert wurde If My.Settings.url & My.Settings.purl = "" = True Then MsgBox("es wurde kein wert hinterlegt") Else Hauptseite.Show() Me.Hide() End If End Sub #End Region habe ich irgendwas übersehen oder vergessen ?
grüße |
|
Antwort: |
Von |
Nico |
E-Mail |
nico.schertler@studentpartners.de |
Datum |
06. September 2015 um 09:48:23 |
Antwort |
Mal von vorn. Wo sind die Einträge vorhanden? Wo werden sie angezeigt, wo nicht? Wie hast du geprüft, dass "irgendwie keine Einträge gespeichert" werden? Wenn Einstellungen während des Ausführens geändert und gespeichert werden, werden sie in einer Datei abgelegt (soweit ich weiß meistens im Ausführungsordner). In Visual Studio sind diese geänderten Einstellungen nicht sichtbar. |
|
[ Antwort schreiben | Zurück zum VB.Net-Forum | Forum-Hilfe ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|