'Beispiel: VB .Net - Zufallszahlen aus Min-Max-Wert ermitteln. 2 ' Imports System Imports System.Drawing Imports System.Windows.Forms Namespace VBDotNet_ZufallszahlenAus_Min_Max_WertErmitteln_2 Public Class MainForm Inherits System.Windows.Forms.Form Private label1 As System.Windows.Forms.Label Private button1 As System.Windows.Forms.Button Public Shared Sub Main Dim fMainForm As New MainForm fMainForm.ShowDialog() End Sub Public Sub New() MyBase.New Me.InitializeComponent End Sub #Region " Windows Forms Designer generated code " ' This method is required for Windows Forms designer support. ' Do not change the method contents inside the source code editor. The Forms designer might ' not be able to load this method if it was changed manually. Private Sub InitializeComponent() Me.button1 = New System.Windows.Forms.Button Me.label1 = New System.Windows.Forms.Label Me.SuspendLayout ' 'button1 ' Me.button1.Location = New System.Drawing.Point(88, 72) Me.button1.Name = "button1" Me.button1.Size = New System.Drawing.Size(128, 32) Me.button1.TabIndex = 0 Me.button1.Text = "&Get Rnd-Number..." AddHandler Me.button1.Click, AddressOf Me.Button1Click ' 'label1 ' Me.label1.Font = New System.Drawing.Font("Arial", 10!, System.Drawing.FontStyle.Bold) Me.label1.ForeColor = System.Drawing.Color.Red Me.label1.Location = New System.Drawing.Point(8, 8) Me.label1.Name = "label1" Me.label1.Size = New System.Drawing.Size(280, 48) Me.label1.TabIndex = 1 Me.label1.Text = "#" Me.label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'MainForm ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 109) Me.Controls.Add(Me.label1) Me.Controls.Add(Me.button1) Me.MaximizeBox = false Me.MinimizeBox = false Me.Name = "MainForm" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Testform <Zufallszahlen aus Min-Max-Wert ermitteln. 2>" Me.ResumeLayout(false) End Sub #End Region Private Sub Button1Click(sender As System.Object, e As System.EventArgs) Dim grn As New GetRndNumber Dim ptResult As Integer Call grn.GetNumber(ptResult, Min:=1, Max:=500) label1.Text = ptResult.ToString End Sub End Class End Namespace Class GetRndNumber Public Shared Sub GetNumber(ByRef ptResult As Integer, Optional ByVal Min As Integer = 1, _ Optional ByVal Max As Integer = 1000) Try Dim rndNumber As New System.Random(CType(System.DateTime.Now.Ticks Mod System.Int32.MaxValue, Integer)) ptResult = rndNumber.Next(Min, Max + 1) Catch ex As Exception ' End Try End Sub End Class