[Visual Basic]
Private Sub StatusSetzenToolStripMenuItem_DropDownItemClicked( _ 
   ByVal sender As Object, _ 
   ByVal e As ToolStripItemClickedEventArgs _ 
) Handles  _ 
   StatusSetzenToolStripMenuItem.DropDownItemClicked

Parameter

sender

e

Quellcode

[Visual Basic]
    Private Sub StatusSetzenToolStripMenuItem_DropDownItemClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles StatusSetzenToolStripMenuItem.DropDownItemClicked 
        Dim i As Integer = -1 
        Dim akt As Boolean = False 
        For Each dr As DataRow In Me.Statusdata.Rows 
            If dr.Item("Bezeichnung") = e.ClickedItem.Text Then 
                i = dr.Item("Aktivitaetstatusnr") 
                If dr.Item("Aktivitaet_Aktivieren") = True Then akt = True Else akt = False 
 
            End If 
        Next 
        Me.Aktivitaet.Status_Wechsel(Me.C1Aktivitaeten.Columns("Aktivitaetnr").Value, i, akt) 
        Me.Refresh_Uebersicht() 
    End Sub

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

FrmAktivitaetenListe