Feedback

VB - Ansichtsmodus für Forms (Alle Eingabefelder deaktivieren)

Veröffentlicht von am 27.07.2009
(2 Bewertungen)
Mit dieser Funktion kann man alle Eingabefelder einer Form (de)aktivieren und somit einen Ansichtsmodus realisieren. Nützlich wenn man z.B. mit einem Locking arbeitet und ein Datensatz schon von wem anders bearbeitet wird.

Das Array Controls() muss entsprechend angepasst werden, je nach dem was man alles abschalten möchte und wie die Controls bei dir benannt sind.
GFU-Schulungen  [Anzeige]

Angular mit ASP.NET Core für .NET-Entwickler

.NET ist Ihnen vertraut, als Entwickler verfügen Sie über einschlägige Kenntnisse. In diesem Kurs lernen Sie nun, Angular in .NET-Umgebungen einzusetzen. Sie verstehen das Konzept von Angular und integrieren das clientseitige JS-Framework sicher in.NET-Anwendungen.

Visual Studio Team Foundation Server 2017/2015 (TFS) für Projektmitglieder - Kompakt

Nach Teilnahme an dieser Schulung sind Ihnen die Grundlagen von ALM geläufig. Sie planen und steuern Projekte effizient mit dem Visual Studio Team Foundation Server.

''' <summary>
''' Deaktiviert alle Eingabefelder der Form
''' </summary>
''' <param name="ParentForm"></param>
''' <param name="Enabled"></param>
''' <remarks></remarks>
Public Sub DisableForm(ByRef ParentForm As System.Windows.Forms.Form, Optional ByVal Enabled As Boolean = False)
	Dim Controls() As String = {"TextBox", "ListBox", "ComboBox", "Button"}
	Dim L As New List(Of Control)
	For Each CtrlType As String In Controls
		If GetControls(ParentForm, CtrlType, L) = True Then
			For Each ctl As Control In L
				ctl.Enabled = Enabled
			Next
		End If
	Next
End Sub

''' <summary>
''' Aktiviert alle Eingabefelder der Form
''' </summary>
''' <param name="frm"></param>
''' <remarks></remarks>
Public Sub EnableForm(ByRef frm As System.Windows.Forms.Form)
	DisableForm(frm, True)
End Sub

''' <summary>
''' Sammelt alle Controls, deren Bezeichnung dem gegebenen Key entsprechen
''' </summary>
''' <param name="BaseControl">Parent, in dem gesucht werden soll</param>
''' <param name="Key">Bezeichnung, Teil der Bezeichnung</param>
''' <param name="L"></param>
''' <param name="Recursive"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Function GetControls(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal Recursive As Boolean = True) As Boolean
	If L Is Nothing Then L = New List(Of Control)
	Dim InsertThisControl As Boolean
	Dim ReturnFlag As Boolean = False

	Key = Key.ToLower

	'Alle Children durchlaufen
	If BaseControl.HasChildren = True Then
		For Each ctl As Control In BaseControl.Controls
			InsertThisControl = False

			If Key Is Nothing Then
				'Alle einfügen
				InsertThisControl = True
			Else
				'Key-Bezeichnung im Control-Namen enthalten?
				If InStr(ctl.Name.ToLower, Key) > 0 Then
					InsertThisControl = True
				End If
			End If

			If InsertThisControl = True Then L.Add(ctl)

			If Recursive = True Then
				'Alle untergeordneten durchlaufen
				Call GetControls(ctl, Key, L)
			End If
		Next
	End If

	If L.Count > 0 Then Return True
	Return False
End Function

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!