<?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_Tutorial%2FGUI%2FInputBox</id>
		<title>VB.Net Tutorial/GUI/InputBox - История изменений</title>
		<link rel="self" type="application/atom+xml" href="http://www.vbex.ru/index.php?action=history&amp;feed=atom&amp;title=VB.Net_Tutorial%2FGUI%2FInputBox"/>
		<link rel="alternate" type="text/html" href="http://www.vbex.ru/index.php?title=VB.Net_Tutorial/GUI/InputBox&amp;action=history"/>
		<updated>2026-04-05T19:13:22Z</updated>
		<subtitle>История изменений этой страницы в вики</subtitle>
		<generator>MediaWiki 1.30.0</generator>

	<entry>
		<id>http://www.vbex.ru/index.php?title=VB.Net_Tutorial/GUI/InputBox&amp;diff=3862&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_Tutorial/GUI/InputBox&amp;diff=3862&amp;oldid=prev"/>
				<updated>2010-05-26T16:40:30Z</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_Tutorial/GUI/InputBox&amp;diff=3863&amp;oldid=prev</id>
		<title>Admin: 1 версия</title>
		<link rel="alternate" type="text/html" href="http://www.vbex.ru/index.php?title=VB.Net_Tutorial/GUI/InputBox&amp;diff=3863&amp;oldid=prev"/>
				<updated>2010-05-26T12:57:12Z</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;==Get input from InputBox==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;Imports System.Drawing&lt;br /&gt;
Imports System.Drawing.Drawing2D&lt;br /&gt;
Imports System.Windows.Forms&lt;br /&gt;
public class PasswordFieldMatch&lt;br /&gt;
   public Shared Sub Main&lt;br /&gt;
      Dim Filename As String&lt;br /&gt;
      Filename = InputBox(&amp;quot;Your Value&amp;quot;, &amp;quot;Title&amp;quot;, &amp;quot;c:\document&amp;quot;)&lt;br /&gt;
   End Sub&lt;br /&gt;
End class&amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==InputBox Demo==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;public class InputBoxDemo&lt;br /&gt;
   public Shared Sub Main&lt;br /&gt;
        Dim PASSWORD As String&lt;br /&gt;
        PASSWORD = InputBox(&amp;quot;Password&amp;quot;, &amp;quot;Password Dialog&amp;quot;)&lt;br /&gt;
        Do While PASSWORD &amp;lt;&amp;gt; &amp;quot;12345&amp;quot;&lt;br /&gt;
            PASSWORD = InputBox(&amp;quot;Password&amp;quot;, &amp;quot;Password Dialog&amp;quot;)&lt;br /&gt;
        Loop&lt;br /&gt;
   End Sub&lt;br /&gt;
End class&amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Read Integer value from Keyboard==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;Module Module1&lt;br /&gt;
    Sub Main()&lt;br /&gt;
        Dim Age As Integer&lt;br /&gt;
        Console.Write(&amp;quot;Age: &amp;quot;)&lt;br /&gt;
        Age = Console.ReadLine()&lt;br /&gt;
        Console.WriteLine(Age)&lt;br /&gt;
    End Sub&lt;br /&gt;
End Module&amp;lt;/source&amp;gt;&lt;br /&gt;
&amp;lt;pre class=codeResult&amp;gt;Age: 12&lt;br /&gt;
12&amp;lt;/pre&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Use InputBox to read Double value==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;Module Module1&lt;br /&gt;
    Sub Main()&lt;br /&gt;
        Dim Salary As Double&lt;br /&gt;
        Salary = InputBox(&amp;quot;Enter salary&amp;quot;)&lt;br /&gt;
        Console.WriteLine(Salary)&lt;br /&gt;
    End Sub&lt;br /&gt;
End Module&amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Use InputBox to read Integer value==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;Module Module1&lt;br /&gt;
    Sub Main()&lt;br /&gt;
        Dim Age As Integer&lt;br /&gt;
        Age = InputBox(&amp;quot;Enter age&amp;quot;, 21)&lt;br /&gt;
        Console.WriteLine(Age)&lt;br /&gt;
    End Sub&lt;br /&gt;
End Module&amp;lt;/source&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Use InputBox to read string value==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
&amp;lt;source lang=&amp;quot;vbnet&amp;quot;&amp;gt;Module Module1&lt;br /&gt;
    Sub Main()&lt;br /&gt;
        Dim Name As String&lt;br /&gt;
        Name = InputBox(&amp;quot;Enter name&amp;quot;)&lt;br /&gt;
        Console.WriteLine(Name)&lt;br /&gt;
    End Sub&lt;br /&gt;
End Module&amp;lt;/source&amp;gt;&lt;br /&gt;
&amp;lt;pre class=codeResult&amp;gt;asdf&amp;lt;/pre&amp;gt;&lt;/div&gt;</summary>
		<author><name>Admin</name></author>	</entry>

	</feed>