Liste von Datatypes

cl10k · 3. November 2012, 07:56

Hallo,

ich möchte ein UserControl (hauptsächlich geht es dort um eine Textbox) auf eine von drei Möglichkeiten Datentypen beschränken: String, Single, Integer und die Eingabe dann auch Validieren können.

Ich habe es bereits mit Überladen versucht, allerdings habe ich keine Idee wie man dann unterscheiden sollte, ob die Eingabe "123abc" ein String sein soll oder eine Zahl mit Tippfehler. Also möchte ich stattdessen in den Properties des UserControls im Designer auswählen können, welcher Datentyp gerade relevant ist.

Ich benötige für die (Designer-)Properties eines UserControls also eine einfache Liste von DataTypes.

Wie man ein Enum als Property erstellt, ist mir klar. Aber wie formuliere ich die Liste richtig? So wie unten geht es natürlich nicht...

Quellcode

Public Enum Typus as DataType
String
Single
Integer
End Enum

lg

ErfinderDesRades · 3. November 2012, 08:13

VB.NET-Quellcode

Public Enum Typus As Integer
[String]
[Single]
[Integer]
WasGutes_WasMalKeinReserviertesWortIst
End Enum

Die Rechteckigen Klammern sind erforderlich, weils sich jeweils um reservierte Worte handelt.

Wenn du im Zusammenhang damit auf weitere Probleme stößt (bit-Operatoren, Vorränge etc.), bilde dich gründlich: dieses Buch lesen (hingegen das Galileio-Openbook ist Mist) enthält ein erschlagendes Kapitel über Enums.

RodFromGermany · 5. November 2012, 12:55

cl10k schrieb:

Aber wie formuliere ich die Liste richtig?

Die Syntax mit dfen eckigen Klammern für reservierte Worte ist sicher schön, trotzdem empfehle ich Dir, solche Worte nicht zu verwenden, um Dich nicht zusätzlich zu verwirren. Außerdem halte ich persönlich diese Schreibweise mit den eckigen Klammern für lästig.

VB.NET-Quellcode

Public Enum DataType As Integer
MyString
MySingle
MyInteger
NochWasAnderes
End Enum

ErfinderDesRades · 5. November 2012, 13:05

das mit den [] muß man nur inne definition machen - im Code kann man das dann ohne [] nutzen:

VB.NET-Quellcode

dim bla = Typus.Integer

Es kann auch nicht mit Integer verwecheselt werden, weil bei Enums ja immer die Enum-Klasse mit-genannt werden muß.

~blaze~ · 5. November 2012, 13:12

Hi
die eckigen Klammern benötigt man normalerweise beim Zugriff eh nicht. Was es übrigens ebenfalls gibt ist TypeCode, wenn du die möglichen Werte nicht so stark reduzieren möchtest. Da die TypeCode-Einträge abgesehen von String alle aufeinanderfolgende Zahlen besitzen, kannst du sie einfach in ein Array packen und das Enum als Index verwenden.
Hier noch das Enum (ohne eckige Klammern)

Quellcode

Empty = 0
Object = 1
DBNull = 2
Boolean = 3
Char = 4
SByte = 5
Byte = 6
Int16 = 7
UInt16 = 8
Int32 = 9
UInt32 = 10
Int64 = 11
UInt64 = 12
Single = 13
Double = 14
Decimal = 15
DateTime = 16
String = 18

@ErfinderDesRades: Wenn man das Enum importiert, muss man den Pfad nicht mehr angeben.

Gruß
~blaze~

cl10k · 7. November 2012, 22:25

Euch kann man auch nicht aus den Augen lassen, hier ging es ja noch weiter^^

Ich probiere grad ein bisschen mit Enum-Alternativen herum. So richtig glücklich bin ich mit der bisherigen Lösung noch nicht.

Anbei ein kurzer Ausschnitt aus meinem Usercontrol (reduziert auf die aktuelle Fragestellung):

VB.NET-Quellcode

Public Enum Datentypus As Integer
[String]
[Single]
[Integer]
End Enum
Public Class SPK_Textbox
Private pTypus As Datentypus
Public Property Typus() As Datentypus
Get
Return pTypus
End Get
Set(ByVal value As Datentypus)
pTypus = value
End Set
End Property
'hier dann mehrere andere Properties, u.a. eine Textbox "txt_Wert" die Single, Integer oder Strings aufnehmen soll
'Validierung der Textboxeingabe entsprechend des vorgewählten Datentyps
Private Sub txt_Wert_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txt_Wert.Validating
Validierung(txt_Wert.Text, pTypus)
End Sub
Sub Validierung(ByVal temp, ByVal pTypus)
Select Case pTypus
Case 0 'String
If String.IsNullOrEmpty(temp.trim()) Then
SPK_ErrorProvider.SetError(txt_Wert, "String ungültig")
Else
SPK_ErrorProvider.SetError(txt_Wert, "")
End If
Case 1 'Single
If IsNumeric(temp) Then
SPK_ErrorProvider.SetError(txt_Wert, "")
Else
SPK_ErrorProvider.SetError(txt_Wert, "Single ungültig")
End If
End Select
End Sub
End Class

