From bda8469bc0eaa76fd5189338059d1b932b83dcd2 Mon Sep 17 00:00:00 2001 From: JenneJ Date: Wed, 9 Dec 2015 12:26:22 +0100 Subject: [PATCH] jj_09_12 --- app/DD-Record-Organiser/ModuleHelperMethods.vb | 5 +++++ app/DD-Record-Organiser/frmLevel_Designer.vb | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/app/DD-Record-Organiser/ModuleHelperMethods.vb b/app/DD-Record-Organiser/ModuleHelperMethods.vb index a936910..df0c23e 100644 --- a/app/DD-Record-Organiser/ModuleHelperMethods.vb +++ b/app/DD-Record-Organiser/ModuleHelperMethods.vb @@ -353,4 +353,9 @@ frm.Show() End Sub + + Public Function ShortGUID() As String + Return Guid.NewGuid().ToString().GetHashCode().ToString("x") + End Function + End Module diff --git a/app/DD-Record-Organiser/frmLevel_Designer.vb b/app/DD-Record-Organiser/frmLevel_Designer.vb index a646717..9b79334 100644 --- a/app/DD-Record-Organiser/frmLevel_Designer.vb +++ b/app/DD-Record-Organiser/frmLevel_Designer.vb @@ -109,7 +109,8 @@ Dim def_font_style As Integer = 0 Dim def_font_size As Integer = 8 - Dim random As Integer = r.Next(8, 100) + Dim random As String = ShortGUID() + 'Dim random As Integer = r.Next(8, 100) Select Case type Case "lbl" CtrlBuilder.AddLabel("lbl" & random, "Bezeichnung definieren", 0, 0, def_font_family, def_font_color, def_font_size, def_font_style, "", True, Parent)