VB.Net-Forum - Beitragsübersicht -
ThemaV12: 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 ]
Antworten
V12: My.Settings - Inveritas 04. September 2015 um 10:38:53
Re: My.Settings - Inveritas 05. September 2015 um 05:50:42
Re: My.Settings - Nico 06. September 2015 um 09:48:23
Re: My.Settings - Inveritas 07. September 2015 um 06:43:32
Re: My.Settings - Nico 07. September 2015 um 08:26:09

Ihre Antwort
(Nick-)Name   Wichtige Informationen zur Namensangabe
E-Mail (opt.)  Wichtige Informationen zur Angabe einer eMail-Adresse
Thema   Wichtige Informationen zur Angabe eines Themas
Betrifft (IDE)  VB 2012
Ihre Antwort
Smilies
Mehr...
FettKursivUnterstrichen   Übersicht der Tipp-KürzelÜbersicht der Projekt-KürzelÜbersicht der Bücher-Kürzel 
Homepage
Titel
Root-Smilies              
             
             
[ Zurück zum VB.Net-Forum | Forum-Archiv | Forum-Hilfe | Chat ]

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB.Net | VB/VBA-Forum | DirectX | DirectX-Forum | Chat | Ausschreibungen | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 13. Dezember 2015