Code Snippets

VB.NET Source Code

You're Browsing As A Guest! Register Now...
Become a VB.NET Expert! Join 353,816 VB.NET Programmers for FREE! Get instant access to thousands of VB.NET experts, tutorials, code snippets, and more! There are 3,502 people online right now.Registration is fast and FREE... Join Now! Chat LIVE With a VB.NET Expert

Add a richtextbox to application desktop toolbar dynamicly

Submitted By: m2s87

Actions:

Rating:

Views: 4,591

Language: VB.NET

Last Modified: January 26, 2007

Instructions: To make i work, you need a snippet from here:
http://www.dreamincode.net/code/snippet895.htm

Snippet

Option Strict Off
Public Class Form1
Private Sub laetud(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim x As New Button
Dim label1 As New Label
Dim RichTextBox1 As New System.Windows.Forms.RichTextBox
'
'Label1
'
With label1
.AutoSize = True
.Location = New System.Drawing.Point(6, 13)
.Name = "Label1"
.Size = New System.Drawing.Size(76, 13)
.TabIndex = 1
.Text = "Static notepad"
End With
'
'RichTextBox1
'
With RichTextBox1
.Location = New System.Drawing.Point(6, 30)
.Name = "RichTextBox1"
.Size = New System.Drawing.Size(200, 120)
.TabIndex = 2
.Text = ""
End With
label1.Parent = sender
RichTextBox1.Parent = sender
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim x As New m2s87
x.DockMode = m2s87.DockWhere.RIGHT
x.FormBorderStyle = Windows.Forms.FormBorderStyle.None
AddHandler x.Load, AddressOf laetud
x.BackColor = System.Drawing.Color.FromArgb(255, 200, 200, 200)
x.Show()
End Sub
End Class

Copy & Paste

Option Strict Off
Public Class Form1

Private Sub laetud(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim x As New Button
        Dim label1 As New Label
        Dim RichTextBox1 As New System.Windows.Forms.RichTextBox
        '
        'Label1
        '
        With label1
            .AutoSize = True
            .Location = New System.Drawing.Point(6, 13)
            .Name = "Label1"
            .Size = New System.Drawing.Size(76, 13)
            .TabIndex = 1
            .Text = "Static notepad"
        End With
        '
        'RichTextBox1
        '
        With RichTextBox1
            .Location = New System.Drawing.Point(6, 30)
            .Name = "RichTextBox1"
            .Size = New System.Drawing.Size(200, 120)
            .TabIndex = 2
            .Text = ""
        End With

label1.Parent = sender
        RichTextBox1.Parent = sender
    End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim x As New m2s87
        x.DockMode = m2s87.DockWhere.RIGHT
        x.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        AddHandler x.Load, AddressOf laetud
        x.BackColor = System.Drawing.Color.FromArgb(255, 200, 200, 200)
        x.Show()
    End Sub
End Class

Comments
jmcc2k 2008-11-13 02:04:53
See ShellAppBar component from http://www.ssware.com/shlobj/shlobj.htm for quickly converting all your forms to appbars with full auto-hide and drag-docking functionality.