edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-11-26 14:39:09 +01:00
parent 490ef4a702
commit ca1cc4f8fa
52 changed files with 8152 additions and 4542 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb
View File

@@ -10,15 +10,15 @@ Public Class MyComboBox
Public Sub New()
End Sub
Sub fillWithMyListItem(l As List(Of MyListItem), Optional firstEmpty As Boolean = False)
MyBase.Items.Clear()
Sub fillWithMyListItem(l As List(Of MyListItem), Optional firstEmpty As Boolean = False, Optional clearList As Boolean = True)
If clearList Then MyBase.Items.Clear()
If firstEmpty Then
Me.Items.Insert(0, New MyListItem("", ""))
End If
For Each i In l : MyBase.Items.Add(i) : Next
End Sub
Sub fillWithSQL(sqlstr As String, Optional showValueInText As Boolean = True, Optional conn As String = "SDL", Optional firstEmpty As Boolean = False)
fillWithMyListItem((New SQL).loadCboBySqlWithListItem(sqlstr, showValueInText, conn), firstEmpty)
Sub fillWithSQL(sqlstr As String, Optional showValueInText As Boolean = True, Optional conn As String = "SDL", Optional firstEmpty As Boolean = False, Optional clearList As Boolean = True)
fillWithMyListItem((New SQL).loadCboBySqlWithListItem(sqlstr, showValueInText, conn), firstEmpty, clearList)
End Sub
Public Property _value As String