vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Re: Eingabe im Ereignisfenster werden nicht übernommen 
Autor: Manfred X
Datum: 10.04.19 13:25

Du mußt den Inhalt Deiner _text-Variable persistent machen.
Ich kenne Dein Programm nicht.
Es gibt Settings, Propertybags usw.

Hier ein triviales Beispiel mit einer Textdatei.
Imports System.ComponentModel
 
Public Class ucTest
    Private Sub ucTest_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
        If IO.File.Exists(Textfile) Then
            'den Text laden
            Text = IO.File.ReadAllText(Textfile)
        End If
        Me.Invalidate()
    End Sub
 
    Dim Textfile As String = "G:\daten\usercontrol_text.txt"
 
    Dim _text As String
    Dim _textfont As New Font("Arial", 14, FontStyle.Bold)
 
    Public Shadows Event TextChanged(sender As Object, e As EventArgs)
 
    <Browsable(True), Description("Text der zurück gegeben wird oder der" &
     " angezeigt werden soll"), RefreshProperties(RefreshProperties.Repaint)>
    Public Overrides Property Text As String
        Get
            Return _text
        End Get
        Set(ByVal value As String)
            If value IsNot Nothing Then
                _text = value
                'den Text speichern
                IO.File.WriteAllText(Textfile, Me.Text)
                RaiseEvent TextChanged(Me, EventArgs.Empty)
            End If
        End Set
    End Property
 
 
    Private Sub ucTest_TextChanged(sender As Object, 
                       e As EventArgs) Handles Me.TextChanged
 
        Me.Invalidate()
 
    End Sub
 
 
    Protected Overrides Sub OnPaint(e As PaintEventArgs)
        MyBase.OnPaint(e)
        Using br As New SolidBrush(Color.Red)
            e.Graphics.DrawString(Text & vbCrLf & "Grüße vom Event", _textfont, _
              br, 10, 10)
        End Using
 
    End Sub
 
End Class
Falls es nur darum geht, die Eigenschaft im Designerfenster sichtbar zu machen:
  <Browsable(True), Description("Text der zurück gegeben wird oder der" &
     " angezeigt werden soll")>
    Public Overrides Property Text As String
Es darf dann keine Variable deklariert werden!

Beitrag wurde zuletzt am 10.04.19 um 13:39:26 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Eingabe im Ereignisfenster werden nicht übernommen167Ne koelsche Jung10.04.19 10:32
Re: Eingabe im Ereignisfenster werden nicht übernommen67Manfred X10.04.19 11:26
Re: Eingabe im Ereignisfenster werden nicht übernommen58Ne koelsche Jung10.04.19 11:59
Re: Eingabe im Ereignisfenster werden nicht übernommen57Manfred X10.04.19 12:36
Re: Eingabe im Ereignisfenster werden nicht übernommen52Ne koelsche Jung10.04.19 12:40
Re: Eingabe im Ereignisfenster werden nicht übernommen58Manfred X10.04.19 13:25
Re: Eingabe im Ereignisfenster werden nicht übernommen56Kuno6010.04.19 16:10
Re: Eingabe im Ereignisfenster werden nicht übernommen53Ne koelsche Jung10.04.19 23:05
Re: Eingabe im Ereignisfenster werden nicht übernommen44sv0001011.04.19 17:17

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel