<?xml version="1.0"?>
<feed xmlns="http://www.w3.org/2005/Atom" xml:lang="ru">
		<id>http://www.vbex.ru/index.php?action=history&amp;feed=atom&amp;title=VB.Net%2F2D%2FDrag_Draw</id>
		<title>VB.Net/2D/Drag Draw - История изменений</title>
		<link rel="self" type="application/atom+xml" href="http://www.vbex.ru/index.php?action=history&amp;feed=atom&amp;title=VB.Net%2F2D%2FDrag_Draw"/>
		<link rel="alternate" type="text/html" href="http://www.vbex.ru/index.php?title=VB.Net/2D/Drag_Draw&amp;action=history"/>
		<updated>2026-04-05T00:08:26Z</updated>
		<subtitle>История изменений этой страницы в вики</subtitle>
		<generator>MediaWiki 1.30.0</generator>

	<entry>
		<id>http://www.vbex.ru/index.php?title=VB.Net/2D/Drag_Draw&amp;diff=64&amp;oldid=prev</id>
		<title> в 16:40, 26 мая 2010</title>
		<link rel="alternate" type="text/html" href="http://www.vbex.ru/index.php?title=VB.Net/2D/Drag_Draw&amp;diff=64&amp;oldid=prev"/>
				<updated>2010-05-26T16:40:06Z</updated>
		
		<summary type="html">&lt;p&gt;&lt;/p&gt;
&lt;table class=&quot;diff diff-contentalign-left&quot; data-mw=&quot;interface&quot;&gt;
				&lt;tr style=&quot;vertical-align: top;&quot; lang=&quot;ru&quot;&gt;
				&lt;td colspan=&quot;1&quot; style=&quot;background-color: white; color:black; text-align: center;&quot;&gt;← Предыдущая&lt;/td&gt;
				&lt;td colspan=&quot;1&quot; style=&quot;background-color: white; color:black; text-align: center;&quot;&gt;Версия 16:40, 26 мая 2010&lt;/td&gt;
				&lt;/tr&gt;&lt;tr&gt;&lt;td colspan=&quot;2&quot; style=&quot;text-align: center;&quot; lang=&quot;ru&quot;&gt;&lt;div class=&quot;mw-diff-empty&quot;&gt;(нет различий)&lt;/div&gt;
&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;</summary>
			</entry>

	<entry>
		<id>http://www.vbex.ru/index.php?title=VB.Net/2D/Drag_Draw&amp;diff=65&amp;oldid=prev</id>
		<title>Admin: 1 версия</title>
		<link rel="alternate" type="text/html" href="http://www.vbex.ru/index.php?title=VB.Net/2D/Drag_Draw&amp;diff=65&amp;oldid=prev"/>
				<updated>2010-05-26T12:41:41Z</updated>
		
		<summary type="html">&lt;p&gt;1 версия&lt;/p&gt;
&lt;p&gt;&lt;b&gt;Новая страница&lt;/b&gt;&lt;/p&gt;&lt;div&gt;==Scribble: drag and draw==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;&lt;br /&gt;
Imports System&lt;br /&gt;
Imports System.Windows.Forms&lt;br /&gt;
Imports System.Collections.Generic&lt;br /&gt;
Imports System.ruponentModel&lt;br /&gt;
Imports System.Drawing.Imaging&lt;br /&gt;
Imports System.Drawing&lt;br /&gt;
Public Class MainClass&lt;br /&gt;
   Shared Sub Main()&lt;br /&gt;
      Dim form1 As new Form1()&lt;br /&gt;
      Application.Run(form1)&lt;br /&gt;
   End Sub &lt;br /&gt;
