|
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Panel1 = New System.Windows.Forms.Panel
Me.Panel2 = New System.Windows.Forms.Panel
Me.MovableLabel1 = New DskResearch.RuntimeMovableControls.MovableLabel
Me.CheckBox1 = New System.Windows.Forms.CheckBox
Me.StayLabel = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.Panel1.Controls.Add(Me.Panel2)
Me.Panel1.Location = New System.Drawing.Point(12, 35)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(356, 250)
Me.Panel1.TabIndex = 1
'
'Panel2
'
Me.Panel2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.Panel2.Controls.Add(Me.Label2)
Me.Panel2.Controls.Add(Me.MovableLabel1)
Me.Panel2.Location = New System.Drawing.Point(17, 17)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(322, 216)
Me.Panel2.TabIndex = 1
'
'MovableLabel1
'
Me.MovableLabel1.BackColor = System.Drawing.Color.RoyalBlue
Me.MovableLabel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MovableLabel1.Cursor = System.Windows.Forms.Cursors.Hand
Me.MovableLabel1.ForeColor = System.Drawing.Color.White
Me.MovableLabel1.Location = New System.Drawing.Point(18, 20)
Me.MovableLabel1.Name = "MovableLabel1"
Me.MovableLabel1.Size = New System.Drawing.Size(143, 88)
Me.MovableLabel1.StayWithinParentBounds = False
Me.MovableLabel1.TabIndex = 1
Me.MovableLabel1.Text = "This is a runtime movable label control!"
Me.MovableLabel1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.MovableLabel1.UseCompatibleTextRendering = True
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Location = New System.Drawing.Point(12, 12)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(148, 17)
Me.CheckBox1.TabIndex = 1
Me.CheckBox1.Text = "Stay within parent bounds"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'StayLabel
'
Me.StayLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.StayLabel.Location = New System.Drawing.Point(335, 9)
Me.StayLabel.Name = "StayLabel"
Me.StayLabel.Size = New System.Drawing.Size(33, 20)
Me.StayLabel.TabIndex = 2
Me.StayLabel.Text = "---"
Me.StayLabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label1
'
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(192, 13)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(137, 13)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Value after Changed event:"
'
'Label2
'
Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(197, 125)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(103, 65)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Standard Label Control"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(380, 297)
Me.Controls.Add(Me.CheckBox1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.StayLabel)
Me.Controls.Add(Me.Panel1)
Me.Name = "Form1"
Me.Text = "Moveable Label Sandbox"
Me.Panel1.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents StayLabel As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents MovableLabel1 As DskResearch.RuntimeMovableControls.MovableLabel
Friend WithEvents Label2 As System.Windows.Forms.Label
End Class
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
I started out as a child. First, mastering drooling and sucking on a bottle. I soon discovered that these skills came to be very important later in life, and I put them to good use. Not "over the top" mind you, as I never drove home drunk. But, that damn bib catching my drool was getting in the way and turning the ladies away, so I had to abandon my strength and develop other skills.
So, I entered the world of geekdom. BASIC at first, then TMS9900 and Intel Assemblers, COBOL, C, C++, ...
... to be continued ...
Submit an article or tip