Die Case-Schleife nutze ich um eine Validierung der Textbox-Eingaben entsprechend des gewählten Datentypus vorzunehmen. Richtig elegant sieht das aber nicht aus. Aber ich bleibe am Ball. Erstmal gilt es genug Grundlagen zu lernen um endlich mal effizienter zu programmieren...

lg

ErfinderDesRades · 7. November 2012, 22:31

das kompiliert doch garnet, was du uns hier vorsetzt.

Und oder machma Option Strict On!

cl10k · 7. November 2012, 22:53

ErfinderDesRades schrieb:

das kompiliert doch garnet, was du uns hier vorsetzt.

Darum schrieb ich:

Anbei ein kurzer Ausschnitt aus meinem Usercontrol (reduziert auf die aktuelle Fragestellung)

Unten also nun der komplette Code des UserControls. Ich konzentriere mich derzeit NUR auf die Auswahl des Datentyps der in das UC eingegeben werden soll. Alle weiteren Eigenschaften stehen vorerst hinten an...

VB.NET-Quellcode

Imports System.ComponentModel
Public Enum Datentypus As Integer
[String]
[Single]
[Integer]
End Enum
Public Class SPK_Textbox
Private pTypus As Datentypus
<Category("Eingaben")> _
Public Property Typus() As Datentypus
Get
Return pTypus
End Get
Set(ByVal value As Datentypus)
pTypus = value
End Set
End Property
'Bezeichnung (Text-Eigenschaft) des Eingabefeldes
<Category("Eingaben"), Browsable(True), DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
Overrides Property Text() As String
Get
Return lbl_Bezeichner.Text
End Get
Set(ByVal Value As String)
lbl_Bezeichner.Text = Value
End Set
End Property
'Eingabe der aktuellen Variablen
<Category("Eingaben")> _
Public Property Wert() As Object
Get
Return txt_Wert.Text
End Get
Set(ByVal value As Object)
txt_Wert.Text = value
End Set
End Property
'Anzeige des zulässigen Wertebereichs der aktuellen Variablen
<Category("Eingaben")> _
Public Property Bereich()
Get
Return lbl_Bereich.Text
End Get
Set(ByVal value)
lbl_Bereich.Text = value
End Set
End Property
'Valierung der Eingaben; Textchanged-Event für JIT-Anpassung der TAGs, Validating-Event(bei Verlassen) um zu verhindern das jemand ohne Eingabe einfach weiterspringt
Private Sub txt_Wert_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Wert.TextChanged
Validierung(txt_Wert.Text, pTypus)
End Sub
Private Sub txt_Wert_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txt_Wert.Validating
Validierung(txt_Wert.Text, pTypus)
End Sub
Sub Validierung(ByVal temp, ByVal pTypus)
Select Case pTypus
Case 0 'String
If String.IsNullOrEmpty(temp.trim()) Then
SPK_ErrorProvider.SetError(txt_Wert, "String ungültig")
Else
SPK_ErrorProvider.SetError(txt_Wert, "")
End If
Case 1 'Single
If IsNumeric(temp) Then
SPK_ErrorProvider.SetError(txt_Wert, "")
Else
SPK_ErrorProvider.SetError(txt_Wert, "Single ungültig")
End If
End Select
End Sub
End Class

ErfinderDesRades · 7. November 2012, 23:22

also bei dir steht tatsächlich

VB.NET-Quellcode

Sub Validierung(ByVal temp, ByVal pTypus)

machma Option Strict On!

cl10k · 8. November 2012, 00:09

ErfinderDesRades schrieb:

also bei dir steht tatsächlich

Sub Validierung(ByVal temp, ByVal pTypus)

Ja! Soweit scheint die Validierung auch zu funktionieren.

Mit Option Strict On (benutze ich zum ersten Mal, dein Link ist aber sehr informativ):

VB.NET-Quellcode

