AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj_09_12

Browse Source
This commit is contained in:
JenneJ 2015-12-09 12:26:22 +01:00
parent a3f4ae3e41
commit bda8469bc0
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/DD-Record-Organiser/ModuleHelperMethods.vb
View File

@ -353,4 +353,9 @@
frm.Show() frm.Show()
End Sub End Sub
Public Function ShortGUID() As String
Return Guid.NewGuid().ToString().GetHashCode().ToString("x")
End Function
End Module End Module

3
app/DD-Record-Organiser/frmLevel_Designer.vb
View File

@ -109,7 +109,8 @@
Dim def_font_style As Integer = 0 Dim def_font_style As Integer = 0
Dim def_font_size As Integer = 8 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 Select Case type
Case "lbl" Case "lbl"
CtrlBuilder.AddLabel("lbl" & random, "Bezeichnung definieren", 0, 0, def_font_family, def_font_color, def_font_size, def_font_style, "", True, Parent) CtrlBuilder.AddLabel("lbl" & random, "Bezeichnung definieren", 0, 0, def_font_family, def_font_color, def_font_size, def_font_style, "", True, Parent)