Breadcrumbs

[bjm0008]

I was looking through my old projects and found a project called sticky notes, so i opened it up and found out it was quite useful. Here are some Screenshots:





Form1 Code:

Code: Select all

Public Class Note
    Dim c As New ColorDialog
    Dim NewPoint As New System.Drawing.Point()
    Dim X, Y As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TextBox1.BackColor = My.Settings.Color
        Me.BackColor = My.Settings.Color
        PictureBox1.BackColor = My.Settings.Color
        Label1.BackColor = My.Settings.Color
        TextBox1.ForeColor = My.Settings.FColor
        Label1.ForeColor = My.Settings.FColor
        InfLbl.ForeColor = My.Settings.FColor
        InfLbl.BackColor = My.Settings.Color
        TextBox1.Font = My.Settings.Font
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.Text = TextBox1.Text
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        TextBox1.Text = (My.Settings.Text)
        Me.BackColor = My.Settings.Color
        PictureBox1.BackColor = My.Settings.Color
        Label1.BackColor = My.Settings.Color
        Label1.ForeColor = My.Settings.FColor
        TextBox1.ForeColor = My.Settings.FColor
        InfLbl.ForeColor = My.Settings.FColor
    End Sub
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        Me.Close()
    End Sub
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        X = Control.MousePosition.X - Me.Location.X
        Y = Control.MousePosition.Y - Me.Location.Y
    End Sub
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If e.Button = MouseButtons.Left Then
            NewPoint = Control.MousePosition
            NewPoint.X -= (X)
            NewPoint.Y -= (Y)
            Me.Location = NewPoint
        End If
    End Sub
    Private Sub Label2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        X = Control.MousePosition.X - Me.Location.X
        Y = Control.MousePosition.Y - Me.Location.Y
    End Sub
    Private Sub Label2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.Button = MouseButtons.Left Then
            NewPoint = Control.MousePosition
            NewPoint.X -= (X)
            NewPoint.Y -= (Y)
            Me.Location = NewPoint
        End If
    End Sub
    Private Sub InfLbl_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles InfLbl.Click
        form2.show()
    End Sub
End Class

Form2 Code:

Code: Select all

Public Class Form2
    Dim c1 As New ColorDialog
    Dim c2 As New ColorDialog
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        c1.ShowDialog()
        My.Settings.FColor = c1.Color
        TextBox1.Text = My.Settings.FColor.ToString
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        FontDialog1.ShowDialog()
        My.Settings.Font = FontDialog1.Font
        TextBox2.Text = FontDialog1.Font.ToString
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        My.Settings.FColor = c1.Color
        My.Settings.Color = c2.Color
        My.Settings.Font = FontDialog1.Font
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        c2.ShowDialog()
        My.Settings.Color = c2.Color
        TextBox3.Text = c2.Color.ToString
    End Sub
    Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Close()
    End Sub
    Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Note.Enabled = True
        Note.BringToFront()
        Note.TopMost = True
    End Sub
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BringToFront()
        Me.TopMost = True
        Note.Enabled = False
        Note.SendToBack()
        TextBox1.Text = My.Settings.FColor.ToString
        TextBox2.Text = My.Settings.Font.ToString
        TextBox3.Text = My.Settings.Color.ToString
    End Sub
End Class

Link #1:
http://www.mediafire.com/file/yygwemhzt ... yNotes.zip

Link #2:
http://rapidshare.com/files/405212183/StickyNotes.zip

Email me any bugs, glitches, or improved versions of stickynotes.
Brandon01854@yahoo.com

[zachman61]

well not bad

[lolxot]

well... good

[alex6848]

I always wanted to do this! nerner; wahooo;
THANKS!

[cvilanova]

interesting, I will to check that... thanks!! clapper;

[un kn0 wn]

nice work m8, ppl can use that wen mking utube videos.