Thema: ClipboardTool

  1. #1
    Avatar von exception
    Registriert seit
    27.03.2012
    Beiträge
    198
    Thanked 57 Times in 36 Posts

    Standard ClipboardTool

    Guten Morgen!
    Bin vorher von ner Party gekommen und dachte mir das sich schlafen gehen nicht mehr lohnt^^
    Deswegen hab ich mich hingesetzt und meine Idee die ich gestern Abend hatte umgesetzt

    Was kann das Teil?

    Dieses Tool speichert jeden Text ab den du in deine Zwischenablage kopiert hast um ihn später bei Bedarf wieder
    zu verwenden. Inwiefern das nützlich sein kann brauche ich glaub ich nicht näher erklären

    Für mich persönlich ganz praktisch da es im Tray kaum auffällt und ich schon öfter mal auf der Suche nach einem
    verschollenem Text war

    Screen:


    Der Quellcode ist natürlich nichts besonderes, aber da ich der Meinung bin, das für Anfänger ein paar durchaus brauchbare
    Funktionen/Eigenschaften verwendet werden, habe ich das ganze mal kommentiert und poste es hier dazu!

    Source:
    Spoiler:


    //Visit u-hacks.net
    //by exception

    Imports System
    Imports System.Text
    Imports System.Threading
    Public Class Form1

    Dim current As String = String.Empty //Für die aktuelle Zwischenablage
    Dim temp As String = String.Empty //Zwischenspeicher für Suchfunktion

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ListBox1.HorizontalScrollbar = True //Horizantole Scrollbar aktiveren für ländere Texte
    checkClipboard() //Zwischenablage abfragen

    Timer1.Start()
    Timer1.Interval = 500 //Zwischenablage wird alle 0,5 Sekunden geprüft
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    checkClipboard() //Funktion zum überprüfen aufrufen
    End Sub

    Public Sub checkClipboard()
    current = Convert.ToString(My.Computer.Clipboard.GetText.ToString) //Aktuellen Inhalt der Zwischenablage in curent speichern

    //Abfragen ob dieses Item schon vorhanden ist
    For Each item In ListBox1.Items
    If item.ToString = current.ToString Then
    Exit Sub
    End If
    Next

    ListBox1.Items.Add(current)


    End Sub

    //Suchfunktion
    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
    //Mittels Schleife jedes Item in Listbox auf zu suchenden Text überprüfen

    For x = 0 To ListBox1.Items.Count - 1
    temp = ListBox1.Items(x).ToString
    temp = temp.ToLower //Damit Groß- und Kleinschreibung beim suchen nicht beachtet wird formatieren wir den Text(nur zum suchen) mittels .toLower() in kleinbuchstaben

    If temp.Contains(TextBox1.Text.ToLower) Then
    ListBox1.SelectedIndex = x
    End If
    Next
    End Sub

    //Ausgewähltes Item in Zwischenablage kopieren
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    //Prüfen ob Listbox nicht leer ist
    If ListBox1.Items.Count = 0 Then
    MessageBox.Show("No items aviable!")
    Exit Sub
    End If

    //Prüfen ob ein Item ausgewählt ist
    If ListBox1.SelectedIndex = -1 Then
    MessageBox.Show("No item selected!")
    Exit Sub
    End If

    //In Zwischenablage kopieren
    My.Computer.Clipboard.SetText(ListBox1.SelectedItem.ToString)
    End Sub

    //Listbox clearen
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    ListBox1.Items.Clear()
    End Sub

    //Anwendung aus dem Tray holen
    Private Sub NotifyIcon1_MouseClick(sender As Object, e As MouseEventArgs) Handles NotifyIcon1.MouseClick
    Me.ShowInTaskbar = True //Form in Taskbar sichtbar machen
    Me.NotifyIcon1.Visible = False //NotifyIcon unsichtbar machen
    Me.WindowState = FormWindowState.Normal //Fensterposition einstellen
    Me.BringToFront() //Form in den Vordergrund bringen
    End Sub

    //Anwendung in den Tray verschieben
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    Me.ShowInTaskbar = False //Form aus Taskbar entfernen
    Me.WindowState = FormWindowState.Minimized //Form verstecken
    Me.NotifyIcon1.Visible = True //NotifyIcon sichtbar machen
    End Sub

    End Class



    Welche Controls benötigt werden brauche ich glaub ich nicht zu sagen xD
    Bei Fragen einfach fragen hiho

    Download im Anhang!

    MfG
    Angehängte Dateien Angehängte Dateien
    Geändert von exception (28.09.2013 um 09:55 Uhr)
    Ich will Geld haben und zwar so viel, das ich auch mal sagen kann das es Wichtigeres gibt...

  2. The Following 4 Users Say Thank You to exception For This Useful Post:

    Dbzfreak1337 (28.09.2013), getsha (08.09.2018), milchbubix (28.09.2013), tomaskogler (18.10.2013)

  3. #2
    Avatar von Sky.NET
    Registriert seit
    26.11.2011
    Beiträge
    2.462
    Thanked 2.717 Times in 1.286 Posts
    Blog Entries
    7

    Standard AW: ClipboardTool

    Bitte Releases nur noch über die Downloadbase veröffentlichen!
    Java:
    Spoiler:

    Lustige Quotes:
    Spoiler:
    Zitat Zitat von Hydra Beitrag anzeigen
    Hier (in Deutschland) kann man keine andere tolle Aktivitäten machen, als zu chillen, shoppen, saufen und Partys feiern xD Ich habe nichts gegen ab und zu mal saufen und Partys feiern, aber das ist doch nicht wirklich das wahre Leben o_o
    Wieso das Internet für die meisten Leute gefährlich ist:
    Zitat Zitat von Silent Beitrag anzeigen
    Ich weiß ja nicht was der Sinn dahinter steckt es heißt immer "security reasons".

Diese Seite nutzt Cookies, um das Nutzererlebnis zu verbessern. Klicken Sie hier, um das Cookie-Tracking zu deaktivieren.