![]() |
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: [ 389 ]
|
|
|