ContextMenuStrip hø-klik menu

Et bud:

    Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
        Dim source As TextBox = Me.ContextMenuStrip1.SourceControl

        If source.Equals(Me.TextBox1) Then
            MsgBox("Seng 1,1")
        ElseIf source.Equals(Me.TextBox2) Then
            MsgBox("Seng 1,2")
        End If
    End Sub

...men hvilket bud - det fungerer til punkt og prikke. Tak for det - svar lige for point :0)
Et lille tillægsspørgsmål (blot hvis du skulle vide det): Contextmenuen vises selv om textboxen er tom. Kan man undgå at den gør det?
vh Steen

Værsgod:

    Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening

        Dim source As TextBox = Me.ContextMenuStrip1.SourceControl

        If source.Text.Trim = "" Then
            e.Cancel = True
        Else
            If source.Equals(Me.TextBox1) Then
                MsgBox("Seng 1,1")
            ElseIf source.Equals(Me.TextBox2) Then
                MsgBox("Seng 1,2")
            End If
        End If

    End Sub

Tja så er det bare at sige tusinde tak for hjælpen :0)

...hvad betyder .trim?

Trim() fjerner mellemrum fra hver ende af en tekst.

Ved at inkludere den, så sikre du dig at det også fungere selv om brugeren skriver et antal blanktegn i tekst-feltet. :^)

Det burde nok have været:

If source.Text.Trim() = "" Then

- i stedet for:

If source.Text.Trim = "" Then

- men VB.Net er øjensynligt ikke så nærtagende på det punkt. :^)

OK - tak!
Kan du også svare på det her - så  er det mere end godt: Hvis men har en variabel man gerne vil anvende når man eksempelvis klikker på 1 item i contextmenuen hvorledes skal den variabel så dim'es?

eksempel:
If source.Equals(Me.TextBox1) Then
                HCV = me.textbox1.text
                Cpr = me.textbox73.text
            ElseIf source.Equals(Me.TextBox2) Then
              ' MsgBox("Seng 1,2")
            End If

med andre ord hvorledes skal HCV og Cpr dim'es hvis de skal kunne bruges i click-menuen?
vh Steen

Hvis de kun skal bruges der, og ikke andre steder, ja så er det der at de skal Dim'es.

    Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening

        Dim source As TextBox = Me.ContextMenuStrip1.SourceControl

        If source.Text.Trim() = "" Then
            e.Cancel = True
        Else
            If source.Equals(Me.TextBox1) Then
                Dim HCV As String = Me.TextBox1.Text
                Dim Cpr As String = Me.TextBox73.text
                MsgBox("Seng 1,1")
            ElseIf source.Equals(Me.TextBox2) Then
                MsgBox("Seng 1,2")
            End If
        End If

    End Sub

...også selv om de skal bruges i eksempelvis:

ToolStripMenuItem1_Click

Nej, for så er det jo ikke *kun* der at de skal bruges. ;^)

Så skal de "ud" hvor at de kan ses fra resten af form'en:

Public Class Form1

    Private HCV As String = ""
    Private Cpr As String = ""

    Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening

        Dim source As TextBox = Me.ContextMenuStrip1.SourceControl

        If source.Text.Trim() = "" Then
            e.Cancel = True
        Else
            If source.Equals(Me.TextBox1) Then
                HCV = Me.TextBox1.Text
                Cpr = Me.TextBox73.Text
                MsgBox("Seng 1,1")
            ElseIf source.Equals(Me.TextBox2) Then
                MsgBox("Seng 1,2")
            End If
        End If

    End Sub
End Class

Igen tusinde tak for de mange gange hjælp - nu kan jeg vist heller ikke få mere for den "25-øre" :0)

vh Steen

Selv tak for point :^)