End Class&lt;br /&gt;
&lt;br /&gt;
Public Class Form1&lt;br /&gt;
    Private m_Bitmap As Bitmap&lt;br /&gt;
    Private m_Graphics As Graphics&lt;br /&gt;
    Private m_Drawing As Boolean&lt;br /&gt;
    Private m_X As Integer&lt;br /&gt;
    Private m_Y As Integer&lt;br /&gt;
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _&lt;br /&gt;
     Handles MyBase.Load&lt;br /&gt;
        MakeNewBitmap()&lt;br /&gt;
    End Sub&lt;br /&gt;
    &amp;quot; Make a new blank image.&lt;br /&gt;
    Private Sub mnuFileClear_Click(ByVal sender As System.Object, _&lt;br /&gt;
     ByVal e As System.EventArgs) Handles mnuFileClear.Click&lt;br /&gt;
        MakeNewBitmap()&lt;br /&gt;
    End Sub&lt;br /&gt;
    Private Sub MakeNewBitmap()&lt;br /&gt;
        Dim wid As Integer = picCanvas.ClientSize.Width&lt;br /&gt;
        Dim hgt As Integer = picCanvas.ClientSize.Height&lt;br /&gt;
        m_Bitmap = New Bitmap(wid, hgt)&lt;br /&gt;
        m_Graphics = Graphics.FromImage(m_Bitmap)&lt;br /&gt;
        m_Graphics.Clear(Me.BackColor)&lt;br /&gt;
        picCanvas.Image = m_Bitmap&lt;br /&gt;
    End Sub&lt;br /&gt;
    Private Sub picCanvas_MouseDown(ByVal sender As Object, _&lt;br /&gt;
     ByVal e As System.Windows.Forms.MouseEventArgs) Handles picCanvas.MouseDown&lt;br /&gt;
        m_Drawing = True&lt;br /&gt;
        m_X = e.X&lt;br /&gt;
        m_Y = e.Y&lt;br /&gt;
    End Sub&lt;br /&gt;
    Private Sub picCanvas_MouseMove(ByVal sender As Object, _&lt;br /&gt;
     ByVal e As System.Windows.Forms.MouseEventArgs) Handles picCanvas.MouseMove&lt;br /&gt;
        If Not m_Drawing Then Exit Sub&lt;br /&gt;
        m_Graphics.DrawLine(Pens.Red, m_X, m_Y, e.X, e.Y)&lt;br /&gt;
        m_X = e.X&lt;br /&gt;
        m_Y = e.Y&lt;br /&gt;
        picCanvas.Image = m_Bitmap&lt;br /&gt;
    End Sub&lt;br /&gt;
    Private Sub picCanvas_MouseUp(ByVal sender As Object, _&lt;br /&gt;
     ByVal e As System.Windows.Forms.MouseEventArgs) Handles picCanvas.MouseUp&lt;br /&gt;
        m_Drawing = False&lt;br /&gt;
    End Sub&lt;br /&gt;
