http://vbex.ru/index.php?title=VB.Net_Tutorial/GUI/InputBox&feed=atom&action=history
VB.Net Tutorial/GUI/InputBox - История изменений
2024-03-28T11:33:38Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://vbex.ru/index.php?title=VB.Net_Tutorial/GUI/InputBox&diff=3862&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:30Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://vbex.ru/index.php?title=VB.Net_Tutorial/GUI/InputBox&diff=3863&oldid=prev
Admin: 1 версия
2010-05-26T12:57:12Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Get input from InputBox==<br />
<br />
<br />
<br />
<source lang="vbnet">Imports System.Drawing<br />
Imports System.Drawing.Drawing2D<br />
Imports System.Windows.Forms<br />
public class PasswordFieldMatch<br />
public Shared Sub Main<br />
Dim Filename As String<br />
Filename = InputBox("Your Value", "Title", "c:\document")<br />
End Sub<br />
End class</source><br />
<br />
==InputBox Demo==<br />
<br />
<br />
<br />
<source lang="vbnet">public class InputBoxDemo<br />
public Shared Sub Main<br />
Dim PASSWORD As String<br />
PASSWORD = InputBox("Password", "Password Dialog")<br />
Do While PASSWORD <> "12345"<br />
PASSWORD = InputBox("Password", "Password Dialog")<br />
Loop<br />
End Sub<br />
End class</source><br />
<br />
==Read Integer value from Keyboard==<br />
<br />
<br />
<br />
<source lang="vbnet">Module Module1<br />
Sub Main()<br />
Dim Age As Integer<br />
Console.Write("Age: ")<br />
Age = Console.ReadLine()<br />
Console.WriteLine(Age)<br />
End Sub<br />
End Module</source><br />
<pre class=codeResult>Age: 12<br />
12</pre><br />
<br />
==Use InputBox to read Double value==<br />
<br />
<br />
<br />
<source lang="vbnet">Module Module1<br />
Sub Main()<br />
Dim Salary As Double<br />
Salary = InputBox("Enter salary")<br />
Console.WriteLine(Salary)<br />
End Sub<br />
End Module</source><br />
<br />
==Use InputBox to read Integer value==<br />
<br />
<br />
<br />
<source lang="vbnet">Module Module1<br />
Sub Main()<br />
Dim Age As Integer<br />
Age = InputBox("Enter age", 21)<br />
Console.WriteLine(Age)<br />
End Sub<br />
End Module</source><br />
<br />
==Use InputBox to read string value==<br />
<br />
<br />
<br />
<source lang="vbnet">Module Module1<br />
Sub Main()<br />
Dim Name As String<br />
Name = InputBox("Enter name")<br />
Console.WriteLine(Name)<br />
End Sub<br />
End Module</source><br />
<pre class=codeResult>asdf</pre></div>
Admin