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

Enable btnLink only when valid selections are made

Browse Source 
Added EnableBtnLink method to control btnLink's enabled state based on lbxWMIndex and lbxQuelle1 selections or txtManIndexwert input. btnLink is now disabled by default and updated dynamically via selection change handlers.
This commit is contained in:
OlgunR
2026-03-12 17:12:50 +01:00
parent 3001ccf43f
commit 9613682fe0
2 changed files with 18 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
ToolCollection/frmNIVerknuepfungen.Designer.vb generated
View File

@@ -1763,6 +1763,7 @@ Partial Class frmNIVerknuepfungen
' '
'btnLink 'btnLink
' '
Me.btnLink.Enabled = False
Me.btnLink.Image = Global.ToolCollection.My.Resources.Resources.link Me.btnLink.Image = Global.ToolCollection.My.Resources.Resources.link
Me.btnLink.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.btnLink.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnLink.Location = New System.Drawing.Point(409, 167) Me.btnLink.Location = New System.Drawing.Point(409, 167)

17
ToolCollection/frmNIVerknuepfungen.vb
View File

@@ -560,6 +560,7 @@ Public Class frmNIVerknuepfungen
Next Next
End If End If
EnableBtnLink()
End If End If
@@ -1393,6 +1394,13 @@ Public Class frmNIVerknuepfungen
End Try End Try
End Function End Function
Private Sub EnableBtnLink()
btnLink.Enabled =
lbxWMIndex.SelectedItems.Count > 0 And
(lbxQuelle1.SelectedItems.Count > 0 OrElse txtManIndexwert.Text <> "")
End Sub
Private Sub btnLink_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLink.Click Private Sub btnLink_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLink.Click
' wenn im ListView ein Element selektiert wurde ' wenn im ListView ein Element selektiert wurde
If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then
@@ -2829,6 +2837,8 @@ Public Class frmNIVerknuepfungen
Else Else
grbFilterDB.Enabled = True grbFilterDB.Enabled = True
End If End If
EnableBtnLink()
End Sub End Sub
Private Sub txtGrundgeruest_check_Click(sender As System.Object, e As System.EventArgs) Handles txtGrundgeruest_check.Click Private Sub txtGrundgeruest_check_Click(sender As System.Object, e As System.EventArgs) Handles txtGrundgeruest_check.Click
Me.txtCheckIndexSQL.Text = "SELECT COUNT(*) FROM [%view] WHERE " Me.txtCheckIndexSQL.Text = "SELECT COUNT(*) FROM [%view] WHERE "
@@ -3522,7 +3532,14 @@ Public Class frmNIVerknuepfungen
If _selectedIndex_Type Is Nothing = False Then If _selectedIndex_Type Is Nothing = False Then
visinvisible_Vektor_ins_State() visinvisible_Vektor_ins_State()
End If End If
EnableBtnLink()
End Sub End Sub
Private Sub lbxQuelle1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbxQuelle1.SelectedIndexChanged
EnableBtnLink()
End Sub
Sub visinvisible_Vektor_ins_State() Sub visinvisible_Vektor_ins_State()
If _selectedIndex_Type.StartsWith("Vektor") Then If _selectedIndex_Type.StartsWith("Vektor") Then
Me.rbvkt_add.Visible = True Me.rbvkt_add.Visible = True