End Class&lt;br /&gt;
&lt;br /&gt;
&amp;lt;Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()&amp;gt; _&lt;br /&gt;
Partial Public Class Form1&lt;br /&gt;
    Inherits System.Windows.Forms.Form&lt;br /&gt;
    &amp;quot;Form overrides dispose to clean up the component list.&lt;br /&gt;
    &amp;lt;System.Diagnostics.DebuggerNonUserCode()&amp;gt; _&lt;br /&gt;
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)&lt;br /&gt;
        If disposing AndAlso components IsNot Nothing Then&lt;br /&gt;
            components.Dispose()&lt;br /&gt;
        End If&lt;br /&gt;
        MyBase.Dispose(disposing)&lt;br /&gt;
    End Sub&lt;br /&gt;
    &amp;quot;Required by the Windows Form Designer&lt;br /&gt;
    Private components As System.ruponentModel.IContainer&lt;br /&gt;
    &amp;quot;NOTE: The following procedure is required by the Windows Form Designer&lt;br /&gt;
    &amp;quot;It can be modified using the Windows Form Designer.  &lt;br /&gt;
    &amp;quot;Do not modify it using the code editor.&lt;br /&gt;
    &amp;lt;System.Diagnostics.DebuggerStepThrough()&amp;gt; _&lt;br /&gt;
    Private Sub InitializeComponent()&lt;br /&gt;
        Me.picCanvas = New System.Windows.Forms.PictureBox&lt;br /&gt;
        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip&lt;br /&gt;
        Me.mnuFile = New System.Windows.Forms.ToolStripMenuItem&lt;br /&gt;
        Me.mnuFileClear = New System.Windows.Forms.ToolStripMenuItem&lt;br /&gt;
        CType(Me.picCanvas, System.ruponentModel.ISupportInitialize).BeginInit()&lt;br /&gt;
        Me.MenuStrip1.SuspendLayout()&lt;br /&gt;
        Me.SuspendLayout()&lt;br /&gt;
        &amp;quot;&lt;br /&gt;
        &amp;quot;picCanvas&lt;br /&gt;
        &amp;quot;&lt;br /&gt;
        Me.picCanvas.Dock = System.Windows.Forms.DockStyle.Fill&lt;br /&gt;
        Me.picCanvas.Location = New System.Drawing.Point(0, 24)&lt;br /&gt;
        Me.picCanvas.Name = &amp;quot;picCanvas&amp;quot;&lt;br /&gt;
        Me.picCanvas.Size = New System.Drawing.Size(303, 246)&lt;br /&gt;
        Me.picCanvas.TabIndex = 0&lt;br /&gt;
        Me.picCanvas.TabStop = False&lt;br /&gt;
        &amp;quot;&lt;br /&gt;
        &amp;quot;MenuStrip1&lt;br /&gt;
        &amp;quot;&lt;br /&gt;
        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFile})&lt;br /&gt;
        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)&lt;br /&gt;
        Me.MenuStrip1.Name = &amp;quot;MenuStrip1&amp;quot;&lt;br /&gt;
        Me.MenuStrip1.Size = New System.Drawing.Size(303, 24)&lt;br /&gt;
        Me.MenuStrip1.TabIndex = 1&lt;br /&gt;
        Me.MenuStrip1.Text = &amp;quot;MenuStrip1&amp;quot;&lt;br /&gt;
        &amp;quot;&lt;br /&gt;
        &amp;quot;mnuFile&lt;br /&gt;
        &amp;quot;&lt;br /&gt;
        Me.mnuFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFileClear})&lt;br /&gt;
        Me.mnuFile.Name = &amp;quot;mnuFile&amp;quot;&lt;br /&gt;
        Me.mnuFile.Text = &amp;quot;&amp;amp;File&amp;quot;&lt;br /&gt;
        &amp;quot;&lt;br /&gt;
        &amp;quot;mnuFileClear&lt;br /&gt;
        &amp;quot;&lt;br /&gt;
        Me.mnuFileClear.Name = &amp;quot;mnuFileClear&amp;quot;&lt;br /&gt;
        Me.mnuFileClear.Text = &amp;quot;&amp;amp;Clear&amp;quot;&lt;br /&gt;
        &amp;quot;&lt;br /&gt;
        &amp;quot;Form1&lt;br /&gt;
        &amp;quot;&lt;br /&gt;
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)&lt;br /&gt;
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font&lt;br /&gt;
        Me.ClientSize = New System.Drawing.Size(303, 270)&lt;br /&gt;
        Me.Controls.Add(Me.picCanvas)&lt;br /&gt;
        Me.Controls.Add(Me.MenuStrip1)&lt;br /&gt;
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle&lt;br /&gt;
        Me.MainMenuStrip = Me.MenuStrip1&lt;br /&gt;
        Me.Name = &amp;quot;Form1&amp;quot;&lt;br /&gt;
        Me.Text = &amp;quot;Scribble&amp;quot;&lt;br /&gt;
        CType(Me.picCanvas, System.ruponentModel.ISupportInitialize).EndInit()&lt;br /&gt;
        Me.MenuStrip1.ResumeLayout(False)&lt;br /&gt;
        Me.ResumeLayout(False)&lt;br /&gt;
        Me.PerformLayout()&lt;br /&gt;
    End Sub&lt;br /&gt;
    Friend WithEvents picCanvas As System.Windows.Forms.PictureBox&lt;br /&gt;
    Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip&lt;br /&gt;
    Friend WithEvents mnuFile As System.Windows.Forms.ToolStripMenuItem&lt;br /&gt;
    Friend WithEvents mnuFileClear As System.Windows.Forms.ToolStripMenuItem&lt;br /&gt;
End Class&lt;br /&gt;
           &lt;br /&gt;
       &amp;lt;/source&amp;gt;&lt;/div&gt;</summary>
		<author><name>Admin</name></author>	</entry>

	</feed>