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 Inveritas
Datum 07. September 2015 um 06:43:32
Antwort Danke für die Antwort ^^

Ging Darum, das meine gespeicherten werte mir nicht in der my.settings Ansicht also Projekt/Eigenschaften/Einstellungen Angezeigt wurden :-/

Ist jetzt eh hinfällig, da ich nun nach einigen Tutorials mitbekommen habe, das diese nur Lokal gespeichert werden, was mir Persöhnlich nix nützt, da der Updater mehrfach verteilt wird, und nicht jeder die
URL´s sowie Ports wissen soll...

womit sich mir jetzt die Frage stellt, wo speicher ich diese angaben, die jeder Hoster setzt, ohne das der User diese Auslesen oder ggf. ändern kann ...

grüße
Inveritas
[ 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