VB.Net-Forum - Beitragsübersicht -
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 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