|
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 ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|