RocketDock(based off of cody's)(With Slide)

Heres your chance to share your own tutorials with the community. Just post them on here. If your lucky they may even be posted on the main site.
10 posts Page 1 of 1
Post Reply
Contributors
User avatar
Bogoh67
VIP - Site Partner
VIP - Site Partner
Posts: 656
Joined: Sun Apr 18, 2010 8:20 pm
RocketDock(based off of cody's)(With Slide)
Bogoh67
Post Options:
Quote
first you need to download devcomponents 2 ill put the download down there

now go to references and click add reference there search for devcompoenentsdotnetbar2

then go back to your form and click add items and in the .net bar search for devcompoenentsdotnetbar2

then add a bubblebar and make it have only 1 tab no buttons, dock = fill, now click the bubblebar(not the bubblebartab) and find the "image size large" and change to 96, 96 find image size normal and put 50, 50

now make a context menu strip
add a menu item and for text put "Remove" and make it checkonclick = true
add another menu item and make its text "End"

click the bubblebar(not bubblebartab) and for context menustip = contextmenustrip1

then go to your form properties and for allowdrop = true

now for the code clapper; clapper; clapper; clapper; lmao; lmao; lmao; lmao;
Code: Select all
Imports System.Runtime.InteropServices
Imports System.IO
Imports DevComponents.DotNetBar
Public Class Form1
    Public rowz = 50
    'Checks Keys
    Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
    'HANDLES MOUSE EVENTS WHEN MOUSE MOVES OVER AN ICON ON BAR
    Private Sub Lab_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim w = CType(sender, BubbleButton).Tag.ToString
        CType(sender, BubbleButton).TooltipText = w
    End Sub


    'THIS IS WHAT HAPPENS WHEN YOU CLICK AN ICON ON THE BAR - OPENS or DELETES
    Private Sub Fclick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If RemoveToolStripMenuItem.Checked = True Then
            Dim findlink As String = CType(sender, BubbleButton).Tag.ToString
            Dim replace As String = ""
            Dim indx As Integer = RichTextBox1.Find(findlink)
            If indx <> -1 Then
                RichTextBox1.Select(indx, findlink.Length)
                If RichTextBox1.SelectedText <> "" Then
                    RichTextBox1.SelectedText = replace
                End If
            End If
            Try
                CType(Me.BubbleBarTab1.Buttons.Item(1), BubbleButton).Dispose()
                saveme()
            Catch ex As Exception
                MsgBox("Has To Have Atleast 1 Icon")
            End Try
        Else
            Dim w = CType(sender, BubbleButton).Tag.ToString
            System.Diagnostics.Process.Start(w)
        End If
    End Sub

    'READS SAVED ICONS AND LOADS THEM AT STARTUP INTO THE BAR
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Office2007ColorTable = Rendering.eOffice2007ColorScheme.VistaGlass
        If My.Computer.FileSystem.FileExists(Application.StartupPath + "\Settings.bar") Then
            Dim lines = IO.File.ReadAllLines(Application.StartupPath + "\Settings.bar")
            For Each line As String In lines
                If line <> "" Then
                    RichTextBox1.AppendText(line + vbNewLine)
                    Dim w As New BubbleButton

                    Using ico As Icon = Drawing.Icon.ExtractAssociatedIcon(line)
                        Dim s = ico.ToBitmap
                        w.Image = s
                    End Using

                    w.Tag = line
                    AddHandler w.Click, AddressOf Fclick
                    AddHandler w.MouseEnter, AddressOf Lab_MouseEnter
                    Me.Width += 40
                    Me.BubbleBarTab1.Buttons.Add(w)
                    rowz += 40
                End If
            Next
        End If
        Me.CenterToScreen()
        Me.Top = Screen.PrimaryScreen.Bounds.X
    End Sub

    'DETECTS PROGRAM DRAGGED ONTO BAR AND ADDs IT and SHOWS ITS ICON
    Private Sub Form1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim draggedFiles As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
            For Each filename As String In draggedFiles
                RichTextBox1.AppendText(filename + vbNewLine)
                Dim w As New BubbleButton
                Using ico As Icon = Drawing.Icon.ExtractAssociatedIcon(filename)
                    Dim s = ico.ToBitmap
                    w.Image = s
                End Using
                w.Tag = filename
                AddHandler w.Click, AddressOf Fclick
                AddHandler w.MouseEnter, AddressOf Lab_MouseEnter
                Me.BubbleBarTab1.Buttons.Add(w)
                Me.Width += 40
                rowz += 40
            Next
            Me.CenterToScreen()
            Me.Top = Screen.PrimaryScreen.Bounds.X
            saveme()
        End If
    End Sub

    'CHECKS TO MAKE SURE ITEM DRAGGED IS A FILE
    Private Sub Form1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        End If
    End Sub

    'SAVES THE SHORTCUTS
    Public Sub saveme()
        If My.Computer.FileSystem.FileExists(Application.StartupPath + "\Settings.bar") Then
            My.Computer.FileSystem.DeleteFile(Application.StartupPath + "\Settings.bar", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
        End If
        My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\Settings.bar", RichTextBox1.Text, True)
    End Sub

    Private Sub Form1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDoubleClick
        Me.Close()
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoveToolStripMenuItem.CheckedChanged
        If RemoveToolStripMenuItem.Checked = False Then
            Application.Restart()
            Me.Dispose()
        End If
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub
End Class



now for the link

http://www.4shared.com/file/24666923/3f ... tBar2.html
Last edited by Bogoh67 on Wed Apr 13, 2011 1:53 am, edited 2 times in total.
Top
User avatar
Axel
Coding God
Coding God
Posts: 1928
Joined: Sun Jun 27, 2010 9:15 pm
Re: Make a Really Cool RocketDock(With Slide)
Axel
Post Options:
Quote
if you made the bubblebar yourself i would like it
Top
User avatar
Bogoh67
VIP - Site Partner
VIP - Site Partner
Posts: 656
Joined: Sun Apr 18, 2010 8:20 pm
Re: Make a Really Cool RocketDock(With Slide)
Bogoh67
Post Options:
Quote
YourSocksRoxx wrote:
if you made the bubblebar yourself i would like it
do you hate everything i do?
Top
User avatar
Axel
Coding God
Coding God
Posts: 1928
Joined: Sun Jun 27, 2010 9:15 pm
Re: Make a Really Cool RocketDock(With Slide)
Axel
Post Options:
Quote
Bogoh67 wrote:
YourSocksRoxx wrote:
if you made the bubblebar yourself i would like it
do you hate everything i do?
no i hate it when people just drag some components to a form add some minor code and saying they are 'developing'
Top
User avatar
Bogoh67
VIP - Site Partner
VIP - Site Partner
Posts: 656
Joined: Sun Apr 18, 2010 8:20 pm
Re: Make a Really Cool RocketDock(With Slide)
Bogoh67
Post Options:
Quote
YourSocksRoxx wrote:
Bogoh67 wrote:
YourSocksRoxx wrote:
if you made the bubblebar yourself i would like it
do you hate everything i do?
no i hate it when people just drag some components to a form add some minor code and saying they are 'developing'
oh ok that makes sense
Top
User avatar
Bogoh67
VIP - Site Partner
VIP - Site Partner
Posts: 656
Joined: Sun Apr 18, 2010 8:20 pm
Re: Make a Really Cool RocketDock(With Slide)
Bogoh67
Post Options:
Quote
i dont think this
Code: Select all
Imports System.Runtime.InteropServices
Imports System.IO
Imports DevComponents.DotNetBar
Public Class Form1
    Public rowz = 50
    'Checks Keys
    Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
    'HANDLES MOUSE EVENTS WHEN MOUSE MOVES OVER AN ICON ON BAR
    Private Sub Lab_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim w = CType(sender, BubbleButton).Tag.ToString
        CType(sender, BubbleButton).TooltipText = w
    End Sub


    'THIS IS WHAT HAPPENS WHEN YOU CLICK AN ICON ON THE BAR - OPENS or DELETES
    Private Sub Fclick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If RemoveToolStripMenuItem.Checked = True Then
            Dim findlink As String = CType(sender, BubbleButton).Tag.ToString
            Dim replace As String = ""
            Dim indx As Integer = RichTextBox1.Find(findlink)
            If indx <> -1 Then
                RichTextBox1.Select(indx, findlink.Length)
                If RichTextBox1.SelectedText <> "" Then
                    RichTextBox1.SelectedText = replace
                End If
            End If
            Try
                CType(Me.BubbleBarTab1.Buttons.Item(1), BubbleButton).Dispose()
                saveme()
            Catch ex As Exception
                MsgBox("Has To Have Atleast 1 Icon")
            End Try
        Else
            Dim w = CType(sender, BubbleButton).Tag.ToString
            System.Diagnostics.Process.Start(w)
        End If
    End Sub

    'READS SAVED ICONS AND LOADS THEM AT STARTUP INTO THE BAR
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Office2007ColorTable = Rendering.eOffice2007ColorScheme.VistaGlass
        If My.Computer.FileSystem.FileExists(Application.StartupPath + "\Settings.bar") Then
            Dim lines = IO.File.ReadAllLines(Application.StartupPath + "\Settings.bar")
            For Each line As String In lines
                If line <> "" Then
                    RichTextBox1.AppendText(line + vbNewLine)
                    Dim w As New BubbleButton

                    Using ico As Icon = Drawing.Icon.ExtractAssociatedIcon(line)
                        Dim s = ico.ToBitmap
                        w.Image = s
                    End Using

                    w.Tag = line
                    AddHandler w.Click, AddressOf Fclick
                    AddHandler w.MouseEnter, AddressOf Lab_MouseEnter
                    Me.Width += 40
                    Me.BubbleBarTab1.Buttons.Add(w)
                    rowz += 40
                End If
            Next
        End If
        Me.CenterToScreen()
        Me.Top = Screen.PrimaryScreen.Bounds.X
    End Sub

    'DETECTS PROGRAM DRAGGED ONTO BAR AND ADDs IT and SHOWS ITS ICON
    Private Sub Form1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim draggedFiles As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
            For Each filename As String In draggedFiles
                RichTextBox1.AppendText(filename + vbNewLine)
                Dim w As New BubbleButton
                Using ico As Icon = Drawing.Icon.ExtractAssociatedIcon(filename)
                    Dim s = ico.ToBitmap
                    w.Image = s
                End Using
                w.Tag = filename
                AddHandler w.Click, AddressOf Fclick
                AddHandler w.MouseEnter, AddressOf Lab_MouseEnter
                Me.BubbleBarTab1.Buttons.Add(w)
                Me.Width += 40
                rowz += 40
            Next
            Me.CenterToScreen()
            Me.Top = Screen.PrimaryScreen.Bounds.X
            saveme()
        End If
    End Sub

    'CHECKS TO MAKE SURE ITEM DRAGGED IS A FILE
    Private Sub Form1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        End If
    End Sub

    'SAVES THE SHORTCUTS
    Public Sub saveme()
        If My.Computer.FileSystem.FileExists(Application.StartupPath + "\Settings.bar") Then
            My.Computer.FileSystem.DeleteFile(Application.StartupPath + "\Settings.bar", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
        End If
        My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\Settings.bar", RichTextBox1.Text, True)
    End Sub

    Private Sub Form1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDoubleClick
        Me.Close()
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoveToolStripMenuItem.CheckedChanged
        If RemoveToolStripMenuItem.Checked = False Then
            Application.Restart()
            Me.Dispose()
        End If
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub
End Class
is minor code
Top
User avatar
Usman55
VIP - Site Partner
VIP - Site Partner
Posts: 2821
Joined: Thu Dec 24, 2009 7:52 pm
Re: Make a Really Cool RocketDock(With Slide)
Usman55
Post Options:
Quote
It's not minor, it's major lol. Really awesome job Bogoh, and please check out Cody's Icon Bar and try to add this feature in it. +rep
Image
Top
User avatar
Bogoh67
VIP - Site Partner
VIP - Site Partner
Posts: 656
Joined: Sun Apr 18, 2010 8:20 pm
Re: Make a Really Cool RocketDock(With Slide)
Bogoh67
Post Options:
Quote
Usman55 wrote:
It's not minor, it's major lol. Really awesome job Bogoh, and please check out Cody's Icon Bar and try to add this feature in it. +rep
this was supposed to be like codys but i just wanted smoother zoom in fx. And thanks alot.
Top
User avatar
MrAksel
C# Coder
C# Coder
Posts: 1758
Joined: Fri Mar 26, 2010 12:27 pm
Re: Make a Really Cool RocketDock(With Slide)
MrAksel
Post Options:
Quote
Bogoh67 wrote:
i dont think this
Code: Select all
Imports System.Runtime.InteropServices
Imports System.IO
Imports DevComponents.DotNetBar
Public Class Form1
    Public rowz = 50
    'Checks Keys
    Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
    'HANDLES MOUSE EVENTS WHEN MOUSE MOVES OVER AN ICON ON BAR
    Private Sub Lab_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim w = CType(sender, BubbleButton).Tag.ToString
        CType(sender, BubbleButton).TooltipText = w
    End Sub


    'THIS IS WHAT HAPPENS WHEN YOU CLICK AN ICON ON THE BAR - OPENS or DELETES
    Private Sub Fclick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If RemoveToolStripMenuItem.Checked = True Then
            Dim findlink As String = CType(sender, BubbleButton).Tag.ToString
            Dim replace As String = ""
            Dim indx As Integer = RichTextBox1.Find(findlink)
            If indx <> -1 Then
                RichTextBox1.Select(indx, findlink.Length)
                If RichTextBox1.SelectedText <> "" Then
                    RichTextBox1.SelectedText = replace
                End If
            End If
            Try
                CType(Me.BubbleBarTab1.Buttons.Item(1), BubbleButton).Dispose()
                saveme()
            Catch ex As Exception
                MsgBox("Has To Have Atleast 1 Icon")
            End Try
        Else
            Dim w = CType(sender, BubbleButton).Tag.ToString
            System.Diagnostics.Process.Start(w)
        End If
    End Sub

    'READS SAVED ICONS AND LOADS THEM AT STARTUP INTO THE BAR
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Office2007ColorTable = Rendering.eOffice2007ColorScheme.VistaGlass
        If My.Computer.FileSystem.FileExists(Application.StartupPath + "\Settings.bar") Then
            Dim lines = IO.File.ReadAllLines(Application.StartupPath + "\Settings.bar")
            For Each line As String In lines
                If line <> "" Then
                    RichTextBox1.AppendText(line + vbNewLine)
                    Dim w As New BubbleButton

                    Using ico As Icon = Drawing.Icon.ExtractAssociatedIcon(line)
                        Dim s = ico.ToBitmap
                        w.Image = s
                    End Using

                    w.Tag = line
                    AddHandler w.Click, AddressOf Fclick
                    AddHandler w.MouseEnter, AddressOf Lab_MouseEnter
                    Me.Width += 40
                    Me.BubbleBarTab1.Buttons.Add(w)
                    rowz += 40
                End If
            Next
        End If
        Me.CenterToScreen()
        Me.Top = Screen.PrimaryScreen.Bounds.X
    End Sub

    'DETECTS PROGRAM DRAGGED ONTO BAR AND ADDs IT and SHOWS ITS ICON
    Private Sub Form1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim draggedFiles As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
            For Each filename As String In draggedFiles
                RichTextBox1.AppendText(filename + vbNewLine)
                Dim w As New BubbleButton
                Using ico As Icon = Drawing.Icon.ExtractAssociatedIcon(filename)
                    Dim s = ico.ToBitmap
                    w.Image = s
                End Using
                w.Tag = filename
                AddHandler w.Click, AddressOf Fclick
                AddHandler w.MouseEnter, AddressOf Lab_MouseEnter
                Me.BubbleBarTab1.Buttons.Add(w)
                Me.Width += 40
                rowz += 40
            Next
            Me.CenterToScreen()
            Me.Top = Screen.PrimaryScreen.Bounds.X
            saveme()
        End If
    End Sub

    'CHECKS TO MAKE SURE ITEM DRAGGED IS A FILE
    Private Sub Form1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        End If
    End Sub

    'SAVES THE SHORTCUTS
    Public Sub saveme()
        If My.Computer.FileSystem.FileExists(Application.StartupPath + "\Settings.bar") Then
            My.Computer.FileSystem.DeleteFile(Application.StartupPath + "\Settings.bar", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
        End If
        My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\Settings.bar", RichTextBox1.Text, True)
    End Sub

    Private Sub Form1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDoubleClick
        Me.Close()
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoveToolStripMenuItem.CheckedChanged
        If RemoveToolStripMenuItem.Checked = False Then
            Application.Restart()
            Me.Dispose()
        End If
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub
End Class
is minor code
Its maybe not minor, but it was cody that made it, you only changed a few things.
Anyway, thanks for posting. Now people now that the bubble bar can be used too
LMAOSHMSFOAIDMT
Laughing my a** of so hard my sombrero fell off and I dropped my taco lmao;


Over 30 projects with source code!
Please give reputation to helpful members!

Image
Image
Top
User avatar
Bogoh67
VIP - Site Partner
VIP - Site Partner
Posts: 656
Joined: Sun Apr 18, 2010 8:20 pm
Re: Make a Really Cool RocketDock(With Slide)
Bogoh67
Post Options:
Quote
MrAksel wrote:
Bogoh67 wrote:
i dont think this
Code: Select all
Imports System.Runtime.InteropServices
Imports System.IO
Imports DevComponents.DotNetBar
Public Class Form1
    Public rowz = 50
    'Checks Keys
    Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
    'HANDLES MOUSE EVENTS WHEN MOUSE MOVES OVER AN ICON ON BAR
    Private Sub Lab_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim w = CType(sender, BubbleButton).Tag.ToString
        CType(sender, BubbleButton).TooltipText = w
    End Sub


    'THIS IS WHAT HAPPENS WHEN YOU CLICK AN ICON ON THE BAR - OPENS or DELETES
    Private Sub Fclick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If RemoveToolStripMenuItem.Checked = True Then
            Dim findlink As String = CType(sender, BubbleButton).Tag.ToString
            Dim replace As String = ""
            Dim indx As Integer = RichTextBox1.Find(findlink)
            If indx <> -1 Then
                RichTextBox1.Select(indx, findlink.Length)
                If RichTextBox1.SelectedText <> "" Then
                    RichTextBox1.SelectedText = replace
                End If
            End If
            Try
                CType(Me.BubbleBarTab1.Buttons.Item(1), BubbleButton).Dispose()
                saveme()
            Catch ex As Exception
                MsgBox("Has To Have Atleast 1 Icon")
            End Try
        Else
            Dim w = CType(sender, BubbleButton).Tag.ToString
            System.Diagnostics.Process.Start(w)
        End If
    End Sub

    'READS SAVED ICONS AND LOADS THEM AT STARTUP INTO THE BAR
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Office2007ColorTable = Rendering.eOffice2007ColorScheme.VistaGlass
        If My.Computer.FileSystem.FileExists(Application.StartupPath + "\Settings.bar") Then
            Dim lines = IO.File.ReadAllLines(Application.StartupPath + "\Settings.bar")
            For Each line As String In lines
                If line <> "" Then
                    RichTextBox1.AppendText(line + vbNewLine)
                    Dim w As New BubbleButton

                    Using ico As Icon = Drawing.Icon.ExtractAssociatedIcon(line)
                        Dim s = ico.ToBitmap
                        w.Image = s
                    End Using

                    w.Tag = line
                    AddHandler w.Click, AddressOf Fclick
                    AddHandler w.MouseEnter, AddressOf Lab_MouseEnter
                    Me.Width += 40
                    Me.BubbleBarTab1.Buttons.Add(w)
                    rowz += 40
                End If
            Next
        End If
        Me.CenterToScreen()
        Me.Top = Screen.PrimaryScreen.Bounds.X
    End Sub

    'DETECTS PROGRAM DRAGGED ONTO BAR AND ADDs IT and SHOWS ITS ICON
    Private Sub Form1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim draggedFiles As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
            For Each filename As String In draggedFiles
                RichTextBox1.AppendText(filename + vbNewLine)
                Dim w As New BubbleButton
                Using ico As Icon = Drawing.Icon.ExtractAssociatedIcon(filename)
                    Dim s = ico.ToBitmap
                    w.Image = s
                End Using
                w.Tag = filename
                AddHandler w.Click, AddressOf Fclick
                AddHandler w.MouseEnter, AddressOf Lab_MouseEnter
                Me.BubbleBarTab1.Buttons.Add(w)
                Me.Width += 40
                rowz += 40
            Next
            Me.CenterToScreen()
            Me.Top = Screen.PrimaryScreen.Bounds.X
            saveme()
        End If
    End Sub

    'CHECKS TO MAKE SURE ITEM DRAGGED IS A FILE
    Private Sub Form1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        End If
    End Sub

    'SAVES THE SHORTCUTS
    Public Sub saveme()
        If My.Computer.FileSystem.FileExists(Application.StartupPath + "\Settings.bar") Then
            My.Computer.FileSystem.DeleteFile(Application.StartupPath + "\Settings.bar", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
        End If
        My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\Settings.bar", RichTextBox1.Text, True)
    End Sub

    Private Sub Form1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDoubleClick
        Me.Close()
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoveToolStripMenuItem.CheckedChanged
        If RemoveToolStripMenuItem.Checked = False Then
            Application.Restart()
            Me.Dispose()
        End If
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub
End Class
is minor code
Its maybe not minor, but it was cody that made it, you only changed a few things.
Anyway, thanks for posting. Now people now that the bubble bar can be used too
completely agree with you
Top
Post Reply
10 posts Page 1 of 1
Return to “Tutorials”

Copyright Information

Powered by phpBB® Forum Software © phpBB Limited Privacy | Terms

Copyright © Codenstuff.com 2020 - 2023