VB Toolstrip Problem (Rast) - Computerhilfen.de

Vielleicht hilft es, wenn ich noch den Kompletten Code einfüge: (ohne Windows generatred code)
Pulic Class frmSort
    Inherits System.Windows.Forms.Form

    ' * Variablen *

    ' Strings für eingegebenen Text, Umlaute und ausgewähltes Sortierverfahren
    Public strSort As String
    Public strZeichen As String
    Public strVerfahren As String

    ' Char für den Tauschvorgang
    Public chrTemp As Char

    ' Long für die Vergleiche
    Public lngA As Long
    Public lngB As Long

    ' Date für die Zeitangaben
    Public time1 As Date
    Public time2 As Date

    ' Booleans für den Button Abbrechen und das Extra Umlaute berücksichtigen
    Public blnAktiv As Boolean
    Public blnUmlaut As Boolean

    ' Doubles für die Zeitberechnung
    Public dblC As Double
    Public dblD As Double

    ' ColorDialog für "Standard-Farbauswahl"
    Public dlgFarbschema As New ColorDialog


    ' * Button Sortieren *
    Public Sub cmdSort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSort.Click

        txtAusgabe.Text = ""
        strSort = Replace(txtEingabe.Text, " ", "")
        blnAktiv = False
        lblZeichen.Text = "x"
        lblStart.Text = "x"
        lblEnde.Text = "x"
        lblZeit.Text = "x"

        ' Starten/Anzeigen des Timers
        time1 = Now
        lblStart.Text = Format$(time1, "hh:mm:ss")
        dblC = Microsoft.VisualBasic.Timer

        ' Wenn die Option Umlaute berücksichtigen aktiviert ist...
        If mnuExtrasUmlaute.Checked Then
            blnUmlaut = True
        Else
            blnUmlaut = False
        End If

        ' Sortierverfahren auswählen und die passende Prozedur aufrufen
        Select Case strVerfahren
            Case "bubble"
                BubbleSort(strSort, lngA, lngB, blnAktiv, chrTemp, txtAusgabe, blnUmlaut)
            Case "ripple"
                RippleSort(strSort, lngA, lngB, blnAktiv, chrTemp, txtAusgabe, blnUmlaut)
            Case "quick"
                QuickSort(strSort, 1, Len(strSort), blnAktiv, txtAusgabe, blnUmlaut)
        End Select

        ' Wenn Abbrechen, dann Prozedur beenden
        If blnAktiv Then Exit Sub

        ' Die Zusatzinformationen berechnen und anzeigen
        dblD = Microsoft.VisualBasic.Timer
        lblZeit.Text = Format$(dblD - dblC, "0.000") & " sec."
        time2 = Now
        lblEnde.Text = Format$(time2, "hh:mm:ss")
        txtAusgabe.Text = strSort
        lblZeichen.Text = Len(strSort)

    End Sub

    ' * Button Stop *
    Public Sub cmdAbbrechen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAbbrechen.Click

        blnAktiv = True
        strSort = ""
        txtAusgabe.Text = ""
        lblZeichen.Text = "x"
        lblStart.Text = "x"
        lblEnde.Text = "x"
        lblZeit.Text = "x"

    End Sub


    ' ** Sortier-Algorithmen **

    ' * Radiobutton für Bubblesort *
    Public Sub optBubble_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optBubble.CheckedChanged

        strVerfahren = "bubble"

    End Sub

    ' * Radiobutton für Ripplesort *
    Public Sub optRipple_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optRipple.CheckedChanged

        strVerfahren = "ripple"

    End Sub

    ' * Radiobutton für Quicksort *
    Public Sub optQuick_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optQuick.CheckedChanged

        strVerfahren = "quick"

    End Sub


    ' ** Menü Datei **

    ' * Datei - Neu *
    Public Sub mnuDateiNeu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDateiNeu.Click

        txtEingabe.Text = ""
        txtAusgabe.Text = ""
        lblZeichen.Text = "x"
        lblStart.Text = "x"
        lblEnde.Text = "x"
        lblZeit.Text = "x"

    End Sub

    ' * Datei - Schliessen *
    Public Sub mnuDateiSchliessen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDateiSchliessen.Click

        If MsgBox("Wollen Sie die Applikation wirklich beenden?", MsgBoxStyle.YesNo, "Beenden") = vbYes Then

            ' Die Applikation schliessen, wenn auf Yes geklickt wird
            Close()

        End If

    End Sub


    ' ** Menü Bearbeiten **

    ' * Bearbeiten - Ausschneiden *
    Public Sub mnuBearbeitenAusschneiden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuBearbeitenAusschneiden.Click

        Dim txtEingabe As TextBox = CType(Me.ActiveControl, TextBox)
        Clipboard.SetText(txtEingabe.SelectedText)

        ' Die Aktuelle Cursorposition merken
        Dim cursorPosition As Integer = txtEingabe.SelectionStart
        Me.Ausschneiden(txtEingabe)

        ' Den Eingabecursor richtig positionieren
        txtEingabe.SelectionStart = cursorPosition

    End Sub

    ' Den markierten Text ausschneiden
    Public Sub Ausschneiden(ByVal txtEingabe As TextBox)

        Dim iLength As Integer = txtEingabe.SelectionLength + txtEingabe.SelectionStart
        txtEingabe.Text = txtEingabe.Text.Substring(0, txtEingabe.SelectionStart) & _
        txtEingabe.Text.Substring(iLength, txtEingabe.Text.Length - iLength)

    End Sub

    ' * Bearbeiten - Kopieren *
    Public Sub mnuBearbeitenKopieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuBearbeitenKopieren.Click

        If TypeOf Me.ActiveControl Is TextBox Then

            ' Konvertiere ActiveControl in TextBox, wodurch die Methode SelectedText unterstützt wird
            ' Kopiere die mit SetDataObject ausgewählten Daten in die Zwischenablage
            Clipboard.SetDataObject(CType(Me.ActiveControl, TextBox).SelectedText)

        End If

    End Sub

    ' * Bearbeiten - Einfügen *
    Public Sub mnuBearbeitenEinfuegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuBearbeitenEinfuegen.Click

        ' Holen der Daten aus der Zwischenablage mit GetDataObject und in die Textbox einfügen
        CType(Me.ActiveControl, TextBox).SelectedText = Clipboard.GetDataObject.GetData(DataFormats.Text)

    End Sub

    ' * Bearbeiten - Alles Markieren *
    Public Sub mnuBearbeitenAllesMarkieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuBearbeitenAllesMarkieren.Click

        ' Alles im Textfeld txtEingabe markieren
        If Me.ActiveControl Is txtEingabe Then
            txtEingabe.SelectAll()
        ElseIf Me.ActiveControl Is txtAusgabe Then
            txtAusgabe.SelectAll()
        End If

    End Sub


    ' ** Menü Extras **


    ' * Extras - Farbschema - Buttons *
    Public Sub mnuExtrasFarbschemaButtons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExtrasFarbschemaButtons.Click

        ' In Farbauswahldialog die aktuellen Buttonfarben selektieren
        dlgFarbschema.Color = cmdSort.BackColor
        dlgFarbschema.Color = cmdAbbrechen.BackColor
        dlgFarbschema.Color = frmInfo.cmdSchliessen.BackColor
        dlgFarbschema.Color = cmdSchliessen.BackColor

        ' Farbauswahldialog anzeigen
        dlgFarbschema.ShowDialog()

        ' Ausgewählte Farben an Buttons anwenden
        cmdSort.BackColor = dlgFarbschema.Color
        cmdAbbrechen.BackColor = dlgFarbschema.Color
        frmInfo.cmdSchliessen.BackColor = dlgFarbschema.Color
        cmdSchliessen.BackColor = dlgFarbschema.Color

    End Sub

    ' * Extras - Farbschema - Formular *
    Public Sub mnuExtrasFarbschemaFormular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExtrasFarbschemaFormular.Click

        ' In Farbauswahldialog die aktuellen Formfarben selektieren
        dlgFarbschema.Color = Me.BackColor
        dlgFarbschema.Color = frmInfo.BackColor

        ' Farbauswahldialog anzeigen
        dlgFarbschema.ShowDialog()

        ' Ausgewählte Farben an Forms anwenden
        Me.BackColor = dlgFarbschema.Color
        frmInfo.BackColor = dlgFarbschema.Color

    End Sub


    ' * Extras - Farbschema - Textfelder *
    Public Sub mnuExtrasFarbschemaTextfelder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExtrasFarbschemaTextfelder.Click

        ' In Farbauswahldialog die aktuellen Textfelderfarben selektieren
        dlgFarbschema.Color = txtEingabe.BackColor
        dlgFarbschema.Color = txtAusgabe.BackColor

        ' Farbauswahldialog anzeigen
        dlgFarbschema.ShowDialog()

        ' Ausgewählte Farben an Textfelder anwenden
        txtEingabe.BackColor = dlgFarbschema.Color
        txtAusgabe.BackColor = dlgFarbschema.Color

    End Sub

    ' * Extras - Farbschema - Radiobuttons *
    Public Sub mnuExtrasFarbschemaRadiobuttons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExtrasFarbschemaRadiobuttons.Click

        ' In Farbauswahldialog die aktuellen Radiobuttonsfarben selektieren
        dlgFarbschema.Color = optBubble.BackColor
        dlgFarbschema.Color = optRipple.BackColor
        dlgFarbschema.Color = optQuick.BackColor

        ' Farbauswahldialog anzeigen
        dlgFarbschema.ShowDialog()

        ' Ausgewählte Farben an Textfelder anwenden
        optBubble.BackColor = dlgFarbschema.Color
        optRipple.BackColor = dlgFarbschema.Color
        optQuick.BackColor = dlgFarbschema.Color

    End Sub

    ' * Extras - Info *
    Public Sub mnuExtrasInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExtrasInfo.Click

        ' Form frmInfo anzeigen, das allgemeine Informationen über die Applikation anzeigt
        frmInfo.Show()

    End Sub

    ' * Button Schliessen *
    Private Sub cmdSchliessen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSchliessen.Click

        ' Die Applikation schliessen, wenn auf Yes geklickt wird
        If MsgBox("Wollen Sie die Applikation wirklich beenden?", MsgBoxStyle.YesNo, "Beenden") = vbYes Then

            Close()

        End If

    End Sub

    ' * Extras - Hilfe *
    Private Sub mnuExtrasHilfe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExtrasHilfe.Click

        ' Form frmilfe anzeigen, das allgemeine Informationen über die Applikation anzeigt
        frmHilfe.Show()

    End Sub

    ' * Icon - Neu *

    Private Sub newSP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        txtEingabe.Text = ""
        txtAusgabe.Text = ""
        lblZeichen.Text = "x"
        lblStart.Text = "x"
        lblEnde.Text = "x"
        lblZeit.Text = "x"

    End Sub

    ' * Icon - Kopieren *
    Private Sub copySP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        If TypeOf Me.ActiveControl Is TextBox Then

            ' Konvertiere ActiveControl in TextBox, wodurch die Methode SelectedText unterstützt wird
            ' Kopiere die mit SetDataObject ausgewählten Daten in die Zwischenablage
            Clipboard.SetDataObject(CType(Me.ActiveControl, TextBox).SelectedText)

        End If

    End Sub

    ' * Icon - Einfügen *
    Private Sub pasteSP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        ' Holen der Daten aus der Zwischenablage mit GetDataObject und in die Textbox einfügen
        CType(Me.ActiveControl, TextBox).SelectedText = Clipboard.GetDataObject.GetData(DataFormats.Text)

    End Sub

    ' * Icon - Hilfe *
    Private Sub helpSP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        ' Form frmilfe anzeigen, das allgemeine Informationen über die Applikation anzeigt
        frmHilfe.Show()
    End Sub
End Class


'
' ** Erklärungen **
'
' Klasse: Eine Klasse beschreibt einen Datentyp und ist eine Schablone, die angibt, wie Objekte dieser Klasse aussehen sollen.
' Objekt: Ein Objekt hingegen ist die konkrete Realisierung einer Klassenbeschreibung, ein tatsächlich existierendes »Ding«.
' Beispiel:
'   Class Auto --> Klasse
'       Public Farbe As Integer --> Objekt
'   End Class
'
' Mid: Gibt bestimmte Anzahl zusammenhängender Zeichen aus einem vorgegebenem String zurück Mid(String, Start, Anzahl)
' ByRef: Originalwert wird verändert
' ByVal: Originalwert wird nicht verändert = Kopie
'
VB Toolstrip Problem

Antworten zu VB Toolstrip Problem:

Re: VB Toolstrip Problem

Mehr zu VB Toolstrip Problem

Hat Ihnen diese Seite geholfen?
