Tipp 0102 Gültigkeitsbereich von Datentypen
Autor/Einsender:
Datum:
  Michael Werner
10.01.2006
Entwicklungsumgebung:   VB.Net 2003
Framework:   1.1
Hier werden die Gültigkeitsbereiche der numerischen Datentypen in VB.Net per Code ausgelesen und aufgelistet.
 
Public Class Form1
  Inherits System.Windows.Forms.Form
Vom Windows Form Designer generierter Code
  Private Sub Form1_Load(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles MyBase.Load
    With ListBox1
      .Items.Add("Byte: " & vbTab & vbTab & _
          Byte.MinValue.ToString & vbTab & vbTab & vbTab & _
          vbTab & Byte.MaxValue.ToString)
      .Items.Add("Short: " & vbTab & vbTab & _
          Short.MinValue.ToString & vbTab & vbTab & vbTab & _
          vbTab & Short.MaxValue.ToString)
      .Items.Add("Integer: " & vbTab & vbTab & _
          Integer.MinValue.ToString & vbTab & vbTab & vbTab & _
          Integer.MaxValue.ToString)
      .Items.Add("Long: " & vbTab & vbTab & _
          Long.MinValue.ToString & vbTab & vbTab & _
          Long.MaxValue.ToString)
      .Items.Add("Single: " & vbTab & vbTab & _
          Single.MinValue.ToString & vbTab & vbTab & vbTab & _
          Single.MaxValue.ToString)
      .Items.Add("Double: " & vbTab & vbTab & _
          Double.MinValue.ToString & vbTab & vbTab & _
          Double.MaxValue.ToString)
      .Items.Add("Decimal: " & vbTab & vbTab & _
          Decimal.MinValue.ToString & vbTab & _
          Decimal.MaxValue.ToString)
    End With

    Dim s1 As New String(Chr(32), 18)
    Dim s2 As New String(Chr(32), 47)
    Label1.Text = _
        "Datentyp" & s1 & "Minimalwert" & s2 & "Maximalwert"
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
    Me.Close()
  End Sub
End Class
 

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (6,6 kB) Downloads bisher: [ 324 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Dienstag, 24. Januar 2012