Option Strict On
Imports System.ComponentModel
Public Enum Datentypus As Integer
[String]
[Single]
[Integer]
End Enum
Public Class SPK_Textbox
Private pTypus As Datentypus
<Category("Eingaben")> _
Public Property Typus() As Datentypus
Get
Return pTypus
End Get
Set(ByVal value As Datentypus)
pTypus = value
End Set
End Property
'Bezeichnung (Text-Eigenschaft) des Eingabefeldes
<Category("Eingaben"), Browsable(True), DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
Overrides Property Text() As String
Get
Return lbl_Bezeichner.Text
End Get
Set(ByVal Value As String)
lbl_Bezeichner.Text = Value
End Set
End Property
'Eingabe der aktuellen Variablen
<Category("Eingaben")> _
Public Property Wert() As Object
Get
Return txt_Wert.Text
End Get
Set(ByVal value As Object)
txt_Wert.Text = CStr(value)
End Set
End Property
'Anzeige des zulässigen Wertebereichs der aktuellen Variablen
<Category("Eingaben")> _
Public Property Bereich() As String
Get
Return lbl_Bereich.Text
End Get
Set(ByVal value As String)
lbl_Bereich.Text = value
End Set
End Property
'Valierung der Eingaben; Textchanged-Event für JIT-Anpassung der TAGs, Validating-Event(bei Verlassen) um zu verhindern das jemand ohne Eingabe einfach weiterspringt
Private Sub txt_Wert_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Wert.TextChanged
Validierung(txt_Wert.Text, pTypus)
End Sub
Private Sub txt_Wert_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txt_Wert.Validating
Validierung(txt_Wert.Text, pTypus)
End Sub
Sub Validierung(ByVal temp As String, ByVal pTypus As Integer)
Select Case pTypus
Case 0 'String
If String.IsNullOrEmpty(temp.Trim()) Then
SPK_ErrorProvider.SetError(txt_Wert, "String ungültig")
Else
SPK_ErrorProvider.SetError(txt_Wert, "")
End If
Case 1 'Single
If IsNumeric(temp) Then
SPK_ErrorProvider.SetError(txt_Wert, "")
Else
SPK_ErrorProvider.SetError(txt_Wert, "Single ungültig")
End If
End Select
End Sub
End Class

ErfinderDesRades · 8. November 2012, 07:34

wow!
glaub das erste mal, dassich sehe, wie jmd in strict On einsteigt, und gleich die Datentypen für sich arbeiten lässt, statt erstmal alles händisch zu casten. Da gebichmir mal Mühe, zu zeigen, wie Enums arbeiten können:

VB.NET-Quellcode

Public Enum Datentypus As Integer
[String]
[Single]
[Integer]
End Enum
Public Class SPK_Textbox
Private pTypus As Datentypus
'WithEvents txt_Wert As TextBox, SPK_ErrorProvider As ErrorProvider
Private Sub txt_Wert_Validating(ByVal sender As Object, ByVal e As CancelEventArgs) Handles txt_Wert.Validating
e.Cancel = Not IsValid()
SPK_ErrorProvider.SetError(txt_Wert, If(e.Cancel, "", pTypus.ToString & " ungültig"))
End Sub
Function IsValid() As Boolean
Select Case pTypus
Case Datentypus.String
Return True
Case Datentypus.Integer
Return Integer.TryParse(txt_Wert.Text, New Integer)
Case Datentypus.Single
Return Single.TryParse(txt_Wert.Text, New Single)
Case Else
Throw New NotSupportedException
End Select
End Function
End Class

Validierung bereits im TextChanged ist evtl. unerwünscht, dass halbfertige Eingaben bereits angemeckert werden.
Gugge Control.Validating + ErrorProvider

Man könnte sich auch was mit der Wert-Property überlegen - die muß ja bei Invalid Nothing zurückgeben. Ach das geht ja nicht, weil Integer und Single Structures sind. Also da hast du ein Design-Technisches Problem mit dieser Property

Aber mach Option Strict On! lieber vollständig, also als Projekt-Einstellung und Einstellung der IDE.

Und zu Enums enthält dieses Buch lesen (hingegen das Galileio-Openbook ist Mist) ein hervorragendes Kapitel.

cl10k · 8. November 2012, 16:12

Danke für deine ausführliche Antwort. Sehr spannend zu sehen, wie mans richtig macht!

Die Validierung im Textchanged-Event habe ich gewählt, weil ich bestimmte Werte in "Echtzeit" an die laufende Usereingabe anpassen möchte.

Liste von Datatypes

Liste von Datatypes

Quellcode

VB.NET-Quellcode

cl10k schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

VB.NET-Quellcode

ErfinderDesRades schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

ErfinderDesRades schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben