VB Эксперт - Вклад участника [ru]

Заглавная страница

2010-06-01T16:07:25Z

Admin: Защищена страница «Заглавная страница» ([edit=sysop] (бессрочно) [move=sysop] (бессрочно))

<div style="text-align: center; width: 90%; padding: 0.5em; margin: auto;">
На данный момент уже '''{{NUMBEROFPAGES}}''' {{plural: {{NUMBEROFPAGES}} |страница|страниц}} и '''{{NUMBEROFFILES}}''' {{plural: {{NUMBEROFFILES}} |файл|файлов}}.
</div>

== VB.Net ==
{| width="100%"
|- valign="top"
| style="width: 25%;"|
* [[VB.Net/2D | 2D]]
* [[VB.Net/Application | Application]]
* [[VB.Net/Class | Class]]
* [[VB.Net/Data Structure | Data Structure]]
* [[VB.Net/Database ADO.net | Database ADO.net]]
| style="width: 25%;"|
* [[VB.Net/Development | Development]]
* [[VB.Net/Event | Event]]
* [[VB.Net/File Directory | File Directory]]
* [[VB.Net/GUI | GUI]]
* [[VB.Net/Generics | Generics]]
| style="width: 25%;"|
* [[VB.Net/LINQ | LINQ]]
* [[VB.Net/Language Basics | Language Basics]]
* [[VB.Net/Network Remote | Network Remote]]
* [[VB.Net/Thread | Thread]]
* [[VB.Net/Windows System | Windows System]]
| style="width: 25%;"|
* [[VB.Net/XML | XML]]
* [[VB.Net/XML LINQ | XML LINQ]]
|}

== VB.Net API ==
{| width="100%"
|- valign="top"
| style="width: 25%;"|
* [[VB.Net by API/Microsoft.VisualBasic | Microsoft.VisualBasic]]
* [[VB.Net by API/Microsoft.Win32 | Microsoft.Win32]]
* [[VB.Net by API/System | System]]
* [[VB.Net by API/System.Collections | System.Collections]]
* [[VB.Net by API/System.Collections.Generic | System.Collections.Generic]]
* [[VB.Net by API/System.Collections.Specialized | System.Collections.Specialized]]
* [[VB.Net by API/System.ComponentModel | System.ComponentModel]]
* [[VB.Net by API/System.Configuration.ConfigurationSettings | System.Configuration.ConfigurationSettings]]
* [[VB.Net by API/System.Data | System.Data]]
* [[VB.Net by API/System.Data.Odbc | System.Data.Odbc]]
* [[VB.Net by API/System.Data.OleDb | System.Data.OleDb]]
* [[VB.Net by API/System.Data.OracleClient | System.Data.OracleClient]]
| style="width: 25%;"|
* [[VB.Net by API/System.Data.SqlClient | System.Data.SqlClient]]
* [[VB.Net by API/System.Diagnostics | System.Diagnostics]]
* [[VB.Net by API/System.Drawing | System.Drawing]]
* [[VB.Net by API/System.Drawing.Drawing2D | System.Drawing.Drawing2D]]
* [[VB.Net by API/System.Drawing.Imaging | System.Drawing.Imaging]]
* [[VB.Net by API/System.Drawing.Printing | System.Drawing.Printing]]
* [[VB.Net by API/System.Drawing.Text | System.Drawing.Text]]
* [[VB.Net by API/System.Globalization | System.Globalization]]
* [[VB.Net by API/System.IO | System.IO]]
* [[VB.Net by API/System.IO.IsolatedStorage | System.IO.IsolatedStorage]]
* [[VB.Net by API/System.IO.Ports | System.IO.Ports]]
* [[VB.Net by API/System.Media | System.Media]]
| style="width: 25%;"|
* [[VB.Net by API/System.Messaging | System.Messaging]]
* [[VB.Net by API/System.Net | System.Net]]
* [[VB.Net by API/System.Net.Sockets | System.Net.Sockets]]
* [[VB.Net by API/System.Reflection | System.Reflection]]
* [[VB.Net by API/System.Runtime.InteropServices | System.Runtime.InteropServices]]
* [[VB.Net by API/System.Runtime.Remoting.Channels | System.Runtime.Remoting.Channels]]
* [[VB.Net by API/System.Runtime.Serialization | System.Runtime.Serialization]]
* [[VB.Net by API/System.Runtime.Serialization.Formatters.Binary | System.Runtime.Serialization.Formatters.Binary]]
* [[VB.Net by API/System.Runtime.Serialization.Formatters.Soap | System.Runtime.Serialization.Formatters.Soap]]
* [[VB.Net by API/System.Security.Cryptography | System.Security.Cryptography]]
* [[VB.Net by API/System.Security.Cryptography.X509Certificates | System.Security.Cryptography.X509Certificates]]
* [[VB.Net by API/System.Security.Permissions | System.Security.Permissions]]
| style="width: 25%;"|
* [[VB.Net by API/System.Security.Principal | System.Security.Principal]]
* [[VB.Net by API/System.ServiceProcess | System.ServiceProcess]]
* [[VB.Net by API/System.Text | System.Text]]
* [[VB.Net by API/System.Text.RegularExpressions | System.Text.RegularExpressions]]
* [[VB.Net by API/System.Threading | System.Threading]]
* [[VB.Net by API/System.Web | System.Web]]
* [[VB.Net by API/System.Web.Mail | System.Web.Mail]]
* [[VB.Net by API/System.Windows.Forms | System.Windows.Forms]]
* [[VB.Net by API/System.Xml | System.Xml]]
* [[VB.Net by API/System.Xml.Schema | System.Xml.Schema]]
* [[VB.Net by API/System.Xml.Serialization | System.Xml.Serialization]]
* [[VB.Net by API/System.Xml.Xsl | System.Xml.Xsl]]
|}

== VB.Net Tutorial ==
{| width="100%"
|- valign="top"
| style="width: 25%;"|
* [[VB.Net Tutorial/2D Graphics | 2D Graphics]]
* [[VB.Net Tutorial/Attributes | Attributes]]
* [[VB.Net Tutorial/Class Module | Class Module]]
* [[VB.Net Tutorial/Collections | Collections]]
* [[VB.Net Tutorial/Data Type | Data Type]]
* [[VB.Net Tutorial/Database ADO.net | Database ADO.net]]
* [[VB.Net Tutorial/Date Time | Date Time]]
| style="width: 25%;"|
* [[VB.Net Tutorial/Design Patterns | Design Patterns]]
* [[VB.Net Tutorial/Development | Development]]
* [[VB.Net Tutorial/Event | Event]]
* [[VB.Net Tutorial/GUI | GUI]]
* [[VB.Net Tutorial/GUI Applications | GUI Applications]]
* [[VB.Net Tutorial/Generics | Generics]]
* [[VB.Net Tutorial/I18N Internationlization | I18N Internationlization]]
| style="width: 25%;"|
* [[VB.Net Tutorial/Language Basics | Language Basics]]
* [[VB.Net Tutorial/Operator | Operator]]
* [[VB.Net Tutorial/Reflection | Reflection]]
* [[VB.Net Tutorial/Regular Expressions | Regular Expressions]]
* [[VB.Net Tutorial/Security | Security]]
* [[VB.Net Tutorial/Socket Network | Socket Network]]
* [[VB.Net Tutorial/Statements | Statements]]
| style="width: 25%;"|
* [[VB.Net Tutorial/Stream File | Stream File]]
* [[VB.Net Tutorial/Thread | Thread]]
* [[VB.Net Tutorial/Windows | Windows]]
* [[VB.Net Tutorial/XML | XML]]
|}
== VBA/Excel/Access/Word ==
{| width="100%"
|- valign="top"
| style="width: 25%;"|
* [[VBA/Excel/Access/Word/Access | Access]]
* [[VBA/Excel/Access/Word/Application | Application]]
* [[VBA/Excel/Access/Word/Data Type | Data Type]]
* [[VBA/Excel/Access/Word/Data Type Functions | Data Type Functions]]
* [[VBA/Excel/Access/Word/Date Functions | Date Functions]]
| style="width: 25%;"|
* [[VBA/Excel/Access/Word/Excel | Excel]]
* [[VBA/Excel/Access/Word/File Path | File Path]]
* [[VBA/Excel/Access/Word/Forms | Forms]]
* [[VBA/Excel/Access/Word/Language Basics | Language Basics]]
* [[VBA/Excel/Access/Word/Math Functions | Math Functions]]
| style="width: 25%;"|
* [[VBA/Excel/Access/Word/Outlook | Outlook]]
* [[VBA/Excel/Access/Word/PowerPoint | PowerPoint]]
* [[VBA/Excel/Access/Word/String Functions | String Functions]]
* [[VBA/Excel/Access/Word/Windows API | Windows API]]
* [[VBA/Excel/Access/Word/Word | Word]]
| style="width: 25%;"|
* [[VBA/Excel/Access/Word/XML | XML]]
|}

VB Эксперт:Отказ от ответственности

2010-06-01T16:07:03Z

Admin: Защищена страница «VB Эксперт:Отказ от ответственности» ([edit=sysop] (бессрочно) [move=sysop] (бессрочно))

VbEx.RU, Интернет-энциклопедия с открытым содержимым, является добровольным сообществом личностей и групп, создающих общее хранилище человеческих знаний. Её строение позволяет любому, кто имеет доступ к Интернету и браузер, изменять её содержание. Поэтому, пожалуйста, примите во внимание, что приведённые здесь сведения могут быть не проверенными профессионалами, обладающими знаниями в соответствующих областях, необходимыми для предоставления вам полной, точной или заслуживающей доверия информации о любом понятии в VbEx.RU.

Нельзя сказать, что в VbEx.RU не так уж много полезной и точной информации, однако вы должны сознавать, что VbEx.RU не может никаким способом гарантировать правильность приведённых в ней данных. Во время прочтения они могли быть только что изменены, испорчены, либо написаны тем, чьё мнение отличается от общепринятого в области знаний, интересующей вас.

Мы ищем пути проверки и отбора вызывающих наибольшее доверие версий статей, но мы не можем ничего гарантировать. Наше наибольшее достижение — это избранные участниками статьи, но даже они могли быть испорчены или искажены кем-то за несколько мгновений до прочтения вами.

Никто из авторов, участников, спонсоров, администраторов, операторов и лиц, как-либо ещё связанных с VbEx.RU, не несёт ответственность за появление неточной или ложной информации, а также за использование вами данных, содержащихся на этих веб-страницах либо найденных по ссылкам с них.
Пожалуйста, примите во внимание, что вся информация, находящаяся здесь, предоставлена свободно, как акт доброй воли, без заключения каких-либо договорённостей или договоров между вами и владельцами или пользователями данного сайта, владельцами серверов, на которых он размещён, авторами VbEx.RU, администраторами проекта, операторами либо кем-то ещё, любым образом связанными с этим или родственными ему проектами, которые [договора] могут стать предметом прямых претензий. Вам предоставляется ограниченное право копировать содержимое этого сайта — данное право не предусматривает и не подразумевает никакой договорной или иной ответственности за любую часть VbEx.RU или её агентов, участников, организаторов или других пользователей.

Любые торговые марки, знаки и названия товаров, служб и организаций, права на дизайн, авторские и смежные права, которые упоминаются, используются или цитируются в статьях, принадлежат их законным владельцам. Их использование здесь не даёт вам право на любое другое использование, кроме предусмотренного авторами статей VbEx.RU в соответствии со схемой лицензирования GFDL. Если не указано иное, VbEx.RU никак не связан с правообладателями, и поэтому VbEx.RU не может распоряжаться правами на использование материалов, защищённых авторским правом. Вы несёте ответственность за использование этих и подобных материалов.

Обратите внимание, что чтение, распространение или изменение информации, размещённой в VbEx.RU, может являться нарушением законов той страны, в которой вы просматриваете этот сайт. VbEx.RU не призывает к нарушению никаких законов. Законы вашей страны могут трактовать защиту свободы слова не так широко, как законы России — в этом случае VbEx.RU не несёт ответственности за любые потенциальные нарушения этих законов вами при создании ссылок на этот сайт или другом использовании любой содержащейся здесь информации.

Несмотря на то, что пользователи могут исправлять ошибки или убирать ошибочные суждения, они не обязаны этого делать. Поэтому вся информация предоставляется без гарантии полезности для любой цели либо пригодности к какому-либо использованию.

VbEx.RU не может нести ответственность за любой нанесённый ущерб, так как является добровольным сообществом, свободно организованным для создания открытых образовательных, культурных и информационных ресурсов. Информация предоставляется как акт доброй воли и не существует соглашения или акта о намерениях между вами и VbEx.RU относительно использования или изменения информации, не предусмотренного GNU Free Documentation License. Также никто в VbEx.RU не несёт ответственности за изменение, редактирование или удаление любой информации, добавленной вами в VbEx.RU или другие связанные с ней проекты.

Спасибо, что потратили своё время на чтение этой страницы. Желаем вам получить только приятные впечатления от пользования VbEx.RU.

VB Эксперт:Отказ от ответственности

2010-06-01T16:06:55Z

Admin: Новая страница: «VbEx.RU, Интернет-энциклопедия с открытым содержимым, является добровольным сообществом лич…»

MediaWiki:Sidebar

2010-05-26T13:01:42Z

Admin: Новая страница: «* Разделы ** VB.Net | VB.Net ** VB.Net by API | VB.Net API ** VB.Net Tutorial | VB.Net Учебник ** VBA/Excel/Access/Word/Access | VBA/Excel/Access/Word …»

VB.Net Tutorial/Regular Expressions/Post Code

2010-05-26T12:57:35Z

Admin: 1 версия

==Validate for Canada postal code format==

<source lang="vbnet">Imports System.Text.RegularExpressions
Public Class Tester
Public Shared Sub Main
Dim sPostalCode As String = "A1A 1A1"
Dim sPattern As String
Dim objRegEx As Regex
sPattern = "[ABCEGHJKLMNPRSTVXY]\d[A-Z]\d[A-Z]\d"

Console.WriteLine(objRegEx.IsMatch(sPostalCode, sPattern))

End Sub
End Class</source>
<pre class=codeResult>False</pre>

==Validate for US postal code format==

<source lang="vbnet">Imports System.Text.RegularExpressions
Public Class Tester
Public Shared Sub Main
Dim sPostalCode As String = "12345-1111"
Dim sPattern As String
Dim objRegEx As Regex
sPattern = "\d\d\d\d\d-\d\d\d\d"

Console.WriteLine(objRegEx.IsMatch(sPostalCode, sPattern))
End Sub
End Class</source>
<pre class=codeResult>True</pre>

VB.Net Tutorial/Regular Expressions

2010-05-26T12:57:35Z

Admin: 1 версия

* [[VB.Net Tutorial/Regular Expressions/Match Email | Match Email]]
* [[VB.Net Tutorial/Regular Expressions/Match Number | Match Number]]
* [[VB.Net Tutorial/Regular Expressions/MatchCollection | MatchCollection]]
* [[VB.Net Tutorial/Regular Expressions/Post Code | Post Code]]
* [[VB.Net Tutorial/Regular Expressions/Regular Expressions | Regular Expressions]]

VB.Net Tutorial

2010-05-26T12:57:35Z

Admin: 1 версия

* [[VB.Net Tutorial/2D Graphics | 2D Graphics]]
* [[VB.Net Tutorial/Attributes | Attributes]]
* [[VB.Net Tutorial/Class Module | Class Module]]
* [[VB.Net Tutorial/Collections | Collections]]
* [[VB.Net Tutorial/Data Type | Data Type]]
* [[VB.Net Tutorial/Database ADO.net | Database ADO.net]]
* [[VB.Net Tutorial/Date Time | Date Time]]
* [[VB.Net Tutorial/Design Patterns | Design Patterns]]
* [[VB.Net Tutorial/Development | Development]]
* [[VB.Net Tutorial/Event | Event]]
* [[VB.Net Tutorial/GUI | GUI]]
* [[VB.Net Tutorial/GUI Applications | GUI Applications]]
* [[VB.Net Tutorial/Generics | Generics]]
* [[VB.Net Tutorial/I18N Internationlization | I18N Internationlization]]
* [[VB.Net Tutorial/Language Basics | Language Basics]]
* [[VB.Net Tutorial/Operator | Operator]]
* [[VB.Net Tutorial/Reflection | Reflection]]
* [[VB.Net Tutorial/Regular Expressions | Regular Expressions]]
* [[VB.Net Tutorial/Security | Security]]
* [[VB.Net Tutorial/Socket Network | Socket Network]]
* [[VB.Net Tutorial/Statements | Statements]]
* [[VB.Net Tutorial/Stream File | Stream File]]
* [[VB.Net Tutorial/Thread | Thread]]
* [[VB.Net Tutorial/Windows | Windows]]
* [[VB.Net Tutorial/XML | XML]]

VB.Net Tutorial/Regular Expressions/Match Number

2010-05-26T12:57:34Z

Admin: 1 версия

==Match and extract numbers==

<source lang="vbnet">Imports System.Text.RegularExpressions
Public Class Tester
Public Shared Sub Main
Dim source As String = _
"This 321.0 string -0.020 contains " & _
"3.0E-17 several 1 2. 34 numbers"
Dim parser As New _
Regex("[-+]?([0-9]*\.)?[0-9]+([eE][-+]?[0-9]+)?")
Dim sourceMatches As MatchCollection = parser.Matches(source)
Dim counter As Integer
Console.WriteLine(sourceMatches.Count.ToString() & vbNewLine)
For counter = 0 To sourceMatches.Count - 1
Console.WriteLine(sourceMatches(counter).Value.ToString())
Console.WriteLine(CDbl(sourceMatches(counter).Value).ToString())
Next counter

End Sub

End Class</source>
<pre class=codeResult>6
321.0
321
-0.020
-0.02
3.0E-17
3E-17
1
1
2
2
34
34</pre>

VB.Net Tutorial/Regular Expressions/Match Email

2010-05-26T12:57:34Z

Admin: 1 версия

==Match Email==

<source lang="vbnet">Imports System.Text.RegularExpressions
Public Class Tester
Public Shared Sub Main
Dim testString As String
Dim emailPattern As String = _
"^([0-9a-zA-Z]+[-._+&])*[0-9a-zA-Z]+@" & _
"([-0-9a-zA-Z]+[.])+[a-zA-Z]{2,6}$"
testString = "a@nowhere.ru"
Console.WriteLine(testString & Space(3) & _
Regex.IsMatch(testString, emailPattern))
testString = "a@doe@mybad.ru"
Console.WriteLine(testString & Space(3) & _
Regex.IsMatch(testString, emailPattern))
End Sub

End Class</source>
<pre class=codeResult>a@nowhere.ru True
a@doe@mybad.ru False</pre>

VB.Net Tutorial/Regular Expressions/Regular Expressions

2010-05-26T12:57:34Z

Admin: 1 версия

==Count chars: Regex.Matches(quote, .)==

<source lang="vbnet">Imports System.Text.RegularExpressions
Public Class Tester
Public Shared Sub Main
Dim quote As String = _
"The important thing" & vbNewLine & _
"is not to stop questioning." & vbNewLine & _
"--Albert Einstein" & vbNewLine
Dim numChars As Integer = Regex.Matches(quote, ".").Count
Console.WriteLine(numChars)
End Sub

End Class</source>
<pre class=codeResult>66</pre>

==Count line: Regex.Matches(quote, ".+\n*")==

<source lang="vbnet">Imports System.Text.RegularExpressions
Public Class Tester
Public Shared Sub Main
Dim quote As String = _
"The important thing" & vbNewLine & _
"is not to stop questioning." & vbNewLine & _
"--Albert Einstein" & vbNewLine
Dim numLines As Integer = Regex.Matches(quote, ".+\n*").Count
Console.WriteLine(numLines)
End Sub

End Class</source>
<pre class=codeResult>3</pre>

==Every word replaced by another word==

<source lang="vbnet">Imports System.Text.RegularExpressions
Public Class Tester
Public Shared Sub Main

Console.WriteLine(Regex.Replace("This sentence ends in 5 stars *****", "\w+", "word"))
End Sub
End Class</source>
<pre class=codeResult>word word word word word word *****</pre>

==Match regular expression to string and print out all matches==

<source lang="vbnet">Imports System.Text.RegularExpressions
Module Tester
Sub Main()
Dim myMatch As Match
Dim expression As Regex = New Regex("J.*\d[0-35-9]-\d\d-\d\d")
Dim string1 As String = "11-11-75" & _
vbCrLf & "is 11-05-68" & vbCrLf & _
"asdf 04-18-73" & vbCrLf & _
"fdsa 12-27-77"

For Each myMatch In expression.Matches(string1)
Console.WriteLine(myMatch.ToString())
Next
End Sub
End Module</source>

==Regex.CompileToAssembly==

<source lang="vbnet">Imports System.Text.RegularExpressions
Public Class Tester
Public Shared Sub Main
Dim numPattern As String = _
"[-+]?([0-9]*\.)?[0-9]+([eE][-+]?[0-9]+)?"
Dim wordPattern As String = "\w+"
Dim whichNamespace As String = "NumbersRegex"
Dim isPublic As Boolean = True
Dim compNumbers As New RegexCompilationInfo(numPattern, _
RegexOptions.rupiled, "RgxNumbers", _
whichNamespace, isPublic)
Dim compWords As New RegexCompilationInfo(wordPattern, _
RegexOptions.rupiled, "RgxWords", whichNamespace, _
isPublic)
Dim compAll() As RegexCompilationInfo = _
{compNumbers, compWords}
Dim whichAssembly As New _
System.Reflection.AssemblyName("RgxNumbersWords")
Regex.rupileToAssembly(compAll, whichAssembly)
End Sub

End Class</source>

==Regex Matches==

<source lang="vbnet">Imports System.Text.RegularExpressions
Public Class Tester
Public Shared Sub Main
Dim quote As String = "AA BB in"
Dim count1 As Integer
Dim count2 As Integer
Dim count3 As Integer
count1 = Regex.Matches(quote, "(in)+").Count
count2 = Split(quote, "in").Length - 1
Dim content As String = "in"
Dim position As Integer = -content.Length
Do
position = quote.IndexOf(content, position + content.Length)
If (position < 0) Then Exit Do
count3 += 1
Loop
Console.WriteLine(String.Format( _
"{0}{3}{1}{3}{2}", count1, count2, count3, vbNewLine))

End Sub
End Class</source>
<pre class=codeResult>1
1
1</pre>

==Regex("\w+")==

<source lang="vbnet">Imports System.Text.RegularExpressions
Public Class Tester
Public Shared Sub Main
Dim quote As String = "The important thing is not to " & _
"stop questioning. --Albert Einstein"
Dim parser As New Regex("\w+")
Dim totalMatches As Integer = parser.Matches(quote).Count
Console.WriteLine(quote & vbNewLine & "Number words: " & _
totalMatches.ToString)
End Sub

End Class</source>
<pre class=codeResult>The important thing is not to stop questioning. --Albert Einstein
Number words: 10</pre>

==Replace first 3 digits==

<source lang="vbnet">Imports System.Text.RegularExpressions
Public Class Tester
Public Shared Sub Main

Console.WriteLine(New Regex("\d").Replace("1, 2, 3, 4, 5, 6, 7, 8", "digit", 3))
End Sub
End Class</source>
<pre class=codeResult>digit, digit, digit, 4, 5, 6, 7, 8</pre>

==String split at commas==

<source lang="vbnet">Imports System.Text.RegularExpressions
Public Class Tester
Public Shared Sub Main

Console.WriteLine(Regex.Split("1, 2, 3, 4, 5, 6, 7, 8", ",\s*"))
End Sub
End Class</source>
<pre class=codeResult>System.String[]</pre>

==Using Regex method Replace: Replace one string with another==

<source lang="vbnet">Imports System.Text.RegularExpressions
Public Class Tester
Public Shared Sub Main

Console.WriteLine(New Regex("stars").Replace("This sentence ends in 5 stars *****", "carets
))
End Sub
End Class</source>
<pre class=codeResult>This sentence ends in 5 carets *****</pre>

==Using Regex method Replace: substituted for *==

<source lang="vbnet">Imports System.Text.RegularExpressions
Public Class Tester
Public Shared Sub Main
Console.WriteLine(Regex.Replace("This sentence ends in 5 stars *****", "\*", ""))
End Sub
End Class</source>
<pre class=codeResult>This sentence ends in 5 stars ^^^^^</pre>

==Word count==

<source lang="vbnet">Imports System.Text.RegularExpressions
Public Class Tester
Public Shared Sub Main
Dim quote As String = "q d e w "
Do While (quote.IndexOf(Space(2)) >= 0)
quote = quote.Replace(Space(2), Space(1))
Loop
Dim wordCount As Integer = Split(quote, Space(1)).Length
Console.WriteLine(quote & vbNewLine & "Number of words: " & wordCount.ToString)

End Sub
End Class</source>
<pre class=codeResult>q d e w
Number of words: 5</pre>

==Word count: Regex.Matches(quote, "\w+")==

<source lang="vbnet">Imports System.Text.RegularExpressions
Public Class Tester
Public Shared Sub Main
Dim quote As String = _
"The important thing" & vbNewLine & _
"is not to stop questioning." & vbNewLine & _
"--Albert Einstein" & vbNewLine
Dim numWords As Integer = Regex.Matches(quote, "\w+").Count

Console.WriteLine(numWords)
End Sub

End Class</source>
<pre class=codeResult>10</pre>

VB.Net Tutorial/GUI

2010-05-26T12:57:33Z

Admin: 1 версия

* [[VB.Net Tutorial/GUI/Anchor Dock | Anchor Dock]]
* [[VB.Net Tutorial/GUI/AnchorStyles | AnchorStyles]]
* [[VB.Net Tutorial/GUI/BackgroundWorker | BackgroundWorker]]
* [[VB.Net Tutorial/GUI/Browser | Browser]]
* [[VB.Net Tutorial/GUI/Button | Button]]
* [[VB.Net Tutorial/GUI/CheckBox | CheckBox]]
* [[VB.Net Tutorial/GUI/CheckBox MenuItem | CheckBox MenuItem]]
* [[VB.Net Tutorial/GUI/CheckedListBox | CheckedListBox]]
* [[VB.Net Tutorial/GUI/ColorDialog | ColorDialog]]
* [[VB.Net Tutorial/GUI/ComboBox | ComboBox]]
* [[VB.Net Tutorial/GUI/Control Event | Control Event]]
* [[VB.Net Tutorial/GUI/Control Properties | Control Properties]]
* [[VB.Net Tutorial/GUI/Control Size Location | Control Size Location]]
* [[VB.Net Tutorial/GUI/Controls | Controls]]
* [[VB.Net Tutorial/GUI/Controls on Form | Controls on Form]]
* [[VB.Net Tutorial/GUI/Cursor | Cursor]]
* [[VB.Net Tutorial/GUI/Custom Control | Custom Control]]
* [[VB.Net Tutorial/GUI/Custom Dialog | Custom Dialog]]
* [[VB.Net Tutorial/GUI/DateTimePicker | DateTimePicker]]
* [[VB.Net Tutorial/GUI/DialogResult | DialogResult]]
* [[VB.Net Tutorial/GUI/DomainUpDowns | DomainUpDowns]]
* [[VB.Net Tutorial/GUI/Drag Drop | Drag Drop]]
* [[VB.Net Tutorial/GUI/ErrorProvider | ErrorProvider]]
* [[VB.Net Tutorial/GUI/FlowLayoutPanel | FlowLayoutPanel]]
* [[VB.Net Tutorial/GUI/FolderBrowserDialog | FolderBrowserDialog]]
* [[VB.Net Tutorial/GUI/Form | Form]]
* [[VB.Net Tutorial/GUI/Form Action Event | Form Action Event]]
* [[VB.Net Tutorial/GUI/Form Paint | Form Paint]]
* [[VB.Net Tutorial/GUI/Form Properties | Form Properties]]
* [[VB.Net Tutorial/GUI/Form owner | Form owner]]
* [[VB.Net Tutorial/GUI/FormBorderStyle | FormBorderStyle]]
* [[VB.Net Tutorial/GUI/GUI Thread | GUI Thread]]
* [[VB.Net Tutorial/GUI/GroupBox | GroupBox]]
* [[VB.Net Tutorial/GUI/HelpProvider | HelpProvider]]
* [[VB.Net Tutorial/GUI/InputBox | InputBox]]
* [[VB.Net Tutorial/GUI/Introduction | Introduction]]
* [[VB.Net Tutorial/GUI/Irregular Window | Irregular Window]]
* [[VB.Net Tutorial/GUI/Label | Label]]
* [[VB.Net Tutorial/GUI/Label Drag Drop | Label Drag Drop]]
* [[VB.Net Tutorial/GUI/LinkLabel | LinkLabel]]
* [[VB.Net Tutorial/GUI/ListBox | ListBox]]
* [[VB.Net Tutorial/GUI/ListBox Drag Drop | ListBox Drag Drop]]
* [[VB.Net Tutorial/GUI/ListView | ListView]]
* [[VB.Net Tutorial/GUI/ListView Sort | ListView Sort]]
* [[VB.Net Tutorial/GUI/MDI | MDI]]
* [[VB.Net Tutorial/GUI/Menu | Menu]]
* [[VB.Net Tutorial/GUI/MenuItem | MenuItem]]
* [[VB.Net Tutorial/GUI/MenuStrip | MenuStrip]]
* [[VB.Net Tutorial/GUI/MessageBox | MessageBox]]
* [[VB.Net Tutorial/GUI/MonthCalendar | MonthCalendar]]
* [[VB.Net Tutorial/GUI/MsgBox | MsgBox]]
* [[VB.Net Tutorial/GUI/NotifyIcon | NotifyIcon]]
* [[VB.Net Tutorial/GUI/NumericUpDown | NumericUpDown]]
* [[VB.Net Tutorial/GUI/OpenFileDialog | OpenFileDialog]]
* [[VB.Net Tutorial/GUI/PageSetupDialog | PageSetupDialog]]
* [[VB.Net Tutorial/GUI/Panel | Panel]]
* [[VB.Net Tutorial/GUI/Password Field | Password Field]]
* [[VB.Net Tutorial/GUI/PictureBox | PictureBox]]
* [[VB.Net Tutorial/GUI/PopupMenu | PopupMenu]]
* [[VB.Net Tutorial/GUI/Print | Print]]
* [[VB.Net Tutorial/GUI/Print Dialog | Print Dialog]]
* [[VB.Net Tutorial/GUI/PrintDocument | PrintDocument]]
* [[VB.Net Tutorial/GUI/PrintPreview Dialog | PrintPreview Dialog]]
* [[VB.Net Tutorial/GUI/Printers | Printers]]
* [[VB.Net Tutorial/GUI/ProgressBar | ProgressBar]]
* [[VB.Net Tutorial/GUI/PropertyGrid | PropertyGrid]]
* [[VB.Net Tutorial/GUI/RadioButton | RadioButton]]
* [[VB.Net Tutorial/GUI/RadioButton MenuItem | RadioButton MenuItem]]
* [[VB.Net Tutorial/GUI/RichTextBox | RichTextBox]]
* [[VB.Net Tutorial/GUI/SaveFileDialog | SaveFileDialog]]
* [[VB.Net Tutorial/GUI/ScrollBar | ScrollBar]]
* [[VB.Net Tutorial/GUI/Splash Screen | Splash Screen]]
* [[VB.Net Tutorial/GUI/SplitContainer | SplitContainer]]
* [[VB.Net Tutorial/GUI/Splitter | Splitter]]
* [[VB.Net Tutorial/GUI/StatusBar | StatusBar]]
* [[VB.Net Tutorial/GUI/StatusStrip | StatusStrip]]
* [[VB.Net Tutorial/GUI/SystemIcons | SystemIcons]]
* [[VB.Net Tutorial/GUI/TabControl | TabControl]]
* [[VB.Net Tutorial/GUI/TableLayoutPanel | TableLayoutPanel]]
* [[VB.Net Tutorial/GUI/Text File Print | Text File Print]]
* [[VB.Net Tutorial/GUI/TextBox | TextBox]]
* [[VB.Net Tutorial/GUI/TextBox Validation | TextBox Validation]]
* [[VB.Net Tutorial/GUI/Timer | Timer]]
* [[VB.Net Tutorial/GUI/ToolBar | ToolBar]]
* [[VB.Net Tutorial/GUI/ToolStrip | ToolStrip]]
* [[VB.Net Tutorial/GUI/Tooltips | Tooltips]]
* [[VB.Net Tutorial/GUI/TrackBar | TrackBar]]
* [[VB.Net Tutorial/GUI/TreeView | TreeView]]
* [[VB.Net Tutorial/GUI/Visual Inheritance | Visual Inheritance]]
* [[VB.Net Tutorial/GUI/Wizard | Wizard]]

==Font dialog apply action==

<source lang="vbnet">Imports System.Drawing
Imports System.Windows.Forms
public class FontDialogApplyAction
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Private Sub btnSetFont_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnSetFont.Click
Dim old_font As Font = Me.Font
Dim old_color As Color = Me.ForeColor
dlgFont.ShowColor = True " Let the user select font color.
dlgFont.ShowEffects = True " Let the user select Strikeout and Underline.
dlgFont.ShowApply = True " Display the Apply button.
dlgFont.Font = Me.Font " Set the initial font.
If dlgFont.ShowDialog() = DialogResult.OK Then
SetFormFont(dlgFont.Font, dlgFont.Color)
Else
SetFormFont(old_font, old_color)
End If
End Sub
Private Sub dlgFont_Apply(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles dlgFont.Apply
Dim dlg As FontDialog = DirectCast(sender, FontDialog)
SetFormFont(dlg.Font, dlg.Color)
End Sub
Private Sub SetFormFont(ByVal new_font As Font, ByVal new_color As Color)
Me.Font = new_font
Me.ForeColor = new_color
End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.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.ruponentModel.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.btnSetFont = New System.Windows.Forms.Button
Me.Label1 = New System.Windows.Forms.Label
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.dlgFont = New System.Windows.Forms.FontDialog
Me.SuspendLayout()
"
"btnSetFont
"
Me.btnSetFont.Location = New System.Drawing.Point(8, 8)
Me.btnSetFont.Name = "btnSetFont"
Me.btnSetFont.Size = New System.Drawing.Size(96, 32)
Me.btnSetFont.TabIndex = 0
Me.btnSetFont.Text = "Set Font"
"
"Label1
"
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(8, 48)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(35, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Label1"
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(8, 80)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(160, 20)
Me.TextBox1.TabIndex = 2
Me.TextBox1.Text = "Here"s a TextBox"
"
"Form1
"
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(325, 273)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btnSetFont)
Me.Name = "Form1"
Me.Text = "UseFontDialogWithShowEffects"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents btnSetFont As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents dlgFont As System.Windows.Forms.FontDialog
End Class</source>

==Font dialog showing effects==

<source lang="vbnet">Imports System.Drawing
Imports System.Windows.Forms
public class FontDialogApplyAction
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Private Sub btnSetFont_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnSetFont.Click
Dim old_font As Font = Me.Font
Dim old_color As Color = Me.ForeColor
dlgFont.ShowColor = True " Let the user select font color.
dlgFont.ShowEffects = True " Let the user select Strikeout and Underline.
dlgFont.ShowApply = True " Display the Apply button.
dlgFont.Font = Me.Font " Set the initial font.
If dlgFont.ShowDialog() = DialogResult.OK Then
SetFormFont(dlgFont.Font, dlgFont.Color)
Else
SetFormFont(old_font, old_color)
End If
End Sub
Private Sub dlgFont_Apply(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles dlgFont.Apply
Dim dlg As FontDialog = DirectCast(sender, FontDialog)
SetFormFont(dlg.Font, dlg.Color)
End Sub
Private Sub SetFormFont(ByVal new_font As Font, ByVal new_color As Color)
Me.Font = new_font
Me.ForeColor = new_color
End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.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.ruponentModel.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.btnSetFont = New System.Windows.Forms.Button
Me.Label1 = New System.Windows.Forms.Label
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.dlgFont = New System.Windows.Forms.FontDialog
Me.SuspendLayout()
"
"btnSetFont
"
Me.btnSetFont.Location = New System.Drawing.Point(8, 8)
Me.btnSetFont.Name = "btnSetFont"
Me.btnSetFont.Size = New System.Drawing.Size(96, 32)
Me.btnSetFont.TabIndex = 0
Me.btnSetFont.Text = "Set Font"
"
"Label1
"
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(8, 48)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(35, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Label1"
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(8, 80)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(160, 20)
Me.TextBox1.TabIndex = 2
Me.TextBox1.Text = "Here"s a TextBox"
"
"Form1
"
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(325, 273)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btnSetFont)
Me.Name = "Form1"
Me.Text = "UseFontDialogWithShowEffects"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents btnSetFont As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents dlgFont As System.Windows.Forms.FontDialog
End Class</source>

==Get selected font from FontDialog==

<source lang="vbnet">Imports System.IO
Imports System.Windows.Forms
public class FontDialogSelectedFont
public Shared Sub Main
Dim FontDB As New FontDialog()
If (FontDB.ShowDialog() = DialogResult.OK) Then
Console.WriteLine(FontDB.Font)
End If
End Sub
End class</source>

==Installed Font Collection==

<source lang="vbnet">Imports System.Globalization
Imports System.Text
Imports System.Collections
Imports System.ruponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Drawing
Imports System.Drawing.Text
Imports System

public class Tester
public Shared Sub Main
Dim family As FontFamily
Dim installedFonts As InstalledFontCollection = New InstalledFontCollection()
For Each family In installedFonts.Families
Console.WriteLine(family.Name)
Next family
End Sub
End class</source>

==List all font family name==

<source lang="vbnet">Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ruponentModel
Imports System.Windows.Forms
Imports System.Globalization

public class Tester
public Shared Sub Main
Dim family As FontFamily
For Each family In FontFamily.Families
If family.IsStyleAvailable(FontStyle.Bold) = False Then Exit For
Console.WriteLine(family.Name)
Next family

End Sub
End class</source>
<pre class=codeResult>Aharoni
Andalus
Angsana New
AngsanaUPC
Arabic Transparent
Arial
Arial Black
Arial Narrow
Batang
BatangChe
Book Antiqua
Bookman Old Style
Browallia New
BrowalliaUPC
Comic Sans MS
Cordia New
CordiaUPC
Courier New
David
David Transparent
DilleniaUPC
Dotum
DotumChe
Estrangelo Edessa
EucrosiaUPC
Fixed Miriam Transparent
Franklin Gothic Medium
FrankRuehl
FreesiaUPC
Garamond
Gautami
Georgia
Gulim
GulimChe
Gungsuh
GungsuhChe
Haettenschweiler
Impact
IrisUPC
JasmineUPC
Kartika
KodchiangUPC
Latha
Levenim MT
LilyUPC
Lucida Console
Lucida Sans Unicode
Mangal
Marlett
Microsoft Sans Serif
MingLiU
Miriam
Miriam Fixed
Miriam Transparent</pre>

==Paint all available font families==

<source lang="vbnet">Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ruponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Drawing.Text
public class PaintAllAvailableFonts
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
public class Form1
Inherits System.Windows.Forms.Form
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim g As Graphics = e.Graphics
g.Clear(Me.BackColor)
Dim families As FontFamily() = FontFamily.GetFamilies(g)
Dim familiesFont As Font
Dim familyString As String
Dim spacing As Single = 0
Dim family As FontFamily
For Each family In families
familiesFont = New Font(family, 16, FontStyle.Bold)
familyString = "This is the " + family.Name + "family."
g.DrawString(familyString, familiesFont, Brushes.Black, New PointF(0, spacing))
spacing += familiesFont.Height
Next family
g.Dispose()
End Sub
Public Sub New()

MyBase.New()
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
End Sub
End Class</source>

==Set Properties for a FontDialog==

<source lang="vbnet">Imports System.Drawing
Imports System.Windows.Forms
public class FontDialogProperty
public Shared Sub Main

Dim FontDialog1 As FontDialog = New System.Windows.Forms.FontDialog

Dim objNewFont As Font
objNewFont = New Font("Verdana", 12, FontStyle.Underline)
With FontDialog1
.Font = objNewFont
.AllowScriptChange = False
.ShowColor = True
.Color = Color.Blue
.ShowApply = True
".ShowEffects = False
End With
If FontDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Console.WriteLine(FontDialog1.Font)
Console.WriteLine(FontDialog1.Color)
End If
End Sub
End class</source>

==Use Font dialog to set Label font==

<source lang="vbnet">Imports System.Drawing.Text
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class UseFontDialogToSetLabelFont
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form

Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private components As System.ruponentModel.IContainer
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents FontDialog1 As System.Windows.Forms.FontDialog
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label
Me.Button1 = New System.Windows.Forms.Button
Me.FontDialog1 = New System.Windows.Forms.FontDialog
Me.SuspendLayout()
"
"Label1
"
Me.Label1.Location = New System.Drawing.Point(48, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(168, 96)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Font Setting"
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(88, 136)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(88, 24)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Change Font"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(272, 190)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FontDialog1.ShowDialog()
Label1.Font = FontDialog1.Font
End Sub
End Class</source>

VB.Net Tutorial/Regular Expressions/MatchCollection

2010-05-26T12:57:33Z

Admin: 1 версия

==Use MatchCollection==

<source lang="vbnet">Imports System.Text.RegularExpressions
Public Class Tester
Public Shared Sub Main
Dim source As String = "This 7. several 0.9 numbers"
Dim parser As New Regex( _
"[-+]?([0-9]*\.)?[0-9]+([eE][-+]?[0-9]+)?")
Dim sourceMatches As MatchCollection = _
parser.Matches(source)
Dim result As Double = CDbl(sourceMatches(1).Value)
Console.WriteLine(result.ToString())
End Sub

End Class</source>
<pre class=codeResult>0.9</pre>

VB.Net Tutorial/GUI/FlowLayoutPanel

2010-05-26T12:57:32Z

Admin: 1 версия

==FlowLayoutPanel==

<source lang="vbnet">Imports System.Windows.Forms
public class FlowLayoutPanelTableLayoutPanel
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
<Global.Microsoft.VisualBasic.rupilerServices.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.ruponentModel.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.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel
Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel
Me.Button1 = New System.Windows.Forms.Button
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Button2 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.Button5 = New System.Windows.Forms.Button
Me.Button6 = New System.Windows.Forms.Button
Me.Button7 = New System.Windows.Forms.Button
Me.Button8 = New System.Windows.Forms.Button
Me.Button9 = New System.Windows.Forms.Button
Me.Button10 = New System.Windows.Forms.Button
Me.Button11 = New System.Windows.Forms.Button
Me.Button12 = New System.Windows.Forms.Button
Me.Button13 = New System.Windows.Forms.Button
Me.Button14 = New System.Windows.Forms.Button
Me.Button15 = New System.Windows.Forms.Button
Me.Button16 = New System.Windows.Forms.Button
Me.Button17 = New System.Windows.Forms.Button
Me.Button18 = New System.Windows.Forms.Button
Me.TableLayoutPanel1.SuspendLayout()
Me.FlowLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
"
"TableLayoutPanel1
"
Me.TableLayoutPanel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TableLayoutPanel1.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.OutsetDouble
Me.TableLayoutPanel1.ColumnCount = 2
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.Controls.Add(Me.Button10, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Button11, 1, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Button12, 0, 1)
Me.TableLayoutPanel1.Controls.Add(Me.Button13, 1, 1)
Me.TableLayoutPanel1.Controls.Add(Me.Button14, 0, 2)
Me.TableLayoutPanel1.Controls.Add(Me.Button15, 1, 2)
Me.TableLayoutPanel1.Controls.Add(Me.Button16, 0, 3)
Me.TableLayoutPanel1.Controls.Add(Me.Button17, 1, 3)
Me.TableLayoutPanel1.Controls.Add(Me.Button18, 0, 4)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(264, 16)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 5
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(248, 173)
Me.TableLayoutPanel1.TabIndex = 0
"
"FlowLayoutPanel1
"
Me.FlowLayoutPanel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.FlowLayoutPanel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.FlowLayoutPanel1.Controls.Add(Me.Button1)
Me.FlowLayoutPanel1.Controls.Add(Me.Button2)
Me.FlowLayoutPanel1.Controls.Add(Me.Button3)
Me.FlowLayoutPanel1.Controls.Add(Me.Button4)
Me.FlowLayoutPanel1.Controls.Add(Me.Button5)
Me.FlowLayoutPanel1.Controls.Add(Me.Button6)
Me.FlowLayoutPanel1.Controls.Add(Me.Button7)
Me.FlowLayoutPanel1.Controls.Add(Me.Button8)
Me.FlowLayoutPanel1.Controls.Add(Me.Button9)
Me.FlowLayoutPanel1.Location = New System.Drawing.Point(0, 16)
Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1"
Me.FlowLayoutPanel1.Size = New System.Drawing.Size(256, 173)
Me.FlowLayoutPanel1.TabIndex = 1
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(3, 3)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(72, 24)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Button1"
"
"Label1
"
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(0, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(84, 13)
Me.Label1.TabIndex = 2
Me.Label1.Text = "FlowLayoutPanel"
"
"Label2
"
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(264, 0)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(89, 13)
Me.Label2.TabIndex = 3
Me.Label2.Text = "TableLayoutPanel"
"
"Button2
"
Me.Button2.Location = New System.Drawing.Point(81, 3)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(72, 24)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Button2"
"
"Button3
"
Me.Button3.Location = New System.Drawing.Point(159, 3)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(72, 24)
Me.Button3.TabIndex = 2
Me.Button3.Text = "Button3"
"
"Button4
"
Me.Button4.Location = New System.Drawing.Point(3, 33)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(72, 24)
Me.Button4.TabIndex = 3
Me.Button4.Text = "Button4"
"
"Button5
"
Me.Button5.Location = New System.Drawing.Point(81, 33)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(72, 24)
Me.Button5.TabIndex = 4
Me.Button5.Text = "Button5"
"
"Button6
"
Me.Button6.Location = New System.Drawing.Point(159, 33)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(72, 24)
Me.Button6.TabIndex = 5
Me.Button6.Text = "Button6"
"
"Button7
"
Me.Button7.Location = New System.Drawing.Point(3, 63)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(72, 24)
Me.Button7.TabIndex = 6
Me.Button7.Text = "Button7"
"
"Button8
"
Me.Button8.Location = New System.Drawing.Point(81, 63)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(72, 24)
Me.Button8.TabIndex = 7
Me.Button8.Text = "Button8"
"
"Button9
"
Me.Button9.Location = New System.Drawing.Point(159, 63)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(72, 24)
Me.Button9.TabIndex = 8
Me.Button9.Text = "Button9"
"
"Button10
"
Me.Button10.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Button10.Location = New System.Drawing.Point(26, 6)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(72, 24)
Me.Button10.TabIndex = 9
Me.Button10.Text = "Button10"
"
"Button11
"
Me.Button11.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Button11.Location = New System.Drawing.Point(149, 6)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(72, 24)
Me.Button11.TabIndex = 10
Me.Button11.Text = "Button11"
"
"Button12
"
Me.Button12.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Button12.Location = New System.Drawing.Point(26, 40)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(72, 24)
Me.Button12.TabIndex = 11
Me.Button12.Text = "Button12"
"
"Button13
"
Me.Button13.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Button13.Location = New System.Drawing.Point(149, 40)
Me.Button13.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(72, 24)
Me.Button13.TabIndex = 12
Me.Button13.Text = "Button13"
"
"Button14
"
Me.Button14.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Button14.Location = New System.Drawing.Point(26, 74)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(72, 24)
Me.Button14.TabIndex = 13
Me.Button14.Text = "Button14"
"
"Button15
"
Me.Button15.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Button15.Location = New System.Drawing.Point(149, 74)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(72, 24)
Me.Button15.TabIndex = 14
Me.Button15.Text = "Button15"
"
"Button16
"
Me.Button16.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Button16.Location = New System.Drawing.Point(26, 108)
Me.Button16.Name = "Button16"
Me.Button16.Size = New System.Drawing.Size(72, 24)
Me.Button16.TabIndex = 15
Me.Button16.Text = "Button16"
"
"Button17
"
Me.Button17.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Button17.Location = New System.Drawing.Point(149, 108)
Me.Button17.Name = "Button17"
Me.Button17.Size = New System.Drawing.Size(72, 24)
Me.Button17.TabIndex = 16
Me.Button17.Text = "Button17"
"
"Button18
"
Me.Button18.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Button18.Location = New System.Drawing.Point(26, 142)
Me.Button18.Name = "Button18"
Me.Button18.Size = New System.Drawing.Size(72, 24)
Me.Button18.TabIndex = 17
Me.Button18.Text = "Button18"
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(514, 190)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.FlowLayoutPanel1)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.Name = "Form1"
Me.Text = "FlowAndTableLayoutPanel"
Me.TableLayoutPanel1.ResumeLayout(False)
Me.FlowLayoutPanel1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents FlowLayoutPanel1 As System.Windows.Forms.FlowLayoutPanel
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Button10 As System.Windows.Forms.Button
Friend WithEvents Button11 As System.Windows.Forms.Button
Friend WithEvents Button12 As System.Windows.Forms.Button
Friend WithEvents Button13 As System.Windows.Forms.Button
Friend WithEvents Button14 As System.Windows.Forms.Button
Friend WithEvents Button15 As System.Windows.Forms.Button
Friend WithEvents Button16 As System.Windows.Forms.Button
Friend WithEvents Button17 As System.Windows.Forms.Button
Friend WithEvents Button18 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Button6 As System.Windows.Forms.Button
Friend WithEvents Button7 As System.Windows.Forms.Button
Friend WithEvents Button8 As System.Windows.Forms.Button
Friend WithEvents Button9 As System.Windows.Forms.Button
End Class</source>

VB.Net Tutorial/GUI/CheckedListBox

2010-05-26T12:57:32Z

Admin: 1 версия

==Add value to Checked List Box==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class CheckBoxListAddValueSelectionEvent
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents CheckedListBox1 As System.Windows.Forms.CheckedListBox
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.CheckedListBox1 = New System.Windows.Forms.CheckedListBox
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.SuspendLayout()
"
"CheckedListBox1
"
Me.CheckedListBox1.CheckOnClick = True
Me.CheckedListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckedListBox1.Location = New System.Drawing.Point(96, 6)
Me.CheckedListBox1.Name = "CheckedListBox1"
Me.CheckedListBox1.Size = New System.Drawing.Size(120, 150)
Me.CheckedListBox1.TabIndex = 0
"
"TextBox1
"
Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox1.Location = New System.Drawing.Point(16, 184)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(296, 20)
Me.TextBox1.TabIndex = 2
Me.TextBox1.Text = "TextBox1"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(15, 37)
Me.ClientSize = New System.Drawing.Size(336, 229)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.CheckedListBox1)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CheckedListBox1.Items.Add("Item 1", True)
CheckedListBox1.Items.Add("Item 2", True)
CheckedListBox1.Items.Add("Item 3", True)
CheckedListBox1.Items.Add("Item 4", False)
CheckedListBox1.Items.Add("Item 5", True)
CheckedListBox1.Items.Add("Item 6", True)
CheckedListBox1.Items.Add("Item 7", True)
CheckedListBox1.Items.Add("Item 8", False)
CheckedListBox1.Items.Add("Item 9", True)
CheckedListBox1.Items.Add("Item 10", True)
CheckedListBox1.Items.Add("Item 11", True)
End Sub
Private Sub CheckedListBox1_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck
Select Case e.NewValue
Case CheckState.Checked
TextBox1.Text = "You checked Item " & e.Index
Case CheckState.Unchecked
TextBox1.Text = "You unchecked Item " & e.Index
End Select
End Sub
End Class</source>

==CheckedListBox: Add Items, Get Selected Items and Get Selected Indices==

<source lang="vbnet">Imports System.Windows.Forms
public class CheckedListBoxAddItemGetSelected
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents btnAddItems As System.Windows.Forms.Button
Friend WithEvents clb1 As System.Windows.Forms.CheckedListBox
Friend WithEvents btnGetCheckedIndices As System.Windows.Forms.Button
Friend WithEvents btnGetCheckedItems As System.Windows.Forms.Button
Friend WithEvents ColorDialog1 As System.Windows.Forms.ColorDialog
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.btnAddItems = New System.Windows.Forms.Button()
Me.clb1 = New System.Windows.Forms.CheckedListBox()
Me.btnGetCheckedItems = New System.Windows.Forms.Button()
Me.btnGetCheckedIndices = New System.Windows.Forms.Button()
Me.ColorDialog1 = New System.Windows.Forms.ColorDialog()
Me.SuspendLayout()
"
"btnAddItems
"
Me.btnAddItems.BackColor = System.Drawing.SystemColors.ControlLight
Me.btnAddItems.Location = New System.Drawing.Point(176, 8)
Me.btnAddItems.Name = "btnAddItems"
Me.btnAddItems.Size = New System.Drawing.Size(104, 24)
Me.btnAddItems.TabIndex = 3
Me.btnAddItems.Text = "Add Items"
"
"clb1
"
Me.clb1.Location = New System.Drawing.Point(16, 8)
Me.clb1.Name = "clb1"
Me.clb1.Size = New System.Drawing.Size(144, 79)
Me.clb1.TabIndex = 4
"
"btnGetCheckedItems
"
Me.btnGetCheckedItems.BackColor = System.Drawing.SystemColors.ControlLight
Me.btnGetCheckedItems.Location = New System.Drawing.Point(176, 40)
Me.btnGetCheckedItems.Name = "btnGetCheckedItems"
Me.btnGetCheckedItems.Size = New System.Drawing.Size(104, 24)
Me.btnGetCheckedItems.TabIndex = 5
Me.btnGetCheckedItems.Text = "Checked by Item"
"
"btnGetCheckedIndices
"
Me.btnGetCheckedIndices.BackColor = System.Drawing.SystemColors.ControlLight
Me.btnGetCheckedIndices.Location = New System.Drawing.Point(176, 72)
Me.btnGetCheckedIndices.Name = "btnGetCheckedIndices"
Me.btnGetCheckedIndices.Size = New System.Drawing.Size(104, 24)
Me.btnGetCheckedIndices.TabIndex = 6
Me.btnGetCheckedIndices.Text = "Checked by Index"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(296, 277)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnGetCheckedIndices, Me.btnGetCheckedItems, Me.clb1, Me.btnAddItems})
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub btnAddItems_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddItems.Click
clb1.Items.Add("A", True)
clb1.Items.Add("B", True)
clb1.Items.Add("C", True)
clb1.Items.Add("D", False)
End Sub
Private Sub btnGetCheckedItems_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetCheckedItems.Click
Dim o As Object
For Each o In clb1.CheckedItems
Console.WriteLine(o.ToString)
Next o

End Sub
Private Sub btnGetCheckedIndices_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetCheckedIndices.Click
Dim o As Object
For Each o In clb1.CheckedIndices
Console.WriteLine(o)
Next o
End Sub
End Class</source>

==Checked List Box selection event==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class CheckBoxListAddValueSelectionEvent
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents CheckedListBox1 As System.Windows.Forms.CheckedListBox
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.CheckedListBox1 = New System.Windows.Forms.CheckedListBox
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.SuspendLayout()
"
"CheckedListBox1
"
Me.CheckedListBox1.CheckOnClick = True
Me.CheckedListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckedListBox1.Location = New System.Drawing.Point(96, 6)
Me.CheckedListBox1.Name = "CheckedListBox1"
Me.CheckedListBox1.Size = New System.Drawing.Size(120, 150)
Me.CheckedListBox1.TabIndex = 0
"
"TextBox1
"
Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox1.Location = New System.Drawing.Point(16, 184)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(296, 20)
Me.TextBox1.TabIndex = 2
Me.TextBox1.Text = "TextBox1"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(15, 37)
Me.ClientSize = New System.Drawing.Size(336, 229)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.CheckedListBox1)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CheckedListBox1.Items.Add("Item 1", True)
CheckedListBox1.Items.Add("Item 2", True)
CheckedListBox1.Items.Add("Item 3", True)
CheckedListBox1.Items.Add("Item 4", False)
CheckedListBox1.Items.Add("Item 5", True)
CheckedListBox1.Items.Add("Item 6", True)
CheckedListBox1.Items.Add("Item 7", True)
CheckedListBox1.Items.Add("Item 8", False)
CheckedListBox1.Items.Add("Item 9", True)
CheckedListBox1.Items.Add("Item 10", True)
CheckedListBox1.Items.Add("Item 11", True)
End Sub
Private Sub CheckedListBox1_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck
Select Case e.NewValue
Case CheckState.Checked
TextBox1.Text = "You checked Item " & e.Index
Case CheckState.Unchecked
TextBox1.Text = "You unchecked Item " & e.Index
End Select
End Sub
End Class</source>

==Using the checked list boxes to add items to a list box==

<source lang="vbnet">Imports System.Windows.Forms
public class CheckedListBoxAddRemove
public Shared Sub Main
Application.Run(New FrmCheckedListBox)
End Sub
End class
Public Class FrmCheckedListBox
Inherits Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
" list of available book titles
Friend WithEvents chklstInput As CheckedListBox
" user selection list
Friend WithEvents lstDisplay As ListBox
"Required by the Windows Form Designer
Private components As System.ruponentModel.Container
"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.chklstInput = New System.Windows.Forms.CheckedListBox()
Me.lstDisplay = New System.Windows.Forms.ListBox()
Me.SuspendLayout()
"
"chklstInput
"
Me.chklstInput.HorizontalScrollbar = True
Me.chklstInput.Items.AddRange(New Object() {"A", "B", "C", "D", "E", "F", "G", "H"})
Me.chklstInput.Location = New System.Drawing.Point(16, 16)
Me.chklstInput.Name = "chklstInput"
Me.chklstInput.Size = New System.Drawing.Size(152, 124)
Me.chklstInput.TabIndex = 1
"
"lstDisplay
"
Me.lstDisplay.Anchor = (System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right)
Me.lstDisplay.HorizontalScrollbar = True
Me.lstDisplay.Location = New System.Drawing.Point(184, 16)
Me.lstDisplay.Name = "lstDisplay"
Me.lstDisplay.Size = New System.Drawing.Size(128, 121)
Me.lstDisplay.TabIndex = 2
"
"FrmCheckedListBox
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(328, 157)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lstDisplay, Me.chklstInput})
Me.Name = "FrmCheckedListBox"
Me.Text = "Checked List Box Test"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub chklstInput_ItemCheck _
(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.ItemCheckEventArgs) _
Handles chklstInput.ItemCheck
Dim item As String = chklstInput.SelectedItem
If e.NewValue = CheckState.Checked Then
lstDisplay.Items.Add(item)
Else
lstDisplay.Items.Remove(item)
End If
End Sub
End Class</source>

VB.Net Tutorial/GUI/TableLayoutPanel

2010-05-26T12:57:31Z

Admin: 1 версия

==TableLayoutPanel==

<source lang="vbnet">Imports System.Windows.Forms
public class FlowLayoutPanelTableLayoutPanel
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
<Global.Microsoft.VisualBasic.rupilerServices.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.ruponentModel.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.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel
Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel
Me.Button1 = New System.Windows.Forms.Button
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Button2 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.Button5 = New System.Windows.Forms.Button
Me.Button6 = New System.Windows.Forms.Button
Me.Button7 = New System.Windows.Forms.Button
Me.Button8 = New System.Windows.Forms.Button
Me.Button9 = New System.Windows.Forms.Button
Me.Button10 = New System.Windows.Forms.Button
Me.Button11 = New System.Windows.Forms.Button
Me.Button12 = New System.Windows.Forms.Button
Me.Button13 = New System.Windows.Forms.Button
Me.Button14 = New System.Windows.Forms.Button
Me.Button15 = New System.Windows.Forms.Button
Me.Button16 = New System.Windows.Forms.Button
Me.Button17 = New System.Windows.Forms.Button
Me.Button18 = New System.Windows.Forms.Button
Me.TableLayoutPanel1.SuspendLayout()
Me.FlowLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
"
"TableLayoutPanel1
"
Me.TableLayoutPanel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TableLayoutPanel1.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.OutsetDouble
Me.TableLayoutPanel1.ColumnCount = 2
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.Controls.Add(Me.Button10, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Button11, 1, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Button12, 0, 1)
Me.TableLayoutPanel1.Controls.Add(Me.Button13, 1, 1)
Me.TableLayoutPanel1.Controls.Add(Me.Button14, 0, 2)
Me.TableLayoutPanel1.Controls.Add(Me.Button15, 1, 2)
Me.TableLayoutPanel1.Controls.Add(Me.Button16, 0, 3)
Me.TableLayoutPanel1.Controls.Add(Me.Button17, 1, 3)
Me.TableLayoutPanel1.Controls.Add(Me.Button18, 0, 4)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(264, 16)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 5
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(248, 173)
Me.TableLayoutPanel1.TabIndex = 0
"
"FlowLayoutPanel1
"
Me.FlowLayoutPanel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.FlowLayoutPanel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.FlowLayoutPanel1.Controls.Add(Me.Button1)
Me.FlowLayoutPanel1.Controls.Add(Me.Button2)
Me.FlowLayoutPanel1.Controls.Add(Me.Button3)
Me.FlowLayoutPanel1.Controls.Add(Me.Button4)
Me.FlowLayoutPanel1.Controls.Add(Me.Button5)
Me.FlowLayoutPanel1.Controls.Add(Me.Button6)
Me.FlowLayoutPanel1.Controls.Add(Me.Button7)
Me.FlowLayoutPanel1.Controls.Add(Me.Button8)
Me.FlowLayoutPanel1.Controls.Add(Me.Button9)
Me.FlowLayoutPanel1.Location = New System.Drawing.Point(0, 16)
Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1"
Me.FlowLayoutPanel1.Size = New System.Drawing.Size(256, 173)
Me.FlowLayoutPanel1.TabIndex = 1
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(3, 3)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(72, 24)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Button1"
"
"Label1
"
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(0, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(84, 13)
Me.Label1.TabIndex = 2
Me.Label1.Text = "FlowLayoutPanel"
"
"Label2
"
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(264, 0)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(89, 13)
Me.Label2.TabIndex = 3
Me.Label2.Text = "TableLayoutPanel"
"
"Button2
"
Me.Button2.Location = New System.Drawing.Point(81, 3)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(72, 24)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Button2"
"
"Button3
"
Me.Button3.Location = New System.Drawing.Point(159, 3)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(72, 24)
Me.Button3.TabIndex = 2
Me.Button3.Text = "Button3"
"
"Button4
"
Me.Button4.Location = New System.Drawing.Point(3, 33)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(72, 24)
Me.Button4.TabIndex = 3
Me.Button4.Text = "Button4"
"
"Button5
"
Me.Button5.Location = New System.Drawing.Point(81, 33)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(72, 24)
Me.Button5.TabIndex = 4
Me.Button5.Text = "Button5"
"
"Button6
"
Me.Button6.Location = New System.Drawing.Point(159, 33)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(72, 24)
Me.Button6.TabIndex = 5
Me.Button6.Text = "Button6"
"
"Button7
"
Me.Button7.Location = New System.Drawing.Point(3, 63)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(72, 24)
Me.Button7.TabIndex = 6
Me.Button7.Text = "Button7"
"
"Button8
"
Me.Button8.Location = New System.Drawing.Point(81, 63)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(72, 24)
Me.Button8.TabIndex = 7
Me.Button8.Text = "Button8"
"
"Button9
"
Me.Button9.Location = New System.Drawing.Point(159, 63)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(72, 24)
Me.Button9.TabIndex = 8
Me.Button9.Text = "Button9"
"
"Button10
"
Me.Button10.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Button10.Location = New System.Drawing.Point(26, 6)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(72, 24)
Me.Button10.TabIndex = 9
Me.Button10.Text = "Button10"
"
"Button11
"
Me.Button11.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Button11.Location = New System.Drawing.Point(149, 6)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(72, 24)
Me.Button11.TabIndex = 10
Me.Button11.Text = "Button11"
"
"Button12
"
Me.Button12.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Button12.Location = New System.Drawing.Point(26, 40)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(72, 24)
Me.Button12.TabIndex = 11
Me.Button12.Text = "Button12"
"
"Button13
"
Me.Button13.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Button13.Location = New System.Drawing.Point(149, 40)
Me.Button13.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(72, 24)
Me.Button13.TabIndex = 12
Me.Button13.Text = "Button13"
"
"Button14
"
Me.Button14.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Button14.Location = New System.Drawing.Point(26, 74)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(72, 24)
Me.Button14.TabIndex = 13
Me.Button14.Text = "Button14"
"
"Button15
"
Me.Button15.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Button15.Location = New System.Drawing.Point(149, 74)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(72, 24)
Me.Button15.TabIndex = 14
Me.Button15.Text = "Button15"
"
"Button16
"
Me.Button16.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Button16.Location = New System.Drawing.Point(26, 108)
Me.Button16.Name = "Button16"
Me.Button16.Size = New System.Drawing.Size(72, 24)
Me.Button16.TabIndex = 15
Me.Button16.Text = "Button16"
"
"Button17
"
Me.Button17.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Button17.Location = New System.Drawing.Point(149, 108)
Me.Button17.Name = "Button17"
Me.Button17.Size = New System.Drawing.Size(72, 24)
Me.Button17.TabIndex = 16
Me.Button17.Text = "Button17"
"
"Button18
"
Me.Button18.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Button18.Location = New System.Drawing.Point(26, 142)
Me.Button18.Name = "Button18"
Me.Button18.Size = New System.Drawing.Size(72, 24)
Me.Button18.TabIndex = 17
Me.Button18.Text = "Button18"
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(514, 190)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.FlowLayoutPanel1)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.Name = "Form1"
Me.Text = "FlowAndTableLayoutPanel"
Me.TableLayoutPanel1.ResumeLayout(False)
Me.FlowLayoutPanel1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents FlowLayoutPanel1 As System.Windows.Forms.FlowLayoutPanel
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Button10 As System.Windows.Forms.Button
Friend WithEvents Button11 As System.Windows.Forms.Button
Friend WithEvents Button12 As System.Windows.Forms.Button
Friend WithEvents Button13 As System.Windows.Forms.Button
Friend WithEvents Button14 As System.Windows.Forms.Button
Friend WithEvents Button15 As System.Windows.Forms.Button
Friend WithEvents Button16 As System.Windows.Forms.Button
Friend WithEvents Button17 As System.Windows.Forms.Button
Friend WithEvents Button18 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Button6 As System.Windows.Forms.Button
Friend WithEvents Button7 As System.Windows.Forms.Button
Friend WithEvents Button8 As System.Windows.Forms.Button
Friend WithEvents Button9 As System.Windows.Forms.Button
End Class</source>

VB.Net Tutorial/GUI/Print

2010-05-26T12:57:31Z

Admin: 1 версия

==Print text in TextBox to printer and set up page==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
Imports System.Drawing.Printing
public class PrintTextBox
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
Private PrtSetupDB As New PrintDialog()
Private WithEvents PrtDocument As New System.Drawing.Printing.PrintDocument()
Private PageSetupDB As New PageSetupDialog()
Private PrintPreviewDB As New PrintPreviewDialog()
Private PrinterSettings As New System.Drawing.Printing.PrinterSettings()
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(20, 20)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 0
Me.Button1.Text = "Page Setup"
"
"Button2
"
Me.Button2.Location = New System.Drawing.Point(110, 20)
Me.Button2.Name = "Button2"
Me.Button2.TabIndex = 1
Me.Button2.Text = "Preview"
"
"Button3
"
Me.Button3.Location = New System.Drawing.Point(200, 20)
Me.Button3.Name = "Button3"
Me.Button3.TabIndex = 2
Me.Button3.Text = "Print"
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(16, 64)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(264, 232)
Me.TextBox1.TabIndex = 3
Me.TextBox1.Text = ""
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(296, 325)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox1, Me.Button3, Me.Button2, Me.Button1})
Me.Name = "Form1"
Me.Text = "PrintFormText"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
PageSetupDB.Document = PrtDocument
PageSetupDB.ShowDialog()
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
PrintPreviewDB.Document = PrtDocument
PrintPreviewDB.ShowDialog()
End Sub
Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
PrtSetupDB.Document = PrtDocument
PrtSetupDB.PrinterSettings = PrinterSettings
If (PrtSetupDB.ShowDialog() = DialogResult.OK) Then
PrtDocument.Print()
End If
End Sub
Private Sub PrtDocument_PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs) Handles PrtDocument.PrintPage
ev.Graphics.DrawString(TextBox1.Text, TextBox1.Font, Brushes.Black, 0, 0)
End Sub
End Class</source>

VB.Net Tutorial/GUI/PropertyGrid

2010-05-26T12:57:31Z

Admin: 1 версия

==PropertyGrid Demo==

<source lang="vbnet">Imports System.ruponentModel
Imports System.Windows.Forms
public class PropertyGridDemo
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Private m_Employee As Employee
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
m_Employee = New Employee("R", "S", 4, "A", 6, 4,"6789", 1)
PropertyGrid1.rumandsVisibleIfAvailable = True
PropertyGrid1.Text = "Employee"
PropertyGrid1.SelectedObject = m_Employee
End Sub
End Class
Public Class Employee
Private m_FirstName As String
Private m_LastName As String
Private m_EmployeeId As Integer
Private m_Department As String
Private m_Office As Integer
Private m_Extension As Integer
Private m_SocialSecurityNumber As String
Private m_Salary As Integer
<Description("Extension"), Category("Contact Information")> _
Public Property Extension() As Integer
Get
Return m_Extension
End Get
Set(ByVal value As Integer)
m_Extension = value
End Set
End Property
<Description("Office number"), Category("Contact Information")> _
Public Property Office() As Integer
Get
Return m_Office
End Get
Set(ByVal value As Integer)
m_Office = value
End Set
End Property
<Description("Department"), Category("Organization")> _
Public Property Department() As String
Get
Return m_Department
End Get
Set(ByVal value As String)
m_Department = value
End Set
End Property
<Description("ID"), Category("Personnel")> _
Public Property EmployeeId() As Integer
Get
Return m_EmployeeId
End Get
Set(ByVal value As Integer)
m_EmployeeId = value
End Set
End Property
<Description("First name"), Category("Personnel")> _
Public Property FirstName() As String
Get
Return m_FirstName
End Get
Set(ByVal value As String)
m_FirstName = value
End Set
End Property
<Description("Last name"), Category("Personnel")> _
Public Property LastName() As String
Get
Return m_LastName
End Get
Set(ByVal value As String)
m_LastName = value
End Set
End Property
<Description("Social Security number"), Category("Personnel")> _
Public Property SocialSecurityNumber() As String
Get
Return m_SocialSecurityNumber
End Get
Set(ByVal value As String)
m_SocialSecurityNumber = value
End Set
End Property
<Description("Annual salary"), Category("Personnel")> _
Public Property Salary() As Integer
Get
Return m_Salary
End Get
Set(ByVal value As Integer)
m_Salary = value
End Set
End Property
Public Sub New(ByVal first_name As String, ByVal last_name As String, ByVal employee_id As Integer, ByVal new_department As String, ByVal new_office As Integer, ByVal new_extension As Integer, ByVal social_security_number As String, ByVal new_salary As Integer)
m_FirstName = first_name
m_LastName = last_name
m_EmployeeId = employee_id
m_Department = new_department
m_Office = new_office
m_Extension = new_extension
m_SocialSecurityNumber = social_security_number
m_Salary = new_salary
End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Public Class Form1
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.PropertyGrid1 = New System.Windows.Forms.PropertyGrid
Me.SuspendLayout()
"
"PropertyGrid1
"
Me.PropertyGrid1.Dock = System.Windows.Forms.DockStyle.Fill
Me.PropertyGrid1.Location = New System.Drawing.Point(0, 0)
Me.PropertyGrid1.Name = "PropertyGrid1"
Me.PropertyGrid1.Size = New System.Drawing.Size(292, 273)
Me.PropertyGrid1.TabIndex = 0
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.Add(Me.PropertyGrid1)
Me.Name = "Form1"
Me.Text = "Employee"
Me.ResumeLayout(False)
End Sub
Friend WithEvents PropertyGrid1 As System.Windows.Forms.PropertyGrid
End Class</source>

VB.Net Tutorial/GUI/ListView Sort

2010-05-26T12:57:30Z

Admin: 1 версия

==ListView custom sort==

<source lang="vbnet">"Visual Basic 2005 Programmer"s Reference
"by Rod Stephens (Author)
"# Publisher: Wrox (October 21, 2005)
"# Language: English
"# ISBN-10: 0764571982
"# ISBN-13: 978-0764571985
Imports System.Windows.Forms
Imports System.Collections
public class ListViewCustomSort
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
" The column currently used for sorting.
Private m_SortingColumn As ColumnHeader
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
" Make the ListView column headers.
ListViewMakeColumnHeaders(lvwBooks, _
"Title", HorizontalAlignment.Left, 120, _
"URL", HorizontalAlignment.Left, 120, _
"ISBN", HorizontalAlignment.Left, 90, _
"Picture", HorizontalAlignment.Left, 120, _
"Pages", HorizontalAlignment.Right, 50, _
"Year", HorizontalAlignment.Right, 40)
ListViewMakeRow(lvwBooks, 0, _
"Visual Basic and XML", _
"http://www.vb-helper.ru/xml.htm", _
"0-471-12060-X", _
"http://www.vb-helper.ru/xml.jpg", _
"503", _
"2002")
ListViewMakeRow(lvwBooks, 0, _
"Visual Basic Graphics Programming, 2e", _
"http://www.vb-helper.ru/vbgp.htm", _
"0-471-35599-2", _
"http://www.vb-helper.ru/vbgp.jpg", _
"712", _
"2000")
ListViewMakeRow(lvwBooks, 0, _
"Ready-to-Run Visual Basic Algorithms", _
"http://www.vb-helper.ru/vba.htm", _
"0-471-24268-3", _
"http://www.vb-helper.ru/vba.jpg", _
"395", _
"1998")
ListViewSizeColumns(lvwBooks, True)
Text = "RunTimeListView (" & lvwBooks.View.ToString & ")"
End Sub
" Make the ListView"s column headers.
" The ParamArray entries should be triples holding
" column title, HorizontalAlignment value, and width.
Private Sub ListViewMakeColumnHeaders(ByVal lvw As ListView, ByVal ParamArray header_info() As Object)
" Remove any existing headers.
lvw.Columns.Clear()
" Make the column headers.
For i As Integer = header_info.GetLowerBound(0) To header_info.GetUpperBound(0) Step 3
Dim col_header As ColumnHeader = lvw.Columns.Add( _
DirectCast(header_info(i), String), _
-1, _
DirectCast(header_info(i + 1), HorizontalAlignment))
col_header.Width = DirectCast(header_info(i + 2), Integer)
Next i
End Sub
" Make a ListView row.
Private Sub ListViewMakeRow(ByVal lvw As ListView, ByVal image_index As Integer, ByVal item_title As String, ByVal ParamArray subitem_titles() As String)
" Make the item.
Dim new_item As ListViewItem = lvw.Items.Add(item_title)
new_item.ImageIndex = image_index
" Make the sub-items.
For i As Integer = subitem_titles.GetLowerBound(0) To subitem_titles.GetUpperBound(0)
new_item.SubItems.Add(subitem_titles(i))
Next i
End Sub
" Set column widths to -1 to fit data,
" -2 to fit data and header.
Private Sub ListViewSizeColumns(ByVal lvw As ListView, ByVal allow_room_for_header As Boolean)
Dim new_wid As Integer = -1
If allow_room_for_header Then new_wid = -2
" Set the width for each column.
For i As Integer = 0 To lvw.Columns.Count - 1
lvw.Columns(i).Width = new_wid
Next i
End Sub
Private Sub mnuViewDetails_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuViewDetails.Click
lvwBooks.View = View.Details
Text = "RunTimeListView (" & lvwBooks.View.ToString & ")"
End Sub
Private Sub mnuViewLargeIcons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuViewLargeIcons.Click
lvwBooks.View = View.LargeIcon
Text = "RunTimeListView (" & lvwBooks.View.ToString & ")"
End Sub
Private Sub mnuViewList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuViewList.Click
lvwBooks.View = View.List
Text = "RunTimeListView (" & lvwBooks.View.ToString & ")"
End Sub
Private Sub mnuViewSmallIcons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuViewSmallIcons.Click
lvwBooks.View = View.SmallIcon
Text = "RunTimeListView (" & lvwBooks.View.ToString & ")"
End Sub
Private Sub mnuViewTile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuViewTile.Click
lvwBooks.View = View.Tile
Text = "RunTimeListView (" & lvwBooks.View.ToString & ")"
End Sub
" Sort using the clicked column.
Private Sub lvwBooks_ColumnClick(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles lvwBooks.ColumnClick
" Get the new sorting column.
Dim new_sorting_column As ColumnHeader = _
lvwBooks.Columns(e.Column)
" Figure out the new sorting order.
Dim sort_order As System.Windows.Forms.SortOrder
If m_SortingColumn Is Nothing Then
" New column. Sort ascending.
sort_order = SortOrder.Ascending
Else
" See if this is the same column.
If new_sorting_column.Equals(m_SortingColumn) Then
" Same column. Switch the sort order.
If m_SortingColumn.Text.StartsWith("> ") Then
sort_order = SortOrder.Descending
Else
sort_order = SortOrder.Ascending
End If
Else
" New column. Sort ascending.
sort_order = SortOrder.Ascending
End If
" Remove the old sort indicator.
m_SortingColumn.Text = m_SortingColumn.Text.Substring(2)
End If
" Display the new sort order.
m_SortingColumn = new_sorting_column
If sort_order = SortOrder.Ascending Then
m_SortingColumn.Text = "> " & m_SortingColumn.Text
Else
m_SortingColumn.Text = "< " & m_SortingColumn.Text
End If
" Create a comparer.
lvwBooks.ListViewItemSorter = New ListViewComparer(e.Column, sort_order)
" Sort.
lvwBooks.Sort()
End Sub
End Class
" Implements a comparer for ListView columns.
Public Class ListViewComparer
Implements IComparer
Private m_ColumnNumber As Integer
Private m_SortOrder As SortOrder
Public Sub New(ByVal column_number As Integer, ByVal sort_order As SortOrder)
m_ColumnNumber = column_number
m_SortOrder = sort_order
End Sub
" Compare the items in the appropriate column
" for objects x and y.
Public Function Compare(ByVal x As Object, ByVal y As Object) _
As Integer Implements System.Collections.IComparer.rupare
Dim item_x As ListViewItem = DirectCast(x, ListViewItem)
Dim item_y As ListViewItem = DirectCast(y, ListViewItem)
" Get the sub-item values.
Dim string_x As String
If item_x.SubItems.Count <= m_ColumnNumber Then
string_x = ""
Else
string_x = item_x.SubItems(m_ColumnNumber).Text
End If
Dim string_y As String
If item_y.SubItems.Count <= m_ColumnNumber Then
string_y = ""
Else
string_y = item_y.SubItems(m_ColumnNumber).Text
End If
" Compare them.
If m_SortOrder = SortOrder.Ascending Then
Return String.rupare(string_x, string_y)
Else
Return String.rupare(string_y, string_x)
End If
End Function
End Class
<Global.Microsoft.VisualBasic.rupilerServices.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.ruponentModel.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.ruponents = New System.ruponentModel.Container
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip
Me.ViewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.mnuViewDetails = New System.Windows.Forms.ToolStripMenuItem
Me.mnuViewLargeIcons = New System.Windows.Forms.ToolStripMenuItem
Me.mnuViewList = New System.Windows.Forms.ToolStripMenuItem
Me.mnuViewSmallIcons = New System.Windows.Forms.ToolStripMenuItem
Me.mnuViewTile = New System.Windows.Forms.ToolStripMenuItem
Me.imlSmall = New System.Windows.Forms.ImageList(Me.ruponents)
Me.lvwBooks = New System.Windows.Forms.ListView
Me.ColumnHeader3 = New System.Windows.Forms.ColumnHeader
Me.ColumnHeader2 = New System.Windows.Forms.ColumnHeader
Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader
Me.MenuStrip1.SuspendLayout()
Me.SuspendLayout()
"
"MenuStrip1
"
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ViewToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(772, 24)
Me.MenuStrip1.TabIndex = 1
Me.MenuStrip1.Text = "MenuStrip1"
"
"ViewToolStripMenuItem
"
Me.ViewToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuViewDetails, Me.mnuViewLargeIcons, Me.mnuViewList, Me.mnuViewSmallIcons, Me.mnuViewTile})
Me.ViewToolStripMenuItem.Name = "ViewToolStripMenuItem"
Me.ViewToolStripMenuItem.Text = "&View"
"
"mnuViewDetails
"
Me.mnuViewDetails.Name = "mnuViewDetails"
Me.mnuViewDetails.Text = "&Details"
"
"mnuViewLargeIcons
"
Me.mnuViewLargeIcons.Name = "mnuViewLargeIcons"
Me.mnuViewLargeIcons.Text = "Large Icons"
"
"mnuViewList
"
Me.mnuViewList.Name = "mnuViewList"
Me.mnuViewList.Text = "&List"
"
"mnuViewSmallIcons
"
Me.mnuViewSmallIcons.Name = "mnuViewSmallIcons"
Me.mnuViewSmallIcons.Text = "&Small Icons"
"
"mnuViewTile
"
Me.mnuViewTile.Name = "mnuViewTile"
Me.mnuViewTile.Text = "Tile"
"
"lvwBooks
"
Me.lvwBooks.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3})
Me.lvwBooks.Dock = System.Windows.Forms.DockStyle.Fill
Me.lvwBooks.Location = New System.Drawing.Point(0, 24)
Me.lvwBooks.Name = "lvwBooks"
Me.lvwBooks.Size = New System.Drawing.Size(772, 249)
Me.lvwBooks.SmallImageList = Me.imlSmall
Me.lvwBooks.TabIndex = 2
Me.lvwBooks.View = System.Windows.Forms.View.Details
"
"ColumnHeader2
"
Me.ColumnHeader2.Text = "URL"
"
"ColumnHeader1
"
Me.ColumnHeader1.Text = "Title"
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(772, 273)
Me.Controls.Add(Me.lvwBooks)
Me.Controls.Add(Me.MenuStrip1)
Me.Name = "Form1"
Me.Text = "ListViewCustomSort"
Me.MenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents ViewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents mnuViewDetails As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents mnuViewLargeIcons As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents mnuViewList As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents mnuViewSmallIcons As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents mnuViewTile As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents imlSmall As System.Windows.Forms.ImageList
Friend WithEvents lvwBooks As System.Windows.Forms.ListView
Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
End Class</source>

==Sort a listview==

<source lang="vbnet">Imports System.Windows.Forms
public class ListViewSorting
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim mycount As Integer
mycount = listview1.Items.Count
ToolStripStatusLabel1.Text = Str(mycount)
End Sub
Private Sub ListView1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.Click
Dim i As Integer
Dim mycount As Integer
mycount = ListView1.Items.Count
For i = 0 To mycount - 1
If ListView1.Items(i).Selected = True Then
ToolStripStatusLabel1.Text = ListView1.Items(i).Text + " selected"
Exit For
End If
Next
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
ListView1.Sorting = SortOrder.Ascending
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
ListView1.Sorting = SortOrder.Descending
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
ListView1.Sorting = SortOrder.None
End Sub

End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.ruponents = New System.ruponentModel.Container
Dim ListViewItem1 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Item1", 0)
Dim ListViewItem2 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Item2", 1)
Dim ListViewItem3 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Item3", 2)
Dim ListViewItem4 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Item4", 3)
Dim ListViewItem5 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Item5", 4)
Me.ListView1 = New System.Windows.Forms.ListView
Me.RadioButton1 = New System.Windows.Forms.RadioButton
Me.RadioButton2 = New System.Windows.Forms.RadioButton
Me.RadioButton3 = New System.Windows.Forms.RadioButton
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip
Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel
Me.StatusStrip1.SuspendLayout()
Me.SuspendLayout()
"
"ListView1
"
Me.ListView1.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem1, ListViewItem2, ListViewItem3, ListViewItem4, ListViewItem5})
Me.ListView1.LargeImageList = Me.ImageList1
Me.ListView1.Location = New System.Drawing.Point(16, 15)
Me.ListView1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.ListView1.Name = "ListView1"
Me.ListView1.Size = New System.Drawing.Size(317, 155)
Me.ListView1.TabIndex = 0
Me.ListView1.UseCompatibleStateImageBehavior = False
"
"RadioButton1
"
Me.RadioButton1.AutoSize = True
Me.RadioButton1.Location = New System.Drawing.Point(391, 39)
Me.RadioButton1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.RadioButton1.Name = "RadioButton1"
Me.RadioButton1.Size = New System.Drawing.Size(58, 19)
Me.RadioButton1.TabIndex = 1
Me.RadioButton1.TabStop = True
Me.RadioButton1.Text = "ascending"
Me.RadioButton1.UseVisualStyleBackColor = True
"
"RadioButton2
"
Me.RadioButton2.AutoSize = True
Me.RadioButton2.Location = New System.Drawing.Point(391, 79)
Me.RadioButton2.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.RadioButton2.Name = "RadioButton2"
Me.RadioButton2.Size = New System.Drawing.Size(58, 19)
Me.RadioButton2.TabIndex = 2
Me.RadioButton2.TabStop = True
Me.RadioButton2.Text = "descending"
Me.RadioButton2.UseVisualStyleBackColor = True
"
"RadioButton3
"
Me.RadioButton3.AutoSize = True
Me.RadioButton3.Location = New System.Drawing.Point(391, 124)
Me.RadioButton3.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.RadioButton3.Name = "RadioButton3"
Me.RadioButton3.Size = New System.Drawing.Size(73, 19)
Me.RadioButton3.TabIndex = 3
Me.RadioButton3.TabStop = True
Me.RadioButton3.Text = "no order"
Me.RadioButton3.UseVisualStyleBackColor = True
"
"StatusStrip1
"
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 212)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 19, 0)
Me.StatusStrip1.Size = New System.Drawing.Size(536, 22)
Me.StatusStrip1.TabIndex = 4
Me.StatusStrip1.Text = "StatusStrip1"
"
"ToolStripStatusLabel1
"
Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(0, 17)
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(536, 234)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.RadioButton3)
Me.Controls.Add(Me.RadioButton2)
Me.Controls.Add(Me.RadioButton1)
Me.Controls.Add(Me.ListView1)
Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ListView1 As System.Windows.Forms.ListView
Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents ToolStripStatusLabel1 As System.Windows.Forms.ToolStripStatusLabel
End Class</source>

VB.Net Tutorial/GUI/PrintPreview Dialog

2010-05-26T12:57:30Z

Admin: 1 версия

==PrintPreview page count==

<source lang="vbnet">Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Printing
public class PrintPreviewPagesOut
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Private currentPageNumber As Integer = 1
Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
If ppvdlgShapes.ShowDialog() = Windows.Forms.DialogResult.OK Then
ppvdlgShapes.Document.Print()
End If
End Sub
Private Sub pdocShapes_PrintPage(ByVal sender As System.Object, _
ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pdocShapes.PrintPage
Select Case currentPageNumber
Case 1
e.Graphics.DrawRectangle(Pens.Green, e.MarginBounds())
e.HasMorePages = True
currentPageNumber += 1
Case 2
e.Graphics.DrawRectangle(Pens.Green, e.MarginBounds())
e.HasMorePages = True
currentPageNumber += 1
Case 3
e.Graphics.DrawEllipse(Pens.Blue, e.MarginBounds())
e.HasMorePages = False
currentPageNumber = 1
End Select
End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.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.ruponentModel.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.btnPreview = New System.Windows.Forms.Button
Me.pdocShapes = New System.Drawing.Printing.PrintDocument
Me.ppvdlgShapes = New System.Windows.Forms.PrintPreviewDialog
Me.SuspendLayout()
"
"btnPreview
"
Me.btnPreview.Location = New System.Drawing.Point(112, 48)
Me.btnPreview.Name = "btnPreview"
Me.btnPreview.Size = New System.Drawing.Size(64, 24)
Me.btnPreview.TabIndex = 1
Me.btnPreview.Text = "Preview"
"
"ppvdlgShapes
"
Me.ppvdlgShapes.AutoScrollMargin = New System.Drawing.Size(0, 0)
Me.ppvdlgShapes.AutoScrollMinSize = New System.Drawing.Size(0, 0)
Me.ppvdlgShapes.ClientSize = New System.Drawing.Size(400, 300)
Me.ppvdlgShapes.Document = Me.pdocShapes
Me.ppvdlgShapes.Enabled = True
Me.ppvdlgShapes.Name = "ppvdlgShapes"
Me.ppvdlgShapes.Visible = False
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(292, 142)
Me.Controls.Add(Me.btnPreview)
Me.Name = "Form1"
Me.Text = "UsePrintPreviewDialog"
Me.ResumeLayout(False)
End Sub
Friend WithEvents btnPreview As System.Windows.Forms.Button
Friend WithEvents pdocShapes As System.Drawing.Printing.PrintDocument
Friend WithEvents ppvdlgShapes As System.Windows.Forms.PrintPreviewDialog
End Class</source>

==Print, PrintPreview Dialog and Print Dialog==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
Imports System.Drawing.Printing
public class PrintPreviewDemo
public Shared Sub Main
Application.Run(New MainForm)
End Sub
End class

Public Class MainForm
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents printButton As System.Windows.Forms.Button
Friend WithEvents previewButton As System.Windows.Forms.Button
Friend WithEvents previewControlButton As System.Windows.Forms.Button
Friend WithEvents pageSetupButton As System.Windows.Forms.Button
Friend WithEvents pageSetupDialog1 As System.Windows.Forms.PageSetupDialog
Friend WithEvents printDialog1 As System.Windows.Forms.PrintDialog
Friend WithEvents printDocument1 As System.Drawing.Printing.PrintDocument
Friend WithEvents printPreviewDialog1 As System.Windows.Forms.PrintPreviewDialog
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.printButton = New System.Windows.Forms.Button()
Me.previewButton = New System.Windows.Forms.Button()
Me.previewControlButton = New System.Windows.Forms.Button()
Me.pageSetupButton = New System.Windows.Forms.Button()
Me.pageSetupDialog1 = New System.Windows.Forms.PageSetupDialog()
Me.printDialog1 = New System.Windows.Forms.PrintDialog()
Me.printDocument1 = New System.Drawing.Printing.PrintDocument()
Me.printPreviewDialog1 = New System.Windows.Forms.PrintPreviewDialog()
Me.SuspendLayout()
"
"printButton
"
Me.printButton.Location = New System.Drawing.Point(24, 16)
Me.printButton.Name = "printButton"
Me.printButton.Size = New System.Drawing.Size(112, 23)
Me.printButton.TabIndex = 3
Me.printButton.Text = "Print"
"
"previewButton
"
Me.previewButton.Location = New System.Drawing.Point(24, 80)
Me.previewButton.Name = "previewButton"
Me.previewButton.Size = New System.Drawing.Size(112, 23)
Me.previewButton.TabIndex = 6
Me.previewButton.Text = "Preview Dialog"
"
"previewControlButton
"
Me.previewControlButton.Location = New System.Drawing.Point(24, 48)
Me.previewControlButton.Name = "previewControlButton"
Me.previewControlButton.Size = New System.Drawing.Size(112, 23)
Me.previewControlButton.TabIndex = 4
Me.previewControlButton.Text = "Preview Control"
"
"pageSetupButton
"
Me.pageSetupButton.Location = New System.Drawing.Point(24, 112)
Me.pageSetupButton.Name = "pageSetupButton"
Me.pageSetupButton.Size = New System.Drawing.Size(112, 23)
Me.pageSetupButton.TabIndex = 5
Me.pageSetupButton.Text = "Page Setup"
"
"pageSetupDialog1
"
Me.pageSetupDialog1.MinMargins = New System.Drawing.Printing.Margins(50, 50, 50, 50)
Me.pageSetupDialog1.ShowHelp = True
"
"printDialog1
"
Me.printDialog1.Document = Me.printDocument1
"
"printDocument1
"
"
"printPreviewDialog1
"
Me.printPreviewDialog1.AutoScrollMargin = New System.Drawing.Size(0, 0)
Me.printPreviewDialog1.AutoScrollMinSize = New System.Drawing.Size(0, 0)
Me.printPreviewDialog1.ClientSize = New System.Drawing.Size(400, 300)
Me.printPreviewDialog1.Enabled = True
Me.printPreviewDialog1.Location = New System.Drawing.Point(44, 58)
Me.printPreviewDialog1.MaximumSize = New System.Drawing.Size(0, 0)
Me.printPreviewDialog1.Name = "printPreviewDialog1"
Me.printPreviewDialog1.Opacity = 1
Me.printPreviewDialog1.TransparencyKey = System.Drawing.Color.Empty
Me.printPreviewDialog1.Visible = False
"
"MainForm
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(160, 150)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.printButton, Me.previewButton, Me.previewControlButton, Me.pageSetupButton})
Me.Name = "MainForm"
Me.Text = "MainForm"
Me.ResumeLayout(False)
End Sub
#End Region
Dim totalPages As Integer = 13
Dim page As Integer
Dim maxPage As Integer
Dim myFont As Font = Nothing
Private Sub printButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles printButton.Click
printDocument1.DocumentName = "myFile.txt"
printDocument1.PrinterSettings.FromPage = 1
printDocument1.PrinterSettings.ToPage = totalPages
printDocument1.PrinterSettings.MinimumPage = 1
printDocument1.PrinterSettings.MaximumPage = totalPages
printDialog1.AllowSomePages = True
If printDialog1.ShowDialog() = DialogResult.OK Then
If printDialog1.PrinterSettings.PrintRange = Drawing.Printing.PrintRange.SomePages Then
page = printDocument1.PrinterSettings.FromPage
maxPage = printDocument1.PrinterSettings.ToPage
Else
page = 1
maxPage = totalPages
End If
End If
printDocument1.Print()
End Sub
Sub printDocument1_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs) Handles printDocument1.PrintPage
Dim g As Graphics = e.Graphics
g.DrawString("Hello, " & vbCrLf & "Printer" & vbCrLf & "Page: " & page, myFont, Brushes.Black, RectangleF.op_Implicit(e.MarginBounds))
page = page + 1
e.HasMorePages = (page <= maxPage)
End Sub

Private Sub previewControlButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles previewControlButton.Click
page = 1
maxPage = totalPages
printPreviewDialog1.Document = printDocument1
printPreviewDialog1.ShowDialog()
End Sub
Private Sub previewButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles previewButton.Click
page = 1
maxPage = totalPages
Dim dlg As CustomPrintPreviewDialog = New CustomPrintPreviewDialog()
dlg.Document = printDocument1
dlg.ShowDialog()
End Sub
Private Sub pageSetupButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pageSetupButton.Click
pageSetupDialog1.Document = printDocument1
pageSetupDialog1.ShowDialog()
End Sub
Private Sub printDocument1_BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles printDocument1.BeginPrint
myFont = New Font("Lucide Console", 72)
End Sub
Private Sub printDocument1_EndPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles printDocument1.EndPrint
myFont.Dispose()
myFont = Nothing
End Sub
End Class

Public Class CustomPrintPreviewDialog
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents printPreviewControl1 As System.Windows.Forms.PrintPreviewControl
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.printPreviewControl1 = New System.Windows.Forms.PrintPreviewControl()
Me.SuspendLayout()
"
"printPreviewControl1
"
Me.printPreviewControl1.AutoZoom = False
Me.printPreviewControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.printPreviewControl1.Name = "printPreviewControl1"
Me.printPreviewControl1.Size = New System.Drawing.Size(376, 398)
Me.printPreviewControl1.TabIndex = 1
Me.printPreviewControl1.UseAntiAlias = True
Me.printPreviewControl1.Zoom = 0.30000001192092896
"
"CustomPrintPreviewDialog
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(376, 398)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.printPreviewControl1})
Me.Name = "CustomPrintPreviewDialog"
Me.Text = "CustomPrintPreviewDialog"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub printPreviewControl1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles printPreviewControl1.Click
If (Control.ModifierKeys And Keys.Shift) = 0 Then
printPreviewControl1.Zoom = printPreviewControl1.Zoom * 2.0
Else
printPreviewControl1.Zoom = printPreviewControl1.Zoom / 2.0
End If
End Sub
Public Property Document() As PrintDocument
Get
Return printPreviewControl1.Document
End Get
Set(ByVal Value As PrintDocument)
printPreviewControl1.Document = Value
End Set
End Property
End Class</source>

VB.Net Tutorial/GUI/AnchorStyles

2010-05-26T12:57:29Z

Admin: 1 версия

==AnchorStyles.Bottom Or AnchorStyles.Left==

<source lang="vbnet">imports System
imports System.Drawing
imports System.Windows.Forms
public class ControlAnchorBottomLeft : inherits Form
public sub New()
Size = new Size(350,400)
dim xButtonSize as integer = 120
dim xMargin, yMargin as integer
xMargin = Font.Height * 2
yMargin = Font.Height * 2
dim btn as new Button()
btn.Parent = me
btn.Text = "Upper Left"

btn.Size = new Size(xButtonSize, 26)
btn.Location = new Point(xMargin, yMargin)
btn = new Button()
btn.Parent = me
btn.Text = "Lower Left"
btn.Size = new Size(xButtonSize, 26)
btn.Location = new Point(xMargin, me.ClientSize.Height - yMargin - 26)
btn.Anchor = AnchorStyles.Bottom Or AnchorStyles.Left
end sub
public shared sub Main()
Application.Run(new ControlAnchorBottomLeft())
end sub
end class</source>

==AnchorStyles.Bottom Or AnchorStyles.Right==

<source lang="vbnet">imports System
imports System.Drawing
imports System.Windows.Forms
public class ControlAnchorBottomRight : inherits Form
public sub New()
Size = new Size(350,400)
dim xButtonSize as integer = 120
dim xMargin, yMargin as integer
xMargin = Font.Height * 2
yMargin = Font.Height * 2
dim btn as new Button()
btn.Parent = me
btn.Text = "Upper Left"

btn.Size = new Size(xButtonSize, 26)
btn.Location = new Point(xMargin, yMargin)
btn = new Button()
btn.Parent = me
btn.Text = "Lower Right"
btn.Size = new Size(xButtonSize, 26)
btn.Location = new Point(me.ClientSize.Width - xMargin - xButtonSize, me.ClientSize.Height - yMargin - 26)
btn.Anchor = AnchorStyles.Bottom Or AnchorStyles.Right
end sub
public shared sub Main()
Application.Run(new ControlAnchorBottomRight())
end sub
end class</source>

==AnchorStyles.Left Or AnchorStyles.Right==

<source lang="vbnet">imports System
imports System.Drawing
imports System.Windows.Forms
public class ControlAnchorLeftRight : inherits Form
public sub New()
Size = new Size(350,400)
dim xButtonSize as integer = 120
dim xMargin, yMargin as integer
xMargin = Font.Height * 2
yMargin = Font.Height * 2
dim btn as new Button()
btn.Parent = me
btn.Text = "Upper Left"

btn.Size = new Size(xButtonSize, 26)
btn.Location = new Point(xMargin, yMargin)
btn = new Button()
btn.Parent = me
btn.Text = "Middle Span"
btn.Size = new Size(xButtonSize, 26)
btn.Location = new Point(xMargin,Cint(me.ClientSize.Height / 2) - 26)
btn.Anchor = AnchorStyles.Left Or AnchorStyles.Right
end sub
public shared sub Main()
Application.Run(new ControlAnchorLeftRight())
end sub
end class</source>

==AnchorStyles.Top Or AnchorStyles.Right==

<source lang="vbnet">imports System
imports System.Drawing
imports System.Windows.Forms
public class ControlAnchorTopRight : inherits Form
public sub New()
Size = new Size(350,400)
dim xButtonSize as integer = 120
dim xMargin, yMargin as integer
xMargin = Font.Height * 2
yMargin = Font.Height * 2
dim btn as new Button()
btn.Parent = me
btn.Text = "Upper Left"

btn.Size = new Size(xButtonSize, 26)
btn.Location = new Point(xMargin, yMargin)
btn = new Button()
btn.Parent = me
btn.Text = "Upper Right"
btn.Size = new Size(xButtonSize, 26)
btn.Location = new Point(me.ClientSize.Width - xMargin - xButtonSize, yMargin)
btn.Anchor = AnchorStyles.Top Or AnchorStyles.Right
end sub
public shared sub Main()
Application.Run(new ControlAnchorTopRight())
end sub
end class</source>

==Get Control Anchoring Information==

<source lang="vbnet">Imports System.Windows.Forms
public class GetControlAnchoringInformation
public Shared Sub Main
Application.Run(New Anchoring)
End Sub
End class
Public Class Anchoring
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
For Each ctrl As Control In Me.Controls
Dim anchorText As New System.Text.StringBuilder
If ctrl.Anchor And AnchorStyles.Top Then
anchorText.Append("Top")
End If
If ctrl.Anchor And AnchorStyles.Left Then
If anchorText.Length <> 0 Then
anchorText.Append(", ")
End If
anchorText.Append("Left")
End If
If ctrl.Anchor And AnchorStyles.Bottom Then
If anchorText.Length <> 0 Then
anchorText.Append(", ")
End If
anchorText.Append("Bottom")
End If
If ctrl.Anchor And AnchorStyles.Right Then
If anchorText.Length <> 0 Then
anchorText.Append(", ")
End If
anchorText.Append("Right")
End If
ctrl.Text = anchorText.ToString()
Next
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.TextBox3 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.TextBox4 = New System.Windows.Forms.TextBox
Me.SuspendLayout()
"
"TextBox1
"
Me.TextBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TextBox1.Location = New System.Drawing.Point(16, 16)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(248, 20)
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = "Anchored to Top, Left, Right"
"
"TextBox2
"
Me.TextBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TextBox2.Location = New System.Drawing.Point(16, 72)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(248, 20)
Me.TextBox2.TabIndex = 1
Me.TextBox2.Text = "Anchored to Top, Left, Right"
"
"TextBox3
"
Me.TextBox3.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.TextBox3.Location = New System.Drawing.Point(16, 96)
Me.TextBox3.Multiline = True
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(248, 136)
Me.TextBox3.TabIndex = 2
Me.TextBox3.Text = "Anchored to Top, Bottom, Left, Right"
"
"Button1
"
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.Location = New System.Drawing.Point(168, 240)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(96, 23)
Me.Button1.TabIndex = 3
Me.Button1.Text = "bottom,right"
"
"TextBox4
"
Me.TextBox4.Location = New System.Drawing.Point(16, 44)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(248, 20)
Me.TextBox4.TabIndex = 4
Me.TextBox4.Text = "Anchored to Top, Left (default)"
"
"Anchoring
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(280, 270)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
Me.Name = "Anchoring"
Me.Text = "Anchoring"
Me.ResumeLayout(False)
End Sub
#End Region
End Class</source>

VB.Net Tutorial/GUI/MessageBox

2010-05-26T12:57:28Z

Admin: 1 версия

==Create MessageBox dynamically==

<source lang="vbnet">Imports System.Windows.Forms
public class MessageBoxCreateDy
public Shared Sub Main
Application.Run(New frmMessageBox)
End Sub
End class
Public Class frmMessageBox
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Friend WithEvents grpPromptandTitle As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents btnShow As System.Windows.Forms.Button
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtText As System.Windows.Forms.TextBox
Friend WithEvents txtCaption As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents rdoOKOnly As System.Windows.Forms.RadioButton
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents rdoAbRetry As System.Windows.Forms.RadioButton
Friend WithEvents rdoError As System.Windows.Forms.RadioButton
Friend WithEvents rdoExclamation As System.Windows.Forms.RadioButton
Friend WithEvents rdoRetryCancel As System.Windows.Forms.RadioButton
Friend WithEvents rdoInformation As System.Windows.Forms.RadioButton
Friend WithEvents rdoYesNo As System.Windows.Forms.RadioButton
Friend WithEvents rdoYesNoCancel As System.Windows.Forms.RadioButton
Friend WithEvents rdoOKCancel As System.Windows.Forms.RadioButton
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents rdoNoIcon As System.Windows.Forms.RadioButton
Friend WithEvents rdoQuestion As System.Windows.Forms.RadioButton
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.grpPromptandTitle = New System.Windows.Forms.GroupBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.btnShow = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Splitter1 = New System.Windows.Forms.Splitter()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtText = New System.Windows.Forms.TextBox()
Me.txtCaption = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.rdoOKOnly = New System.Windows.Forms.RadioButton()
Me.Label3 = New System.Windows.Forms.Label()
Me.rdoAbRetry = New System.Windows.Forms.RadioButton()
Me.rdoError = New System.Windows.Forms.RadioButton()
Me.rdoExclamation = New System.Windows.Forms.RadioButton()
Me.rdoRetryCancel = New System.Windows.Forms.RadioButton()
Me.rdoInformation = New System.Windows.Forms.RadioButton()
Me.rdoYesNo = New System.Windows.Forms.RadioButton()
Me.rdoYesNoCancel = New System.Windows.Forms.RadioButton()
Me.rdoOKCancel = New System.Windows.Forms.RadioButton()
Me.Label4 = New System.Windows.Forms.Label()
Me.rdoNoIcon = New System.Windows.Forms.RadioButton()
Me.rdoQuestion = New System.Windows.Forms.RadioButton()
Me.grpPromptandTitle.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.SuspendLayout()
"
"grpPromptandTitle
"
Me.grpPromptandTitle.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtCaption, Me.Label2, Me.txtText, Me.Label1})
Me.grpPromptandTitle.Dock = System.Windows.Forms.DockStyle.Top
Me.grpPromptandTitle.Name = "grpPromptandTitle"
Me.grpPromptandTitle.Size = New System.Drawing.Size(456, 112)
Me.grpPromptandTitle.TabIndex = 0
Me.grpPromptandTitle.TabStop = False
Me.grpPromptandTitle.Text = "Enter your text and caption:"
"
"GroupBox1
"
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnShow})
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.GroupBox1.Location = New System.Drawing.Point(0, 350)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(456, 48)
Me.GroupBox1.TabIndex = 3
Me.GroupBox1.TabStop = False
"
"btnShow
"
Me.btnShow.Location = New System.Drawing.Point(328, 16)
Me.btnShow.Name = "btnShow"
Me.btnShow.Size = New System.Drawing.Size(96, 24)
Me.btnShow.TabIndex = 0
Me.btnShow.Text = "SHOW"
"
"Panel1
"
Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label3, Me.rdoRetryCancel, Me.rdoYesNo, Me.rdoYesNoCancel, Me.rdoAbRetry, Me.rdoOKCancel, Me.rdoOKOnly})
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel1.Location = New System.Drawing.Point(0, 112)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(200, 238)
Me.Panel1.TabIndex = 1
"
"Splitter1
"
Me.Splitter1.Location = New System.Drawing.Point(200, 112)
Me.Splitter1.Name = "Splitter1"
Me.Splitter1.Size = New System.Drawing.Size(3, 238)
Me.Splitter1.TabIndex = 3
Me.Splitter1.TabStop = False
"
"Panel2
"
Me.Panel2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label4, Me.rdoExclamation, Me.rdoNoIcon, Me.rdoInformation, Me.rdoQuestion, Me.rdoError})
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(203, 112)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(253, 238)
Me.Panel2.TabIndex = 2
"
"Label1
"
Me.Label1.Location = New System.Drawing.Point(16, 24)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(64, 24)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Text:"
"
"txtText
"
Me.txtText.Location = New System.Drawing.Point(104, 24)
Me.txtText.Name = "txtText"
Me.txtText.Size = New System.Drawing.Size(320, 20)
Me.txtText.TabIndex = 0
Me.txtText.Text = ""
"
"txtCaption
"
Me.txtCaption.Location = New System.Drawing.Point(104, 64)
Me.txtCaption.Name = "txtCaption"
Me.txtCaption.Size = New System.Drawing.Size(320, 20)
Me.txtCaption.TabIndex = 1
Me.txtCaption.Text = ""
"
"Label2
"
Me.Label2.Location = New System.Drawing.Point(16, 64)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(64, 24)
Me.Label2.TabIndex = 0
Me.Label2.Text = "Caption:"
"
"rdoOKOnly
"
Me.rdoOKOnly.Checked = True
Me.rdoOKOnly.Location = New System.Drawing.Point(8, 40)
Me.rdoOKOnly.Name = "rdoOKOnly"
Me.rdoOKOnly.Size = New System.Drawing.Size(160, 24)
Me.rdoOKOnly.TabIndex = 2
Me.rdoOKOnly.TabStop = True
Me.rdoOKOnly.Text = "Ok Only"
"
"Label3
"
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(24, 8)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(104, 24)
Me.Label3.TabIndex = 0
Me.Label3.Text = "Buttons"
"
"rdoAbRetry
"
Me.rdoAbRetry.Location = New System.Drawing.Point(8, 104)
Me.rdoAbRetry.Name = "rdoAbRetry"
Me.rdoAbRetry.Size = New System.Drawing.Size(160, 24)
Me.rdoAbRetry.TabIndex = 4
Me.rdoAbRetry.Text = "Abort, Retry, Ignore"
"
"rdoError
"
Me.rdoError.Checked = True
Me.rdoError.Location = New System.Drawing.Point(24, 40)
Me.rdoError.Name = "rdoError"
Me.rdoError.Size = New System.Drawing.Size(88, 32)
Me.rdoError.TabIndex = 1
Me.rdoError.TabStop = True
Me.rdoError.Text = "Error"
"
"rdoExclamation
"
Me.rdoExclamation.Location = New System.Drawing.Point(24, 112)
Me.rdoExclamation.Name = "rdoExclamation"
Me.rdoExclamation.Size = New System.Drawing.Size(88, 32)
Me.rdoExclamation.TabIndex = 3
Me.rdoExclamation.Text = "Exclamation"
"
"rdoRetryCancel
"
Me.rdoRetryCancel.Location = New System.Drawing.Point(8, 200)
Me.rdoRetryCancel.Name = "rdoRetryCancel"
Me.rdoRetryCancel.Size = New System.Drawing.Size(160, 24)
Me.rdoRetryCancel.TabIndex = 0
Me.rdoRetryCancel.Text = "Retry and Cancel"
"
"rdoInformation
"
Me.rdoInformation.Location = New System.Drawing.Point(136, 40)
Me.rdoInformation.Name = "rdoInformation"
Me.rdoInformation.Size = New System.Drawing.Size(88, 32)
Me.rdoInformation.TabIndex = 4
Me.rdoInformation.Text = "Information"
"
"rdoYesNo
"
Me.rdoYesNo.Location = New System.Drawing.Point(8, 168)
Me.rdoYesNo.Name = "rdoYesNo"
Me.rdoYesNo.Size = New System.Drawing.Size(160, 24)
Me.rdoYesNo.TabIndex = 6
Me.rdoYesNo.Text = "Yes and No"
"
"rdoYesNoCancel
"
Me.rdoYesNoCancel.Location = New System.Drawing.Point(8, 136)
Me.rdoYesNoCancel.Name = "rdoYesNoCancel"
Me.rdoYesNoCancel.Size = New System.Drawing.Size(160, 24)
Me.rdoYesNoCancel.TabIndex = 5
Me.rdoYesNoCancel.Text = "Yes, No, Cancel"
"
"rdoOKCancel
"
Me.rdoOKCancel.Location = New System.Drawing.Point(8, 72)
Me.rdoOKCancel.Name = "rdoOKCancel"
Me.rdoOKCancel.Size = New System.Drawing.Size(160, 24)
Me.rdoOKCancel.TabIndex = 3
Me.rdoOKCancel.Text = "Ok and Cancel"
"
"Label4
"
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(24, 8)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(80, 24)
Me.Label4.TabIndex = 0
Me.Label4.Text = "Icon"
"
"rdoNoIcon
"
Me.rdoNoIcon.Location = New System.Drawing.Point(136, 80)
Me.rdoNoIcon.Name = "rdoNoIcon"
Me.rdoNoIcon.Size = New System.Drawing.Size(88, 32)
Me.rdoNoIcon.TabIndex = 5
Me.rdoNoIcon.Text = "No Icon"
"
"rdoQuestion
"
Me.rdoQuestion.Location = New System.Drawing.Point(24, 80)
Me.rdoQuestion.Name = "rdoQuestion"
Me.rdoQuestion.Size = New System.Drawing.Size(88, 32)
Me.rdoQuestion.TabIndex = 2
Me.rdoQuestion.Text = "Question"
"
"frmMessageBox
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(456, 398)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel2, Me.Splitter1, Me.Panel1, Me.GroupBox1, Me.grpPromptandTitle})
Me.Name = "frmMessageBox"
Me.Text = "Do the Message Box thing!"
Me.grpPromptandTitle.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region

Private Sub btnShow_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnShow.Click
Dim buttonchoice As MessageBoxButtons
Dim iconchoice As MessageBoxIcon
Dim answer As DialogResult
If rdoOKOnly.Checked = True Then
buttonchoice = MessageBoxButtons.OK
ElseIf rdoOKCancel.Checked = True Then
buttonchoice = MessageBoxButtons.OKCancel
ElseIf rdoAbRetry.Checked = True Then
buttonchoice = MessageBoxButtons.AbortRetryIgnore
ElseIf rdoYesNoCancel.Checked = True Then
buttonchoice = MessageBoxButtons.YesNoCancel
ElseIf rdoYesNo.Checked = True Then
buttonchoice = MessageBoxButtons.YesNo
ElseIf rdoRetryCancel.Checked = True Then
buttonchoice = MessageBoxButtons.RetryCancel
Else
MessageBox.Show("Unexpected error in button selection!")
End If
If rdoError.Checked = True Then
iconchoice = MessageBoxIcon.Error
ElseIf rdoQuestion.Checked = True Then
iconchoice = MessageBoxIcon.Question
ElseIf rdoExclamation.Checked = True Then
iconchoice = MessageBoxIcon.Exclamation
ElseIf rdoInformation.Checked = True Then
iconchoice = MessageBoxIcon.Information
ElseIf rdoNoIcon.Checked = True Then
iconchoice = MessageBoxIcon.None
Else
MessageBox.Show("Unexpected error in icon selection!")
End If
answer = MessageBox.Show(txtText.Text, txtCaption.Text, _
buttonchoice, iconchoice)
Dim evaluate As String
If answer = DialogResult.OK Then
evaluate = "You clicked OK!"
ElseIf answer = DialogResult.Cancel Then
evaluate = "You clicked Cancel!"
ElseIf answer = DialogResult.Abort Then
evaluate = "You clicked Abort!"
ElseIf answer = DialogResult.Retry Then
evaluate = "You clicked Retry!"
ElseIf answer = DialogResult.Ignore Then
evaluate = "You clicked Ignore!"
ElseIf answer = DialogResult.Yes Then
evaluate = "You clicked Yes!"
ElseIf answer = DialogResult.No Then
evaluate = "You clicked No!"
Else
evaluate = "Nothing was clicked!"
End If
MessageBox.Show(evaluate, "Message Box Evaluation", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
End Class</source>

==Custom your MessageBox==

<source lang="vbnet">Imports System.IO
Imports System.Text.Encoding
Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Windows.Forms
public class CustomMessageBox
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Private components As System.ruponentModel.IContainer
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents btnShow As System.Windows.Forms.Button
Friend WithEvents txtMsg As System.Windows.Forms.TextBox
Friend WithEvents txtCaption As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents grpDefaultButton As System.Windows.Forms.GroupBox
Friend WithEvents DefaultButton3 As System.Windows.Forms.RadioButton
Friend WithEvents DefaultButton2 As System.Windows.Forms.RadioButton
Friend WithEvents DefaultButton1 As System.Windows.Forms.RadioButton
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents Button6 As System.Windows.Forms.RadioButton
Friend WithEvents Button5 As System.Windows.Forms.RadioButton
Friend WithEvents Button4 As System.Windows.Forms.RadioButton
Friend WithEvents Button3 As System.Windows.Forms.RadioButton
Friend WithEvents Button2 As System.Windows.Forms.RadioButton
Friend WithEvents Button1 As System.Windows.Forms.RadioButton
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents txtResult As System.Windows.Forms.TextBox
Friend WithEvents lblResult As System.Windows.Forms.Label
Friend WithEvents Icon8 As System.Windows.Forms.RadioButton
Friend WithEvents Icon7 As System.Windows.Forms.RadioButton
Friend WithEvents Icon6 As System.Windows.Forms.RadioButton
Friend WithEvents Icon5 As System.Windows.Forms.RadioButton
Friend WithEvents Icon4 As System.Windows.Forms.RadioButton
Friend WithEvents Icon3 As System.Windows.Forms.RadioButton
Friend WithEvents Icon2 As System.Windows.Forms.RadioButton
Friend WithEvents Icon1 As System.Windows.Forms.RadioButton
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.txtMsg = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnShow = New System.Windows.Forms.Button()
Me.txtCaption = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.grpDefaultButton = New System.Windows.Forms.GroupBox()
Me.DefaultButton3 = New System.Windows.Forms.RadioButton()
Me.DefaultButton2 = New System.Windows.Forms.RadioButton()
Me.DefaultButton1 = New System.Windows.Forms.RadioButton()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Button6 = New System.Windows.Forms.RadioButton()
Me.Button5 = New System.Windows.Forms.RadioButton()
Me.Button4 = New System.Windows.Forms.RadioButton()
Me.Button3 = New System.Windows.Forms.RadioButton()
Me.Button2 = New System.Windows.Forms.RadioButton()
Me.Button1 = New System.Windows.Forms.RadioButton()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Icon8 = New System.Windows.Forms.RadioButton()
Me.Icon7 = New System.Windows.Forms.RadioButton()
Me.Icon6 = New System.Windows.Forms.RadioButton()
Me.Icon5 = New System.Windows.Forms.RadioButton()
Me.Icon4 = New System.Windows.Forms.RadioButton()
Me.Icon3 = New System.Windows.Forms.RadioButton()
Me.Icon2 = New System.Windows.Forms.RadioButton()
Me.Icon1 = New System.Windows.Forms.RadioButton()
Me.txtResult = New System.Windows.Forms.TextBox()
Me.lblResult = New System.Windows.Forms.Label()
Me.grpDefaultButton.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
"
"txtMsg
"
Me.txtMsg.Location = New System.Drawing.Point(68, 8)
Me.txtMsg.Name = "txtMsg"
Me.txtMsg.Size = New System.Drawing.Size(200, 22)
Me.txtMsg.TabIndex = 0
Me.txtMsg.Text = ""
"
"Label1
"
Me.Label1.Location = New System.Drawing.Point(12, 12)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(60, 16)
Me.Label1.TabIndex = 13
Me.Label1.Text = "Message:"
"
"btnShow
"
Me.btnShow.Location = New System.Drawing.Point(280, 8)
Me.btnShow.Name = "btnShow"
Me.btnShow.Size = New System.Drawing.Size(76, 24)
Me.btnShow.TabIndex = 5
Me.btnShow.Text = "Show"
"
"txtCaption
"
Me.txtCaption.Location = New System.Drawing.Point(68, 36)
Me.txtCaption.Name = "txtCaption"
Me.txtCaption.Size = New System.Drawing.Size(200, 22)
Me.txtCaption.TabIndex = 1
Me.txtCaption.Text = ""
"
"Label2
"
Me.Label2.Location = New System.Drawing.Point(12, 40)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(60, 16)
Me.Label2.TabIndex = 16
Me.Label2.Text = "Caption:"
"
"grpDefaultButton
"
Me.grpDefaultButton.Controls.AddRange(New System.Windows.Forms.Control() {Me.DefaultButton3, Me.DefaultButton2, Me.DefaultButton1})
Me.grpDefaultButton.Location = New System.Drawing.Point(208, 72)
Me.grpDefaultButton.Name = "grpDefaultButton"
Me.grpDefaultButton.Size = New System.Drawing.Size(144, 124)
Me.grpDefaultButton.TabIndex = 4
Me.grpDefaultButton.TabStop = False
Me.grpDefaultButton.Text = "Default Button"
"
"DefaultButton3
"
Me.DefaultButton3.Location = New System.Drawing.Point(12, 68)
Me.DefaultButton3.Name = "DefaultButton3"
Me.DefaultButton3.Size = New System.Drawing.Size(100, 20)
Me.DefaultButton3.TabIndex = 2
Me.DefaultButton3.Text = "DefaultButton3"
"
"DefaultButton2
"
Me.DefaultButton2.Location = New System.Drawing.Point(12, 44)
Me.DefaultButton2.Name = "DefaultButton2"
Me.DefaultButton2.Size = New System.Drawing.Size(100, 20)
Me.DefaultButton2.TabIndex = 1
Me.DefaultButton2.Text = "DefaultButton2"
"
"DefaultButton1
"
Me.DefaultButton1.Checked = True
Me.DefaultButton1.Location = New System.Drawing.Point(12, 20)
Me.DefaultButton1.Name = "DefaultButton1"
Me.DefaultButton1.Size = New System.Drawing.Size(100, 20)
Me.DefaultButton1.TabIndex = 0
Me.DefaultButton1.TabStop = True
Me.DefaultButton1.Text = "DefaultButton1"
"
"GroupBox2
"
Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button6, Me.Button5, Me.Button4, Me.Button3, Me.Button2, Me.Button1})
Me.GroupBox2.Location = New System.Drawing.Point(12, 200)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(188, 160)
Me.GroupBox2.TabIndex = 3
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Buttons"
"
"Button6
"
Me.Button6.Location = New System.Drawing.Point(12, 133)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(100, 19)
Me.Button6.TabIndex = 5
Me.Button6.Text = "YesNoCancel"
"
"Button5
"
Me.Button5.Checked = True
Me.Button5.Location = New System.Drawing.Point(12, 110)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(100, 20)
Me.Button5.TabIndex = 4
Me.Button5.TabStop = True
Me.Button5.Text = "YesNo"
"
"Button4
"
Me.Button4.Location = New System.Drawing.Point(12, 86)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(100, 21)
Me.Button4.TabIndex = 3
Me.Button4.Text = "RetryCancel"
"
"Button3
"
Me.Button3.Location = New System.Drawing.Point(12, 65)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(100, 18)
Me.Button3.TabIndex = 2
Me.Button3.Text = "OKCancel"
"
"Button2
"
Me.Button2.Location = New System.Drawing.Point(12, 43)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(100, 19)
Me.Button2.TabIndex = 1
Me.Button2.Text = "OK"
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(12, 20)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(112, 20)
Me.Button1.TabIndex = 0
Me.Button1.Text = "AbortRetryIgnore"
"
"GroupBox1
"
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Icon8, Me.Icon7, Me.Icon6, Me.Icon5, Me.Icon4, Me.Icon3, Me.Icon2, Me.Icon1})
Me.GroupBox1.Location = New System.Drawing.Point(12, 72)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(188, 124)
Me.GroupBox1.TabIndex = 2
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Icon"
"
"Icon8
"
Me.Icon8.Location = New System.Drawing.Point(100, 92)
Me.Icon8.Name = "Icon8"
Me.Icon8.Size = New System.Drawing.Size(64, 20)
Me.Icon8.TabIndex = 7
Me.Icon8.Text = "Warning"
"
"Icon7
"
Me.Icon7.Location = New System.Drawing.Point(12, 92)
Me.Icon7.Name = "Icon7"
Me.Icon7.Size = New System.Drawing.Size(84, 20)
Me.Icon7.TabIndex = 6
Me.Icon7.Text = "Stop"
"
"Icon6
"
Me.Icon6.Location = New System.Drawing.Point(100, 68)
Me.Icon6.Name = "Icon6"
Me.Icon6.Size = New System.Drawing.Size(64, 20)
Me.Icon6.TabIndex = 5
Me.Icon6.Text = "Question"
"
"Icon5
"
Me.Icon5.Checked = True
Me.Icon5.Location = New System.Drawing.Point(12, 68)
Me.Icon5.Name = "Icon5"
Me.Icon5.Size = New System.Drawing.Size(84, 20)
Me.Icon5.TabIndex = 4
Me.Icon5.TabStop = True
Me.Icon5.Text = "Information"
"
"Icon4
"
Me.Icon4.Location = New System.Drawing.Point(100, 44)
Me.Icon4.Name = "Icon4"
Me.Icon4.Size = New System.Drawing.Size(64, 20)
Me.Icon4.TabIndex = 3
Me.Icon4.Text = "Hand"
"
"Icon3
"
Me.Icon3.Location = New System.Drawing.Point(12, 44)
Me.Icon3.Name = "Icon3"
Me.Icon3.Size = New System.Drawing.Size(84, 20)
Me.Icon3.TabIndex = 2
Me.Icon3.Text = "Exclamation"
"
"Icon2
"
Me.Icon2.Location = New System.Drawing.Point(100, 20)
Me.Icon2.Name = "Icon2"
Me.Icon2.Size = New System.Drawing.Size(64, 20)
Me.Icon2.TabIndex = 1
Me.Icon2.Text = "Error"
"
"Icon1
"
Me.Icon1.Location = New System.Drawing.Point(12, 20)
Me.Icon1.Name = "Icon1"
Me.Icon1.Size = New System.Drawing.Size(84, 20)
Me.Icon1.TabIndex = 0
Me.Icon1.Text = "Asterisk"
"
"txtResult
"
Me.txtResult.Enabled = False
Me.txtResult.Location = New System.Drawing.Point(212, 232)
Me.txtResult.Name = "txtResult"
Me.txtResult.Size = New System.Drawing.Size(136, 22)
Me.txtResult.TabIndex = 18
Me.txtResult.Text = ""
"
"lblResult
"
Me.lblResult.Location = New System.Drawing.Point(212, 208)
Me.lblResult.Name = "lblResult"
Me.lblResult.Size = New System.Drawing.Size(56, 20)
Me.lblResult.TabIndex = 17
Me.lblResult.Text = "Result"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 15)
Me.ClientSize = New System.Drawing.Size(368, 369)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.grpDefaultButton, Me.GroupBox2, Me.GroupBox1, Me.txtResult, Me.lblResult, Me.txtCaption, Me.Label2, Me.btnShow, Me.txtMsg, Me.Label1})
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "MessageBox Application"
Me.grpDefaultButton.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub

Private iIcon As Integer
Private iButton As Integer
Private iDefaultButton As Integer
Private Sub btnShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShow.Click
Dim iResult As Integer
iResult = MessageBox.Show(Me,txtMsg.Text, txtCaption.Text, iButton, iIcon, iDefaultButton)
Select Case iResult
Case DialogResult.Abort
txtResult.Text = "DialogResult.Abort"
Case DialogResult.Retry
txtResult.Text = "DialogResult.Retry"
Case DialogResult.Ignore
txtResult.Text = "DialogResult.Ignore"
Case DialogResult.OK
txtResult.Text = "DialogResult.OK"
Case DialogResult.Cancel
txtResult.Text = "DialogResult.Cancel"
Case DialogResult.Yes
txtResult.Text = "DialogResult.Yes"
Case DialogResult.No
txtResult.Text = "DialogResult.No"
End Select
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler Icon1.Click, AddressOf Icon_Click
AddHandler Icon2.Click, AddressOf Icon_Click
AddHandler Icon3.Click, AddressOf Icon_Click
AddHandler Icon4.Click, AddressOf Icon_Click
AddHandler Icon5.Click, AddressOf Icon_Click
AddHandler Icon6.Click, AddressOf Icon_Click
AddHandler Icon7.Click, AddressOf Icon_Click
AddHandler Icon8.Click, AddressOf Icon_Click
AddHandler Button1.Click, AddressOf Button_Click
AddHandler Button2.Click, AddressOf Button_Click
AddHandler Button3.Click, AddressOf Button_Click
AddHandler Button4.Click, AddressOf Button_Click
AddHandler Button5.Click, AddressOf Button_Click
AddHandler Button6.Click, AddressOf Button_Click
AddHandler DefaultButton1.Click, AddressOf DefaultButton_Click
AddHandler DefaultButton2.Click, AddressOf DefaultButton_Click
AddHandler DefaultButton3.Click, AddressOf DefaultButton_Click
iIcon = MessageBoxIcon.Information
iButton = MessageBoxButtons.YesNo
iDefaultButton = MessageBoxDefaultButton.Button1
End Sub
Public Sub Icon_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Select Case sender.Name
Case "Icon1"
iIcon = MessageBoxIcon.Asterisk
Case "Icon2"
iIcon = MessageBoxIcon.Error
Case "Icon3"
iIcon = MessageBoxIcon.Exclamation
Case "Icon4"
iIcon = MessageBoxIcon.Hand
Case "Icon5"
iIcon = MessageBoxIcon.Information
Case "Icon6"
iIcon = MessageBoxIcon.Question
Case "Icon7"
iIcon = MessageBoxIcon.Stop
Case "Icon8"
iIcon = MessageBoxIcon.Warning
End Select
End Sub
Public Sub Button_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Select Case sender.Name
Case "Button1"
iButton = MessageBoxButtons.AbortRetryIgnore
Case "Button2"
iButton = MessageBoxButtons.OK
Case "Button3"
iButton = MessageBoxButtons.OKCancel
Case "Button4"
iButton = MessageBoxButtons.RetryCancel
Case "Button5"
iButton = MessageBoxButtons.YesNo
Case "Button6"
iButton = MessageBoxButtons.YesNoCancel
End Select
End Sub
Public Sub DefaultButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Select Case sender.Name
Case "DefaultButton1"
iDefaultButton = MessageBoxDefaultButton.Button1
Case "DefaultButton2"
iDefaultButton = MessageBoxDefaultButton.Button2
Case "DefaultButton3"
iDefaultButton = MessageBoxDefaultButton.Button3
End Select
End Sub
End Class</source>

==Displaying square root of 2 in dialog.==

<source lang="vbnet">Imports System.Windows.Forms " Namespace containing MessageBox
Module modSquareRoot
Sub Main()
Dim root As Double = Math.Sqrt(2)
MessageBox.Show("The square root of 2 is " & root, _
"The Square Root of 2")
End Sub
End Module</source>

==MessageBox: Abort, Retry, Ignore buttons and Warning icon==

<source lang="vbnet">Imports System.Windows.Forms
public class MessageBoxWithMessageAndTile
public Shared Sub Main
MessageBox.Show("Message", "Title", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Warn
ing)
End Sub
End class</source>

==MessageBox Icon and Button==

<source lang="vbnet">Imports System.Windows.Forms
public class RadioButtonAction
public Shared Sub Main
Application.Run(New FrmRadioButton)
End Sub
End class
Public Class FrmRadioButton
Inherits System.Windows.Forms.Form
Private iconType As MessageBoxIcon
Private buttonType As MessageBoxButtons
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Friend WithEvents iconGroupBox As System.Windows.Forms.GroupBox
Friend WithEvents buttonTypeGroupBox As System.Windows.Forms.GroupBox
Friend WithEvents radRetryCancel As System.Windows.Forms.RadioButton
Friend WithEvents radYesNo As System.Windows.Forms.RadioButton
Friend WithEvents radAbortRetryIgnore As System.Windows.Forms.RadioButton
Friend WithEvents radOk As System.Windows.Forms.RadioButton
Friend WithEvents radWarning As System.Windows.Forms.RadioButton
Friend WithEvents radStop As System.Windows.Forms.RadioButton
Friend WithEvents radQuestion As System.Windows.Forms.RadioButton
Friend WithEvents radInformation As System.Windows.Forms.RadioButton
Friend WithEvents radHand As System.Windows.Forms.RadioButton
Friend WithEvents radExclamation As System.Windows.Forms.RadioButton
Friend WithEvents radError As System.Windows.Forms.RadioButton
Friend WithEvents radAsterisk As System.Windows.Forms.RadioButton
Friend WithEvents cmdDisplay As System.Windows.Forms.Button
Friend WithEvents lblDisplay As System.Windows.Forms.Label
Friend WithEvents radOkCancel As System.Windows.Forms.RadioButton
Friend WithEvents radYesNoCancel As System.Windows.Forms.RadioButton
"Required by the Windows Form Designer
Private components As System.ruponentModel.Container
"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.radAbortRetryIgnore = New System.Windows.Forms.RadioButton()
Me.radStop = New System.Windows.Forms.RadioButton()
Me.radYesNo = New System.Windows.Forms.RadioButton()
Me.iconGroupBox = New System.Windows.Forms.GroupBox()
Me.radWarning = New System.Windows.Forms.RadioButton()
Me.radQuestion = New System.Windows.Forms.RadioButton()
Me.radInformation = New System.Windows.Forms.RadioButton()
Me.radHand = New System.Windows.Forms.RadioButton()
Me.radExclamation = New System.Windows.Forms.RadioButton()
Me.radError = New System.Windows.Forms.RadioButton()
Me.radAsterisk = New System.Windows.Forms.RadioButton()
Me.radYesNoCancel = New System.Windows.Forms.RadioButton()
Me.radOk = New System.Windows.Forms.RadioButton()
Me.cmdDisplay = New System.Windows.Forms.Button()
Me.lblDisplay = New System.Windows.Forms.Label()
Me.buttonTypeGroupBox = New System.Windows.Forms.GroupBox()
Me.radRetryCancel = New System.Windows.Forms.RadioButton()
Me.radOkCancel = New System.Windows.Forms.RadioButton()
Me.iconGroupBox.SuspendLayout()
Me.buttonTypeGroupBox.SuspendLayout()
Me.SuspendLayout()
"
"radAbortRetryIgnore
"
Me.radAbortRetryIgnore.Location = New System.Drawing.Point(16, 88)
Me.radAbortRetryIgnore.Name = "radAbortRetryIgnore"
Me.radAbortRetryIgnore.Size = New System.Drawing.Size(120, 24)
Me.radAbortRetryIgnore.TabIndex = 2
Me.radAbortRetryIgnore.Text = "AbortRetryIgnore"
"
"radStop
"
Me.radStop.Location = New System.Drawing.Point(16, 240)
Me.radStop.Name = "radStop"
Me.radStop.Size = New System.Drawing.Size(128, 24)
Me.radStop.TabIndex = 6
Me.radStop.Text = "Stop"
"
"radYesNo
"
Me.radYesNo.Location = New System.Drawing.Point(16, 160)
Me.radYesNo.Name = "radYesNo"
Me.radYesNo.Size = New System.Drawing.Size(120, 16)
Me.radYesNo.TabIndex = 4
Me.radYesNo.Text = "YesNo"
"
"iconGroupBox
"
Me.iconGroupBox.Controls.AddRange(New System.Windows.Forms.Control() {Me.radWarning, Me.radStop, Me.radQuestion, Me.radInformation, Me.radHand, Me.radExclamation, Me.radError, Me.radAsterisk})
Me.iconGroupBox.Location = New System.Drawing.Point(200, 16)
Me.iconGroupBox.Name = "iconGroupBox"
Me.iconGroupBox.Size = New System.Drawing.Size(160, 304)
Me.iconGroupBox.TabIndex = 3
Me.iconGroupBox.TabStop = False
Me.iconGroupBox.Text = "Icon"
"
"radWarning
"
Me.radWarning.Location = New System.Drawing.Point(16, 272)
Me.radWarning.Name = "radWarning"
Me.radWarning.Size = New System.Drawing.Size(128, 24)
Me.radWarning.TabIndex = 7
Me.radWarning.Text = "Warning"
"
"radQuestion
"
Me.radQuestion.Location = New System.Drawing.Point(16, 208)
Me.radQuestion.Name = "radQuestion"
Me.radQuestion.Size = New System.Drawing.Size(128, 24)
Me.radQuestion.TabIndex = 5
Me.radQuestion.Text = "Question"
"
"radInformation
"
Me.radInformation.Location = New System.Drawing.Point(16, 168)
Me.radInformation.Name = "radInformation"
Me.radInformation.Size = New System.Drawing.Size(128, 24)
Me.radInformation.TabIndex = 4
Me.radInformation.Text = "Information"
"
"radHand
"
Me.radHand.Location = New System.Drawing.Point(16, 128)
Me.radHand.Name = "radHand"
Me.radHand.Size = New System.Drawing.Size(128, 24)
Me.radHand.TabIndex = 3
Me.radHand.Text = "Hand"
"
"radExclamation
"
Me.radExclamation.Location = New System.Drawing.Point(16, 88)
Me.radExclamation.Name = "radExclamation"
Me.radExclamation.Size = New System.Drawing.Size(136, 24)
Me.radExclamation.TabIndex = 2
Me.radExclamation.Text = "Exclamation"
"
"radError
"
Me.radError.Location = New System.Drawing.Point(16, 48)
Me.radError.Name = "radError"
Me.radError.Size = New System.Drawing.Size(136, 24)
Me.radError.TabIndex = 1
Me.radError.Text = "Error"
"
"radAsterisk
"
Me.radAsterisk.Location = New System.Drawing.Point(16, 16)
Me.radAsterisk.Name = "radAsterisk"
Me.radAsterisk.Size = New System.Drawing.Size(136, 24)
Me.radAsterisk.TabIndex = 0
Me.radAsterisk.Text = "Asterisk"
"
"radYesNoCancel
"
Me.radYesNoCancel.Location = New System.Drawing.Point(16, 120)
Me.radYesNoCancel.Name = "radYesNoCancel"
Me.radYesNoCancel.Size = New System.Drawing.Size(120, 24)
Me.radYesNoCancel.TabIndex = 3
Me.radYesNoCancel.Text = "YesNoCancel"
"
"radOk
"
Me.radOk.Location = New System.Drawing.Point(16, 24)
Me.radOk.Name = "radOk"
Me.radOk.Size = New System.Drawing.Size(112, 16)
Me.radOk.TabIndex = 0
Me.radOk.Text = "OK"
"
"cmdDisplay
"
Me.cmdDisplay.Location = New System.Drawing.Point(32, 240)
Me.cmdDisplay.Name = "cmdDisplay"
Me.cmdDisplay.Size = New System.Drawing.Size(112, 40)
Me.cmdDisplay.TabIndex = 1
Me.cmdDisplay.Text = "Display"
"
"lblDisplay
"
Me.lblDisplay.Location = New System.Drawing.Point(24, 296)
Me.lblDisplay.Name = "lblDisplay"
Me.lblDisplay.Size = New System.Drawing.Size(144, 24)
Me.lblDisplay.TabIndex = 5
"
"buttonTypeGroupBox
"
Me.buttonTypeGroupBox.Controls.AddRange(New System.Windows.Forms.Control() {Me.radRetryCancel, Me.radYesNo, Me.radYesNoCancel, Me.radAbortRetryIgnore, Me.radOkCancel, Me.radOk})
Me.buttonTypeGroupBox.Location = New System.Drawing.Point(16, 16)
Me.buttonTypeGroupBox.Name = "buttonTypeGroupBox"
Me.buttonTypeGroupBox.Size = New System.Drawing.Size(144, 216)
Me.buttonTypeGroupBox.TabIndex = 2
Me.buttonTypeGroupBox.TabStop = False
Me.buttonTypeGroupBox.Text = "Button Type"
"
"radRetryCancel
"
Me.radRetryCancel.Location = New System.Drawing.Point(16, 192)
Me.radRetryCancel.Name = "radRetryCancel"
Me.radRetryCancel.Size = New System.Drawing.Size(104, 16)
Me.radRetryCancel.TabIndex = 5
Me.radRetryCancel.Text = "RetryCancel"
"
"radOkCancel
"
Me.radOkCancel.Location = New System.Drawing.Point(16, 56)
Me.radOkCancel.Name = "radOkCancel"
Me.radOkCancel.Size = New System.Drawing.Size(120, 24)
Me.radOkCancel.TabIndex = 1
Me.radOkCancel.Text = "OKCancel"
"
"FrmRadioButton
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(384, 333)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblDisplay, Me.iconGroupBox, Me.buttonTypeGroupBox, Me.cmdDisplay})
Me.Name = "FrmRadioButton"
Me.Text = "RadioButtonTest"
Me.iconGroupBox.ResumeLayout(False)
Me.buttonTypeGroupBox.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub cmdDisplay_Click(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles cmdDisplay.Click
Dim dialog As DialogResult = MessageBox.Show( _
"Your message", "Title", _
buttonType, iconType)
Select Case dialog
Case DialogResult.OK
lblDisplay.Text = "OK was pressed"
Case DialogResult.Cancel
lblDisplay.Text = "Cancel was pressed"
Case DialogResult.Abort
lblDisplay.Text = "Abort was pressed"
Case DialogResult.Retry
lblDisplay.Text = "Retry was pressed"
Case DialogResult.Ignore
lblDisplay.Text = "Ignore was pressed"
Case DialogResult.Yes
lblDisplay.Text = "Yes was pressed"
Case DialogResult.No
lblDisplay.Text = "No was pressed"
End Select
End Sub " cmdDisplay_Click
Private Sub radOk_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radOk.CheckedChanged
buttonType = MessageBoxButtons.OK
End Sub

Private Sub radOkCancel_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radOkCancel.CheckedChanged
buttonType = MessageBoxButtons.OKCancel
End Sub

Private Sub radAbortRetryIgnore_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radAbortRetryIgnore.CheckedChanged
buttonType = MessageBoxButtons.AbortRetryIgnore
End Sub

Private Sub radYesNoCancel_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radYesNoCancel.CheckedChanged
buttonType = MessageBoxButtons.YesNoCancel
End Sub

Private Sub radYesNo_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radYesNo.CheckedChanged
buttonType = MessageBoxButtons.YesNo
End Sub

Private Sub radRetryCancel_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radRetryCancel.CheckedChanged
buttonType = MessageBoxButtons.RetryCancel
End Sub

Private Sub radAsterisk_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radAsterisk.CheckedChanged
iconType = MessageBoxIcon.Asterisk
End Sub

Private Sub radError_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radError.CheckedChanged
iconType = MessageBoxIcon.Error
End Sub

Private Sub radExclamation_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radExclamation.CheckedChanged
iconType = MessageBoxIcon.Exclamation
End Sub

Private Sub radHand_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radHand.CheckedChanged
iconType = MessageBoxIcon.Hand
End Sub

Private Sub radInformation_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radInformation.CheckedChanged
iconType = MessageBoxIcon.Information
End Sub

Private Sub radQuestion_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radQuestion.CheckedChanged
iconType = MessageBoxIcon.Question
End Sub

Private Sub radStop_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radStop.CheckedChanged
iconType = MessageBoxIcon.Stop
End Sub

Private Sub radWarning_CheckedChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles radWarning.CheckedChanged
iconType = MessageBoxIcon.Warning
End Sub
End Class</source>

==MessageBox OK and Cancel Button==

<source lang="vbnet">Imports System.Windows.Forms
public class MessageBoxWithMessageAndTile
public Shared Sub Main
MessageBox.Show("Message", "Title", MessageBoxButtons.OKCancel)
End Sub
End class</source>

==MessageBox with Message and Title==

<source lang="vbnet">Imports System.Windows.Forms
public class MessageBoxWithMessageAndTile
public Shared Sub Main
MessageBox.Show("Message", "Title")
End Sub
End class</source>

==MessageBox with Message only==

<source lang="vbnet">Imports System.Windows.Forms
public class MessageBoxWithMessageOnly
public Shared Sub Main
MessageBox.Show("Message")
End Sub
End class</source>

==MessageBox with OK, Cancel button and Information==

<source lang="vbnet">Imports System.Windows.Forms
public class MessageBoxOKCancelInformation
public Shared Sub Main
Dim answer As DialogResult
answer = MessageBox.Show("A","B", MessageBoxButtons.OKCancel,MessageBoxIcon.Information)
End Sub
End class</source>

==MessageBox with Yes No Cancel button and Question icon==

<source lang="vbnet">Imports System.Windows.Forms
public class MessageBoxYesNoCancelQuestion
public Shared Sub Main
Dim answer As DialogResult
answer = MessageBox.Show("A", "B", _
MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
End Sub
End class</source>

==Return value from MessageBox==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class MessageBoxReturnValue
public Shared Sub Main
Dim intReturnValue As Integer
intReturnValue = MessageBox.Show("This is also a message box!", "Message Box", _
MessageBoxButtons.OKCancel, MessageBoxIcon.Information, _
MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
If (intReturnValue = DialogResult.OK) Then
Console.WriteLine("You clicked the OK button.")
End If
End Sub
End class</source>

==Set default button for MessageBox==

<source lang="vbnet">Imports System.Windows.Forms
public class MessageBoxDefaultButtonDemo
public Shared Sub Main
Dim answer As DialogResult
answer = MessageBox.Show("A", "B",MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question, _
MessageBoxDefaultButton.Button2)
End Sub
End class</source>

VB.Net Tutorial/GUI/DialogResult

2010-05-26T12:57:27Z

Admin: 1 версия

==DialogResult.Retry, Abort, Cancel==

<source lang="vbnet">Imports System.Windows.Forms
Public Class Test
Public Shared Sub Main
Dim drResult As DialogResult
drResult = MessageBox.Show("Q?", "Sample", MessageBoxButtons.RetryCancel)

If drResult = DialogResult.Retry Then
Console.WriteLine("Retry")
Else
Console.WriteLine("Cancel")
End If

Select Case MessageBox.Show("Bad stuff happened","Long Process", MessageBoxButtons.AbortRetryIgnore)
Case DialogResult.Abort
Console.WriteLine("abort")
Case DialogResult.Retry
Console.WriteLine("retry")
Case DialogResult.Cancel
Console.WriteLine("cancel")
Case Else
Console.WriteLine("Else")
End Select
End Sub
End Class</source>

==Get DialogResult==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class GetDialogResult
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.SuspendLayout()
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(112, 40)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(88, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Show Dialog"
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(104, 96)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(112, 20)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = ""
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(304, 181)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Button1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frmDialog As New Form2
If frmDialog.ShowDialog() = DialogResult.OK Then
TextBox1.Text = "You typed: " & frmDialog.TextBox1.Text
End If
End Sub
End Class

Public Class Form2
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.SuspendLayout()
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(16, 16)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(256, 20)
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = ""
"
"Button1
"
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Button1.Location = New System.Drawing.Point(48, 72)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 1
Me.Button1.Text = "OK"
"
"Button2
"
Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button2.Location = New System.Drawing.Point(168, 72)
Me.Button2.Name = "Button2"
Me.Button2.TabIndex = 2
Me.Button2.Text = "Cancel"
"
"Form2
"
Me.AcceptButton = Me.Button1
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.CancelButton = Me.Button2
Me.ClientSize = New System.Drawing.Size(288, 125)
Me.ControlBox = False
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Name = "Form2"
Me.Text = "Dialog"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class</source>

==Set DialogResult to Button==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class GetDialogResult
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.SuspendLayout()
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(112, 40)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(88, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Show Dialog"
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(104, 96)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(112, 20)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = ""
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(304, 181)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Button1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frmDialog As New Form2
If frmDialog.ShowDialog() = DialogResult.OK Then
TextBox1.Text = "You typed: " & frmDialog.TextBox1.Text
End If
End Sub
End Class

Public Class Form2
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.SuspendLayout()
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(16, 16)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(256, 20)
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = ""
"
"Button1
"
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Button1.Location = New System.Drawing.Point(48, 72)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 1
Me.Button1.Text = "OK"
"
"Button2
"
Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button2.Location = New System.Drawing.Point(168, 72)
Me.Button2.Name = "Button2"
Me.Button2.TabIndex = 2
Me.Button2.Text = "Cancel"
"
"Form2
"
Me.AcceptButton = Me.Button1
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.CancelButton = Me.Button2
Me.ClientSize = New System.Drawing.Size(288, 125)
Me.ControlBox = False
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Name = "Form2"
Me.Text = "Dialog"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class</source>

VB.Net Tutorial/GUI/SplitContainer

2010-05-26T12:57:27Z

Admin: 1 версия

==Use SplitContainer==

<source lang="vbnet">Imports System.Windows.Forms

public class UseSplitContainer
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
<Global.Microsoft.VisualBasic.rupilerServices.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.ruponentModel.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.SplitContainer1 = New System.Windows.Forms.SplitContainer
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.PictureBox2 = New System.Windows.Forms.PictureBox
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
CType(Me.PictureBox1, System.ruponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ruponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
"
"SplitContainer1
"
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
Me.SplitContainer1.Name = "SplitContainer1"
Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
"
"SplitContainer1.Panel1
"
Me.SplitContainer1.Panel1.AutoScroll = True
Me.SplitContainer1.Panel1.Controls.Add(Me.PictureBox1)
"
"SplitContainer1.Panel2
"
Me.SplitContainer1.Panel2.AutoScroll = True
Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox2)
Me.SplitContainer1.Size = New System.Drawing.Size(253, 292)
Me.SplitContainer1.SplitterDistance = 105
Me.SplitContainer1.TabIndex = 1
Me.SplitContainer1.Text = "SplitContainer1"
"
"PictureBox1
"
Me.PictureBox1.AutoSize = True
Me.PictureBox1.Location = New System.Drawing.Point(8, 8)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(412, 270)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
Me.PictureBox1.TabIndex = 0
Me.PictureBox1.TabStop = False
"
"PictureBox2
"
Me.PictureBox2.AutoSize = True
Me.PictureBox2.Location = New System.Drawing.Point(8, 8)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(150, 138)
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
Me.PictureBox2.TabIndex = 0
Me.PictureBox2.TabStop = False
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(253, 292)
Me.Controls.Add(Me.SplitContainer1)
Me.Name = "Form1"
Me.Text = "UseSplitContainer"
Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel1.PerformLayout()
Me.SplitContainer1.Panel2.ResumeLayout(False)
Me.SplitContainer1.Panel2.PerformLayout()
Me.SplitContainer1.ResumeLayout(False)
CType(Me.PictureBox1, System.ruponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2, System.ruponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
End Class</source>

VB.Net Tutorial/GUI/SaveFileDialog

2010-05-26T12:57:26Z

Admin: 1 версия

==SaveFileDialog filter and selected file name,==

<source lang="vbnet">Imports System.Windows.Forms
public class FileOpenDialogFilter
public Shared Sub Main
Dim saveFileDialog1 As System.Windows.Forms.SaveFileDialog
saveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
saveFileDialog1.CreatePrompt = True
saveFileDialog1.FileName = "doc1"
saveFileDialog1.Filter = "Word (*.doc) |*.doc;*.rtf|(*.txt) |*.txt|(*.*) |*.*"
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
Console.WriteLine(saveFileDialog1.FileName)
End If
End Sub
End class</source>

==Set InitialDirectory for SaveFileDialog==

<source lang="vbnet">Imports System.Windows.Forms
public class SaveFileDialogWith
public Shared Sub Main
Dim SaveFileDialog1 As SaveFileDialog = New System.Windows.Forms.SaveFileDialog
With SaveFileDialog1
.DefaultExt = ".txt"
.Filter = "Text Files|*.txt"
.InitialDirectory = "C:\My Documents"
End With
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Console.WriteLine(SaveFileDialog1.FileName)
End If
End Sub
End class</source>

VB.Net Tutorial/GUI/Tooltips

2010-05-26T12:57:26Z

Admin: 1 версия

==Add ToolTip to TextBox==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class AddToolTipToTextBox
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.ruponents = New System.ruponentModel.Container
Me.Label1 = New System.Windows.Forms.Label
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.ruponents)
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.SuspendLayout()
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(96, 120)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = ""
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ToolTip1.SetToolTip(TextBox1, "This is a text box.")
End Sub
End Class</source>

==Add ToolTip to TextBox and ComboBox==

<source lang="vbnet">Imports System.Windows.Forms

public class SetToolTipForTextBoxAndComboBox
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ttHint.SetToolTip(txtFirstName, "first name")
ttHint.SetToolTip(txtLastName, "last name")
ttHint.SetToolTip(txtStreet, "address street number and name")
ttHint.SetToolTip(txtCity, "city")
ttHint.SetToolTip(cboState, "state")
ttHint.SetToolTip(txtZip, "ZIP code")
End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.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.ruponentModel.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.ruponents = New System.ruponentModel.Container
Me.ttHint = New System.Windows.Forms.ToolTip(Me.ruponents)
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel
Me.Label1 = New System.Windows.Forms.Label
Me.Label7 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.txtFirstName = New System.Windows.Forms.TextBox
Me.txtLastName = New System.Windows.Forms.TextBox
Me.txtStreet = New System.Windows.Forms.TextBox
Me.Label3 = New System.Windows.Forms.Label
Me.txtCity = New System.Windows.Forms.TextBox
Me.txtZip = New System.Windows.Forms.TextBox
Me.Label5 = New System.Windows.Forms.Label
Me.Label8 = New System.Windows.Forms.Label
Me.Label6 = New System.Windows.Forms.Label
Me.cboState = New System.Windows.Forms.ruboBox
Me.TableLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
"
"TableLayoutPanel1
"
Me.TableLayoutPanel1.AutoSize = True
Me.TableLayoutPanel1.ColumnCount = 2
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 80.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 136.0!))
Me.TableLayoutPanel1.Controls.Add(Me.Label1, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Label7, 0, 1)
Me.TableLayoutPanel1.Controls.Add(Me.Label2, 0, 2)
Me.TableLayoutPanel1.Controls.Add(Me.txtFirstName, 1, 1)
Me.TableLayoutPanel1.Controls.Add(Me.txtLastName, 1, 2)
Me.TableLayoutPanel1.Controls.Add(Me.txtStreet, 1, 3)
Me.TableLayoutPanel1.Controls.Add(Me.Label3, 0, 3)
Me.TableLayoutPanel1.Controls.Add(Me.txtCity, 1, 4)
Me.TableLayoutPanel1.Controls.Add(Me.txtZip, 1, 6)
Me.TableLayoutPanel1.Controls.Add(Me.Label5, 0, 5)
Me.TableLayoutPanel1.Controls.Add(Me.Label8, 0, 4)
Me.TableLayoutPanel1.Controls.Add(Me.Label6, 0, 6)
Me.TableLayoutPanel1.Controls.Add(Me.cboState, 1, 5)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(7, 7)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 7
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle)
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle)
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle)
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle)
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle)
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle)
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle)
Me.TableLayoutPanel1.Size = New System.Drawing.Size(272, 182)
Me.TableLayoutPanel1.TabIndex = 1
"
"Label1
"
Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.TableLayoutPanel1.SetColumnSpan(Me.Label1, 2)
Me.Label1.Location = New System.Drawing.Point(36, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(200, 20)
Me.Label1.TabIndex = 37
Me.Label1.Text = "Employee"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
"
"Label7
"
Me.Label7.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(13, 26)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(53, 13)
Me.Label7.TabIndex = 38
Me.Label7.Text = "First Name"
"
"Label2
"
Me.Label2.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(13, 52)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(54, 13)
Me.Label2.TabIndex = 40
Me.Label2.Text = "Last Name"
"
"txtFirstName
"
Me.txtFirstName.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtFirstName.Location = New System.Drawing.Point(83, 23)
Me.txtFirstName.Name = "txtFirstName"
Me.txtFirstName.Size = New System.Drawing.Size(186, 20)
Me.txtFirstName.TabIndex = 0
Me.ttHint.SetToolTip(Me.txtFirstName, "Enter the customer"s first (given) name.")
"
"txtLastName
"
Me.txtLastName.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtLastName.Location = New System.Drawing.Point(83, 49)
Me.txtLastName.Name = "txtLastName"
Me.txtLastName.Size = New System.Drawing.Size(186, 20)
Me.txtLastName.TabIndex = 1
Me.ttHint.SetToolTip(Me.txtLastName, "Enter the customer"s last (family) name.")
"
"txtStreet
"
Me.txtStreet.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtStreet.Location = New System.Drawing.Point(83, 75)
Me.txtStreet.Name = "txtStreet"
Me.txtStreet.Size = New System.Drawing.Size(186, 20)
Me.txtStreet.TabIndex = 2
Me.ttHint.SetToolTip(Me.txtStreet, "Enter the customer"s stree address including apartment, suite, or other informati" & _
"on.")
"
"Label3
"
Me.Label3.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(24, 78)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(31, 13)
Me.Label3.TabIndex = 42
Me.Label3.Text = "Street"
"
"txtCity
"
Me.txtCity.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtCity.Location = New System.Drawing.Point(83, 101)
Me.txtCity.Name = "txtCity"
Me.txtCity.Size = New System.Drawing.Size(186, 20)
Me.txtCity.TabIndex = 3
Me.ttHint.SetToolTip(Me.txtCity, "Enter the customer"s city.")
"
"txtZip
"
Me.txtZip.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.txtZip.Location = New System.Drawing.Point(83, 156)
Me.txtZip.Name = "txtZip"
Me.txtZip.Size = New System.Drawing.Size(64, 20)
Me.txtZip.TabIndex = 5
Me.ttHint.SetToolTip(Me.txtZip, "Enter the customer"s ZIP code.")
"
"Label5
"
Me.Label5.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(26, 131)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(28, 13)
Me.Label5.TabIndex = 46
Me.Label5.Text = "State"
"
"Label8
"
Me.Label8.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(30, 104)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(20, 13)
Me.Label8.TabIndex = 51
Me.Label8.Text = "City"
"
"Label6
"
Me.Label6.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(31, 160)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(18, 13)
Me.Label6.TabIndex = 52
Me.Label6.Text = "Zip"
"
"cboState
"
Me.cboState.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.cboState.FormattingEnabled = True
Me.cboState.Location = New System.Drawing.Point(83, 127)
Me.cboState.Name = "cboState"
Me.cboState.Size = New System.Drawing.Size(48, 21)
Me.cboState.TabIndex = 54
Me.ttHint.SetToolTip(Me.cboState, "Select the customer"s state.")
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(287, 197)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.Name = "Form1"
Me.Text = "UseToolTip"
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ttHint As System.Windows.Forms.ToolTip
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtFirstName As System.Windows.Forms.TextBox
Friend WithEvents txtLastName As System.Windows.Forms.TextBox
Friend WithEvents txtStreet As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtCity As System.Windows.Forms.TextBox
Friend WithEvents txtZip As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents cboState As System.Windows.Forms.ruboBox
End Class</source>

==Set Tooltips for Label==

<source lang="vbnet">Imports System.Windows.Forms
public class FrmToolTip
public Shared Sub Main
Application.Run(New FrmToolTipDemonstration)
End Sub
End class
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Class FrmToolTipDemonstration
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.ruponents = New System.ruponentModel.Container
Me.lblSecond = New System.Windows.Forms.Label
Me.labelsToolTip = New System.Windows.Forms.ToolTip(Me.ruponents)
Me.lblFirst = New System.Windows.Forms.Label
Me.SuspendLayout()
"
"lblSecond
"
Me.lblSecond.AutoSize = True
Me.lblSecond.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lblSecond.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSecond.Location = New System.Drawing.Point(12, 73)
Me.lblSecond.Name = "lblSecond"
Me.lblSecond.Size = New System.Drawing.Size(147, 19)
Me.lblSecond.TabIndex = 3
Me.lblSecond.Tag = ""
Me.lblSecond.Text = "This is another Label."
Me.labelsToolTip.SetToolTip(Me.lblSecond, "Second Label")
"
"lblFirst
"
Me.lblFirst.AutoSize = True
Me.lblFirst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lblFirst.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFirst.Location = New System.Drawing.Point(12, 24)
Me.lblFirst.Name = "lblFirst"
Me.lblFirst.Size = New System.Drawing.Size(101, 19)
Me.lblFirst.TabIndex = 2
Me.lblFirst.Text = "This is a label."
Me.labelsToolTip.SetToolTip(Me.lblFirst, "First Label")
"
"FrmToolTipDemonstration
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(252, 124)
Me.Controls.Add(Me.lblSecond)
Me.Controls.Add(Me.lblFirst)
Me.Name = "FrmToolTipDemonstration"
Me.Text = "ToolTip Demonstration"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lblSecond As System.Windows.Forms.Label
Friend WithEvents labelsToolTip As System.Windows.Forms.ToolTip
Friend WithEvents lblFirst As System.Windows.Forms.Label
End Class</source>

VB.Net Tutorial/GUI/ComboBox

2010-05-26T12:57:25Z

Admin: 1 версия

==Add value to ComboBox==

<source lang="vbnet">Imports System.Windows.Forms
public class ComboBoxAddSelection
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private components As System.ruponentModel.IContainer
Friend WithEvents ComboBox1 As System.Windows.Forms.ruboBox
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.ruboBox1 = New System.Windows.Forms.ruboBox
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.Label1 = New System.Windows.Forms.Label
Me.SuspendLayout()
"
"ComboBox1
"
Me.ruboBox1.Items.AddRange(New Object() {"AAAAA", "BBBBB", "CCCCC"})
Me.ruboBox1.Location = New System.Drawing.Point(48, 16)
Me.ruboBox1.Name = "ComboBox1"
Me.ruboBox1.Size = New System.Drawing.Size(144, 21)
Me.ruboBox1.TabIndex = 0
Me.ruboBox1.Text = "Select"
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(24, 64)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(96, 20)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = ""
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(144, 64)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(96, 24)
Me.Button1.TabIndex = 2
Me.Button1.Text = "Add"
"
"Label1
"
Me.Label1.Location = New System.Drawing.Point(40, 120)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(168, 24)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Select"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(264, 182)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.ruboBox1)
Me.ResumeLayout(False)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ComboBox1.Items.Add(TextBox1.Text)
TextBox1.Text = ""
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.SelectedIndex
Case 0
Label1.Text = "A"
Case 1
Label1.Text = "B"
Case 2
Label1.Text = "C"
End Select
End Sub
End Class</source>

==ComboBox Cell renderer==

<source lang="vbnet">Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Drawing2D
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.XButton = New System.Windows.Forms.Button
Me.ColorList = New System.Windows.Forms.ruboBox
Me.SuspendLayout()
"
"XButton
"
Me.XButton.Location = New System.Drawing.Point(112, 24)
Me.XButton.Name = "XButton"
Me.XButton.Size = New System.Drawing.Size(75, 23)
Me.XButton.TabIndex = 0
Me.XButton.Text = "Button1"
Me.XButton.UseVisualStyleBackColor = True
"
"ColorList
"
Me.ColorList.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.ColorList.DropDownStyle = System.Windows.Forms.ruboBoxStyle.DropDownList
Me.ColorList.FormattingEnabled = True
Me.ColorList.Location = New System.Drawing.Point(88, 64)
Me.ColorList.Name = "ColorList"
Me.ColorList.Size = New System.Drawing.Size(121, 21)
Me.ColorList.TabIndex = 1
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(292, 221)
Me.Controls.Add(Me.ColorList)
Me.Controls.Add(Me.XButton)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.Name = "Form1"
Me.Text = "Control Drawing"
Me.ResumeLayout(False)
End Sub
Friend WithEvents XButton As System.Windows.Forms.Button
Friend WithEvents ColorList As System.Windows.Forms.ruboBox
End Class
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
ColorList.Items.Add("Red")
ColorList.Items.Add("Orange")
ColorList.Items.Add("Yellow")
ColorList.Items.Add("Green")
ColorList.Items.Add("Blue")
ColorList.Items.Add("Indigo")
ColorList.Items.Add("Violet")
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.DrawEllipse(Pens.Black, 10, 10, Me.ClientRectangle.Width - 20, _
Me.ClientRectangle.Height - 20)
End Sub
Private Sub XButton_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles XButton.Paint
Dim usePen As Pen
e.Graphics.Clear(SystemColors.Control)
usePen = New Pen(SystemColors.ControlText, 3)
e.Graphics.DrawRectangle(usePen, XButton.ClientRectangle)
usePen.Dispose()
End Sub
Private Sub ColorList_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ColorList.DrawItem
Dim useBrush As Brush
If (e.Index = -1) Then Return
e.DrawBackground()
useBrush = New SolidBrush(Color.FromName(CStr(ColorList.Items(e.Index))))
e.Graphics.FillRectangle(useBrush, _
e.Bounds.Left + 2, e.Bounds.Top + 2, _
e.Bounds.Width - 4, e.Bounds.Height - 4)
useBrush.Dispose()
e.Graphics.DrawRectangle(Pens.Black, _
e.Bounds.Left + 2, e.Bounds.Top + 2, _
e.Bounds.Width - 4, e.Bounds.Height - 4)
e.DrawFocusRectangle()
End Sub
Private Sub XButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XButton.Click
MsgBox("Button clicked.")
End Sub
End Class
public class ComboBoxCellRenderer
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class</source>

==ComboBox Selected Index Changed event==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class ComboBoxSelectionEventAddValue
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents ComboBox1 As System.Windows.Forms.ruboBox
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.ruboBox1 = New System.Windows.Forms.ruboBox
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.SuspendLayout()
"
"ComboBox1
"
Me.ruboBox1.Location = New System.Drawing.Point(72, 72)
Me.ruboBox1.Name = "ComboBox1"
Me.ruboBox1.Size = New System.Drawing.Size(121, 21)
Me.ruboBox1.TabIndex = 0
Me.ruboBox1.Text = "ComboBox1"
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(16, 168)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(256, 20)
Me.TextBox1.TabIndex = 2
Me.TextBox1.Text = ""
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.ruboBox1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 0 To 10
ComboBox1.Items.Add("Item " + i.ToString())
Next
ComboBox1.Text = "Choose one..."
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim intSelectedIndex As Integer
intSelectedIndex = ComboBox1.SelectedIndex
Dim objSelectedItem As Object
objSelectedItem = ComboBox1.SelectedItem
TextBox1.Text = "Item"s index: " & intSelectedIndex & _
". Item"s text: " & objSelectedItem.ToString()
End Sub
End Class</source>

==ComboBox selection event and Add items==

<source lang="vbnet">Imports System.Windows.Forms
public class ComboBoxAddSelection
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private components As System.ruponentModel.IContainer
Friend WithEvents ComboBox1 As System.Windows.Forms.ruboBox
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.ruboBox1 = New System.Windows.Forms.ruboBox
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.Label1 = New System.Windows.Forms.Label
Me.SuspendLayout()
"
"ComboBox1
"
Me.ruboBox1.Items.AddRange(New Object() {"AAAAA", "BBBBB", "CCCCC"})
Me.ruboBox1.Location = New System.Drawing.Point(48, 16)
Me.ruboBox1.Name = "ComboBox1"
Me.ruboBox1.Size = New System.Drawing.Size(144, 21)
Me.ruboBox1.TabIndex = 0
Me.ruboBox1.Text = "Select"
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(24, 64)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(96, 20)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = ""
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(144, 64)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(96, 24)
Me.Button1.TabIndex = 2
Me.Button1.Text = "Add"
"
"Label1
"
Me.Label1.Location = New System.Drawing.Point(40, 120)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(168, 24)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Select"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(264, 182)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.ruboBox1)
Me.ResumeLayout(False)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ComboBox1.Items.Add(TextBox1.Text)
TextBox1.Text = ""
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.SelectedIndex
Case 0
Label1.Text = "A"
Case 1
Label1.Text = "B"
Case 2
Label1.Text = "C"
End Select
End Sub
End Class</source>

==Get Text from ComboBox==

<source lang="vbnet">Imports System.Windows.Forms
public class GetComboBoxText
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button1.Click
Dim Language As String
Language = ComboBox1.Text
If Language = "Visual Basic" Then
MsgBox("We have a winner!")
Else
MsgBox(Language & " is not a bad language.")
End If
End Sub
End Class
Partial Public Class Form1
Inherits System.Windows.Forms.Form
<System.Diagnostics.DebuggerNonUserCode()> _
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
End Sub
"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.ruponentModel.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.Label1 = New System.Windows.Forms.Label
Me.Button1 = New System.Windows.Forms.Button
Me.ruboBox1 = New System.Windows.Forms.ruboBox
Me.SuspendLayout()
"
"Label1
"
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(13, 22)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(160, 14)
Me.Label1.TabIndex = 0
Me.Label1.Text = "What"s your favorite language?"
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(13, 70)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(267, 23)
Me.Button1.TabIndex = 2
Me.Button1.Text = "Evaluate my choice"
"
"ComboBox1
"
Me.ruboBox1.FormattingEnabled = True
Me.ruboBox1.Items.AddRange(New Object() {"C++", "C#", "Java", "Visual Basic", "Cobol"})
Me.ruboBox1.Location = New System.Drawing.Point(13, 43)
Me.ruboBox1.Name = "ComboBox1"
Me.ruboBox1.Size = New System.Drawing.Size(267, 21)
Me.ruboBox1.TabIndex = 1
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 117)
Me.Controls.Add(Me.ruboBox1)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents ComboBox1 As System.Windows.Forms.ruboBox
End Class</source>

==HatchBrush Illustration by using ComboBox==

<source lang="vbnet">Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ruponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Drawing.Drawing2D
public class HatchBrushStyleComboBox
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Inherits System.Windows.Forms.Form
Private style As New HatchStyle
Private forClr As Color = Color.Blue
Private backClr As Color = Color.Red
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ComboBox1 As System.Windows.Forms.ruboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents ForColorBtn As System.Windows.Forms.Button
Friend WithEvents BackGroundBtn As System.Windows.Forms.Button
Friend WithEvents ApplyBtn As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label
Me.ruboBox1 = New System.Windows.Forms.ruboBox
Me.Label2 = New System.Windows.Forms.Label
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Label3 = New System.Windows.Forms.Label
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.ForColorBtn = New System.Windows.Forms.Button
Me.BackGroundBtn = New System.Windows.Forms.Button
Me.ApplyBtn = New System.Windows.Forms.Button
Me.SuspendLayout()
"
"Label1
"
Me.Label1.Location = New System.Drawing.Point(8, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(72, 23)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Select Style:"
"
"ComboBox1
"
Me.ruboBox1.Location = New System.Drawing.Point(96, 8)
Me.ruboBox1.Name = "ComboBox1"
Me.ruboBox1.Size = New System.Drawing.Size(121, 21)
Me.ruboBox1.TabIndex = 1
Me.ruboBox1.Text = "ComboBox1"
"
"Label2
"
Me.Label2.Location = New System.Drawing.Point(8, 40)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(96, 23)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Forground Color:"
"
"TextBox1
"
Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TextBox1.Location = New System.Drawing.Point(112, 40)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.ReadOnly = True
Me.TextBox1.Size = New System.Drawing.Size(32, 20)
Me.TextBox1.TabIndex = 3
Me.TextBox1.Text = ""
"
"Label3
"
Me.Label3.Location = New System.Drawing.Point(0, 72)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(104, 23)
Me.Label3.TabIndex = 4
Me.Label3.Text = "Background Color:"
"
"TextBox2
"
Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TextBox2.Location = New System.Drawing.Point(112, 72)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.ReadOnly = True
Me.TextBox2.Size = New System.Drawing.Size(32, 20)
Me.TextBox2.TabIndex = 5
Me.TextBox2.Text = ""
"
"ForColorBtn
"
Me.ForColorBtn.Location = New System.Drawing.Point(152, 40)
Me.ForColorBtn.Name = "ForColorBtn"
Me.ForColorBtn.Size = New System.Drawing.Size(48, 23)
Me.ForColorBtn.TabIndex = 6
Me.ForColorBtn.Text = "Pick..."
"
"BackGroundBtn
"
Me.BackGroundBtn.Location = New System.Drawing.Point(152, 72)
Me.BackGroundBtn.Name = "BackGroundBtn"
Me.BackGroundBtn.Size = New System.Drawing.Size(48, 23)
Me.BackGroundBtn.TabIndex = 7
Me.BackGroundBtn.Text = "Pic..."
"
"ApplyBtn
"
Me.ApplyBtn.Location = New System.Drawing.Point(224, 72)
Me.ApplyBtn.Name = "ApplyBtn"
Me.ApplyBtn.TabIndex = 8
Me.ApplyBtn.Text = "Apply"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(416, 325)
Me.Controls.Add(Me.ApplyBtn)
Me.Controls.Add(Me.BackGroundBtn)
Me.Controls.Add(Me.ForColorBtn)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.ruboBox1)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "Hatch Brushes"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FillHatchStyles()
End Sub
Private Sub FillHatchStyles()
comboBox1.Items.Add(HatchStyle.BackwardDiagonal.ToString())
comboBox1.Items.Add(HatchStyle.Cross.ToString())
comboBox1.Items.Add(HatchStyle.DashedVertical.ToString())
comboBox1.Items.Add(HatchStyle.DiagonalCross.ToString())
comboBox1.Items.Add(HatchStyle.HorizontalBrick.ToString())
comboBox1.Items.Add(HatchStyle.LightDownwardDiagonal.ToString())
comboBox1.Items.Add(HatchStyle.LightUpwardDiagonal.ToString())
comboBox1.Text = HatchStyle.BackwardDiagonal.ToString()
End Sub "FillHatchStyles

Private Sub ApplyBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApplyBtn.Click
Dim g As Graphics = Me.CreateGraphics()
g.Clear(Me.BackColor)
Dim str As String = ComboBox1.Text
Select Case str
Case "BackwardDiagonal"
style = HatchStyle.BackwardDiagonal
Case "DashedVertical"
style = HatchStyle.DashedVertical
Case "Cross"
style = HatchStyle.Cross
Case "DiagonalCross"
style = HatchStyle.DiagonalCross
Case "HorizontalBrick"
style = HatchStyle.HorizontalBrick
Case "LightDownwardDiagonal"
style = HatchStyle.LightDownwardDiagonal
Case "LightUpwardDiagonal"
style = HatchStyle.LightUpwardDiagonal
Case Else
End Select
Dim brush As New HatchBrush(style, forClr, backClr)
g.FillRectangle(brush, 50, 100, 200, 200)
brush.Dispose()
g.Dispose()
End Sub
End Class</source>

==Set text for ComboBox==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class ComboBoxSelectionEventAddValue
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents ComboBox1 As System.Windows.Forms.ruboBox
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.ruboBox1 = New System.Windows.Forms.ruboBox
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.SuspendLayout()
"
"ComboBox1
"
Me.ruboBox1.Location = New System.Drawing.Point(72, 72)
Me.ruboBox1.Name = "ComboBox1"
Me.ruboBox1.Size = New System.Drawing.Size(121, 21)
Me.ruboBox1.TabIndex = 0
Me.ruboBox1.Text = "ComboBox1"
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(16, 168)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(256, 20)
Me.TextBox1.TabIndex = 2
Me.TextBox1.Text = ""
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.ruboBox1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 0 To 10
ComboBox1.Items.Add("Item " + i.ToString())
Next
ComboBox1.Text = "Choose one..."
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim intSelectedIndex As Integer
intSelectedIndex = ComboBox1.SelectedIndex
Dim objSelectedItem As Object
objSelectedItem = ComboBox1.SelectedItem
TextBox1.Text = "Item"s index: " & intSelectedIndex & _
". Item"s text: " & objSelectedItem.ToString()
End Sub
End Class</source>

==Use ComboBox to control TextBox font color==

<source lang="vbnet">Imports System.Windows.Forms
public class ComboBoxSelectionEvent
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.SelectedIndex
Case 0
TextBox1.ForeColor = System.Drawing.Color.Yellow
Case 1
TextBox1.ForeColor = System.Drawing.Color.Red
Case 2
TextBox1.ForeColor = System.Drawing.Color.Blue
Case 3
TextBox1.ForeColor = System.Drawing.Color.Black
End Select
End Sub
End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.ruboBox1 = New System.Windows.Forms.ruboBox
Me.Label1 = New System.Windows.Forms.Label
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.SuspendLayout()
"
"ComboBox1
"
Me.ruboBox1.DropDownStyle = System.Windows.Forms.ruboBoxStyle.DropDownList
Me.ruboBox1.FormattingEnabled = True
Me.ruboBox1.Items.AddRange(New Object() {"Yellow", "Red", "Blue", "Black"})
Me.ruboBox1.Location = New System.Drawing.Point(19, 30)
Me.ruboBox1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.ruboBox1.Name = "ComboBox1"
Me.ruboBox1.Size = New System.Drawing.Size(476, 23)
Me.ruboBox1.TabIndex = 0
"
"Label1
"
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(16, 11)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(67, 15)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Color"
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(16, 62)
Me.TextBox1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(479, 169)
Me.TextBox1.TabIndex = 2
Me.TextBox1.Text = "www.vbex.ru"
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(513, 242)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ruboBox1)
Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ComboBox1 As System.Windows.Forms.ruboBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
End Class</source>

==Using ComboBox to select shape to draw==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class DrawShapes
public Shared Sub Main
Application.Run(New FrmComboBox)
End Sub
End class
Public Class FrmComboBox
Inherits Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
" contains shape list (circle, square, ellipse, pie)
Friend WithEvents cboImage As System.Windows.Forms.ruboBox
"Required by the Windows Form Designer
Private components As System.ruponentModel.Container
"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.cboImage = New System.Windows.Forms.ruboBox()
Me.SuspendLayout()
"
"cboImage
"
Me.cboImage.DropDownWidth = 121
Me.cboImage.Items.AddRange(New Object() {"Circle", "Square", "Ellipse", "Pie", "Filled Circle", "Filled Square", "Filled Ellipse", "Filled Pie"})
Me.cboImage.Location = New System.Drawing.Point(24, 16)
Me.cboImage.Name = "cboImage"
Me.cboImage.Size = New System.Drawing.Size(121, 21)
Me.cboImage.TabIndex = 0
"
"FrmComboBox
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.cboImage})
Me.Name = "FrmComboBox"
Me.Text = "ComboBoxTest"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub cboImage_SelectedIndexChanged _
(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles cboImage.SelectedIndexChanged
Dim myGraphics As Graphics = MyBase.CreateGraphics()
Dim myPen As New Pen(Color.DarkRed)
Dim mySolidBrush As New SolidBrush(Color.DarkRed)
myGraphics.Clear(Color.White)
Select Case cboImage.SelectedIndex
Case 0 " case circle is selected
myGraphics.DrawEllipse(myPen, 50, 50, 150, 150)
Case 1
myGraphics.DrawRectangle(myPen, 50, 50, 150, 150)
Case 2
myGraphics.DrawEllipse(myPen, 50, 85, 150, 115)
Case 3
myGraphics.DrawPie(myPen, 50, 50, 150, 150, 0, 45)
Case 4
myGraphics.FillEllipse(mySolidBrush, 50, 50, 150, 150)
Case 5
myGraphics.FillRectangle(mySolidBrush, 50, 50, 150, 150)
Case 6
myGraphics.FillEllipse(mySolidBrush, 50, 85, 150, 115)
Case 7
myGraphics.FillPie(mySolidBrush, 50, 50, 150, 150, 0, 45)
End Select
End Sub
End Class</source>

VB.Net Tutorial/GUI/Printers

2010-05-26T12:57:24Z

Admin: 1 версия

==Add a printer process==

<source lang="vbnet">Imports System.Environment
Imports System.Net

Public Class Tester
Public Shared Sub Main
Dim proc As New System.Diagnostics.Process()
Dim SystemDir As String = System.Environment.SystemDirectory
proc.Start("rundll32.exe", "shell32.dll,SHHelpShortcuts_RunDLL AddPrinter")
End Sub
End Class</source>

==Get installed printers==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class GetInstalledPrinters
public Shared Sub Main
Dim PrinterName As String
For Each PrinterName In System.Drawing.Printing.PrinterSettings.InstalledPrinters
Console.WriteLine(PrinterName)
Next
End Sub
End class</source>

VB.Net Tutorial/GUI/PageSetupDialog

2010-05-26T12:57:24Z

Admin: 1 версия

==Print setup Dialog==

<source lang="vbnet">Imports System.Drawing.Printing
Imports System.Windows.Forms
public class PageSetupDialogDemo
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Private Sub btnShowDialog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowDialog.Click
PageSetupDialog1.Document = New PrintDocument
If PageSetupDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
"...
End If
End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.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.ruponentModel.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.btnShowDialog = New System.Windows.Forms.Button
Me.PageSetupDialog1 = New System.Windows.Forms.PageSetupDialog
Me.SuspendLayout()
"
"btnShowDialog
"
Me.btnShowDialog.Location = New System.Drawing.Point(104, 56)
Me.btnShowDialog.Name = "btnShowDialog"
Me.btnShowDialog.Size = New System.Drawing.Size(80, 24)
Me.btnShowDialog.TabIndex = 2
Me.btnShowDialog.Text = "Show Dialog"
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(292, 140)
Me.Controls.Add(Me.btnShowDialog)
Me.Name = "Form1"
Me.Text = "UsePageSetupDIalog"
Me.ResumeLayout(False)
End Sub
Friend WithEvents btnShowDialog As System.Windows.Forms.Button
Friend WithEvents PageSetupDialog1 As System.Windows.Forms.PageSetupDialog
End Class</source>

==Show PageSetupDialog and display the settings==

<source lang="vbnet">Imports System.IO
Imports System.Windows.Forms
public class PageSetupDialogSettings
public Shared Sub Main
Dim PageDB As New PageSetupDialog()
PageDB.Document = New System.Drawing.Printing.PrintDocument()
If (PageDB.ShowDialog() = DialogResult.OK) Then
Console.WriteLine("Allow Margins: " & PageDB.AllowMargins)
Console.WriteLine("Allow Orientation: " & PageDB.AllowOrientation)
Console.WriteLine("Allow Paper: " & PageDB.AllowPaper)
Console.WriteLine("Allow Printer: " & PageDB.AllowPrinter)
Console.WriteLine("Minimum Margins: " & PageDB.MinMargins.ToString())
Console.WriteLine("Show Network: " & PageDB.ShowNetwork)
Console.WriteLine("Printer Settings: " & PageDB.PrinterSettings.ToString())
End If
End Sub
End class</source>

VB.Net Tutorial/GUI/PopupMenu

2010-05-26T12:57:24Z

Admin: 1 версия

==Add popup menu to Form==

<source lang="vbnet">Imports System.Windows.Forms
public class ShortcurMenu
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Private Sub MenuHello_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuHello.Click
MsgBox("Hello")
End Sub
Private Sub MenuGoodbye_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuGoodbye.Click
MsgBox("Goodbye")
End Sub
End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.ruponents = New System.ruponentModel.Container
Me.MainShortcutMenu = New System.Windows.Forms.ContextMenuStrip(Me.ruponents)
Me.MenuHello = New System.Windows.Forms.ToolStripMenuItem
Me.MenuGoodbye = New System.Windows.Forms.ToolStripMenuItem
Me.MainShortcutMenu.SuspendLayout()
Me.SuspendLayout()
"
"MainShortcutMenu
"
Me.MainShortcutMenu.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MenuHello, Me.MenuGoodbye})
Me.MainShortcutMenu.Name = "MainShortcutMenu"
Me.MainShortcutMenu.Size = New System.Drawing.Size(139, 48)
"
"MenuHello
"
Me.MenuHello.Name = "MenuHello"
Me.MenuHello.Size = New System.Drawing.Size(138, 22)
Me.MenuHello.Text = "Say Hello"
"
"MenuGoodbye
"
Me.MenuGoodbye.Name = "MenuGoodbye"
Me.MenuGoodbye.Size = New System.Drawing.Size(138, 22)
Me.MenuGoodbye.Text = "Say Goodbye"
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(292, 126)
Me.ContextMenuStrip = Me.MainShortcutMenu
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.Name = "Form1"
Me.Text = "Shortcut Menus"
Me.MainShortcutMenu.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents MainShortcutMenu As System.Windows.Forms.ContextMenuStrip
Friend WithEvents MenuHello As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents MenuGoodbye As System.Windows.Forms.ToolStripMenuItem
End Class</source>

VB.Net Tutorial/GUI/FolderBrowserDialog

2010-05-26T12:57:23Z

Admin: 1 версия

==Get the SelectedPath FolderBrowserDialog==

<source lang="vbnet">Imports System.Windows.Forms
Public Class Tester
Public Shared Sub Main
Dim DirectoryBrowser As System.Windows.Forms.FolderBrowserDialog
DirectoryBrowser = New System.Windows.Forms.FolderBrowserDialog
DirectoryBrowser.Description = "Which directory do you want to use?"
If (DirectoryBrowser.ShowDialog() = Windows.Forms.DialogResult.OK) Then
Console.WriteLine(DirectoryBrowser.SelectedPath)
End If
End Sub
End Class</source>

==Set Properties for FolderBrowserDialog==

<source lang="vbnet">Imports System.Windows.Forms
public class FolderBrowserDialogProperty
public Shared Sub Main
Dim FolderBrowserDialog1 As FolderBrowserDialog = New System.Windows.Forms.FolderBrowserDialog
With FolderBrowserDialog1
.RootFolder = Environment.SpecialFolder.rumonProgramFiles
.SelectedPath = "C:\Temp"
.ShowNewFolderButton = False
.Description = "Use the tree below to select a folder:"
End With
If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Console.WriteLine(FolderBrowserDialog1.SelectedPath)
End If
End Sub
End class</source>

VB.Net Tutorial/GUI/Visual Inheritance

2010-05-26T12:57:23Z

Admin: 1 версия

==Form template for use with visual inheritance==

<source lang="vbnet">Imports System.Windows.Forms
public class FormInheritance
public Shared Sub Main
Application.Run(New FrmInheritance)
End Sub
End class

Public Class FrmInheritance
Inherits Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Friend WithEvents lblText As System.Windows.Forms.Label
Friend WithEvents lblCopyright As System.Windows.Forms.Label
Friend WithEvents cmdLearn As System.Windows.Forms.Button
"Required by the Windows Form Designer
Private components As System.ruponentModel.Container
"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.lblCopyright = New System.Windows.Forms.Label()
Me.cmdLearn = New System.Windows.Forms.Button()
Me.lblText = New System.Windows.Forms.Label()
Me.SuspendLayout()
"
"lblCopyright
"
Me.lblCopyright.BackColor = System.Drawing.Color.LightYellow
Me.lblCopyright.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblCopyright.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblCopyright.ForeColor = System.Drawing.Color.MidnightBlue
Me.lblCopyright.Location = New System.Drawing.Point(20, 178)
Me.lblCopyright.Name = "lblCopyright"
Me.lblCopyright.Size = New System.Drawing.Size(318, 29)
Me.lblCopyright.TabIndex = 1
Me.lblCopyright.Text = "Copyright 2002"
"
"cmdLearn
"
Me.cmdLearn.BackColor = System.Drawing.Color.Snow
Me.cmdLearn.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmdLearn.ForeColor = System.Drawing.SystemColors.InfoText
Me.cmdLearn.Location = New System.Drawing.Point(20, 99)
Me.cmdLearn.Name = "cmdLearn"
Me.cmdLearn.Size = New System.Drawing.Size(144, 59)
Me.cmdLearn.TabIndex = 2
Me.cmdLearn.Text = "Learn More"
"
"lblText
"
Me.lblText.BackColor = System.Drawing.Color.LightYellow
Me.lblText.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblText.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblText.ForeColor = System.Drawing.Color.MidnightBlue
Me.lblText.Location = New System.Drawing.Point(20, 20)
Me.lblText.Name = "lblText"
Me.lblText.Size = New System.Drawing.Size(318, 59)
Me.lblText.TabIndex = 0
Me.lblText.Text = "Text"
Me.lblText.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
"
"FrmInheritance
"
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 15)
Me.BackColor = System.Drawing.SystemColors.ActiveBorder
Me.ClientSize = New System.Drawing.Size(358, 223)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmdLearn, Me.lblCopyright, Me.lblText})
Me.Name = "FrmInheritance"
Me.Text = "Visual Inheritance"
Me.ResumeLayout(False)
End Sub
#End Region
" invoked when user presses Learn More button
Private Sub cmdLearn_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cmdLearn.Click
MessageBox.Show("Message", "Title", MessageBoxButtons.OK, _
MessageBoxIcon.Information)
End Sub " cmdLearn_Click
End Class</source>

VB.Net Tutorial/GUI/ToolBar

2010-05-26T12:57:23Z

Admin: 1 версия

==Add action listener to buttons on a ToolBar==

<source lang="vbnet">Imports System.Windows.Forms
public class ToolBarMenu
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents mnuEdit As System.Windows.Forms.MenuItem
Friend WithEvents mnuEditCut As System.Windows.Forms.MenuItem
Friend WithEvents mnuEditCopy As System.Windows.Forms.MenuItem
Friend WithEvents mnuEditPaste As System.Windows.Forms.MenuItem
Friend WithEvents txtEdit As System.Windows.Forms.TextBox
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
Friend WithEvents cmnuCut As System.Windows.Forms.MenuItem
Friend WithEvents cmnuCopy As System.Windows.Forms.MenuItem
Friend WithEvents cmnuPaste As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.ruponents = New System.ruponentModel.Container()
Me.MainMenu1 = New System.Windows.Forms.MainMenu()
Me.mnuEdit = New System.Windows.Forms.MenuItem()
Me.mnuEditCut = New System.Windows.Forms.MenuItem()
Me.mnuEditCopy = New System.Windows.Forms.MenuItem()
Me.mnuEditPaste = New System.Windows.Forms.MenuItem()
Me.txtEdit = New System.Windows.Forms.TextBox()
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
Me.cmnuCut = New System.Windows.Forms.MenuItem()
Me.cmnuCopy = New System.Windows.Forms.MenuItem()
Me.cmnuPaste = New System.Windows.Forms.MenuItem()
Me.MenuItem7 = New System.Windows.Forms.MenuItem()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.ruponents)
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton()
Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton()
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
Me.SuspendLayout()
"
"MainMenu1
"
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuEdit})
"
"mnuEdit
"
Me.mnuEdit.Index = 0
Me.mnuEdit.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuEditCut, Me.mnuEditCopy, Me.mnuEditPaste})
Me.mnuEdit.Text = "&Edit"
"
"mnuEditCut
"
Me.mnuEditCut.Index = 0
Me.mnuEditCut.Shortcut = System.Windows.Forms.Shortcut.CtrlX
Me.mnuEditCut.Text = "Cu&t"
"
"mnuEditCopy
"
Me.mnuEditCopy.Index = 1
Me.mnuEditCopy.Shortcut = System.Windows.Forms.Shortcut.CtrlC
Me.mnuEditCopy.Text = "&Copy"
"
"mnuEditPaste
"
Me.mnuEditPaste.Index = 2
Me.mnuEditPaste.Shortcut = System.Windows.Forms.Shortcut.CtrlV
Me.mnuEditPaste.Text = "&Paste"
"
"txtEdit
"
Me.txtEdit.ContextMenu = Me.ContextMenu1
Me.txtEdit.Location = New System.Drawing.Point(0, 24)
Me.txtEdit.Multiline = True
Me.txtEdit.Name = "txtEdit"
Me.txtEdit.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.txtEdit.Size = New System.Drawing.Size(248, 176)
Me.txtEdit.TabIndex = 0
Me.txtEdit.Text = ""
"
"ContextMenu1
"
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.cmnuCut, Me.cmnuCopy, Me.cmnuPaste})
"
"cmnuCut
"
Me.cmnuCut.Index = 0
Me.cmnuCut.Text = "Cut"
"
"cmnuCopy
"
Me.cmnuCopy.Index = 1
Me.cmnuCopy.Text = "Copy"
"
"cmnuPaste
"
Me.cmnuPaste.Index = 2
Me.cmnuPaste.Text = "Paste"
"
"MenuItem7
"
Me.MenuItem7.Index = -1
Me.MenuItem7.Text = ""
"
"ToolBarButton1
"
Me.ToolBarButton1.ImageIndex = 0
"
"ToolBarButton2
"
Me.ToolBarButton2.ImageIndex = 1
"
"ToolBarButton3
"
Me.ToolBarButton3.ImageIndex = 2
"
"ToolBar1
"
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton2, Me.ToolBarButton3})
Me.ToolBar1.ButtonSize = New System.Drawing.Size(23, 22)
Me.ToolBar1.DropDownArrows = True
Me.ToolBar1.Name = "ToolBar1"
Me.ToolBar1.ShowToolTips = True
Me.ToolBar1.Size = New System.Drawing.Size(248, 25)
Me.ToolBar1.TabIndex = 1
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(248, 201)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ToolBar1, Me.txtEdit})
Me.Menu = Me.MainMenu1
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Select Case ToolBar1.Buttons.IndexOf(e.Button)
Case 0
mnuEditCut_Click(sender, e)
Case 1
mnuEditCopy_Click(sender, e)
Case 2
mnuEditPaste_Click(sender, e)
End Select
End Sub
Private Sub mnuEditCut_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuEditCut.Click, cmnuCut.Click
txtEdit.Cut()
End Sub
Private Sub mnuEditCopy_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuEditCopy.Click, cmnuCopy.Click
txtEdit.Copy()
End Sub

Private Sub mnuEditPaste_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuEditPaste.Click, cmnuPaste.Click
txtEdit.Paste()
End Sub
End Class</source>

==Button, Menu, ComboBox on ToolBar==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class ToolBarButtonComboBox
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
Friend WithEvents ToolBarButton4 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBarButton5 As System.Windows.Forms.ToolBarButton
Friend WithEvents ToolBarButton6 As System.Windows.Forms.ToolBarButton
Friend WithEvents ComboBox1 As System.Windows.Forms.ruboBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.ToolBar1 = New System.Windows.Forms.ToolBar
Me.Label1 = New System.Windows.Forms.Label
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton
Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton
Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.MenuItem2 = New System.Windows.Forms.MenuItem
Me.MenuItem3 = New System.Windows.Forms.MenuItem
Me.ToolBarButton4 = New System.Windows.Forms.ToolBarButton
Me.ToolBarButton5 = New System.Windows.Forms.ToolBarButton
Me.ToolBarButton6 = New System.Windows.Forms.ToolBarButton
Me.ruboBox1 = New System.Windows.Forms.ruboBox
Me.SuspendLayout()
"
"ToolBar1
"
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton2, Me.ToolBarButton3, Me.ToolBarButton4, Me.ToolBarButton5, Me.ToolBarButton6})
Me.ToolBar1.DropDownArrows = True
Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
Me.ToolBar1.Name = "ToolBar1"
Me.ToolBar1.ShowToolTips = True
Me.ToolBar1.Size = New System.Drawing.Size(368, 42)
Me.ToolBar1.TabIndex = 0
"
"Label1
"
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(0, 48)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(160, 40)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Toolbars"
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(72, 136)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(152, 20)
Me.TextBox1.TabIndex = 2
Me.TextBox1.Text = ""
"
"ToolBarButton1
"
Me.ToolBarButton1.Text = "Button 1"
"
"ToolBarButton2
"
Me.ToolBarButton2.Text = "Button 2"
"
"ToolBarButton3
"
Me.ToolBarButton3.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
Me.ToolBarButton3.Text = "Toggle Button "
"
"ContextMenu1
"
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3})
"
"MenuItem1
"
Me.MenuItem1.Index = 0
Me.MenuItem1.Text = "Red"
"
"MenuItem2
"
Me.MenuItem2.Index = 1
Me.MenuItem2.Text = "Green"
"
"MenuItem3
"
Me.MenuItem3.Index = 2
Me.MenuItem3.Text = "Blue"
"
"ToolBarButton4
"
Me.ToolBarButton4.DropDownMenu = Me.ContextMenu1
Me.ToolBarButton4.Style = System.Windows.Forms.ToolBarButtonStyle.DropDownButton
Me.ToolBarButton4.Text = "Button 4"
"
"ToolBarButton5
"
Me.ToolBarButton5.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
"
"ToolBarButton6
"
Me.ToolBarButton6.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
"
"ComboBox1
"
Me.ruboBox1.Items.AddRange(New Object() {"Item 0", "Item 1", "Item 2"})
Me.ruboBox1.Location = New System.Drawing.Point(264, 8)
Me.ruboBox1.Name = "ComboBox1"
Me.ruboBox1.Size = New System.Drawing.Size(88, 21)
Me.ruboBox1.TabIndex = 3
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(368, 273)
Me.Controls.Add(Me.ruboBox1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ToolBar1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
TextBox1.Text = "You clicked " & e.Button.Text
End Sub
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
TextBox1.Text = "You clicked the Red item."
End Sub
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
TextBox1.Text = "You clicked the Green item."
End Sub
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
TextBox1.Text = "You clicked the Blue item."
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
TextBox1.Text = "You selected item " & ComboBox1.SelectedIndex
End Sub
End Class</source>

VB.Net Tutorial/GUI/Text File Print

2010-05-26T12:57:23Z

Admin: 1 версия

==Print text file==

<source lang="vbnet">Imports System.IO
Imports System.Text.Encoding
Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Windows.Forms
public class PrintTextFile
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Private components As System.ruponentModel.IContainer
Friend WithEvents PrintDialog1 As System.Windows.Forms.PrintDialog
Friend WithEvents PrintPreviewDialog1 As System.Windows.Forms.PrintPreviewDialog
Friend WithEvents PageSetupDialog1 As System.Windows.Forms.PageSetupDialog
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
Friend WithEvents mnuPreview As System.Windows.Forms.MenuItem
Friend WithEvents mnuPrint As System.Windows.Forms.MenuItem
Friend WithEvents mnuExit As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents mnuOpen As System.Windows.Forms.MenuItem
Friend WithEvents mnuPageSetup As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.PrintDialog1 = New System.Windows.Forms.PrintDialog()
Me.PrintPreviewDialog1 = New System.Windows.Forms.PrintPreviewDialog()
Me.PageSetupDialog1 = New System.Windows.Forms.PageSetupDialog()
Me.MainMenu1 = New System.Windows.Forms.MainMenu()
Me.MenuItem1 = New System.Windows.Forms.MenuItem()
Me.mnuOpen = New System.Windows.Forms.MenuItem()
Me.MenuItem3 = New System.Windows.Forms.MenuItem()
Me.mnuPageSetup = New System.Windows.Forms.MenuItem()
Me.mnuPreview = New System.Windows.Forms.MenuItem()
Me.mnuPrint = New System.Windows.Forms.MenuItem()
Me.MenuItem5 = New System.Windows.Forms.MenuItem()
Me.mnuExit = New System.Windows.Forms.MenuItem()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
"
"PrintPreviewDialog1
"
Me.PrintPreviewDialog1.AutoScrollMargin = New System.Drawing.Size(0, 0)
Me.PrintPreviewDialog1.AutoScrollMinSize = New System.Drawing.Size(0, 0)
Me.PrintPreviewDialog1.ClientSize = New System.Drawing.Size(400, 300)
Me.PrintPreviewDialog1.Enabled = True
Me.PrintPreviewDialog1.Location = New System.Drawing.Point(375, 17)
Me.PrintPreviewDialog1.MaximumSize = New System.Drawing.Size(0, 0)
Me.PrintPreviewDialog1.Name = "PrintPreviewDialog1"
Me.PrintPreviewDialog1.Opacity = 1
Me.PrintPreviewDialog1.TransparencyKey = System.Drawing.Color.Empty
Me.PrintPreviewDialog1.Visible = False
"
"MainMenu1
"
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
"
"MenuItem1
"
Me.MenuItem1.Index = 0
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuOpen, Me.MenuItem3, Me.mnuPageSetup, Me.mnuPreview, Me.mnuPrint, Me.MenuItem5, Me.mnuExit})
Me.MenuItem1.Text = "&File"
"
"mnuOpen
"
Me.mnuOpen.Index = 0
Me.mnuOpen.Text = "Open"
"
"MenuItem3
"
Me.MenuItem3.Index = 1
Me.MenuItem3.Text = "-"
"
"mnuPageSetup
"
Me.mnuPageSetup.Index = 2
Me.mnuPageSetup.Text = "Page Setup"
"
"mnuPreview
"
Me.mnuPreview.Index = 3
Me.mnuPreview.Text = "Print Preview"
"
"mnuPrint
"
Me.mnuPrint.Index = 4
Me.mnuPrint.Text = "Print"
"
"MenuItem5
"
Me.MenuItem5.Index = 5
Me.MenuItem5.Text = "-"
"
"mnuExit
"
Me.mnuExit.Index = 6
Me.mnuExit.Text = "Exit"
"
"Panel1
"
Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox1})
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.DockPadding.All = 5
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(563, 325)
Me.Panel1.TabIndex = 0
"
"TextBox1
"
Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TextBox1.Location = New System.Drawing.Point(6, 5)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(551, 315)
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = ""
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(563, 325)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel1})
Me.Menu = Me.MainMenu1
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Dialog Application"
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Private printerSettings As System.Drawing.Printing.PageSettings
Private printingFont As Font
Private streamReader As StreamReader
Private filename As String
Private Sub mnuPageSetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPageSetup.Click
With PageSetupDialog1
Try
If (printerSettings Is Nothing) Then
printerSettings = New System.Drawing.Printing.PageSettings()
End If
.AllowMargins = True
.AllowOrientation = True
.AllowPaper = True
.AllowPrinter = True
.PageSettings = printerSettings
.ShowDialog()
Catch ex As Exception
MessageBox.Show(ex.StackTrace.ToString(), "Print", _
MessageBoxButtons.OK, MessageBoxIcon.Error, _
MessageBoxDefaultButton.Button1)
End Try
End With
End Sub
Private Sub mnuPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPreview.Click
If Not filename Is Nothing Then
Try
streamReader = New StreamReader(filename)
Try
printingFont = New Font("Arial", 10)
Dim pd As New PrintDocument()
AddHandler pd.PrintPage, AddressOf Me.pd_PrintPage
If Not (printerSettings Is Nothing) Then
pd.DefaultPageSettings = printerSettings
End If
With PrintPreviewDialog1
.Document = pd
.ShowDialog()
End With
Finally
streamReader.Close()
End Try
Catch ex As Exception
MessageBox.Show(ex.Message, "Print", _
MessageBoxButtons.OK, MessageBoxIcon.Error, _
MessageBoxDefaultButton.Button1)
End Try
Else
MessageBox.Show("Please select file first.", "Print", _
MessageBoxButtons.OK, MessageBoxIcon.Error, _
MessageBoxDefaultButton.Button1)
End If
End Sub
Private Sub mnuPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPrint.Click
If Not filename Is Nothing Then
Try
streamReader = New StreamReader(filename)
Try
printingFont = New Font("Arial", 10)
Dim pd As New PrintDocument()
AddHandler pd.PrintPage, AddressOf Me.pd_PrintPage
If Not (printerSettings Is Nothing) Then
pd.DefaultPageSettings = printerSettings
End If
With PrintDialog1
.Document = pd
.AllowPrintToFile = True
.AllowSelection = True
.AllowSomePages = True
If .ShowDialog() = DialogResult.OK Then
pd.Print()
End If
End With
Finally
streamReader.Close()
End Try
Catch ex As Exception
MessageBox.Show(ex.StackTrace.ToString, "Print", _
MessageBoxButtons.OK, MessageBoxIcon.Error, _
MessageBoxDefaultButton.Button1)
End Try
Else
MessageBox.Show("Please select file first.", "Print", _
MessageBoxButtons.OK, MessageBoxIcon.Error, _
MessageBoxDefaultButton.Button1)
End If
End Sub
Private Sub pd_PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
Dim linesPerPage As Single = 0
Dim yPos As Single = 0
Dim count As Integer = 0
Dim leftMargin As Single = ev.MarginBounds.Left
Dim topMargin As Single = ev.MarginBounds.Top
Dim line As String = Nothing
linesPerPage = ev.MarginBounds.Height / printingFont.GetHeight(ev.Graphics)
While count < linesPerPage
line = streamReader.ReadLine()
If line Is Nothing Then
Exit While
End If
yPos = topMargin + count * printingFont.GetHeight(ev.Graphics)
ev.Graphics.DrawString(line, printingFont, Brushes.Black, leftMargin, yPos, New StringFormat())
count += 1
End While
If Not (line Is Nothing) Then
ev.HasMorePages = True
Else
ev.HasMorePages = False
End If
End Sub
Private Sub mnuOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpen.Click
Dim sr As StreamReader = Nothing
Dim fs As FileStream = Nothing
With OpenFileDialog1
.InitialDirectory = "C:\"
.Filter = "Text files (*.txt)|*.txt"
.FilterIndex = 2
.RestoreDirectory = True
.ShowHelp = True
.Title = "Open File Dialog"
If .ShowDialog() = DialogResult.OK Then
Me.Text = .FileName
filename = .FileName
TextBox1.Text = ""
Try
fs = New FileStream(.FileName, FileMode.Open, FileAccess.Read)
sr = New StreamReader(fs, System.Text.Encoding.Default)
TextBox1.Text = sr.ReadToEnd()
Catch ex As Exception
MessageBox.Show(ex.StackTrace.ToString(), "Print", _
MessageBoxButtons.OK, MessageBoxIcon.Error, _
MessageBoxDefaultButton.Button1)
Finally
If Not (sr Is Nothing) Then
sr.Close()
End If
If Not (fs Is Nothing) Then
fs.Close()
End If
End Try
End If
End With
End Sub
End Class</source>

VB.Net Tutorial/GUI/RadioButton MenuItem

2010-05-26T12:57:22Z

Admin: 1 версия

==RadioButton MenuItem==

<source lang="vbnet">Imports System.Windows.Forms
public class RadioButtonCheckBox
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class MDIChild
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
Friend WithEvents mainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents mnuMDIOptions As System.Windows.Forms.MenuItem
Friend WithEvents mnuMDIOpiton1 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMDIOpiton2 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMDIOpiton3 As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
Me.mainMenu1 = New System.Windows.Forms.MainMenu()
Me.mnuMDIOptions = New System.Windows.Forms.MenuItem()
Me.mnuMDIOpiton1 = New System.Windows.Forms.MenuItem()
Me.mnuMDIOpiton2 = New System.Windows.Forms.MenuItem()
Me.mnuMDIOpiton3 = New System.Windows.Forms.MenuItem()
Me.SuspendLayout()
"
"RichTextBox1
"
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(296, 176)
Me.RichTextBox1.TabIndex = 0
Me.RichTextBox1.Text = "RichTextBox1"
"
"mainMenu1
"
Me.mainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuMDIOptions})
"
"mnuMDIOptions
"
Me.mnuMDIOptions.Index = 0
Me.mnuMDIOptions.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuMDIOpiton1, Me.mnuMDIOpiton2, Me.mnuMDIOpiton3})
Me.mnuMDIOptions.MergeOrder = 1
Me.mnuMDIOptions.Text = "MDIChildOptions"
"
"mnuMDIOpiton1
"
Me.mnuMDIOpiton1.Index = 0
Me.mnuMDIOpiton1.Text = "MDI Option 1"
"
"mnuMDIOpiton2
"
Me.mnuMDIOpiton2.Index = 1
Me.mnuMDIOpiton2.Text = "MDI Option 2"
"
"mnuMDIOpiton3
"
Me.mnuMDIOpiton3.Index = 2
Me.mnuMDIOpiton3.Text = "MDI Option 3"
"
"MDIChild
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 174)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.RichTextBox1})
Me.Menu = Me.mainMenu1
Me.Name = "MDIChild"
Me.Text = "MDIChild"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Option_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles mnuMDIOpiton1.Click, mnuMDIOpiton2.Click, mnuMDIOpiton3.Click
Dim item As MenuItem = CType(sender, MenuItem)
item.Checked = Not item.Checked
End Sub
End Class

Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents mainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents mnuFile As System.Windows.Forms.MenuItem
Friend WithEvents mnuNew As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileOpen As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileClose As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileSave As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileSaveAs As System.Windows.Forms.MenuItem
Friend WithEvents mnuEdit As System.Windows.Forms.MenuItem
Friend WithEvents mnuEditCopy As System.Windows.Forms.MenuItem
Friend WithEvents mnuEditPaste As System.Windows.Forms.MenuItem
Friend WithEvents mnuOptions As System.Windows.Forms.MenuItem
Friend WithEvents mnuOption1 As System.Windows.Forms.MenuItem
Friend WithEvents mnuOption2 As System.Windows.Forms.MenuItem
Friend WithEvents mnuOption3 As System.Windows.Forms.MenuItem
Friend WithEvents mnuRadioOptions As System.Windows.Forms.MenuItem
Friend WithEvents mnuRadioOption1 As System.Windows.Forms.MenuItem
Friend WithEvents mnuRadioOption2 As System.Windows.Forms.MenuItem
Friend WithEvents mnuRadioOption3 As System.Windows.Forms.MenuItem
Friend WithEvents mnuWindow As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu1 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu11 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu12 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu13 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu14 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMerge As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu2 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu21 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu22 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu23 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu24 As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.mainMenu1 = New System.Windows.Forms.MainMenu()
Me.mnuFile = New System.Windows.Forms.MenuItem()
Me.mnuNew = New System.Windows.Forms.MenuItem()
Me.mnuFileOpen = New System.Windows.Forms.MenuItem()
Me.mnuFileClose = New System.Windows.Forms.MenuItem()
Me.mnuFileSave = New System.Windows.Forms.MenuItem()
Me.mnuFileSaveAs = New System.Windows.Forms.MenuItem()
Me.mnuEdit = New System.Windows.Forms.MenuItem()
Me.mnuEditCopy = New System.Windows.Forms.MenuItem()
Me.mnuEditPaste = New System.Windows.Forms.MenuItem()
Me.mnuOptions = New System.Windows.Forms.MenuItem()
Me.mnuOption1 = New System.Windows.Forms.MenuItem()
Me.mnuOption2 = New System.Windows.Forms.MenuItem()
Me.mnuOption3 = New System.Windows.Forms.MenuItem()
Me.mnuRadioOptions = New System.Windows.Forms.MenuItem()
Me.mnuRadioOption1 = New System.Windows.Forms.MenuItem()
Me.mnuRadioOption2 = New System.Windows.Forms.MenuItem()
Me.mnuRadioOption3 = New System.Windows.Forms.MenuItem()
Me.mnuWindow = New System.Windows.Forms.MenuItem()
Me.mnuMenu1 = New System.Windows.Forms.MenuItem()
Me.mnuMenu11 = New System.Windows.Forms.MenuItem()
Me.mnuMenu12 = New System.Windows.Forms.MenuItem()
Me.mnuMenu13 = New System.Windows.Forms.MenuItem()
Me.mnuMenu14 = New System.Windows.Forms.MenuItem()
Me.mnuMerge = New System.Windows.Forms.MenuItem()
Me.mnuMenu2 = New System.Windows.Forms.MenuItem()
Me.mnuMenu21 = New System.Windows.Forms.MenuItem()
Me.mnuMenu22 = New System.Windows.Forms.MenuItem()
Me.mnuMenu23 = New System.Windows.Forms.MenuItem()
Me.mnuMenu24 = New System.Windows.Forms.MenuItem()
"
"mainMenu1
"
Me.mainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuFile, Me.mnuEdit, Me.mnuOptions, Me.mnuRadioOptions, Me.mnuWindow, Me.mnuMenu1, Me.mnuMenu2})
"
"mnuFile
"
Me.mnuFile.Index = 0
Me.mnuFile.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuNew, Me.mnuFileOpen, Me.mnuFileClose, Me.mnuFileSave, Me.mnuFileSaveAs})
Me.mnuFile.Text = "File"
"
"mnuNew
"
Me.mnuNew.Index = 0
Me.mnuNew.Shortcut = System.Windows.Forms.Shortcut.CtrlN
Me.mnuNew.Text = "&New"
"
"mnuFileOpen
"
Me.mnuFileOpen.Index = 1
Me.mnuFileOpen.Text = "Open"
"
"mnuFileClose
"
Me.mnuFileClose.Index = 2
Me.mnuFileClose.Text = "Close"
"
"mnuFileSave
"
Me.mnuFileSave.Index = 3
Me.mnuFileSave.Text = "Save"
"
"mnuFileSaveAs
"
Me.mnuFileSaveAs.Index = 4
Me.mnuFileSaveAs.Text = "Save&As"
"
"mnuEdit
"
Me.mnuEdit.Index = 1
Me.mnuEdit.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuEditCopy, Me.mnuEditPaste})
Me.mnuEdit.Text = "Edit"
"
"mnuEditCopy
"
Me.mnuEditCopy.Index = 0
Me.mnuEditCopy.Text = "&Copy"
"
"mnuEditPaste
"
Me.mnuEditPaste.Index = 1
Me.mnuEditPaste.Text = "Paste"
"
"mnuOptions
"
Me.mnuOptions.Index = 2
Me.mnuOptions.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuOption1, Me.mnuOption2, Me.mnuOption3})
Me.mnuOptions.Text = "Options"
"
"mnuOption1
"
Me.mnuOption1.Index = 0
Me.mnuOption1.Text = "Option1"
"
"mnuOption2
"
Me.mnuOption2.Index = 1
Me.mnuOption2.Text = "Option2"
"
"mnuOption3
"
Me.mnuOption3.Index = 2
Me.mnuOption3.Text = "Option3"
"
"mnuRadioOptions
"
Me.mnuRadioOptions.Index = 3
Me.mnuRadioOptions.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuRadioOption1, Me.mnuRadioOption2, Me.mnuRadioOption3})
Me.mnuRadioOptions.Text = "Radio Options"
"
"mnuROption1
"
Me.mnuRadioOption1.Index = 0
Me.mnuRadioOption1.RadioCheck = True
Me.mnuRadioOption1.Text = "Radio Option 1"
"
"mnuROption2
"
Me.mnuRadioOption2.Index = 1
Me.mnuRadioOption2.RadioCheck = True
Me.mnuRadioOption2.Text = "Radio Option 2"
"
"mnuROption3
"
Me.mnuRadioOption3.Index = 2
Me.mnuRadioOption3.RadioCheck = True
Me.mnuRadioOption3.Text = "Radio Option 3"
"
"mnuWindow
"
Me.mnuWindow.Index = 4
Me.mnuWindow.MdiList = True
Me.mnuWindow.MergeOrder = 99
Me.mnuWindow.Text = "&Window"
"
"mnuMenu1
"
Me.mnuMenu1.Index = 5
Me.mnuMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuMenu11, Me.mnuMenu12, Me.mnuMenu13, Me.mnuMenu14, Me.mnuMerge})
Me.mnuMenu1.Text = "Menu 1"
"
"mnuMenu11
"
Me.mnuMenu11.Index = 0
Me.mnuMenu11.MergeOrder = 1
Me.mnuMenu11.Text = "Menu 1.1"
"
"mnuMenu12
"
Me.mnuMenu12.Index = 1
Me.mnuMenu12.MergeOrder = 2
Me.mnuMenu12.Text = "Menu 1.2"
"
"mnuMenu13
"
Me.mnuMenu13.Index = 2
Me.mnuMenu13.MergeOrder = 3
Me.mnuMenu13.Text = "Menu 1.3"
"
"mnuMenu14
"
Me.mnuMenu14.Index = 3
Me.mnuMenu14.MergeOrder = 4
Me.mnuMenu14.Text = "Menu 1.4"
"
"mnuMerge
"
Me.mnuMerge.Index = 4
Me.mnuMerge.MergeOrder = 99
Me.mnuMerge.Text = "Merge!"
"
"mnuMenu2
"
Me.mnuMenu2.Index = 6
Me.mnuMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuMenu21, Me.mnuMenu22, Me.mnuMenu23, Me.mnuMenu24})
Me.mnuMenu2.Text = "Menu 2"
"
"mnuMenu21
"
Me.mnuMenu21.Index = 0
Me.mnuMenu21.MergeOrder = 1
Me.mnuMenu21.Text = "Menu 2.1"
"
"mnuMenu22
"
Me.mnuMenu22.Index = 1
Me.mnuMenu22.MergeOrder = 2
Me.mnuMenu22.MergeType = System.Windows.Forms.MenuMerge.Replace
Me.mnuMenu22.Text = "Menu 2.2"
"
"mnuMenu23
"
Me.mnuMenu23.Index = 2
Me.mnuMenu23.MergeOrder = 3
Me.mnuMenu23.MergeType = System.Windows.Forms.MenuMerge.Remove
Me.mnuMenu23.Text = "Menu 2.3"
"
"mnuMenu24
"
Me.mnuMenu24.Index = 3
Me.mnuMenu24.MergeOrder = 5
Me.mnuMenu24.Text = "Menu 2.4"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(456, 146)
Me.IsMdiContainer = True
Me.Menu = Me.mainMenu1
Me.Name = "Form1"
Me.Text = "Form1"
End Sub
#End Region
Private Sub mnuNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles mnuNew.Click
Dim newMDIChild As New MDIChild()
newMDIChild.MdiParent = Me
newMDIChild.Show()
End Sub
Private Sub mnuFileOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles mnuFileOpen.Click
MessageBox.Show("You clicked file open!", _
"Menu event tester", _
MessageBoxButtons.OK, _
MessageBoxIcon.Information)
End Sub
Private Sub mnuFileClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles mnuFileClose.Click
MessageBox.Show("You clicked file close!", "Menu event tester", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub

Private Sub mnuEditCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles mnuEditCopy.Click
MessageBox.Show("You clicked Edit copy!", "Menu event tester", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub mnuEditPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles mnuEditPaste.Click
MessageBox.Show("You clicked Edit paste!", "Menu event tester", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub Option_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles mnuOption1.Click, mnuOption2.Click, mnuOption3.Click
Dim item As MenuItem = CType(sender, MenuItem)
item.Checked = Not item.Checked
End Sub
Private Sub RadioOption_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles mnuRadioOption1.Click, mnuRadioOption2.Click, mnuRadioOption3.Click
Dim item As MenuItem = CType(sender, MenuItem)
Dim parent As Menu = item.Parent
Dim tempMi As MenuItem
For Each tempMi In parent.MenuItems
tempMi.Checked = False
Next
item.Checked = True
End Sub
Private Sub mnuMerge_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim item As MenuItem = CType(sender, MenuItem)
item.Parent.MergeMenu(mnuMenu2)
End Sub
End Class</source>

VB.Net Tutorial/GUI/Drag Drop

2010-05-26T12:57:22Z

Admin: 1 версия

==Copy and paste Object==

<source lang="vbnet">" Requires a reference to System.Xml.
Imports System.Xml.Serialization
Imports System.IO
Imports System.Windows.Forms
public class CopyPasteEmployee
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
<Serializable()> _
Public Class Employee
Public FirstName As String
Public LastName As String
Public Sub New()
End Sub
Public Sub New(ByVal first_name As String, ByVal last_name As String)
FirstName = first_name
LastName = last_name
End Sub
End Class
" Copy the Employee to the clipboard.
Private Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopy.Click
Dim emp As New Employee(txtFirstName.Text, txtLastName.Text)
Dim data_object As New DataObject
data_object.SetData("Employee", emp)
Clipboard.SetDataObject(data_object)
End Sub
" Paste data from the clipboard.
Private Sub btnPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPaste.Click
Dim data_object As IDataObject = Clipboard.GetDataObject()
If data_object.GetDataPresent("Employee") Then
Dim emp As Employee = DirectCast(data_object.GetData("Employee"), Employee)
txtPasteFirstName.Text = emp.FirstName
txtPasteLastName.Text = emp.LastName
End If
End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.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.ruponentModel.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.btnPaste = New System.Windows.Forms.Button
Me.txtPasteLastName = New System.Windows.Forms.TextBox
Me.txtPasteFirstName = New System.Windows.Forms.TextBox
Me.Label3 = New System.Windows.Forms.Label
Me.Label4 = New System.Windows.Forms.Label
Me.btnCopy = New System.Windows.Forms.Button
Me.txtLastName = New System.Windows.Forms.TextBox
Me.txtFirstName = New System.Windows.Forms.TextBox
Me.Label2 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.SuspendLayout()
"
"btnPaste
"
Me.btnPaste.Location = New System.Drawing.Point(232, 96)
Me.btnPaste.Name = "btnPaste"
Me.btnPaste.Size = New System.Drawing.Size(48, 24)
Me.btnPaste.TabIndex = 22
Me.btnPaste.Text = "Paste"
"
"txtPasteLastName
"
Me.txtPasteLastName.Location = New System.Drawing.Point(72, 112)
Me.txtPasteLastName.Name = "txtPasteLastName"
Me.txtPasteLastName.Size = New System.Drawing.Size(136, 20)
Me.txtPasteLastName.TabIndex = 21
"
"txtPasteFirstName
"
Me.txtPasteFirstName.Location = New System.Drawing.Point(72, 88)
Me.txtPasteFirstName.Name = "txtPasteFirstName"
Me.txtPasteFirstName.Size = New System.Drawing.Size(136, 20)
Me.txtPasteFirstName.TabIndex = 20
"
"Label3
"
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(8, 112)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(54, 13)
Me.Label3.TabIndex = 19
Me.Label3.Text = "Last Name"
"
"Label4
"
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(8, 88)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(53, 13)
Me.Label4.TabIndex = 18
Me.Label4.Text = "First Name"
"
"btnCopy
"
Me.btnCopy.Location = New System.Drawing.Point(232, 16)
Me.btnCopy.Name = "btnCopy"
Me.btnCopy.Size = New System.Drawing.Size(48, 24)
Me.btnCopy.TabIndex = 17
Me.btnCopy.Text = "Copy"
"
"txtLastName
"
Me.txtLastName.Location = New System.Drawing.Point(72, 32)
Me.txtLastName.Name = "txtLastName"
Me.txtLastName.Size = New System.Drawing.Size(136, 20)
Me.txtLastName.TabIndex = 16
Me.txtLastName.Text = "AAAAAA"
"
"txtFirstName
"
Me.txtFirstName.Location = New System.Drawing.Point(72, 8)
Me.txtFirstName.Name = "txtFirstName"
Me.txtFirstName.Size = New System.Drawing.Size(136, 20)
Me.txtFirstName.TabIndex = 15
Me.txtFirstName.Text = "BBBBB"
"
"Label2
"
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(8, 32)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(54, 13)
Me.Label2.TabIndex = 14
Me.Label2.Text = "Last Name"
"
"Label1
"
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(8, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(53, 13)
Me.Label1.TabIndex = 13
Me.Label1.Text = "First Name"
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(288, 139)
Me.Controls.Add(Me.btnPaste)
Me.Controls.Add(Me.txtPasteLastName)
Me.Controls.Add(Me.txtPasteFirstName)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.btnCopy)
Me.Controls.Add(Me.txtLastName)
Me.Controls.Add(Me.txtFirstName)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "CopyPasteEmployee"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents btnPaste As System.Windows.Forms.Button
Friend WithEvents txtPasteLastName As System.Windows.Forms.TextBox
Friend WithEvents txtPasteFirstName As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents btnCopy As System.Windows.Forms.Button
Friend WithEvents txtLastName As System.Windows.Forms.TextBox
Friend WithEvents txtFirstName As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
End Class</source>

==Drop a file==

<source lang="vbnet">Imports System.Data
Imports System.Data.OleDb
Imports System.Windows.Forms
public class FileDrop
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
" Allow Copy if there is FileDrop data.
Private Sub lblDropTarget_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lblDropTarget.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub
" Display the dropped file names.
Private Sub lblDropTarget_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lblDropTarget.DragDrop
lstFiles.Items.Clear()
Dim file_names As String() = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
For Each file_name As String In file_names
lstFiles.Items.Add(file_name)
Next file_name
End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.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.ruponentModel.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.lstFiles = New System.Windows.Forms.ListBox
Me.lblDropTarget = New System.Windows.Forms.Label
Me.SuspendLayout()
"
"lstFiles
"
Me.lstFiles.Dock = System.Windows.Forms.DockStyle.Fill
Me.lstFiles.FormattingEnabled = True
Me.lstFiles.Location = New System.Drawing.Point(0, 48)
Me.lstFiles.Name = "lstFiles"
Me.lstFiles.Size = New System.Drawing.Size(274, 160)
Me.lstFiles.TabIndex = 3
"
"lblDropTarget
"
Me.lblDropTarget.AllowDrop = True
Me.lblDropTarget.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblDropTarget.Dock = System.Windows.Forms.DockStyle.Top
Me.lblDropTarget.Location = New System.Drawing.Point(0, 0)
Me.lblDropTarget.Name = "lblDropTarget"
Me.lblDropTarget.Size = New System.Drawing.Size(274, 48)
Me.lblDropTarget.TabIndex = 2
Me.lblDropTarget.Text = "Drop Target"
Me.lblDropTarget.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(274, 210)
Me.Controls.Add(Me.lstFiles)
Me.Controls.Add(Me.lblDropTarget)
Me.Name = "Form1"
Me.Text = "AcceptFiles"
Me.ResumeLayout(False)
End Sub
Friend WithEvents lstFiles As System.Windows.Forms.ListBox
Friend WithEvents lblDropTarget As System.Windows.Forms.Label
End Class</source>

VB.Net Tutorial/GUI/Introduction

2010-05-26T12:57:22Z

Admin: 1 версия

==Add button to a form==

<source lang="vbnet">imports System
imports System.Drawing
imports System.Windows.Forms
namespace WinForms
public class HelloWorld : inherits System.Windows.Forms.Form
Private WithEvents btn as Button
public sub New()
Text = "Hello World"
btn = new Button()
btn.Location = new Point(50,50)
btn.Text = "Goodbye"
Controls.Add(btn)
end sub
public shared sub Main()
Application.Run(new HelloWorld())
end sub
private sub btn_Click(ByVal sender as object,ByVal e as EventArgs) Handles btn.Click
Application.Exit()
end sub
end class
end namespace</source>

==Button PerformClick Method==

<source lang="vbnet">imports System
imports System.Drawing
imports System.Windows.Forms
public class ButtonPerformClick : inherits Form
dim btn1 as Button
dim btn2 as Button
public sub New()
Size = new Size(200,100)
btn1 = new Button()
btn1.Parent = me
btn1.Text = "Button1"
btn1.Location = new Point(10,10)
AddHandler btn1.Click, AddressOf btn1_Click
btn2 = new Button()
btn2.Parent = me
btn2.Text = "Button1"
btn2.Location = new Point(100,10)
AddHandler btn2.Click, AddressOf btn2_Click
end sub

private sub btn1_Click(ByVal sender as object,ByVal e as EventArgs)
MessageBox.Show("Button1 clicked.")
btn2.PerformClick()
end sub
private sub btn2_Click(ByVal sender as object,ByVal e as EventArgs)
MessageBox.Show("Button2 clicked.")
end sub
public shared sub Main()
Application.Run(new ButtonPerformClick())
end sub
end class</source>

==Control Dock: Top, Bottom==

<source lang="vbnet">imports System
imports System.Drawing
imports System.Windows.Forms
public class ControlDock : inherits Form
public sub New()
Text = "Control Docking"
Size = new Size(350,400)
dim yButtonSize as integer = Font.Height * 2
dim btnFirst as new Button()
btnFirst.Parent = me
btnFirst.Text = "First Button"
btnFirst.Height = yButtonSize
btnFirst.Dock = DockStyle.Top
dim btnSecond as new Button()
btnSecond.Parent = me
btnSecond.Text = "Second Button"
btnSecond.Height = yButtonSize
btnSecond.Dock = DockStyle.Bottom
end sub
public shared sub Main()
Application.Run(new ControlDock())
end sub
end class</source>

==Create Form by inheriting System.Windows.Forms.Form==

<source lang="vbnet">imports System.Windows.Forms
namespace WinForms
public class HelloWorld : inherits System.Windows.Forms.Form
public sub New()
Text = "Hello World"
end sub
shared sub Main()
Application.Run(new HelloWorld())
end sub
end class
end namespace</source>

==Use With statement to set Form properties==

<source lang="vbnet">Imports System.Windows.Forms
public class FormWith
public Shared Sub Main
Dim Form2 As New Form()
With Form2
.Cursor = System.Windows.Forms.Cursors.Cross
.Enabled = True
.FormBorderStyle = FormBorderStyle.Sizable
.Height = 400
.HelpButton = True
.MaximizeBox = True
.MinimizeBox = True
.Name = "Form2"
.ShowInTaskbar = True
.StartPosition = FormStartPosition.CenterParent
.Text = "New Form"
.Width = 500
.WindowState = FormWindowState.Normal
.ShowDialog()
End With
End Sub
End class</source>

==Your first Form window==

<source lang="vbnet">Imports System
Imports System.Windows.Forms
Class MyFirstForm
Inherits Form
Private WithEvents mybutton As Button
Public Sub New()
Me.Text = "Hello, WinForms!"
mybutton = New Button()
mybutton.Text = "Click Me!"
Me.Controls.Add(mybutton)
End Sub
Public Sub mybutton_Click(sender As Object, e As EventArgs) Handles mybutton.Click
MessageBox.Show("Message")
End Sub
End Class
Class MyFirstApp
Shared Sub Main()
Dim myform As Form = New MyFirstForm()
Application.Run(myform)
End Sub
End Class</source>

VB.Net Tutorial/GUI/OpenFileDialog

2010-05-26T12:57:21Z

Admin: 1 версия

==File Open/Save dialog==

<source lang="vbnet">Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class FileSaveOpenDialog
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private components As System.ruponentModel.IContainer
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog
Me.SuspendLayout()
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(32, 32)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(88, 32)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Open"
"
"Button2
"
Me.Button2.Location = New System.Drawing.Point(160, 32)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(88, 32)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Save"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 110)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.ResumeLayout(False)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SaveFileDialog1.ShowDialog()
End Sub
End Class</source>

==Get selected file name in a OpenFileDialog==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class OpenFileDialogSelectedFileName
public Shared Sub Main
Dim FileDB As New OpenFileDialog()
If (FileDB.ShowDialog() = DialogResult.OK) Then
Console.WriteLine("File: " & FileDB.FileName)
Else
Console.WriteLine("User selected Cancel")
End If
End Sub
End class</source>

==Open File Dialog Filter==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class PictureBoxImageFromOpenFileDialog
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private components As System.ruponentModel.IContainer
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.Button1 = New System.Windows.Forms.Button
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
Me.SuspendLayout()
"
"PictureBox1
"
Me.PictureBox1.Location = New System.Drawing.Point(16, 16)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(248, 176)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
Me.PictureBox1.TabIndex = 0
Me.PictureBox1.TabStop = False
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(96, 208)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(88, 24)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Open"
"
"OpenFileDialog1
"
Me.OpenFileDialog1.Filter = "bmp(*.bmp)|*.bmp"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.PictureBox1)
Me.ResumeLayout(False)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim pic As Image
OpenFileDialog1.ShowDialog()
pic = New Bitmap(OpenFileDialog1.FileName)
PictureBox1.Image = pic
End Sub
End Class</source>

==Prevent dialog box from validating file==

<source lang="vbnet">Imports System.IO
Imports System.Windows.Forms
Module Module1
Sub Main()
Dim FileDB As New OpenFileDialog()
FileDB.Filter = "All files | *.* | Text files | *.txt"
FileDB.FilterIndex = 2
FileDB.InitialDirectory = "C:\Temp"
FileDB.AddExtension = True
FileDB.DefaultExt = "txt"
" Prevent dialog box from validating file
FileDB.CheckFileExists = False
FileDB.CheckPathExists = False
If (FileDB.ShowDialog() = DialogResult.OK) Then
Dim SourceFile As StreamReader
Try
SourceFile = New StreamReader(FileDB.FileName)
Console.WriteLine(SourceFile.ReadToEnd())
SourceFile.Close()
Catch Except As Exception
Console.WriteLine("Error: " & Except.Message)
End Try
Else
Console.WriteLine("User selected Cancel")
End If
End Sub
End Module</source>

==Set InitialDirectory and FilterIndex for OpenFileDialog==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class OpenFileDialogInitDirectory
public Shared Sub Main
Dim FileDB As New OpenFileDialog()
FileDB.Filter = "All files | *.* | Word files | *.doc | Text files | *.txt"
FileDB.FilterIndex = 3
FileDB.InitialDirectory = "C:\Temp"
If (FileDB.ShowDialog() = DialogResult.OK) Then
Console.WriteLine("File: " & FileDB.FileName)
Else
Console.WriteLine("User selected Cancel")
End If
End Sub
End class</source>

==Set OpenFileDialog Filter and get selected file name==

<source lang="vbnet">Imports System.Windows.Forms
public class FileOpenDialogFilter
public Shared Sub Main
Dim openFileDialog1 As System.Windows.Forms.OpenFileDialog
openFileDialog1 = New System.Windows.Forms.OpenFileDialog()

openFileDialog1.Filter = "Word (*.doc) |*.doc;*.rtf|(*.txt) |*.txt|(*.*) |*.*"
If openFileDialog1.ShowDialog() = DialogResult.OK Then
Console.WriteLine(openFileDialog1.FileName)
End If
End Sub
End class</source>

==Use OpenFileDialog to load image to PictureBox==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class OpenFileDialogPicture
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
Me.Button1 = New System.Windows.Forms.Button
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.SuspendLayout()
"
"OpenFileDialog1
"
Me.OpenFileDialog1.Filter = "JPEG files (*.jpg)|*.jpg|GIF files (*.gif)|*.gif|All files (*.*)|*.*"
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(96, 88)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(88, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Show Dialog"
"
"PictureBox1
"
Me.PictureBox1.Location = New System.Drawing.Point(88, 144)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(104, 88)
Me.PictureBox1.TabIndex = 1
Me.PictureBox1.TabStop = False
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Button1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
End If
End Sub
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ruponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
End Sub
End Class</source>

VB.Net Tutorial/GUI/CheckBox MenuItem

2010-05-26T12:57:21Z

Admin: 1 версия

==CheckBox MenuItem==

<source lang="vbnet">Imports System.Windows.Forms
public class RadioButtonCheckBox
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class MDIChild
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
Friend WithEvents mainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents mnuMDIOptions As System.Windows.Forms.MenuItem
Friend WithEvents mnuMDIOpiton1 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMDIOpiton2 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMDIOpiton3 As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
Me.mainMenu1 = New System.Windows.Forms.MainMenu()
Me.mnuMDIOptions = New System.Windows.Forms.MenuItem()
Me.mnuMDIOpiton1 = New System.Windows.Forms.MenuItem()
Me.mnuMDIOpiton2 = New System.Windows.Forms.MenuItem()
Me.mnuMDIOpiton3 = New System.Windows.Forms.MenuItem()
Me.SuspendLayout()
"
"RichTextBox1
"
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(296, 176)
Me.RichTextBox1.TabIndex = 0
Me.RichTextBox1.Text = "RichTextBox1"
"
"mainMenu1
"
Me.mainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuMDIOptions})
"
"mnuMDIOptions
"
Me.mnuMDIOptions.Index = 0
Me.mnuMDIOptions.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuMDIOpiton1, Me.mnuMDIOpiton2, Me.mnuMDIOpiton3})
Me.mnuMDIOptions.MergeOrder = 1
Me.mnuMDIOptions.Text = "MDIChildOptions"
"
"mnuMDIOpiton1
"
Me.mnuMDIOpiton1.Index = 0
Me.mnuMDIOpiton1.Text = "MDI Option 1"
"
"mnuMDIOpiton2
"
Me.mnuMDIOpiton2.Index = 1
Me.mnuMDIOpiton2.Text = "MDI Option 2"
"
"mnuMDIOpiton3
"
Me.mnuMDIOpiton3.Index = 2
Me.mnuMDIOpiton3.Text = "MDI Option 3"
"
"MDIChild
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 174)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.RichTextBox1})
Me.Menu = Me.mainMenu1
Me.Name = "MDIChild"
Me.Text = "MDIChild"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Option_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles mnuMDIOpiton1.Click, mnuMDIOpiton2.Click, mnuMDIOpiton3.Click
Dim item As MenuItem = CType(sender, MenuItem)
item.Checked = Not item.Checked
End Sub
End Class

Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents mainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents mnuFile As System.Windows.Forms.MenuItem
Friend WithEvents mnuNew As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileOpen As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileClose As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileSave As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileSaveAs As System.Windows.Forms.MenuItem
Friend WithEvents mnuEdit As System.Windows.Forms.MenuItem
Friend WithEvents mnuEditCopy As System.Windows.Forms.MenuItem
Friend WithEvents mnuEditPaste As System.Windows.Forms.MenuItem
Friend WithEvents mnuOptions As System.Windows.Forms.MenuItem
Friend WithEvents mnuOption1 As System.Windows.Forms.MenuItem
Friend WithEvents mnuOption2 As System.Windows.Forms.MenuItem
Friend WithEvents mnuOption3 As System.Windows.Forms.MenuItem
Friend WithEvents mnuRadioOptions As System.Windows.Forms.MenuItem
Friend WithEvents mnuRadioOption1 As System.Windows.Forms.MenuItem
Friend WithEvents mnuRadioOption2 As System.Windows.Forms.MenuItem
Friend WithEvents mnuRadioOption3 As System.Windows.Forms.MenuItem
Friend WithEvents mnuWindow As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu1 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu11 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu12 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu13 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu14 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMerge As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu2 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu21 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu22 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu23 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu24 As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.mainMenu1 = New System.Windows.Forms.MainMenu()
Me.mnuFile = New System.Windows.Forms.MenuItem()
Me.mnuNew = New System.Windows.Forms.MenuItem()
Me.mnuFileOpen = New System.Windows.Forms.MenuItem()
Me.mnuFileClose = New System.Windows.Forms.MenuItem()
Me.mnuFileSave = New System.Windows.Forms.MenuItem()
Me.mnuFileSaveAs = New System.Windows.Forms.MenuItem()
Me.mnuEdit = New System.Windows.Forms.MenuItem()
Me.mnuEditCopy = New System.Windows.Forms.MenuItem()
Me.mnuEditPaste = New System.Windows.Forms.MenuItem()
Me.mnuOptions = New System.Windows.Forms.MenuItem()
Me.mnuOption1 = New System.Windows.Forms.MenuItem()
Me.mnuOption2 = New System.Windows.Forms.MenuItem()
Me.mnuOption3 = New System.Windows.Forms.MenuItem()
Me.mnuRadioOptions = New System.Windows.Forms.MenuItem()
Me.mnuRadioOption1 = New System.Windows.Forms.MenuItem()
Me.mnuRadioOption2 = New System.Windows.Forms.MenuItem()
Me.mnuRadioOption3 = New System.Windows.Forms.MenuItem()
Me.mnuWindow = New System.Windows.Forms.MenuItem()
Me.mnuMenu1 = New System.Windows.Forms.MenuItem()
Me.mnuMenu11 = New System.Windows.Forms.MenuItem()
Me.mnuMenu12 = New System.Windows.Forms.MenuItem()
Me.mnuMenu13 = New System.Windows.Forms.MenuItem()
Me.mnuMenu14 = New System.Windows.Forms.MenuItem()
Me.mnuMerge = New System.Windows.Forms.MenuItem()
Me.mnuMenu2 = New System.Windows.Forms.MenuItem()
Me.mnuMenu21 = New System.Windows.Forms.MenuItem()
Me.mnuMenu22 = New System.Windows.Forms.MenuItem()
Me.mnuMenu23 = New System.Windows.Forms.MenuItem()
Me.mnuMenu24 = New System.Windows.Forms.MenuItem()
"
"mainMenu1
"
Me.mainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuFile, Me.mnuEdit, Me.mnuOptions, Me.mnuRadioOptions, Me.mnuWindow, Me.mnuMenu1, Me.mnuMenu2})
"
"mnuFile
"
Me.mnuFile.Index = 0
Me.mnuFile.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuNew, Me.mnuFileOpen, Me.mnuFileClose, Me.mnuFileSave, Me.mnuFileSaveAs})
Me.mnuFile.Text = "File"
"
"mnuNew
"
Me.mnuNew.Index = 0
Me.mnuNew.Shortcut = System.Windows.Forms.Shortcut.CtrlN
Me.mnuNew.Text = "&New"
"
"mnuFileOpen
"
Me.mnuFileOpen.Index = 1
Me.mnuFileOpen.Text = "Open"
"
"mnuFileClose
"
Me.mnuFileClose.Index = 2
Me.mnuFileClose.Text = "Close"
"
"mnuFileSave
"
Me.mnuFileSave.Index = 3
Me.mnuFileSave.Text = "Save"
"
"mnuFileSaveAs
"
Me.mnuFileSaveAs.Index = 4
Me.mnuFileSaveAs.Text = "Save&As"
"
"mnuEdit
"
Me.mnuEdit.Index = 1
Me.mnuEdit.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuEditCopy, Me.mnuEditPaste})
Me.mnuEdit.Text = "Edit"
"
"mnuEditCopy
"
Me.mnuEditCopy.Index = 0
Me.mnuEditCopy.Text = "&Copy"
"
"mnuEditPaste
"
Me.mnuEditPaste.Index = 1
Me.mnuEditPaste.Text = "Paste"
"
"mnuOptions
"
Me.mnuOptions.Index = 2
Me.mnuOptions.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuOption1, Me.mnuOption2, Me.mnuOption3})
Me.mnuOptions.Text = "Options"
"
"mnuOption1
"
Me.mnuOption1.Index = 0
Me.mnuOption1.Text = "Option1"
"
"mnuOption2
"
Me.mnuOption2.Index = 1
Me.mnuOption2.Text = "Option2"
"
"mnuOption3
"
Me.mnuOption3.Index = 2
Me.mnuOption3.Text = "Option3"
"
"mnuRadioOptions
"
Me.mnuRadioOptions.Index = 3
Me.mnuRadioOptions.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuRadioOption1, Me.mnuRadioOption2, Me.mnuRadioOption3})
Me.mnuRadioOptions.Text = "Radio Options"
"
"mnuROption1
"
Me.mnuRadioOption1.Index = 0
Me.mnuRadioOption1.RadioCheck = True
Me.mnuRadioOption1.Text = "Radio Option 1"
"
"mnuROption2
"
Me.mnuRadioOption2.Index = 1
Me.mnuRadioOption2.RadioCheck = True
Me.mnuRadioOption2.Text = "Radio Option 2"
"
"mnuROption3
"
Me.mnuRadioOption3.Index = 2
Me.mnuRadioOption3.RadioCheck = True
Me.mnuRadioOption3.Text = "Radio Option 3"
"
"mnuWindow
"
Me.mnuWindow.Index = 4
Me.mnuWindow.MdiList = True
Me.mnuWindow.MergeOrder = 99
Me.mnuWindow.Text = "&Window"
"
"mnuMenu1
"
Me.mnuMenu1.Index = 5
Me.mnuMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuMenu11, Me.mnuMenu12, Me.mnuMenu13, Me.mnuMenu14, Me.mnuMerge})
Me.mnuMenu1.Text = "Menu 1"
"
"mnuMenu11
"
Me.mnuMenu11.Index = 0
Me.mnuMenu11.MergeOrder = 1
Me.mnuMenu11.Text = "Menu 1.1"
"
"mnuMenu12
"
Me.mnuMenu12.Index = 1
Me.mnuMenu12.MergeOrder = 2
Me.mnuMenu12.Text = "Menu 1.2"
"
"mnuMenu13
"
Me.mnuMenu13.Index = 2
Me.mnuMenu13.MergeOrder = 3
Me.mnuMenu13.Text = "Menu 1.3"
"
"mnuMenu14
"
Me.mnuMenu14.Index = 3
Me.mnuMenu14.MergeOrder = 4
Me.mnuMenu14.Text = "Menu 1.4"
"
"mnuMerge
"
Me.mnuMerge.Index = 4
Me.mnuMerge.MergeOrder = 99
Me.mnuMerge.Text = "Merge!"
"
"mnuMenu2
"
Me.mnuMenu2.Index = 6
Me.mnuMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuMenu21, Me.mnuMenu22, Me.mnuMenu23, Me.mnuMenu24})
Me.mnuMenu2.Text = "Menu 2"
"
"mnuMenu21
"
Me.mnuMenu21.Index = 0
Me.mnuMenu21.MergeOrder = 1
Me.mnuMenu21.Text = "Menu 2.1"
"
"mnuMenu22
"
Me.mnuMenu22.Index = 1
Me.mnuMenu22.MergeOrder = 2
Me.mnuMenu22.MergeType = System.Windows.Forms.MenuMerge.Replace
Me.mnuMenu22.Text = "Menu 2.2"
"
"mnuMenu23
"
Me.mnuMenu23.Index = 2
Me.mnuMenu23.MergeOrder = 3
Me.mnuMenu23.MergeType = System.Windows.Forms.MenuMerge.Remove
Me.mnuMenu23.Text = "Menu 2.3"
"
"mnuMenu24
"
Me.mnuMenu24.Index = 3
Me.mnuMenu24.MergeOrder = 5
Me.mnuMenu24.Text = "Menu 2.4"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(456, 146)
Me.IsMdiContainer = True
Me.Menu = Me.mainMenu1
Me.Name = "Form1"
Me.Text = "Form1"
End Sub
#End Region
Private Sub mnuNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles mnuNew.Click
Dim newMDIChild As New MDIChild()
newMDIChild.MdiParent = Me
newMDIChild.Show()
End Sub
Private Sub mnuFileOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles mnuFileOpen.Click
MessageBox.Show("You clicked file open!", _
"Menu event tester", _
MessageBoxButtons.OK, _
MessageBoxIcon.Information)
End Sub
Private Sub mnuFileClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles mnuFileClose.Click
MessageBox.Show("You clicked file close!", "Menu event tester", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub

Private Sub mnuEditCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles mnuEditCopy.Click
MessageBox.Show("You clicked Edit copy!", "Menu event tester", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub mnuEditPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles mnuEditPaste.Click
MessageBox.Show("You clicked Edit paste!", "Menu event tester", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub Option_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles mnuOption1.Click, mnuOption2.Click, mnuOption3.Click
Dim item As MenuItem = CType(sender, MenuItem)
item.Checked = Not item.Checked
End Sub
Private Sub RadioOption_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles mnuRadioOption1.Click, mnuRadioOption2.Click, mnuRadioOption3.Click
Dim item As MenuItem = CType(sender, MenuItem)
Dim parent As Menu = item.Parent
Dim tempMi As MenuItem
For Each tempMi In parent.MenuItems
tempMi.Checked = False
Next
item.Checked = True
End Sub
Private Sub mnuMerge_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim item As MenuItem = CType(sender, MenuItem)
item.Parent.MergeMenu(mnuMenu2)
End Sub
End Class</source>

VB.Net Tutorial/GUI/Controls

2010-05-26T12:57:20Z

Admin: 1 версия

==Add Label to a form==

<source lang="vbnet">Imports System.Windows.Forms
public class AddNewLabelToForm
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim lbl As New Label
lbl.SetBounds(10, 50, 100, 25)
lbl.Text = "Hello World!"
Me.Controls.Add(lbl)
End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.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.ruponentModel.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.SuspendLayout()
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
End Class</source>

==Add TextBox to Form in code==

<source lang="vbnet">Imports System.Windows.Forms
public class AddTextBoxForm
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim dynamicText As TextBox = Nothing
dynamicText = New Windows.Forms.TextBox
dynamicText.Name = "TimeTextBox"
dynamicText.Location = New System.Drawing.Point(8, 8)
dynamicText.Size = New System.Drawing.Size(232, 20)
dynamicText.TabIndex = 0
Me.Controls.Add(dynamicText)
Dim theTextBox As TextBox
theTextBox = Me.Controls("TimeTextBox")
If (theTextBox IsNot Nothing) Then
theTextBox.Text = Now.ToLongTimeString()
End If
End Sub
End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.SuspendLayout()
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(260, 76)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.Name = "Form1"
Me.Text = "Dynamic Controls"
Me.ResumeLayout(False)
End Sub
End Class</source>

==Add the Button control to the Form Controls collection==

<source lang="vbnet">imports System
imports System.Drawing
imports System.Windows.Forms
public class ControlParent : inherits Form
Private WithEvents btn as Button
public sub New()
btn = new Button()
btn.Location = new Point(50,50)
btn.Size = new Size(100,23)
btn.Text = "Relationships"
Controls.Add(btn)
btn.Parent = me
end sub
public shared sub Main()
Application.Run(new ControlParent())
end sub
private sub btn_Click(ByVal sender as object,ByVal e as EventArgs) Handles btn.Click
Console.WriteLine("Button Parent: " + btn.Parent.ToString())
Console.WriteLine("Button HasChildren: " + btn.HasChildren.ToString())
Console.WriteLine("TopLevelControl: " + btn.TopLevelControl.ToString())
Console.WriteLine("Form HasChildren: " + me.HasChildren.ToString())
Console.WriteLine("Form Controls Count: " + me.Controls.Count.ToString())
end sub
end class</source>

==Cast event sender to control==

<source lang="vbnet">Option Strict On
Imports System.Drawing
Imports System.Windows.Forms
Public Class Form1 : Inherits Form
" Instantiate buttons
Public WithEvents btnOK As New Button()
Public WithEvents btnCancel As New Button()
Public WithEvents btnQuit As New Button()

" Application entry point
Public Shared Sub Main()
Dim frm As New Form1()
frm.ShowDialog()
End Sub

" Class constructor
Public Sub New()
MyBase.New()
" Define button sizes and locations
Me.btnOK.Location = New Point(100, 50)
Me.btnOK.Size = New Size(100, 50)
Me.btnOK.Text = "OK"
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnCancel.Location = New Point(100, 125)
Me.btnCancel.Size = New Size(100, 50)
Me.btnCancel.Text = "Cancel"
Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel

Me.btnQuit.Location = New Point(100, 200)
Me.btnQuit.Size = New Size(100, 50)
Me.btnQuit.Text = "Exit"
Me.btnQuit.DialogResult = System.Windows.Forms.DialogResult.Abort
" Define form controls and caption
Me.Controls.Add(btnOK)
Me.Controls.Add(btnCancel)
Me.Controls.Add(btnQuit)
Me.Text = "Button Click Events"
End Sub

" Event handler for all three buttons
Private Sub ButtonClicked(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles btnOK.Click, btnCancel.Click, btnQuit.Click
If TypeOf sender Is Button Then
Dim btn As Button = DirectCast(sender, Button)
If btn.Name = "btnOK" Then
Console.WriteLine("btnOK")
ElseIf btn.Name = "btnCancel" Then
Console.WriteLine("Cancel")
Exit Sub
Else
Me.Close()
End If
Else
Throw New ArgumentException( _
"The event was raised by an invalid object.")
End If
End Sub
End Class</source>

==Check Control type==

<source lang="vbnet">Option Strict On
Imports System.Drawing
Imports System.Windows.Forms
Public Class Form1 : Inherits Form
" Instantiate buttons
Public WithEvents btnOK As New Button()
Public WithEvents btnCancel As New Button()
Public WithEvents btnQuit As New Button()

" Application entry point
Public Shared Sub Main()
Dim frm As New Form1()
frm.ShowDialog()
End Sub

" Class constructor
Public Sub New()
MyBase.New()
" Define button sizes and locations
Me.btnOK.Location = New Point(100, 50)
Me.btnOK.Size = New Size(100, 50)
Me.btnOK.Text = "OK"
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnCancel.Location = New Point(100, 125)
Me.btnCancel.Size = New Size(100, 50)
Me.btnCancel.Text = "Cancel"
Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel

Me.btnQuit.Location = New Point(100, 200)
Me.btnQuit.Size = New Size(100, 50)
Me.btnQuit.Text = "Exit"
Me.btnQuit.DialogResult = System.Windows.Forms.DialogResult.Abort
" Define form controls and caption
Me.Controls.Add(btnOK)
Me.Controls.Add(btnCancel)
Me.Controls.Add(btnQuit)
Me.Text = "Button Click Events"
End Sub

" Event handler for all three buttons
Private Sub ButtonClicked(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles btnOK.Click, btnCancel.Click, btnQuit.Click
If TypeOf sender Is Button Then
Dim btn As Button = DirectCast(sender, Button)
If btn.Name = "btnOK" Then
Console.WriteLine("btnOK")
ElseIf btn.Name = "btnCancel" Then
Console.WriteLine("Cancel")
Exit Sub
Else
Me.Close()
End If
Else
Throw New ArgumentException( _
"The event was raised by an invalid object.")
End If
End Sub
End Class</source>

==Hide a control==

<source lang="vbnet">Imports System.Windows.Forms
public class HideControl
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Public val1 As Integer
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If val1 = 1 Then
Button1.Visible = False
val1 = 0
Button2.Text = "Button1 Hidden"
Else
Button1.Visible = True
val1 = 1
Button2.Text = "Click Button2 to hide button1"
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.SuspendLayout()
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(105, 65)
Me.Button1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(253, 40)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Button1"
Me.Button1.UseVisualStyleBackColor = True
Me.Button1.Visible = False
"
"Button2
"
Me.Button2.Location = New System.Drawing.Point(105, 162)
Me.Button2.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(253, 41)
Me.Button2.TabIndex = 1
Me.Button2.Text = "click Button2 to hide button1"
Me.Button2.UseVisualStyleBackColor = True
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(473, 300)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
End Class</source>

==Read and Save controls on a form to a file==

<source lang="vbnet">Option Strict On
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class SaveReadControlsFile
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
Friend WithEvents ColorDialog1 As System.Windows.Forms.ColorDialog
Friend WithEvents FontDialog1 As System.Windows.Forms.FontDialog
Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents btnChangeColor As System.Windows.Forms.Button
Friend WithEvents btnChangeFont As System.Windows.Forms.Button
Friend WithEvents btnSaveRTF As System.Windows.Forms.Button
Friend WithEvents btnOpenRTF As System.Windows.Forms.Button
Friend WithEvents btnWriteControls As System.Windows.Forms.Button
Friend WithEvents btnReadControls As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.RichTextBox1 = New System.Windows.Forms.RichTextBox()
Me.ColorDialog1 = New System.Windows.Forms.ColorDialog()
Me.FontDialog1 = New System.Windows.Forms.FontDialog()
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.btnChangeColor = New System.Windows.Forms.Button()
Me.btnChangeFont = New System.Windows.Forms.Button()
Me.btnSaveRTF = New System.Windows.Forms.Button()
Me.btnOpenRTF = New System.Windows.Forms.Button()
Me.btnWriteControls = New System.Windows.Forms.Button()
Me.btnReadControls = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
"
"Panel1
"
Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnReadControls, Me.btnWriteControls, Me.btnOpenRTF, Me.btnSaveRTF, Me.btnChangeFont, Me.btnChangeColor})
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel1.Location = New System.Drawing.Point(0, 222)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(656, 64)
Me.Panel1.TabIndex = 0
"
"RichTextBox1
"
Me.RichTextBox1.Location = New System.Drawing.Point(16, 8)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(336, 176)
Me.RichTextBox1.TabIndex = 1
Me.RichTextBox1.Text = "Mr. and Mrs. Dursley, of number four, Privet Drive, were proud to say that they w" & _
"ere perfectly normal, thank you very much."
"
"btnChangeColor
"
Me.btnChangeColor.Location = New System.Drawing.Point(24, 24)
Me.btnChangeColor.Name = "btnChangeColor"
Me.btnChangeColor.Size = New System.Drawing.Size(88, 32)
Me.btnChangeColor.TabIndex = 0
Me.btnChangeColor.Text = "Change Color"
"
"btnChangeFont
"
Me.btnChangeFont.Location = New System.Drawing.Point(128, 24)
Me.btnChangeFont.Name = "btnChangeFont"
Me.btnChangeFont.Size = New System.Drawing.Size(88, 32)
Me.btnChangeFont.TabIndex = 1
Me.btnChangeFont.Text = "Change Font"
"
"btnSaveRTF
"
Me.btnSaveRTF.Location = New System.Drawing.Point(232, 24)
Me.btnSaveRTF.Name = "btnSaveRTF"
Me.btnSaveRTF.Size = New System.Drawing.Size(88, 32)
Me.btnSaveRTF.TabIndex = 2
Me.btnSaveRTF.Text = "Save RTF"
"
"btnOpenRTF
"
Me.btnOpenRTF.Location = New System.Drawing.Point(336, 24)
Me.btnOpenRTF.Name = "btnOpenRTF"
Me.btnOpenRTF.Size = New System.Drawing.Size(88, 32)
Me.btnOpenRTF.TabIndex = 3
Me.btnOpenRTF.Text = "Open RTF"
"
"btnWriteControls
"
Me.btnWriteControls.Location = New System.Drawing.Point(440, 24)
Me.btnWriteControls.Name = "btnWriteControls"
Me.btnWriteControls.Size = New System.Drawing.Size(88, 32)
Me.btnWriteControls.TabIndex = 4
Me.btnWriteControls.Text = "Write Controls"
"
"btnReadControls
"
Me.btnReadControls.Location = New System.Drawing.Point(544, 24)
Me.btnReadControls.Name = "btnReadControls"
Me.btnReadControls.Size = New System.Drawing.Size(88, 32)
Me.btnReadControls.TabIndex = 5
Me.btnReadControls.Text = "Read Controls"
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(400, 24)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(232, 20)
Me.TextBox1.TabIndex = 2
Me.TextBox1.Text = "TextBox1"
"
"TextBox2
"
Me.TextBox2.Location = New System.Drawing.Point(400, 68)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(232, 20)
Me.TextBox2.TabIndex = 3
Me.TextBox2.Text = "TextBox2"
"
"TextBox3
"
Me.TextBox3.Location = New System.Drawing.Point(400, 112)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(232, 20)
Me.TextBox3.TabIndex = 4
Me.TextBox3.Text = "TextBox3"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(656, 286)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox3, Me.TextBox2, Me.TextBox1, Me.RichTextBox1, Me.Panel1})
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub btnWriteControls_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnWriteControls.Click
"Get a file
Dim theFile As String
SaveFileDialog1.InitialDirectory = Application.ExecutablePath
SaveFileDialog1.DefaultExt = "hld" "custom format
SaveFileDialog1.FileName = "myFile"
SaveFileDialog1.Filter = "HLD Files (*.hld)|*.hld|All Files (*.*) | *.*"
SaveFileDialog1.OverwritePrompt = True
SaveFileDialog1.ShowDialog()
theFile = SaveFileDialog1.FileName
Dim fs As FileStream = New FileStream(theFile, FileMode.OpenOrCreate)
Dim w As StreamWriter = New StreamWriter(fs)
Dim c As Object
For Each c In Me.Controls
If TypeOf (c) Is TextBox Then
Dim tbox As TextBox = CType(c, TextBox)
w.WriteLine(tbox.Name & "=" & tbox.Text)
End If
Next
w.Close()
fs.Close()
End Sub
Private Sub btnReadControls_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnReadControls.Click
Dim theFile As String
OpenFileDialog1.InitialDirectory = Application.ExecutablePath
OpenFileDialog1.DefaultExt = "hld" "custom format
OpenFileDialog1.FileName = "myFile"
OpenFileDialog1.Filter = "HLD Files (*.hld)|*.hld|All Files (*.*) | *.*"
OpenFileDialog1.ShowDialog()
theFile = OpenFileDialog1.FileName
Dim fs As FileStream = New FileStream(theFile, FileMode.Open)
Dim r As StreamReader = New StreamReader(fs)
Dim c As Object
Dim tmpArray() As String
For Each c In Me.Controls
If TypeOf (c) Is TextBox Then
Dim tbox As TextBox = CType(c, TextBox)
tmpArray = Split(r.ReadLine(), "=")
If tbox.Name = tmpArray(0) Then
tbox.Text = tmpArray(1)
End If
End If
Next
r.Close()
End Sub
End Class</source>

==Set Control Parent==

<source lang="vbnet">imports System
imports System.Drawing
imports System.Windows.Forms
public class ControlParent : inherits Form
Private WithEvents btn as Button
public sub New()
btn = new Button()
btn.Location = new Point(50,50)
btn.Size = new Size(100,23)
btn.Text = "Relationships"
Controls.Add(btn)
btn.Parent = me
end sub
public shared sub Main()
Application.Run(new ControlParent())
end sub
private sub btn_Click(ByVal sender as object,ByVal e as EventArgs) Handles btn.Click
Console.WriteLine("Button Parent: " + btn.Parent.ToString())
Console.WriteLine("Button HasChildren: " + btn.HasChildren.ToString())
Console.WriteLine("TopLevelControl: " + btn.TopLevelControl.ToString())
Console.WriteLine("Form HasChildren: " + me.HasChildren.ToString())
Console.WriteLine("Form Controls Count: " + me.Controls.Count.ToString())
end sub
end class</source>

==Use Constrol"s Tag==

<source lang="vbnet">imports System
imports System.Drawing
imports System.Windows.Forms
public class Tags : inherits Form
private lbl as Label
public sub New()
Size = new Size(300,200)
lbl = new Label()
lbl.Text = "Label..."
lbl.AutoSize = true
lbl.Parent = me
lbl.Location = new Point(10,10)
dim theEnum as new FontStyle()
dim theStyles as FontStyle() = CType([Enum].GetValues(theEnum.GetType()), FontStyle())
dim i as integer = 1
dim style as FontStyle
for each style in theStyles
dim btn as new Button()
btn.Parent = me
btn.Location = new Point(25,25 * i)
btn.Size = new Size(75,20)
btn.Text = style.ToString()
btn.Tag = style
AddHandler btn.Click, AddressOf btn_Click
i += 1
next
end sub
public shared sub Main()
Application.Run(new Tags())
end sub
private sub btn_Click(ByVal sender as object,ByVal e as EventArgs)
dim btn as Button = CType(sender, Button)
dim fs as FontStyle = CType(btn.Tag, FontStyle)
lbl.Font = new Font(lbl.Font, fs)
end sub
end class</source>

VB.Net Tutorial/GUI/ListView

2010-05-26T12:57:19Z

Admin: 1 версия

==Add and delete ListView Item==

<source lang="vbnet">Imports System.Windows.Forms
public class ListViewState
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private components As System.ruponentModel.IContainer
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
Friend WithEvents ListView1 As System.Windows.Forms.ListView
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
Friend WithEvents ImageList3 As System.Windows.Forms.ImageList
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.ruponents = New System.ruponentModel.Container
Me.MainMenu1 = New System.Windows.Forms.MainMenu
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.MenuItem2 = New System.Windows.Forms.MenuItem
Me.MenuItem3 = New System.Windows.Forms.MenuItem
Me.MenuItem4 = New System.Windows.Forms.MenuItem
Me.MenuItem5 = New System.Windows.Forms.MenuItem
Me.ListView1 = New System.Windows.Forms.ListView
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader
Me.ColumnHeader2 = New System.Windows.Forms.ColumnHeader
Me.ColumnHeader3 = New System.Windows.Forms.ColumnHeader
Me.SuspendLayout()
"
"MainMenu1
"
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
"
"MenuItem1
"
Me.MenuItem1.Index = 0
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem3, Me.MenuItem4, Me.MenuItem5})
Me.MenuItem1.Text = "View"
"
"MenuItem2
"
Me.MenuItem2.Index = 0
Me.MenuItem2.Text = "Large Icon"
"
"MenuItem3
"
Me.MenuItem3.Index = 1
Me.MenuItem3.Text = "Small Icon"
"
"MenuItem4
"
Me.MenuItem4.Index = 2
Me.MenuItem4.Text = "List"
"
"MenuItem5
"
Me.MenuItem5.Index = 3
Me.MenuItem5.Text = "Detail"
"
"ListView1
"
Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3})
Me.ListView1.Dock = System.Windows.Forms.DockStyle.Top
Me.ListView1.Location = New System.Drawing.Point(0, 0)
Me.ListView1.Name = "ListView1"
Me.ListView1.Size = New System.Drawing.Size(328, 128)
Me.ListView1.TabIndex = 0
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(88, 168)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(80, 20)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = ""
"
"Label1
"
Me.Label1.Location = New System.Drawing.Point(48, 168)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(40, 24)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Project"
"
"Label2
"
Me.Label2.Location = New System.Drawing.Point(16, 200)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(72, 24)
Me.Label2.TabIndex = 3
Me.Label2.Text = "No"
"
"TextBox2
"
Me.TextBox2.Location = New System.Drawing.Point(88, 200)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(80, 20)
Me.TextBox2.TabIndex = 4
Me.TextBox2.Text = ""
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(192, 184)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(72, 24)
Me.Button1.TabIndex = 5
Me.Button1.Text = "Add"
"
"Button3
"
Me.Button3.Location = New System.Drawing.Point(120, 240)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(80, 24)
Me.Button3.TabIndex = 9
Me.Button3.Text = "Delete"
"
"ColumnHeader1
"
Me.ColumnHeader1.Text = "File"
"
"ColumnHeader2
"
Me.ColumnHeader2.Text = "Size"
"
"ColumnHeader3
"
Me.ColumnHeader3.Text = "Change Date"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(328, 297)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.ListView1)
Me.Menu = Me.MainMenu1
Me.ResumeLayout(False)
End Sub

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
ListView1.View = View.LargeIcon
End Sub
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
ListView1.View = View.SmallIcon
End Sub
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
ListView1.View = View.List
End Sub
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
ListView1.View = View.Details
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ListView1.FocusedItem.Remove()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ListView1.Items.Add("new", 2)
End Sub
End Class</source>

==Add columns and rows to a ListView==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class AddColumnToListView
public Shared Sub Main
Application.Run(New Form2)
End Sub
End class
Public Class Form2
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents ListView1 As System.Windows.Forms.ListView
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents ListView2 As System.Windows.Forms.ListView
Friend WithEvents Button3 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button()
Me.ListView1 = New System.Windows.Forms.ListView()
Me.Button2 = New System.Windows.Forms.Button()
Me.ListView2 = New System.Windows.Forms.ListView()
Me.Button3 = New System.Windows.Forms.Button()
Me.SuspendLayout()
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(32, 8)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 0
Me.Button1.Text = "Get Files"
"
"ListView1
"
Me.ListView1.Location = New System.Drawing.Point(32, 40)
Me.ListView1.Name = "ListView1"
Me.ListView1.Size = New System.Drawing.Size(480, 56)
Me.ListView1.TabIndex = 1
"
"Button2
"
Me.Button2.Location = New System.Drawing.Point(32, 120)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(80, 24)
Me.Button2.TabIndex = 2
Me.Button2.Text = "Add Item"
"
"ListView2
"
Me.ListView2.Location = New System.Drawing.Point(32, 160)
Me.ListView2.Name = "ListView2"
Me.ListView2.Size = New System.Drawing.Size(504, 97)
Me.ListView2.TabIndex = 3
Me.ListView2.View = System.Windows.Forms.View.Details
"
"Button3
"
Me.Button3.Location = New System.Drawing.Point(120, 120)
Me.Button3.Name = "Button3"
Me.Button3.TabIndex = 4
Me.Button3.Text = "Add Column"
"
"Form2
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(712, 429)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button3, Me.ListView2, Me.Button2, Me.ListView1, Me.Button1})
Me.Name = "Form2"
Me.Text = "ListView Example"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListView1.Columns.Clear()
ListView1.Items.Clear()
ListView1.View = View.Details
ListView1.Columns.Add("Filename", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Extension", 50, HorizontalAlignment.Left)
ListView1.Columns.Add("Bytes", 50, HorizontalAlignment.Right)
Dim DI As System.IO.DirectoryInfo = New System.IO.DirectoryInfo("c:\")
Dim files() As System.IO.FileInfo = DI.GetFiles
Dim file As System.IO.FileInfo
Dim li As ListViewItem
For Each file In files
li = ListView1.Items.Add(file.Name)
li.SubItems.Add(file.Extension)
li.SubItems.Add(file.Length)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListView2.Items.Add("boo")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ListView2.Columns.Add("mycolumn", 20, HorizontalAlignment.Center)
End Sub
End Class</source>

==Add file name to ListView==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class AddImageFileToListView
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents ListView1 As System.Windows.Forms.ListView
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.ListView1 = New System.Windows.Forms.ListView()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
"
"ListView1
"
Me.ListView1.Location = New System.Drawing.Point(8, 16)
Me.ListView1.MultiSelect = False
Me.ListView1.Name = "ListView1"
Me.ListView1.Size = New System.Drawing.Size(304, 232)
Me.ListView1.TabIndex = 0
Me.ListView1.View = System.Windows.Forms.View.Details
"
"PictureBox1
"
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.PictureBox1.Location = New System.Drawing.Point(320, 16)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(600, 568)
Me.PictureBox1.TabIndex = 1
Me.PictureBox1.TabStop = False
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(8, 256)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(64, 24)
Me.Button1.TabIndex = 2
Me.Button1.Text = "New Path:"
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(8, 288)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(256, 20)
Me.TextBox1.TabIndex = 3
Me.TextBox1.Text = "c:\winnt"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(804, 585)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox1, Me.Button1, Me.PictureBox1, Me.ListView1})
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
PictureBox1.Image = Image.FromFile(ListView1.FocusedItem.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListView1.Columns.Clear()
ListView1.View = View.Details
ListView1.Columns.Add("Filename", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Extension", 50, HorizontalAlignment.Left)
ListView1.Columns.Add("Bytes", 50, HorizontalAlignment.Right)
Dim DI As System.IO.DirectoryInfo = New System.IO.DirectoryInfo("c:\")
Dim files() As System.IO.FileInfo = DI.GetFiles
Dim file As System.IO.FileInfo
For Each file In files
Select Case file.Extension
Case ".jpeg", ".gif", ".bmp", ".jpg", ".tif", ".tiff", ".avi"
Dim li As New ListViewItem(file.FullName)
li.SubItems.Add(file.Extension)
li.SubItems.Add(file.Length)
ListView1.Items.Add(li)
End Select
Next
End Sub
End Class</source>

==Change ListView state: LargeIcon, SmallIcon, List and Detail==

<source lang="vbnet">Imports System.Windows.Forms
public class ListViewState
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private components As System.ruponentModel.IContainer
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
Friend WithEvents ListView1 As System.Windows.Forms.ListView
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
Friend WithEvents ImageList3 As System.Windows.Forms.ImageList
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.ruponents = New System.ruponentModel.Container
Me.MainMenu1 = New System.Windows.Forms.MainMenu
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.MenuItem2 = New System.Windows.Forms.MenuItem
Me.MenuItem3 = New System.Windows.Forms.MenuItem
Me.MenuItem4 = New System.Windows.Forms.MenuItem
Me.MenuItem5 = New System.Windows.Forms.MenuItem
Me.ListView1 = New System.Windows.Forms.ListView
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader
Me.ColumnHeader2 = New System.Windows.Forms.ColumnHeader
Me.ColumnHeader3 = New System.Windows.Forms.ColumnHeader
Me.SuspendLayout()
"
"MainMenu1
"
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
"
"MenuItem1
"
Me.MenuItem1.Index = 0
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem3, Me.MenuItem4, Me.MenuItem5})
Me.MenuItem1.Text = "View"
"
"MenuItem2
"
Me.MenuItem2.Index = 0
Me.MenuItem2.Text = "Large Icon"
"
"MenuItem3
"
Me.MenuItem3.Index = 1
Me.MenuItem3.Text = "Small Icon"
"
"MenuItem4
"
Me.MenuItem4.Index = 2
Me.MenuItem4.Text = "List"
"
"MenuItem5
"
Me.MenuItem5.Index = 3
Me.MenuItem5.Text = "Detail"
"
"ListView1
"
Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3})
Me.ListView1.Dock = System.Windows.Forms.DockStyle.Top
Me.ListView1.Location = New System.Drawing.Point(0, 0)
Me.ListView1.Name = "ListView1"
Me.ListView1.Size = New System.Drawing.Size(328, 128)
Me.ListView1.TabIndex = 0
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(88, 168)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(80, 20)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = ""
"
"Label1
"
Me.Label1.Location = New System.Drawing.Point(48, 168)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(40, 24)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Project"
"
"Label2
"
Me.Label2.Location = New System.Drawing.Point(16, 200)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(72, 24)
Me.Label2.TabIndex = 3
Me.Label2.Text = "No"
"
"TextBox2
"
Me.TextBox2.Location = New System.Drawing.Point(88, 200)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(80, 20)
Me.TextBox2.TabIndex = 4
Me.TextBox2.Text = ""
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(192, 184)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(72, 24)
Me.Button1.TabIndex = 5
Me.Button1.Text = "Add"
"
"Button3
"
Me.Button3.Location = New System.Drawing.Point(120, 240)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(80, 24)
Me.Button3.TabIndex = 9
Me.Button3.Text = "Delete"
"
"ColumnHeader1
"
Me.ColumnHeader1.Text = "File"
"
"ColumnHeader2
"
Me.ColumnHeader2.Text = "Size"
"
"ColumnHeader3
"
Me.ColumnHeader3.Text = "Change Date"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(328, 297)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.ListView1)
Me.Menu = Me.MainMenu1
Me.ResumeLayout(False)
End Sub

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
ListView1.View = View.LargeIcon
End Sub
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
ListView1.View = View.SmallIcon
End Sub
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
ListView1.View = View.List
End Sub
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
ListView1.View = View.Details
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ListView1.FocusedItem.Remove()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ListView1.Items.Add("new", 2)
End Sub
End Class</source>

==Creating List Views in Code==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class ListViewCreationInCode
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
Dim ListView1 As ListView
Public Sub New()
MyBase.New()
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.ResumeLayout(False)
ListView1 = New ListView
ListView1.Location = New Point(75, 90)
ListView1.Size = New Size(150, 150)
Controls.Add(ListView1)
ListView1.Columns.Add("File Name", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("Size", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Date", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Attribute", 100, HorizontalAlignment.Center)
Dim ListItem1 As ListViewItem
ListItem1 = ListView1.Items.Add("Item 1")
Dim ListItem2 As ListViewItem
ListItem2 = ListView1.Items.Add("Item 2")
Dim ListItem3 As ListViewItem
ListItem3 = ListView1.Items.Add("Item 3")
Dim ListItem4 As ListViewItem
ListItem4 = ListView1.Items.Add("Item 4")
ListView1.View = View.SmallIcon
End Sub
End Class</source>

==Displaying directories and their contents in ListView==

<source lang="vbnet">Imports System.IO
Imports System.Windows.Forms
public class LoadFileDirectoryInformationTreeView
public Shared Sub Main
Application.Run(New FrmListView)
End Sub
End class
Public Class FrmListView
Inherits Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
" display labels for current location in directory tree
Friend WithEvents lblCurrent As Label
Friend WithEvents lblDisplay As Label
" displays contents of current directory
Friend WithEvents lvwBrowser As ListView
" specifies images for file icons and folder icons
Friend WithEvents ilsFileFolder As ImageList

"Required by the Windows Form Designer
Private components As System.ruponentModel.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.ruponents = New System.ruponentModel.Container()
Me.ilsFileFolder = New System.Windows.Forms.ImageList(Me.ruponents)
Me.lvwBrowser = New System.Windows.Forms.ListView()
Me.lblCurrent = New System.Windows.Forms.Label()
Me.lblDisplay = New System.Windows.Forms.Label()
Me.SuspendLayout()
"
"ilsFileFolder
"
Me.ilsFileFolder.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
Me.ilsFileFolder.ImageSize = New System.Drawing.Size(16, 16)
Me.ilsFileFolder.TransparentColor = System.Drawing.Color.Transparent
"
"lvwBrowser
"
Me.lvwBrowser.Location = New System.Drawing.Point(16, 88)
Me.lvwBrowser.Name = "lvwBrowser"
Me.lvwBrowser.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.lvwBrowser.Size = New System.Drawing.Size(448, 232)
Me.lvwBrowser.SmallImageList = Me.ilsFileFolder
Me.lvwBrowser.TabIndex = 2
Me.lvwBrowser.View = System.Windows.Forms.View.List
"
"lblCurrent
"
Me.lblCurrent.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblCurrent.ForeColor = System.Drawing.SystemColors.WindowText
Me.lblCurrent.Location = New System.Drawing.Point(16, 16)
Me.lblCurrent.Name = "lblCurrent"
Me.lblCurrent.Size = New System.Drawing.Size(112, 23)
Me.lblCurrent.TabIndex = 0
Me.lblCurrent.Text = "Now in Directory:"
"
"lblDisplay
"
Me.lblDisplay.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDisplay.ForeColor = System.Drawing.SystemColors.WindowText
Me.lblDisplay.Location = New System.Drawing.Point(128, 16)
Me.lblDisplay.Name = "lblDisplay"
Me.lblDisplay.Size = New System.Drawing.Size(344, 56)
Me.lblDisplay.TabIndex = 1
"
"FrmListView
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(488, 341)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lvwBrowser, Me.lblDisplay, Me.lblCurrent})
Me.Name = "FrmListView"
Me.Text = "ListViewTest"
Me.ResumeLayout(False)
End Sub
#End Region
Dim currentDirectory As String = Directory.GetCurrentDirectory()
Private Sub lvwBrowser_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles lvwBrowser.Click
If lvwBrowser.SelectedItems.Count <> 0 Then
If lvwBrowser.Items(0).Selected Then
Dim directoryObject As DirectoryInfo = _
New DirectoryInfo(currentDirectory)
If Not (directoryObject.Parent Is Nothing) Then
LoadFilesInDirectory(directoryObject.Parent.FullName)
End If
Else
Dim chosen As String = lvwBrowser.SelectedItems(0).Text
If Directory.Exists(currentDirectory & "\" & chosen) Then
If currentDirectory = "C:\" Then
LoadFilesInDirectory(currentDirectory & chosen)
Else
LoadFilesInDirectory(currentDirectory & "\" & chosen)
End If
End If
End If
lblDisplay.Text = currentDirectory
End If
End Sub
Public Sub LoadFilesInDirectory(ByVal currentDirectoryValue As String)
lvwBrowser.Items.Clear()
lvwBrowser.Items.Add("Go Up One Level")
currentDirectory = currentDirectoryValue
Dim newCurrentDirectory As DirectoryInfo = New DirectoryInfo(currentDirectory)
Dim directoryArray As DirectoryInfo() = newCurrentDirectory.GetDirectories()
Dim fileArray As FileInfo() = newCurrentDirectory.GetFiles()
Dim dir As DirectoryInfo
For Each dir In directoryArray
Dim newDirectoryItem As ListViewItem = lvwBrowser.Items.Add(dir.Name)
Next
Dim file As FileInfo
For Each file In fileArray
Dim newFileItem As ListViewItem =lvwBrowser.Items.Add(file.Name)
Next
End Sub
Private Sub FrmListView_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
LoadFilesInDirectory(currentDirectory)
lblDisplay.Text = currentDirectory
End Sub
End Class</source>

==ListView Demo==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class ListViewIllustration
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Private Sub btnPopulate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPopulate.Click
Dim intWidth As Integer
Dim objItem As ListViewItem
"Set the default view.
ListView1.View = View.Details
optDetails.Checked = True
"Add the column headers.
intWidth = ListView1.Width - 5
ListView1.Columns.Add("Name", CInt(intWidth / 4))
ListView1.Columns.Add("Address", CInt(intWidth / 4))
ListView1.Columns.Add("Phone", CInt(intWidth / 4))
ListView1.Columns.Add("FAX", CInt(intWidth / 4))
"Add some list view items.
objItem = ListView1.Items.Add("AAAAA")
With objItem
.SubItems.Add("123 Main St.")
.SubItems.Add("555-555-5555")
.SubItems.Add("555-555-5555")
.ImageIndex = 0
End With
objItem = ListView1.Items.Add("BBBBB")
With objItem
.SubItems.Add("456 Main St.")
.SubItems.Add("555-555-5555")
.SubItems.Add("555-555-5555")
.ImageIndex = 0
End With
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Dim strItemText As String
Dim objItem As ListViewItem
"Add some list view items.
strItemText = "name:"
objItem = ListView1.Items.Add(strItemText)
With objItem
.SubItems.Add("123 Some St.")
.SubItems.Add("555-555-5555")
.SubItems.Add("555-555-5555")
.ImageIndex = 0
End With
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
ListView1.Items.Clear()
End Sub

Private Sub btnRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemove.Click
Dim objListItem As ListViewItem
For Each objListItem In ListView1.SelectedItems
objListItem.Remove()
Next objListItem
End Sub
Private Sub btnDisplayItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplayItem.Click
Dim strMessage As String
Dim objListItem As ListViewItem
If ListView1.SelectedItems.Count > 0 Then
objListItem = ListView1.SelectedItems(0)
With objListItem
strMessage = "NAME: " & .Text & vbCrLf & _
"ADDRESS: " & .SubItems(1).Text & vbCrLf & _
"PHONE: " & .SubItems(2).Text & vbCrLf & _
"FAX: " & .SubItems(3).Text
End With
MsgBox(strMessage)
End If
End Sub

Private Sub optLargeIcon_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optLargeIcon.CheckedChanged
ListView1.View = View.LargeIcon
End Sub
Private Sub optSmallIcon_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optSmallIcon.CheckedChanged
ListView1.View = View.SmallIcon
End Sub
Private Sub optList_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optList.CheckedChanged
ListView1.View = View.List
End Sub
Private Sub optTile_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optTile.CheckedChanged
ListView1.View = View.Tile
End Sub
Private Sub optDetails_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optDetails.CheckedChanged
ListView1.View = View.Details
End Sub
End Class
Partial Public Class Form1
Inherits System.Windows.Forms.Form
<System.Diagnostics.DebuggerNonUserCode()> _
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
End Sub
"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.ruponentModel.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.ruponents = New System.ruponentModel.Container
Me.ListView1 = New System.Windows.Forms.ListView
Me.btnPopulate = New System.Windows.Forms.Button
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.optDetails = New System.Windows.Forms.RadioButton
Me.optTile = New System.Windows.Forms.RadioButton
Me.optList = New System.Windows.Forms.RadioButton
Me.optSmallIcon = New System.Windows.Forms.RadioButton
Me.optLargeIcon = New System.Windows.Forms.RadioButton
Me.btnAdd = New System.Windows.Forms.Button
Me.btnRemove = New System.Windows.Forms.Button
Me.btnClear = New System.Windows.Forms.Button
Me.btnDisplayItem = New System.Windows.Forms.Button
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
"
"ListView1
"
Me.ListView1.FullRowSelect = True
Me.ListView1.Location = New System.Drawing.Point(17, 18)
Me.ListView1.Name = "ListView1"
Me.ListView1.Size = New System.Drawing.Size(342, 364)
Me.ListView1.TabIndex = 0
Me.ListView1.UseCompatibleStateImageBehavior = False
"
"btnPopulate
"
Me.btnPopulate.Location = New System.Drawing.Point(366, 239)
Me.btnPopulate.Name = "btnPopulate"
Me.btnPopulate.Size = New System.Drawing.Size(161, 23)
Me.btnPopulate.TabIndex = 2
Me.btnPopulate.Text = "Populate"
"
"GroupBox1
"
Me.GroupBox1.Controls.Add(Me.optDetails)
Me.GroupBox1.Controls.Add(Me.optTile)
Me.GroupBox1.Controls.Add(Me.optList)
Me.GroupBox1.Controls.Add(Me.optSmallIcon)
Me.GroupBox1.Controls.Add(Me.optLargeIcon)
Me.GroupBox1.Location = New System.Drawing.Point(370, 13)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(156, 166)
Me.GroupBox1.TabIndex = 1
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Views"
"
"optDetails
"
Me.optDetails.AutoSize = True
Me.optDetails.Location = New System.Drawing.Point(30, 126)
Me.optDetails.Name = "optDetails"
Me.optDetails.Size = New System.Drawing.Size(57, 17)
Me.optDetails.TabIndex = 4
Me.optDetails.Text = "Details"
"
"optTile
"
Me.optTile.AutoSize = True
Me.optTile.Location = New System.Drawing.Point(30, 102)
Me.optTile.Name = "optTile"
Me.optTile.Size = New System.Drawing.Size(42, 17)
Me.optTile.TabIndex = 3
Me.optTile.Text = "Tile"
"
"optList
"
Me.optList.AutoSize = True
Me.optList.Location = New System.Drawing.Point(30, 78)
Me.optList.Name = "optList"
Me.optList.Size = New System.Drawing.Size(41, 17)
Me.optList.TabIndex = 2
Me.optList.Text = "List"
"
"optSmallIcon
"
Me.optSmallIcon.AutoSize = True
Me.optSmallIcon.Location = New System.Drawing.Point(30, 54)
Me.optSmallIcon.Name = "optSmallIcon"
Me.optSmallIcon.Size = New System.Drawing.Size(79, 17)
Me.optSmallIcon.TabIndex = 1
Me.optSmallIcon.Text = "Small Icons"
"
"optLargeIcon
"
Me.optLargeIcon.AutoSize = True
Me.optLargeIcon.Location = New System.Drawing.Point(30, 30)
Me.optLargeIcon.Name = "optLargeIcon"
Me.optLargeIcon.Size = New System.Drawing.Size(81, 17)
Me.optLargeIcon.TabIndex = 0
Me.optLargeIcon.Text = "Large Icons"
"
"btnAdd
"
Me.btnAdd.Location = New System.Drawing.Point(365, 269)
Me.btnAdd.Name = "btnAdd"
Me.btnAdd.Size = New System.Drawing.Size(161, 23)
Me.btnAdd.TabIndex = 3
Me.btnAdd.Text = "Add"
"
"btnRemove
"
Me.btnRemove.Location = New System.Drawing.Point(366, 299)
Me.btnRemove.Name = "btnRemove"
Me.btnRemove.Size = New System.Drawing.Size(161, 23)
Me.btnRemove.TabIndex = 4
Me.btnRemove.Text = "Remove"
"
"btnClear
"
Me.btnClear.Location = New System.Drawing.Point(365, 329)
Me.btnClear.Name = "btnClear"
Me.btnClear.Size = New System.Drawing.Size(161, 23)
Me.btnClear.TabIndex = 5
Me.btnClear.Text = "Clear"
"
"btnDisplayItem
"
Me.btnDisplayItem.Location = New System.Drawing.Point(365, 359)
Me.btnDisplayItem.Name = "btnDisplayItem"
Me.btnDisplayItem.Size = New System.Drawing.Size(161, 23)
Me.btnDisplayItem.TabIndex = 6
Me.btnDisplayItem.Text = "Display Item"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(539, 394)
Me.Controls.Add(Me.btnDisplayItem)
Me.Controls.Add(Me.btnClear)
Me.Controls.Add(Me.btnRemove)
Me.Controls.Add(Me.btnAdd)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.btnPopulate)
Me.Controls.Add(Me.ListView1)
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "ListView"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents ListView1 As System.Windows.Forms.ListView
Friend WithEvents btnPopulate As System.Windows.Forms.Button
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents optDetails As System.Windows.Forms.RadioButton
Friend WithEvents optTile As System.Windows.Forms.RadioButton
Friend WithEvents optList As System.Windows.Forms.RadioButton
Friend WithEvents optSmallIcon As System.Windows.Forms.RadioButton
Friend WithEvents optLargeIcon As System.Windows.Forms.RadioButton
Friend WithEvents btnAdd As System.Windows.Forms.Button
Friend WithEvents btnRemove As System.Windows.Forms.Button
Friend WithEvents btnClear As System.Windows.Forms.Button
Friend WithEvents btnDisplayItem As System.Windows.Forms.Button
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
End Class</source>

==ListView ItemActivate event==

<source lang="vbnet">Imports System.Windows.Forms
public class TreeViewListView
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
Friend WithEvents ListView1 As System.Windows.Forms.ListView
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.ruponents = New System.ruponentModel.Container()
Me.TreeView1 = New System.Windows.Forms.TreeView()
Me.Splitter1 = New System.Windows.Forms.Splitter()
Me.ListView1 = New System.Windows.Forms.ListView()
Me.SuspendLayout()
"
"TreeView1
"
Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left
Me.TreeView1.Name = "TreeView1"
Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Letter", New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("a", New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("z"), New System.Windows.Forms.TreeNode("b")}), New System.Windows.Forms.TreeNode("c", New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("d"), New System.Windows.Forms.TreeNode("e")})})})
Me.TreeView1.Size = New System.Drawing.Size(121, 273)
Me.TreeView1.TabIndex = 0
"
"Splitter1
"
Me.Splitter1.Location = New System.Drawing.Point(121, 0)
Me.Splitter1.Name = "Splitter1"
Me.Splitter1.Size = New System.Drawing.Size(3, 273)
Me.Splitter1.TabIndex = 1
Me.Splitter1.TabStop = False
"
"ListView1
"
Me.ListView1.Dock = System.Windows.Forms.DockStyle.Fill
Me.ListView1.Location = New System.Drawing.Point(124, 0)
Me.ListView1.Name = "ListView1"
Me.ListView1.Size = New System.Drawing.Size(168, 273)
Me.ListView1.TabIndex = 2
Me.ListView1.View = System.Windows.Forms.View.List
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ListView1, Me.Splitter1, Me.TreeView1})
Me.Name = "Form1"
Me.Text = "Vehicle Hierarchy"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
select case e.Node.Text
case "a"
listView1.Clear()
listView1.Items.Add("a",3)
listView1.Items.Add("b", 4)
listView1.Items.Add("c", 6)
case "b"
listView1.Clear()
listView1.Items.Add("a", 1)
listView1.Items.Add("b", 2)
listView1.Items.Add("c", 5)
end select
End Sub
Private Sub ListView1_ItemActivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.ItemActivate
dim strItem as String = listView1.FocusedItem.Text
Console.WriteLine(strItem)
End Sub
End Class</source>

==ListView Item Check event==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class ListViewViewChange
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents ListView1 As System.Windows.Forms.ListView
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents ComboBox1 As System.Windows.Forms.ruboBox
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
Friend WithEvents Button1 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.ruponents = New System.ruponentModel.Container
Dim ListViewItem1 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Item 0", 0)
Dim ListViewItem2 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Item 1", 0)
Dim ListViewItem3 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Item 2", 0)
Dim ListViewItem4 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Item 3", 0)
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
Me.ListView1 = New System.Windows.Forms.ListView
Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader
Me.ColumnHeader2 = New System.Windows.Forms.ColumnHeader
Me.ColumnHeader3 = New System.Windows.Forms.ColumnHeader
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.ruboBox1 = New System.Windows.Forms.ruboBox
Me.Button1 = New System.Windows.Forms.Button
Me.SuspendLayout()
"
"ListView1
"
Me.ListView1.AllowColumnReorder = True
Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3})
Me.ListView1.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem1, ListViewItem2, ListViewItem3, ListViewItem4})
Me.ListView1.Location = New System.Drawing.Point(32, 104)
Me.ListView1.Name = "ListView1"
Me.ListView1.Size = New System.Drawing.Size(216, 112)
Me.ListView1.TabIndex = 1
"
"ColumnHeader1
"
Me.ColumnHeader1.Text = "Column Header 1"
"
"ColumnHeader2
"
Me.ColumnHeader2.Text = "Column Header 2"
"
"ColumnHeader3
"
Me.ColumnHeader3.Text = "Column Header 3"
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(64, 232)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(160, 20)
Me.TextBox1.TabIndex = 2
Me.TextBox1.Text = ""
"
"ComboBox1
"
Me.ruboBox1.Items.AddRange(New Object() {"Large Icon View", "Report View", "Small Icon View", "List View"})
Me.ruboBox1.Location = New System.Drawing.Point(16, 64)
Me.ruboBox1.Name = "ComboBox1"
Me.ruboBox1.Size = New System.Drawing.Size(121, 21)
Me.ruboBox1.TabIndex = 3
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(144, 64)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(112, 23)
Me.Button1.TabIndex = 4
Me.Button1.Text = "Show Check Boxes"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.ruboBox1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.ListView1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
ListView1.View = ComboBox1.SelectedIndex
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
If ListView1.SelectedIndices.Count > 0 Then
TextBox1.Text = "Item " & ListView1.SelectedIndices(0) & " was clicked."
End If
End Sub
Private Sub ListView1_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView1.ColumnClick
TextBox1.Text = "Column " & (e.Column + 1) & " was clicked."
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListView1.CheckBoxes = True
End Sub
Private Sub ListView1_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles ListView1.ItemCheck
If e.NewValue = CheckState.Checked Then
TextBox1.Text = "Item " & e.Index() & " is checked."
Else
TextBox1.Text = "Item " & e.Index() & " is not checked."
End If
End Sub
End Class</source>

==ListView with CheckBox cell==

<source lang="vbnet">"Visual Basic.Net JingCai Programming 100 Examples
"Author: Yong Zhang
"Publisher: Water Publisher China
"ISBN: 750841156

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
Imports System.Runtime.InteropServices
Imports System.IO
public class FileListView
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Dim nIndex As Integer = 0
Private Sub CreateMyListView(ByVal dirpath As String)
Dim hImgSmall As IntPtr
Dim hImgLarge As IntPtr
Dim shinfo As FileInfoClass.SHFILEINFO = New FileInfoClass.SHFILEINFO()
ListView1.Clear()
ImageListSmall.Images.Clear()
ImageListLarge.Images.Clear()
nIndex = 0
ListView1.Columns.Add("File Name", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("Size", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Date", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Attribute", 100, HorizontalAlignment.Center)
ListView1.LargeImageList = imageListLarge
ListView1.SmallImageList = imageListSmall
ListView1.View = View.Details
ListView1.LabelEdit = True
ListView1.AllowColumnReorder = True
ListView1.CheckBoxes = True
ListView1.FullRowSelect = True
ListView1.GridLines = True
ListView1.Sorting = SortOrder.Ascending
Dim FilesInDir As String() = Directory.GetFiles(dirpath, "*.*")
Dim SFile As String
Dim item1 As New ListViewItem("", 0)
item1.SubItems.Add("1")
item1.SubItems.Add("2")
item1.SubItems.Add("3")
Dim ctdate As Date
Dim fAttr As FileAttribute
For Each SFile In FilesInDir
ctdate = IO.File.GetCreationTime(SFile)
fAttr = IO.File.GetAttributes(SFile)
shinfo.szDisplayName = New String(Chr(0), 260)
shinfo.szTypeName = New String(Chr(0), 80)
hImgSmall = FileInfoClass.SHGetFileInfo(SFile, 0, shinfo, _
Marshal.SizeOf(shinfo), _
FileInfoClass.SHGFI_ICON Or FileInfoClass.SHGFI_SMALLICON)
ImageListSmall.Images.Add(System.Drawing.Icon.FromHandle(shinfo.hIcon)) "Add icon to smallimageList.
hImgLarge = FileInfoClass.SHGetFileInfo(SFile, 0, shinfo, _
Marshal.SizeOf(shinfo), _
FileInfoClass.SHGFI_ICON Or FileInfoClass.SHGFI_LARGEICON)
ImageListLarge.Images.Add(System.Drawing.Icon.FromHandle(shinfo.hIcon)) "Add icon to LargeimageList.
ListView1.Items.Add(New ListViewItem(New String() {SFile, CStr(FileLen(SFile)), ctdate.ToString, fAttr.ToString}, nIndex))
nIndex = nIndex + 1
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim disks As String() = Directory.GetLogicalDrives
Dim Sdisk As String
ComboBox1.Items.Clear()
For Each Sdisk In disks
ComboBox1.Items.Add(Sdisk)
Next
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
CreateMyListView(ComboBox1.Text)
End Sub
End Class
Public Class FileInfoClass
Public Structure SHFILEINFO
Public hIcon As IntPtr
Public iIcon As Integer
Public dwAttributes As Integer
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> _
Public szDisplayName As String
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)> _
Public szTypeName As String
End Structure
Public Declare Auto Function SHGetFileInfo Lib "shell32.dll" _
(ByVal pszPath As String, _
ByVal dwFileAttributes As Integer, _
ByRef psfi As SHFILEINFO, _
ByVal cbFileInfo As Integer, _
ByVal uFlags As Integer) As IntPtr
Public Const SHGFI_ICON = &H100
Public Const SHGFI_SMALLICON = &H1
Public Const SHGFI_LARGEICON = &H0 " Large icon
End Class
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.ruponents = New System.ruponentModel.Container
Me.ruboBox1 = New System.Windows.Forms.ruboBox
Me.ListView1 = New System.Windows.Forms.ListView
Me.ImageListSmall = New System.Windows.Forms.ImageList(Me.ruponents)
Me.ImageListLarge = New System.Windows.Forms.ImageList(Me.ruponents)
Me.SuspendLayout()
"
"ComboBox1
"
Me.ruboBox1.FormattingEnabled = True
Me.ruboBox1.Location = New System.Drawing.Point(12, 3)
Me.ruboBox1.Name = "ComboBox1"
Me.ruboBox1.Size = New System.Drawing.Size(413, 20)
Me.ruboBox1.TabIndex = 0
"
"ListView1
"
Me.ListView1.Location = New System.Drawing.Point(12, 29)
Me.ListView1.Name = "ListView1"
Me.ListView1.Size = New System.Drawing.Size(413, 207)
Me.ListView1.TabIndex = 1
Me.ListView1.UseCompatibleStateImageBehavior = False
"
"ImageListSmall
"
Me.ImageListSmall.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
Me.ImageListSmall.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageListSmall.TransparentColor = System.Drawing.Color.Transparent
"
"ImageListLarge
"
Me.ImageListLarge.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
Me.ImageListLarge.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageListLarge.TransparentColor = System.Drawing.Color.Transparent
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(437, 246)
Me.Controls.Add(Me.ListView1)
Me.Controls.Add(Me.ruboBox1)
Me.ResumeLayout(False)
End Sub
Friend WithEvents ComboBox1 As System.Windows.Forms.ruboBox
Friend WithEvents ListView1 As System.Windows.Forms.ListView
Friend WithEvents ImageListSmall As System.Windows.Forms.ImageList
Friend WithEvents ImageListLarge As System.Windows.Forms.ImageList
End Class</source>

==Runtime ListView==

<source lang="vbnet">"Visual Basic 2005 Programmer"s Reference
"by Rod Stephens (Author)
"# Publisher: Wrox (October 21, 2005)
"# Language: English
"# ISBN-10: 0764571982
"# ISBN-13: 978-0764571985

Imports System.Windows.Forms

public class ListViewRunTime
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
" Make the ListView column headers.
ListViewMakeColumnHeaders(lvwBooks, _
"Title", HorizontalAlignment.Left, 120, _
"URL", HorizontalAlignment.Left, 120, _
"ISBN", HorizontalAlignment.Left, 90, _
"Picture", HorizontalAlignment.Left, 120, _
"Pages", HorizontalAlignment.Right, 50, _
"Year", HorizontalAlignment.Right, 40)
ListViewMakeRow(lvwBooks, 0, _
"Visual Basic and XML", _
"http://www.vb-helper.ru/xml.htm", _
"0-471-12060-X", _
"http://www.vb-helper.ru/xml.jpg", _
"503", _
"2002")
ListViewMakeRow(lvwBooks, 0, _
"Visual Basic Graphics Programming, 2e", _
"http://www.vb-helper.ru/vbgp.htm", _
"0-471-35599-2", _
"http://www.vb-helper.ru/vbgp.jpg", _
"712", _
"2000")
ListViewMakeRow(lvwBooks, 0, _
"Ready-to-Run Visual Basic Algorithms", _
"http://www.vb-helper.ru/vba.htm", _
"0-471-24268-3", _
"http://www.vb-helper.ru/vba.jpg", _
"395", _
"1998")
ListViewSizeColumns(lvwBooks, True)
Text = "RunTimeListView (" & lvwBooks.View.ToString & ")"
lvwBooks.View = View.Details
CheckMenus()
End Sub
" Make the ListView"s column headers.
" The ParamArray entries should be triples holding
" column title, HorizontalAlignment value, and width.
Private Sub ListViewMakeColumnHeaders(ByVal lvw As ListView, ByVal ParamArray header_info() As Object)
" Remove any existing headers.
lvw.Columns.Clear()
" Make the column headers.
For i As Integer = header_info.GetLowerBound(0) To header_info.GetUpperBound(0) Step 3
Dim col_header As ColumnHeader = lvw.Columns.Add( _
DirectCast(header_info(i), String), _
-1, _
DirectCast(header_info(i + 1), HorizontalAlignment))
col_header.Width = DirectCast(header_info(i + 2), Integer)
Next i
End Sub
" Make a ListView row.
Private Sub ListViewMakeRow(ByVal lvw As ListView, ByVal image_index As Integer, ByVal item_title As String, ByVal ParamArray subitem_titles() As String)
" Make the item.
Dim new_item As ListViewItem = lvw.Items.Add(item_title)
new_item.ImageIndex = image_index
" Make the sub-items.
For i As Integer = subitem_titles.GetLowerBound(0) To subitem_titles.GetUpperBound(0)
new_item.SubItems.Add(subitem_titles(i))
Next i
End Sub
" Set column widths to -1 to fit data,
" -2 to fit data and header.
Private Sub ListViewSizeColumns(ByVal lvw As ListView, ByVal allow_room_for_header As Boolean)
Dim new_wid As Integer = -1
If allow_room_for_header Then new_wid = -2
" Set the width for each column.
For i As Integer = 0 To lvw.Columns.Count - 1
lvw.Columns(i).Width = new_wid
Next i
End Sub
Private Sub mnuViewDetails_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuViewDetails.Click
lvwBooks.View = View.Details
Text = "RunTimeListView (" & lvwBooks.View.ToString & ")"
CheckMenus()
End Sub
Private Sub mnuViewLargeIcons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuViewLargeIcons.Click
lvwBooks.View = View.LargeIcon
Text = "RunTimeListView (" & lvwBooks.View.ToString & ")"
CheckMenus()
End Sub
Private Sub mnuViewList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuViewList.Click
lvwBooks.View = View.List
Text = "RunTimeListView (" & lvwBooks.View.ToString & ")"
CheckMenus()
End Sub
Private Sub mnuViewSmallIcons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuViewSmallIcons.Click
lvwBooks.View = View.SmallIcon
Text = "RunTimeListView (" & lvwBooks.View.ToString & ")"
CheckMenus()
End Sub
Private Sub mnuViewTile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuViewTile.Click
lvwBooks.View = View.Tile
Text = "RunTimeListView (" & lvwBooks.View.ToString & ")"
CheckMenus()
End Sub
Private Sub CheckMenus()
mnuViewDetails.Checked = (lvwBooks.View = View.Details)
mnuViewLargeIcons.Checked = (lvwBooks.View = View.LargeIcon)
mnuViewList.Checked = (lvwBooks.View = View.List)
mnuViewSmallIcons.Checked = (lvwBooks.View = View.SmallIcon)
mnuViewTile.Checked = (lvwBooks.View = View.Tile)
End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.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.ruponentModel.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.ruponents = New System.ruponentModel.Container
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip
Me.ViewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.mnuViewDetails = New System.Windows.Forms.ToolStripMenuItem
Me.mnuViewLargeIcons = New System.Windows.Forms.ToolStripMenuItem
Me.mnuViewList = New System.Windows.Forms.ToolStripMenuItem
Me.mnuViewSmallIcons = New System.Windows.Forms.ToolStripMenuItem
Me.mnuViewTile = New System.Windows.Forms.ToolStripMenuItem
Me.lvwBooks = New System.Windows.Forms.ListView
Me.MenuStrip1.SuspendLayout()
Me.SuspendLayout()
"
"MenuStrip1
"
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ViewToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(592, 24)
Me.MenuStrip1.TabIndex = 2
Me.MenuStrip1.Text = "MenuStrip1"
"
"ViewToolStripMenuItem
"
Me.ViewToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuViewDetails, Me.mnuViewLargeIcons, Me.mnuViewList, Me.mnuViewSmallIcons, Me.mnuViewTile})
Me.ViewToolStripMenuItem.Name = "ViewToolStripMenuItem"
Me.ViewToolStripMenuItem.Text = "&View"
"
"mnuViewDetails
"
Me.mnuViewDetails.Name = "mnuViewDetails"
Me.mnuViewDetails.Text = "&Details"
"
"mnuViewLargeIcons
"
Me.mnuViewLargeIcons.Name = "mnuViewLargeIcons"
Me.mnuViewLargeIcons.Text = "Large Icons"
"
"mnuViewList
"
Me.mnuViewList.Name = "mnuViewList"
Me.mnuViewList.Text = "&List"
"
"mnuViewSmallIcons
"
Me.mnuViewSmallIcons.Name = "mnuViewSmallIcons"
Me.mnuViewSmallIcons.Text = "&Small Icons"
"
"mnuViewTile
"
Me.mnuViewTile.Name = "mnuViewTile"
Me.mnuViewTile.Text = "Tile"
"
"lvwBooks
"
Me.lvwBooks.Dock = System.Windows.Forms.DockStyle.Fill
Me.lvwBooks.Location = New System.Drawing.Point(0, 24)
Me.lvwBooks.Name = "lvwBooks"
Me.lvwBooks.Size = New System.Drawing.Size(592, 249)
Me.lvwBooks.TabIndex = 1
Me.lvwBooks.View = System.Windows.Forms.View.Details
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(592, 273)
Me.Controls.Add(Me.lvwBooks)
Me.Controls.Add(Me.MenuStrip1)
Me.Name = "Form1"
Me.Text = "RunTimeListView"
Me.MenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents ViewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents mnuViewDetails As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents mnuViewLargeIcons As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents mnuViewList As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents mnuViewSmallIcons As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents mnuViewTile As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents lvwBooks As System.Windows.Forms.ListView
End Class</source>

VB.Net Tutorial/GUI/DateTimePicker

2010-05-26T12:57:17Z

Admin: 1 версия

==DataTimePicker format==

<source lang="vbnet">Imports System.Windows.Forms
public class DataTimePickerFormat
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private components As System.ruponentModel.IContainer
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
Friend WithEvents ComboBox1 As System.Windows.Forms.ruboBox
Friend WithEvents Label1 As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker
Me.ruboBox1 = New System.Windows.Forms.ruboBox
Me.Label1 = New System.Windows.Forms.Label
Me.SuspendLayout()
"
"DateTimePicker1
"
Me.DateTimePicker1.Location = New System.Drawing.Point(40, 24)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.Size = New System.Drawing.Size(120, 20)
Me.DateTimePicker1.TabIndex = 0
"
"ComboBox1
"
Me.ruboBox1.Items.AddRange(New Object() {"Long", "Short", "Custom", "Time"})
Me.ruboBox1.Location = New System.Drawing.Point(40, 200)
Me.ruboBox1.Name = "ComboBox1"
Me.ruboBox1.Size = New System.Drawing.Size(120, 21)
Me.ruboBox1.TabIndex = 1
"
"Label1
"
Me.Label1.Location = New System.Drawing.Point(40, 160)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(80, 24)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Format"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ruboBox1)
Me.Controls.Add(Me.DateTimePicker1)
Me.Name = "Form1"
Me.Text = "DateTimePicker"
Me.ResumeLayout(False)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedIndex < 0 Then
Return
End If
Dim caption As String = ComboBox1.SelectedItem.ToString().Chars(0)
Dim format As DateTimePickerFormat
Select Case caption
Case "S"c
format = DateTimePickerFormat.Short
Case "T"c
format = DateTimePickerFormat.Time
Case "C"c
format = DateTimePickerFormat.Custom
Case Else
format = DateTimePickerFormat.Long
End Select
DateTimePicker1.Format = format
End Sub
End Class</source>

==DateTimePicker format: LongDate, LongTime, ShortDate, ShortTime==

<source lang="vbnet">Option Strict On
imports System
imports System.Drawing
imports System.Windows.Forms
public class DTPicker : inherits Form
dim dtp as DateTimePicker
public sub New()
Size = new Size(400,300)
AddHandler me.Load, AddressOf me_Load
dtp = new DateTimePicker()
dtp.Parent = me
dtp.Location = new Point(20,20)
dtp.Size = new Size(ClientSize.Width - 40, dtp.PreferredHeight)
dtp.Anchor = AnchorStyles.Top or AnchorStyles.Left or AnchorStyles.Right
dim fnt as new Font("Times New Roman", 16)
dtp.CalendarFont = new Font(fnt, FontStyle.Bold or FontStyle.Italic)
dtp.CalendarForeColor = Color.Red
dtp.CalendarMonthBackground = Color.Yellow
dtp.CalendarTitleBackColor = Color.Lime
dtp.CalendarTitleForeColor = Color.Blue
dtp.CalendarTrailingForeColor = Color.FromArgb(255,192,192)
dtp.CustomFormat = "dddd,MMMM d, yyyy "at" h:mm:ss tt"
dtp.Format = DateTimePickerFormat.Custom
dtp.DropDownAlign = LeftRightAlignment.Right
dtp.ShowUpDown = false " default
AddHandler dtp.ValueChanged, AddressOf dtp_ValueChanged
end sub
public shared sub Main()
Application.Run(new DTPicker())
end sub
private sub UpdateLabels()
Console.WriteLine(dtp.Value.ToString())
Console.WriteLine(dtp.Value.ToLongDateString())
Console.WriteLine(dtp.Value.ToLongTimeString())
Console.WriteLine(dtp.Value.ToShortDateString())
Console.WriteLine(dtp.Value.ToShortTimeString())
end sub
private sub me_Load(ByVal sender as object,ByVal e as EventArgs)
UpdateLabels()
end sub
private sub dtp_ValueChanged(ByVal sender as object,ByVal e as EventArgs)
UpdateLabels()
end sub
private sub txtCustomString_TextChanged(ByVal sender as object,ByVal e as EventArgs)
UpdateLabels()
end sub
end class</source>

==Get value from DateTimePicker==

<source lang="vbnet">Imports System.Windows.Forms
public class UseMonthCalendarAndDateTimePicker
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
" ----- Check and display only valid dates.
If (IsDate(TextBox1.Text) = True) Then
Label1.Text = Date.Parse(TextBox1.Text).ToShortDateString
Else
Label1.Text = ""
End If
End Sub
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
" ----- Show the selected date.
Label2.Text = DateTimePicker1.Value.ToShortDateString
End Sub
Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged
" ---- Show the slected date.
Label3.Text = MonthCalendar1.SelectionStart.ToShortDateString
End Sub
End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.TextBox1 = New System.Windows.Forms.TextBox
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker
Me.MonthCalendar1 = New System.Windows.Forms.MonthCalendar
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Label4 = New System.Windows.Forms.Label
Me.Label5 = New System.Windows.Forms.Label
Me.Label6 = New System.Windows.Forms.Label
Me.SuspendLayout()
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(72, 8)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(120, 20)
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = "2007-12-07"
"
"DateTimePicker1
"
Me.DateTimePicker1.Location = New System.Drawing.Point(72, 48)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.Size = New System.Drawing.Size(200, 20)
Me.DateTimePicker1.TabIndex = 1
Me.DateTimePicker1.Value = New Date(2007, 12, 7, 0, 0, 0, 0)
"
"MonthCalendar1
"
Me.MonthCalendar1.Location = New System.Drawing.Point(72, 88)
Me.MonthCalendar1.Name = "MonthCalendar1"
Me.MonthCalendar1.TabIndex = 2
"
"Label1
"
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(296, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(39, 13)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Label1"
"
"Label2
"
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(296, 48)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(39, 13)
Me.Label2.TabIndex = 4
Me.Label2.Text = "Label2"
"
"Label3
"
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(296, 88)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(39, 13)
Me.Label3.TabIndex = 5
Me.Label3.Text = "Label3"
"
"Label4
"
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(8, 10)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(57, 13)
Me.Label4.TabIndex = 6
Me.Label4.Text = "Plain Text:"
"
"Label5
"
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(8, 50)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(40, 13)
Me.Label5.TabIndex = 7
Me.Label5.Text = "Picker:"
"
"Label6
"
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(8, 88)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(52, 13)
Me.Label6.TabIndex = 8
Me.Label6.Text = "Calendar:"
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(510, 258)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.MonthCalendar1)
Me.Controls.Add(Me.DateTimePicker1)
Me.Controls.Add(Me.TextBox1)
Me.Name = "Form1"
Me.Text = "Using Controls to Enter or Select a Date"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
Friend WithEvents MonthCalendar1 As System.Windows.Forms.MonthCalendar
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
End Class</source>

VB.Net Tutorial/GUI/NumericUpDown

2010-05-26T12:57:17Z

Admin: 1 версия

==Get value from the NumericUpDown control==

<source lang="vbnet">Imports System.Windows.Forms
public class GetValueFromNumericUpDown
public Shared Sub Main
Application.Run(New FrmInterestCalculator)
End Sub
End class
Public Class FrmInterestCalculator
Private Sub btnCalculate_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnCalculate.Click

Console.WriteLine(Convert.ToInt32(updYear.Value))
End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Class FrmInterestCalculator
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.btnCalculate = New System.Windows.Forms.Button
Me.txtDisplay = New System.Windows.Forms.TextBox
Me.lblBalance = New System.Windows.Forms.Label
Me.updYear = New System.Windows.Forms.NumericUpDown
Me.lblYears = New System.Windows.Forms.Label
Me.txtInterest = New System.Windows.Forms.TextBox
Me.lblInterest = New System.Windows.Forms.Label
Me.txtPrincipal = New System.Windows.Forms.TextBox
Me.lblPrincipal = New System.Windows.Forms.Label
CType(Me.updYear, System.ruponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
"
"btnCalculate
"
Me.btnCalculate.Location = New System.Drawing.Point(197, 14)
Me.btnCalculate.Name = "btnCalculate"
Me.btnCalculate.Size = New System.Drawing.Size(75, 23)
Me.btnCalculate.TabIndex = 17
Me.btnCalculate.Text = "Calculate"
"
"txtDisplay
"
Me.txtDisplay.BackColor = System.Drawing.SystemColors.Control
Me.txtDisplay.Location = New System.Drawing.Point(18, 170)
Me.txtDisplay.Multiline = True
Me.txtDisplay.Name = "txtDisplay"
Me.txtDisplay.ReadOnly = True
Me.txtDisplay.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtDisplay.Size = New System.Drawing.Size(254, 104)
Me.txtDisplay.TabIndex = 16
"
"lblBalance
"
Me.lblBalance.AutoSize = True
Me.lblBalance.Location = New System.Drawing.Point(17, 143)
Me.lblBalance.Name = "lblBalance"
Me.lblBalance.Size = New System.Drawing.Size(122, 13)
Me.lblBalance.TabIndex = 15
Me.lblBalance.Text = "Yearly account balance:"
"
"updYear
"
Me.updYear.Location = New System.Drawing.Point(85, 95)
Me.updYear.Maximum = New Decimal(New Integer() {10, 0, 0, 0})
Me.updYear.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.updYear.Name = "updYear"
Me.updYear.ReadOnly = True
Me.updYear.Size = New System.Drawing.Size(100, 20)
Me.updYear.TabIndex = 14
Me.updYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.updYear.Value = New Decimal(New Integer() {1, 0, 0, 0})
"
"lblYears
"
Me.lblYears.AutoSize = True
Me.lblYears.Location = New System.Drawing.Point(17, 102)
Me.lblYears.Name = "lblYears"
Me.lblYears.Size = New System.Drawing.Size(37, 13)
Me.lblYears.TabIndex = 13
Me.lblYears.Text = "Years:"
"
"txtInterest
"
Me.txtInterest.Location = New System.Drawing.Point(85, 58)
Me.txtInterest.Name = "txtInterest"
Me.txtInterest.Size = New System.Drawing.Size(100, 20)
Me.txtInterest.TabIndex = 12
Me.txtInterest.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
"
"lblInterest
"
Me.lblInterest.AutoSize = True
Me.lblInterest.Location = New System.Drawing.Point(17, 61)
Me.lblInterest.Name = "lblInterest"
Me.lblInterest.Size = New System.Drawing.Size(71, 13)
Me.lblInterest.TabIndex = 11
Me.lblInterest.Text = "Interest Rate:"
"
"txtPrincipal
"
Me.txtPrincipal.Location = New System.Drawing.Point(85, 17)
Me.txtPrincipal.Name = "txtPrincipal"
Me.txtPrincipal.Size = New System.Drawing.Size(100, 20)
Me.txtPrincipal.TabIndex = 10
Me.txtPrincipal.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
"
"lblPrincipal
"
Me.lblPrincipal.AutoSize = True
Me.lblPrincipal.Location = New System.Drawing.Point(17, 20)
Me.lblPrincipal.Name = "lblPrincipal"
Me.lblPrincipal.Size = New System.Drawing.Size(50, 13)
Me.lblPrincipal.TabIndex = 9
Me.lblPrincipal.Text = "Principal:"
"
"FrmInterestCalculator
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(289, 288)
Me.Controls.Add(Me.btnCalculate)
Me.Controls.Add(Me.txtDisplay)
Me.Controls.Add(Me.lblBalance)
Me.Controls.Add(Me.updYear)
Me.Controls.Add(Me.lblYears)
Me.Controls.Add(Me.txtInterest)
Me.Controls.Add(Me.lblInterest)
Me.Controls.Add(Me.txtPrincipal)
Me.Controls.Add(Me.lblPrincipal)
Me.Name = "FrmInterestCalculator"
Me.Text = "Interest Calculator"
CType(Me.updYear, System.ruponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents btnCalculate As System.Windows.Forms.Button
Friend WithEvents txtDisplay As System.Windows.Forms.TextBox
Friend WithEvents lblBalance As System.Windows.Forms.Label
Friend WithEvents updYear As System.Windows.Forms.NumericUpDown
Friend WithEvents lblYears As System.Windows.Forms.Label
Friend WithEvents txtInterest As System.Windows.Forms.TextBox
Friend WithEvents lblInterest As System.Windows.Forms.Label
Friend WithEvents txtPrincipal As System.Windows.Forms.TextBox
Friend WithEvents lblPrincipal As System.Windows.Forms.Label
End Class</source>

==ScrollBars - NumericUpDowns==

<source lang="vbnet">imports System
imports System.Drawing
imports System.Windows.Forms
public class NumericUpDowns : inherits Form
dim hbar as HScrollBar
dim vbar as VScrollBar
dim nupdwn as NumericUpDown
public sub New()
Size = new Size(480,580)
hbar = new HScrollBar()
hbar.Parent = me
hbar.Location = new Point(0, 25)
hbar.Size = new Size(300, 25)
hbar.Minimum = 25
hbar.Maximum = 400
hbar.SmallChange = 10
hbar.LargeChange = 100
hbar.Value = 10
AddHandler hbar.ValueChanged, AddressOf hbar_OnValueChanged
vbar = new VScrollBar()
vbar.Parent = me
vbar.Location = new Point(25, 25)
vbar.Size = new Size(25, 300)
vbar.Minimum = 25
vbar.Maximum = 400
vbar.SmallChange = 10
vbar.LargeChange = 100
vbar.Value = 10
AddHandler vbar.ValueChanged, AddressOf vbar_OnValueChanged
nupdwn = new NumericUpDown()
nupdwn.Parent = me
nupdwn.Location = new Point(100,100)
nupdwn.Size = new Size(60,20)
nupdwn.Value = 1
nupdwn.Minimum = -10
nupdwn.Maximum = 10
nupdwn.Increment = .25d " decimal
nupdwn.DecimalPlaces = 2
nupdwn.ReadOnly = true
nupdwn.TextAlign = HorizontalAlignment.Right
AddHandler nupdwn.ValueChanged, AddressOf nupdwn_OnValueChanged
end sub
private sub hbar_OnValueChanged(ByVal sender as object,ByVal e as EventArgs)
Console.WriteLine(hbar.Value)
Console.WriteLine(hbar.LargeChange)
end sub
private sub vbar_OnValueChanged(ByVal sender as object,ByVal e as EventArgs)
Console.WriteLine(vbar.Value)
Console.WriteLine(vbar.LargeChange)
end sub
private sub nupdwn_OnValueChanged(ByVal sender as object,ByVal e as EventArgs)
Console.WriteLine(nupdwn.Value)
end sub
public shared sub Main()
Application.Run(new NumericUpDowns())
end sub
end class</source>

VB.Net Tutorial/GUI/Password Field

2010-05-26T12:57:17Z

Admin: 1 версия

==Get input from a password field==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class PasswordFieldMatch
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private components As System.ruponentModel.IContainer
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.SuspendLayout()
"
"Label1
"
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(16, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(152, 32)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Password"
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(40, 64)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.PasswordChar = Microsoft.VisualBasic.ChrW(42)
Me.TextBox1.Size = New System.Drawing.Size(160, 20)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = ""
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(80, 96)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(80, 24)
Me.Button1.TabIndex = 2
Me.Button1.Text = "Input"
"
"Button2
"
Me.Button2.Location = New System.Drawing.Point(80, 136)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(80, 24)
Me.Button2.TabIndex = 3
Me.Button2.Text = "Check"
"
"Button3
"
Me.Button3.Location = New System.Drawing.Point(80, 176)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(80, 24)
Me.Button3.TabIndex = 4
Me.Button3.Text = "Exit"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(256, 222)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label1)
Me.ResumeLayout(False)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox1.Focus()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim answer As Object
Dim caption As String
Dim pwd As String
pwd = "Visual Basic"
caption = "Password"
If TextBox1.Text = pwd Then
answer = MsgBox("Match", 1, caption)
Else
answer = MsgBox("Does not Match", 1, caption)
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
End Class</source>

==Using a textbox, label and button to display the hidden text in a password box.==

<source lang="vbnet">Imports System.Windows.Forms
public class GetTextPasswordField
public Shared Sub Main
Application.Run(New FrmButtonTest)
End Sub
End class

Public Class FrmButtonTest
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Friend WithEvents lblOutput As System.Windows.Forms.Label
Friend WithEvents txtInput As System.Windows.Forms.TextBox
Friend WithEvents cmdShow As System.Windows.Forms.Button
"Required by the Windows Form Designer
Private components As System.ruponentModel.Container
"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.cmdShow = New System.Windows.Forms.Button()
Me.txtInput = New System.Windows.Forms.TextBox()
Me.lblOutput = New System.Windows.Forms.Label()
Me.SuspendLayout()
"
"cmdShow
"
Me.cmdShow.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmdShow.Location = New System.Drawing.Point(88, 88)
Me.cmdShow.Name = "cmdShow"
Me.cmdShow.Size = New System.Drawing.Size(96, 40)
Me.cmdShow.TabIndex = 2
Me.cmdShow.Text = "Show Me"
"
"txtInput
"
Me.txtInput.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtInput.Location = New System.Drawing.Point(16, 16)
Me.txtInput.Name = "txtInput"
Me.txtInput.PasswordChar = Microsoft.VisualBasic.ChrW(42)
Me.txtInput.Size = New System.Drawing.Size(232, 22)
Me.txtInput.TabIndex = 0
Me.txtInput.Text = ""
"
"lblOutput
"
Me.lblOutput.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblOutput.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblOutput.Location = New System.Drawing.Point(16, 56)
Me.lblOutput.Name = "lblOutput"
Me.lblOutput.Size = New System.Drawing.Size(232, 23)
Me.lblOutput.TabIndex = 1
"
"FrmButtonTest
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(264, 141)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmdShow, Me.lblOutput, Me.txtInput})
Me.Name = "FrmButtonTest"
Me.Text = "LabelTextBoxButtonExample"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub cmdShow_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cmdShow.Click
lblOutput.Text = txtInput.Text
End Sub
End Class</source>

VB.Net Tutorial/GUI/TrackBar

2010-05-26T12:57:16Z

Admin: 1 версия

==Get TrackBar value and LargeChange value==

<source lang="vbnet">imports System
imports System.Drawing
imports System.Windows.Forms
public class TrackBars : inherits Form
dim htbar as TrackBar
dim vtbar as TrackBar
public sub New()
Size = new Size(500,520)
htbar = new TrackBar()
htbar.Parent = me
htbar.Orientation = Orientation.Horizontal
htbar.Size = new Size(200, 10)
htbar.Location = new Point(0, 25)
htbar.TickStyle = TickStyle.BottomRight
htbar.TickFrequency = 25
htbar.Minimum = 25
htbar.Maximum = 400
htbar.SmallChange = 10
htbar.LargeChange = 25
htbar.BackColor = Color.Yellow
htbar.Value = 100
AddHandler htbar.ValueChanged, AddressOf htbar_OnValueChanged
vtbar = new TrackBar()
vtbar.Parent = me
vtbar.Orientation = Orientation.Vertical
vtbar.Size = new Size(25, 300)
vtbar.Location = new Point(25, 25)
vtbar.TickStyle = TickStyle.BottomRight
vtbar.SetRange(25,400)
vtbar.SmallChange = 10
vtbar.LargeChange = 50
vtbar.TickFrequency = CInt(vtbar.Maximum / 20)
vtbar.BackColor = Color.Pink
vtbar.Value = 200
AddHandler vtbar.ValueChanged, AddressOf vtbar_OnValueChanged
end sub " close for constructor
private sub htbar_OnValueChanged(ByVal sender as object, _
ByVal e as EventArgs)
Console.WriteLine(htbar.Value)
end sub
private sub vtbar_OnValueChanged(ByVal sender as object, _
ByVal e as EventArgs)
Console.WriteLine(vtbar.Value)
Console.WriteLine(vtbar.LargeChange)
end sub
public shared sub Main()
Application.Run(new TrackBars())
end sub
end class</source>

==Link ProgressBar with a TrackBar==

<source lang="vbnet">Imports System.Windows.Forms
public class TrackBarProgressBarLink
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
ProgressBar1.Value = TrackBar1.Value
Label1.Text = ProgressBar1.Value.ToString + "/100"
End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.ProgressBar1 = New System.Windows.Forms.ProgressBar
Me.Label1 = New System.Windows.Forms.Label
Me.TrackBar1 = New System.Windows.Forms.TrackBar
CType(Me.TrackBar1, System.ruponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
"
"ProgressBar1
"
Me.ProgressBar1.Location = New System.Drawing.Point(12, 50)
Me.ProgressBar1.Name = "ProgressBar1"
Me.ProgressBar1.Size = New System.Drawing.Size(358, 34)
Me.ProgressBar1.TabIndex = 0
"
"Label1
"
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(160, 23)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(35, 12)
Me.Label1.TabIndex = 1
Me.Label1.Text = "0/100"
"
"TrackBar1
"
Me.TrackBar1.Location = New System.Drawing.Point(12, 110)
Me.TrackBar1.Maximum = 100
Me.TrackBar1.Name = "TrackBar1"
Me.TrackBar1.Size = New System.Drawing.Size(358, 45)
Me.TrackBar1.TabIndex = 2
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(382, 166)
Me.Controls.Add(Me.TrackBar1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ProgressBar1)
Me.Name = "Form1"
Me.Text = "Form1"
CType(Me.TrackBar1, System.ruponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TrackBar1 As System.Windows.Forms.TrackBar
End Class</source>

==Use TrackBar to control the Scale==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class TrackBarScale
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DisplayScale.Scroll
DrawingArea.Invalidate()
End Sub
Private Sub DrawingArea_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles DrawingArea.Paint
Dim titleFont As Font
Dim mainFont As Font
Dim titleArea As Rectangle
Dim textArea As Rectangle
Dim titleFormat As StringFormat
Const MainTitle As String = "www.vbex.ru"
titleFont = New Font("Arial", 16, FontStyle.Bold)
mainFont = New Font("Arial", 12, FontStyle.Regular)
titleArea = New Rectangle(0, 0, DrawingArea.ClientRectangle.Width, titleFont.Height)
textArea = New Rectangle(0, titleFont.Height * 1.4, DrawingArea.ClientRectangle.Width, DrawingArea.ClientRectangle.Height - (titleFont.Height * 1.4))
e.Graphics.ScaleTransform(DisplayScale.Value, DisplayScale.Value)
titleFormat = New StringFormat()
titleFormat.Alignment = StringAlignment.Center
e.Graphics.DrawString(MainTitle, titleFont, Brushes.Black, titleArea, titleFormat)
titleFormat.Dispose()
mainFont.Dispose()
titleFont.Dispose()
End Sub
End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.LabelText = New System.Windows.Forms.Label
Me.DisplayText = New System.Windows.Forms.TextBox
Me.LabelScale = New System.Windows.Forms.Label
Me.DisplayScale = New System.Windows.Forms.TrackBar
Me.ActDisplay = New System.Windows.Forms.Button
Me.DrawingArea = New System.Windows.Forms.PictureBox
CType(Me.DisplayScale, System.ruponentModel.ISupportInitialize).BeginInit()
CType(Me.DrawingArea, System.ruponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
"
"LabelText
"
Me.LabelText.AutoSize = True
Me.LabelText.Location = New System.Drawing.Point(8, 8)
Me.LabelText.Name = "LabelText"
Me.LabelText.Size = New System.Drawing.Size(31, 13)
Me.LabelText.TabIndex = 0
Me.LabelText.Text = "&Text:"
"
"LabelScale
"
Me.LabelScale.AutoSize = True
Me.LabelScale.Location = New System.Drawing.Point(8, 144)
Me.LabelScale.Name = "LabelScale"
Me.LabelScale.Size = New System.Drawing.Size(37, 13)
Me.LabelScale.TabIndex = 2
Me.LabelScale.Text = "&Scale:"
"
"DisplayScale
"
Me.DisplayScale.Location = New System.Drawing.Point(48, 136)
Me.DisplayScale.Maximum = 5
Me.DisplayScale.Minimum = 1
Me.DisplayScale.Name = "DisplayScale"
Me.DisplayScale.Size = New System.Drawing.Size(104, 45)
Me.DisplayScale.TabIndex = 3
Me.DisplayScale.Value = 1
"
"DrawingArea
"
Me.DrawingArea.BackColor = System.Drawing.Color.White
Me.DrawingArea.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.DrawingArea.Location = New System.Drawing.Point(192, 8)
Me.DrawingArea.Name = "DrawingArea"
Me.DrawingArea.Size = New System.Drawing.Size(328, 208)
Me.DrawingArea.TabIndex = 5
Me.DrawingArea.TabStop = False
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(532, 227)
Me.Controls.Add(Me.DrawingArea)
Me.Controls.Add(Me.DisplayScale)

Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.Name = "Form1"
Me.Text = "Displaying Scaled Content"
CType(Me.DisplayScale, System.ruponentModel.ISupportInitialize).EndInit()
CType(Me.DrawingArea, System.ruponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents LabelText As System.Windows.Forms.Label
Friend WithEvents DisplayText As System.Windows.Forms.TextBox
Friend WithEvents LabelScale As System.Windows.Forms.Label
Friend WithEvents DisplayScale As System.Windows.Forms.TrackBar
Friend WithEvents ActDisplay As System.Windows.Forms.Button
Friend WithEvents DrawingArea As System.Windows.Forms.PictureBox
End Class</source>

VB.Net Tutorial/GUI/Control Event

2010-05-26T12:57:16Z

Admin: 1 версия

==A simple event handler==

<source lang="vbnet">Imports System.Windows.Forms
public class GenericEventHandler
public Shared Sub Main
Application.Run(New FrmSimple)
End Sub
End class

Public Class FrmSimple
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
" This call is required by the Windows Form Designer.
InitializeComponent()

" Add any initialization after the
" InitializeComponent() call
End Sub " New
" Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose( _
ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub " Dispose
Friend WithEvents lblOutput As System.Windows.Forms.Label
" Required by the Windows Form Designer
Private components As System.ruponentModel.Container
" 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.lblOutput = New System.Windows.Forms.Label()
Me.SuspendLayout()
"
"lblOutput
"
Me.lblOutput.Location = New System.Drawing.Point(16, 16)
Me.lblOutput.Name = "lblOutput"
Me.lblOutput.Size = New System.Drawing.Size(152, 80)
Me.lblOutput.TabIndex = 0
Me.lblOutput.Text = "Click Me!"
Me.lblOutput.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
"
"FrmSimple
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(176, 101)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblOutput})
Me.Name = "FrmSimple"
Me.Text = "SimpleEventExample"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub lblOutput_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles lblOutput.Click
MessageBox.Show("Label was clicked")
End Sub
End Class</source>

==Handle multiple event handlers from different controls==

<source lang="vbnet">Imports System.Windows.Forms
public class HandleMultipleEventsFromDifferentControls
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Private Sub MultipleEvents(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles _
TextBox1.Enter, TextBox2.Enter, TextBox3.Enter, _
TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged

Dim activeControl As TextBox
activeControl = CType(sender, TextBox)
ShowInfo.Text = "TextField #" & _
activeControl.Name & _
", " & activeControl.Text.Length & " character(s)"
End Sub
End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.TextBox1 = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.Label3 = New System.Windows.Forms.Label
Me.TextBox3 = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.ShowInfo = New System.Windows.Forms.Label
Me.SuspendLayout()
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(120, 8)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(160, 20)
Me.TextBox1.TabIndex = 1
"
"Label1
"
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(8, 10)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(93, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Text Box Field #1:"
"
"Label2
"
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(8, 42)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(93, 13)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Text Box Field #2:"
"
"TextBox2
"
Me.TextBox2.Location = New System.Drawing.Point(120, 40)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(160, 20)
Me.TextBox2.TabIndex = 3
"
"Label3
"
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(9, 72)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(93, 13)
Me.Label3.TabIndex = 4
Me.Label3.Text = "Text Box Field #3:"
"
"TextBox3
"
Me.TextBox3.Location = New System.Drawing.Point(121, 70)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(159, 20)
Me.TextBox3.TabIndex = 5
"
"Label4
"
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(8, 104)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(62, 13)
Me.Label4.TabIndex = 6
Me.Label4.Text = "Information:"
"
"ShowInfo
"
Me.ShowInfo.AutoSize = True
Me.ShowInfo.Location = New System.Drawing.Point(120, 104)
Me.ShowInfo.Name = "ShowInfo"
Me.ShowInfo.Size = New System.Drawing.Size(27, 13)
Me.ShowInfo.TabIndex = 7
Me.ShowInfo.Text = "N/A"
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(320, 136)
Me.Controls.Add(Me.ShowInfo)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TextBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Sharing Control Logic"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents ShowInfo As System.Windows.Forms.Label
End Class</source>

VB.Net Tutorial/GUI/TextBox

2010-05-26T12:57:15Z

Admin: 1 версия

==Change TextBox font by RadioButton and CheckBox==

<source lang="vbnet">Imports System.Windows.Forms
public class RadioButtonControlFont
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Public mysize As Integer
Public mybold As Boolean
Public myItalic As Boolean
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
CheckBox1.Checked = 1
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
myItalic = Not myItalic
TextBox1.Font = New System.Drawing.Font("", mysize, Drawing.FontStyle.Regular)
If myItalic And mybold Then
TextBox1.Font = New System.Drawing.Font("", mysize, Drawing.FontStyle.Italic)
ElseIf myItalic Then
TextBox1.Font = New System.Drawing.Font("", mysize, Drawing.FontStyle.Italic)
ElseIf mybold Then
TextBox1.Font = New System.Drawing.Font("", mysize, Drawing.FontStyle.Bold)
End If
End Sub
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
mybold = False
myItalic = False
mysize = 25
End Sub
Private Sub RadioButton1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
mysize = 36
TextBox1.Font = New System.Drawing.Font("", mysize)
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
mysize = 25
TextBox1.Font = New System.Drawing.Font("", mysize)
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
mybold = Not mybold
TextBox1.Font = New System.Drawing.Font("", mysize, Drawing.FontStyle.Regular)
If myItalic And mybold Then
TextBox1.Font = New System.Drawing.Font("", mysize, Drawing.FontStyle.Bold)
ElseIf myItalic Then
TextBox1.Font = New System.Drawing.Font("", mysize, Drawing.FontStyle.Italic)
ElseIf mybold Then
TextBox1.Font = New System.Drawing.Font("", mysize, Drawing.FontStyle.Bold)
End If
End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.CheckBox1 = New System.Windows.Forms.CheckBox
Me.CheckBox2 = New System.Windows.Forms.CheckBox
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.RadioButton1 = New System.Windows.Forms.RadioButton
Me.RadioButton2 = New System.Windows.Forms.RadioButton
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
"
"CheckBox1
"
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Location = New System.Drawing.Point(230, 34)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(48, 16)
Me.CheckBox1.TabIndex = 1
Me.CheckBox1.Text = "Italic"
Me.CheckBox1.UseVisualStyleBackColor = True
"
"CheckBox2
"
Me.CheckBox2.AutoSize = True
Me.CheckBox2.Location = New System.Drawing.Point(230, 56)
Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(48, 16)
Me.CheckBox2.TabIndex = 2
Me.CheckBox2.Text = "Bold"
Me.CheckBox2.UseVisualStyleBackColor = True
"
"GroupBox1
"
Me.GroupBox1.Controls.Add(Me.RadioButton2)
Me.GroupBox1.Controls.Add(Me.RadioButton1)
Me.GroupBox1.Location = New System.Drawing.Point(224, 85)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(132, 77)
Me.GroupBox1.TabIndex = 3
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Font size"
"
"RadioButton1
"
Me.RadioButton1.AutoSize = True
Me.RadioButton1.Location = New System.Drawing.Point(6, 20)
Me.RadioButton1.Name = "RadioButton1"
Me.RadioButton1.Size = New System.Drawing.Size(59, 16)
Me.RadioButton1.TabIndex = 1
Me.RadioButton1.TabStop = True
Me.RadioButton1.Text = "Larger font"
Me.RadioButton1.UseVisualStyleBackColor = True
"
"RadioButton2
"
Me.RadioButton2.AutoSize = True
Me.RadioButton2.Location = New System.Drawing.Point(6, 42)
Me.RadioButton2.Name = "RadioButton2"
Me.RadioButton2.Size = New System.Drawing.Size(59, 16)
Me.RadioButton2.TabIndex = 2
Me.RadioButton2.TabStop = True
Me.RadioButton2.Text = "Smaller font"
Me.RadioButton2.UseVisualStyleBackColor = True
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(12, 12)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(195, 150)
Me.TextBox1.TabIndex = 4
Me.TextBox1.Text = "www.vbex.ru"
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(368, 174)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.CheckBox2)
Me.Controls.Add(Me.CheckBox1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
End Class</source>

==Comprehensive Demo for TextBox==

<source lang="vbnet">"Programming .Net Windows Applications [ILLUSTRATED] (Paperback)
"by Jesse Liberty (Author), Dan Hurwitz (Author)
"# Publisher: O"Reilly Media, Inc.; 1 edition (October 28, 2003)
"# Language: English
"# ISBN-10: 0596003218
"# ISBN-13: 978-0596003210
imports System
imports System.Drawing
imports System.Windows.Forms
imports System.Text
namespace ProgrammingWinApps
public class TextBoxes : inherits Form
dim yDelta as integer
dim yPos as integer = 20
dim txtSingle as TextBox
dim txtMulti as TextBox
dim txtDisplay as TextBox
dim btn as Button
dim txtBoxes(1) as TextBox
public sub New()
Text = "TextBoxes"
Size = new Size(450,375)
dim lblSingle as new Label()
lblSingle.Parent = me
lblSingle.Text = "Single Line TextBox:"
lblSingle.Location = new Point(10,yPos)
lblSingle.Size = new Size(150,20)
lblSingle.TextAlign = ContentAlignment.MiddleRight
yDelta = lblSingle.Height + 10
txtSingle = new TextBox()
txtSingle.Parent = me
txtSingle.Text = "Single Line"
txtSingle.Size = new Size(200, txtSingle.PreferredHeight)
txtSingle.Location = new Point(lblSingle.Left + _
lblSingle.Size.Width, yPos)
txtSingle.Multiline = false
txtSingle.BorderStyle = BorderStyle.Fixed3D
dim lblMulti as new Label()
lblMulti.Parent = me
lblMulti.Text = "Multi Line TextBox:"
lblMulti.Location = new Point(10, yPos + yDelta)
lblMulti.Size = new Size(150,20)
lblMulti.TextAlign = ContentAlignment.MiddleRight
txtMulti = new TextBox()
txtMulti.Parent = me
txtMulti.Text = "Multi Line"
txtMulti.Size = new Size(200,100)
txtMulti.Location = new Point(lblMulti.Left + _
lblMulti.Size.Width, yPos + yDelta)
txtMulti.AcceptsTab = true
txtMulti.Multiline = true
txtMulti.BorderStyle = BorderStyle.Fixed3D
txtMulti.ScrollBars = ScrollBars.Vertical
btn = new Button()
btn.Parent = me
btn.Text = "Show MultiLines"
btn.Location = new Point(lblMulti.Left + _
lblMulti.Size.Width, yPos + (5 * yDelta))
AddHandler btn.Click, AddressOf btn_Click
dim xSize as integer = CType((Font.Height * .75) * _
btn.Text.Length, integer)
dim ySize as integer = Font.Height + 10
btn.Size = new Size(xSize, ySize)
txtDisplay = new TextBox()
txtDisplay.Parent = me
txtDisplay.Text = ""
txtDisplay.Size = new Size(200,100)
txtDisplay.Location = new Point(lblMulti.Left + _
lblMulti.Size.Width, yPos + (6 * yDelta))
txtDisplay.Multiline = true
txtDisplay.BorderStyle = BorderStyle.FixedSingle
txtDisplay.BackColor = Color.LightGray
txtDisplay.ScrollBars = ScrollBars.Vertical
txtDisplay.ReadOnly = true
" Fill the array of TextBoxes
txtBoxes(0) = txtSingle
txtBoxes(1) = txtMulti
" Menus
" Edit menu items
dim mnuDash1 as new MenuItem("-")
dim mnuDash2 as new MenuItem("-")
dim mnuUndo as new MenuItem("&Undo", _
new EventHandler(AddressOf mnuUndo_Click), _
Shortcut.CtrlZ)
dim mnuCut as new MenuItem("Cu&t", _
new EventHandler(AddressOf mnuCut_Click), _
Shortcut.CtrlX)
dim mnuCopy as new MenuItem("&Copy", _
new EventHandler(AddressOf mnuCopy_Click), _
Shortcut.CtrlC)
dim mnuPaste as new MenuItem("&Paste", _
new EventHandler(AddressOf mnuPaste_Click), _
Shortcut.CtrlV)
dim mnuDelete as new MenuItem("&Delete", _
new EventHandler(AddressOf mnuDelete_Click))
dim mnuSelectAll as new MenuItem("Select &All", _
new EventHandler(AddressOf mnuSelectAll_Click), _
Shortcut.CtrlA)
dim mnuSelect5 as new MenuItem("Select First &5", _
new EventHandler(AddressOf mnuSelect5_Click), _
Shortcut.Ctrl5)
dim mnuClear as new MenuItem("Clea&r", _
new EventHandler(AddressOf mnuClear_Click))
dim mnuEdit as new MenuItem("&Edit", _
new MenuItem() {mnuUndo, mnuDash1, _
mnuCut, mnuCopy, mnuPaste, mnuDelete, mnuDash2, _
mnuSelectAll, mnuSelect5, mnuClear})
" View Menu items
dim mnuScrollToCaret as new MenuItem("&Scroll to Caret", _
new EventHandler(AddressOf mnuScrollToCaret_Click))
dim mnuView as new MenuItem("&View", _
new MenuItem() {mnuScrollToCaret})

" Main menu
Menu = new MainMenu(new MenuItem() {mnuEdit, mnuView})

end sub " close for constructor
public shared sub Main()
Application.Run(new TextBoxes())
end sub
private sub mnuUndo_Click(ByVal sender As Object, _
ByVal e As EventArgs)
dim i as integer
for i = 0 to txtBoxes.Length - 1
if txtBoxes(i).Focused then
dim txt as TextBox = CType(txtBoxes(i), TextBox)
if txt.CanUndo = true then
txt.Undo()
txt.ClearUndo()
end if
end if
next
end sub
private sub mnuCut_Click(ByVal sender As Object, _
ByVal e As EventArgs)
dim i as integer
for i = 0 to txtBoxes.Length - 1
if txtBoxes(i).Focused then
dim txt as TextBox = CType(txtBoxes(i), TextBox)
if txt.SelectedText <> "" then
txt.Cut()
end if
end if
next
end sub
private sub mnuCopy_Click(ByVal sender As Object, _
ByVal e As EventArgs)
dim i as integer
for i = 0 to txtBoxes.Length - 1
if txtBoxes(i).Focused then
dim txt as TextBox = CType(txtBoxes(i), TextBox)
if txt.SelectionLength > 0 then
txt.Copy()
end if
end if
next
end sub
private sub mnuPaste_Click(ByVal sender As Object, _
ByVal e As EventArgs)
if Clipboard.GetDataObject().GetDataPresent(DataFormats.Text) = true then
dim i as integer
for i = 0 to txtBoxes.Length - 1
if txtBoxes(i).Focused then
dim txt as TextBox = CType(txtBoxes(i), TextBox)
if txt.SelectionLength > 0 then
if MessageBox.Show( _
"Do you want to overwrite the currently selected text?", _
"Cut & Paste", MessageBoxButtons.YesNo) = _
DialogResult.No then
txt.SelectionStart = txt.SelectionStart + _
txt.SelectionLength
end if
end if
txt.Paste()
end if
next
end if
end sub
private sub mnuDelete_Click(ByVal sender As Object, _
ByVal e As EventArgs)
dim i as integer
for i = 0 to txtBoxes.Length - 1
if txtBoxes(i).Focused then
dim txt as TextBox = CType(txtBoxes(i), TextBox)
if txt.SelectionLength > 0 then
txt.SelectedText = ""
end if
end if
next
end sub
private sub mnuClear_Click(ByVal sender As Object, _
ByVal e As EventArgs)
dim i as integer
for i = 0 to txtBoxes.Length - 1
if txtBoxes(i).Focused then
dim txt as TextBox = CType(txtBoxes(i), TextBox)
txt.Clear()
end if
next
end sub
private sub mnuSelect5_Click(ByVal sender As Object, _
ByVal e As EventArgs)
dim i as integer
for i = 0 to txtBoxes.Length - 1
if txtBoxes(i).Focused then
dim txt as TextBox = CType(txtBoxes(i), TextBox)
if txt.Text.Length >= 5 then
txt.Select(0,5)
else
txt.Select(0,txt.Text.Length)
end if
end if
next
end sub
private sub mnuSelectAll_Click(ByVal sender As Object, _
ByVal e As EventArgs)
dim i as integer
for i = 0 to txtBoxes.Length - 1
if txtBoxes(i).Focused then
dim txt as TextBox = CType(txtBoxes(i), TextBox)
txt.SelectAll()
end if
next
end sub
private sub mnuScrollToCaret_Click(ByVal sender As Object, _
ByVal e As EventArgs)
dim i as integer
for i = 0 to txtBoxes.Length - 1
if txtBoxes(i).Focused then
dim txt as TextBox = CType(txtBoxes(i), TextBox)
txt.ScrollToCaret()
end if
next
end sub
private sub btn_Click(ByVal sender as object, _
ByVal e as EventArgs)
" Create a string array to hold the Lines property.
dim arLines(txtMulti.Lines.Length - 1) as string
arLines = txtMulti.Lines
" Use stringBuilder for efficiency.
dim str as string = "Line" + vbTab + "String" + vbCrLf
dim sb as new StringBuilder()
sb.Append(str)
" Iterate through the array & display each line.
dim i as integer
for i = 0 to arLines.Length - 1
str = i.ToString() + "." + vbTab + arLines(i) + vbCrLf
sb.Append(str)
next
txtDisplay.Text = sb.ToString()
end sub
end class
end namespace</source>

==Convert input value in a TextField==

<source lang="vbnet">Imports System.Windows.Forms
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Class ConvertForm
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.SourceFahrenheit = New System.Windows.Forms.RadioButton
Me.SourceCelsius = New System.Windows.Forms.RadioButton
Me.SourceKelvin = New System.Windows.Forms.RadioButton
Me.ValueFahrenheit = New System.Windows.Forms.TextBox
Me.ValueCelsius = New System.Windows.Forms.TextBox
Me.ValueKelvin = New System.Windows.Forms.TextBox
Me.ConvertTemperature = New System.Windows.Forms.Button
Me.SuspendLayout()
"
"SourceFahrenheit
"
Me.SourceFahrenheit.AutoSize = True
Me.SourceFahrenheit.Checked = True
Me.SourceFahrenheit.Location = New System.Drawing.Point(16, 24)
Me.SourceFahrenheit.Name = "SourceFahrenheit"
Me.SourceFahrenheit.Size = New System.Drawing.Size(75, 17)
Me.SourceFahrenheit.TabIndex = 0
Me.SourceFahrenheit.TabStop = True
Me.SourceFahrenheit.Text = "&Fahrenheit"
Me.SourceFahrenheit.UseVisualStyleBackColor = True
"
"SourceCelsius
"
Me.SourceCelsius.AutoSize = True
Me.SourceCelsius.Location = New System.Drawing.Point(16, 56)
Me.SourceCelsius.Name = "SourceCelsius"
Me.SourceCelsius.Size = New System.Drawing.Size(58, 17)
Me.SourceCelsius.TabIndex = 2
Me.SourceCelsius.Text = "&Celsius"
Me.SourceCelsius.UseVisualStyleBackColor = True
"
"SourceKelvin
"
Me.SourceKelvin.AutoSize = True
Me.SourceKelvin.Location = New System.Drawing.Point(16, 88)
Me.SourceKelvin.Name = "SourceKelvin"
Me.SourceKelvin.Size = New System.Drawing.Size(53, 17)
Me.SourceKelvin.TabIndex = 4
Me.SourceKelvin.Text = "&kelvin"
Me.SourceKelvin.UseVisualStyleBackColor = True
"
"ValueFahrenheit
"
Me.ValueFahrenheit.Location = New System.Drawing.Point(120, 24)
Me.ValueFahrenheit.Name = "ValueFahrenheit"
Me.ValueFahrenheit.Size = New System.Drawing.Size(100, 20)
Me.ValueFahrenheit.TabIndex = 1
"
"ValueCelsius
"
Me.ValueCelsius.Location = New System.Drawing.Point(120, 56)
Me.ValueCelsius.Name = "ValueCelsius"
Me.ValueCelsius.Size = New System.Drawing.Size(100, 20)
Me.ValueCelsius.TabIndex = 3
"
"ValueKelvin
"
Me.ValueKelvin.Location = New System.Drawing.Point(120, 88)
Me.ValueKelvin.Name = "ValueKelvin"
Me.ValueKelvin.Size = New System.Drawing.Size(100, 20)
Me.ValueKelvin.TabIndex = 5
"
"ConvertTemperature
"
Me.ConvertTemperature.Location = New System.Drawing.Point(144, 128)
Me.ConvertTemperature.Name = "ConvertTemperature"
Me.ConvertTemperature.Size = New System.Drawing.Size(75, 23)
Me.ConvertTemperature.TabIndex = 6
Me.ConvertTemperature.Text = "Convert"
Me.ConvertTemperature.UseVisualStyleBackColor = True
"
"ConvertForm
"
Me.AcceptButton = Me.ConvertTemperature
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(245, 169)
Me.Controls.Add(Me.ConvertTemperature)
Me.Controls.Add(Me.ValueKelvin)
Me.Controls.Add(Me.ValueCelsius)
Me.Controls.Add(Me.ValueFahrenheit)
Me.Controls.Add(Me.SourceKelvin)
Me.Controls.Add(Me.SourceCelsius)
Me.Controls.Add(Me.SourceFahrenheit)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "ConvertForm"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Convert Temperatures"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents SourceFahrenheit As System.Windows.Forms.RadioButton
Friend WithEvents SourceCelsius As System.Windows.Forms.RadioButton
Friend WithEvents SourceKelvin As System.Windows.Forms.RadioButton
Friend WithEvents ValueFahrenheit As System.Windows.Forms.TextBox
Friend WithEvents ValueCelsius As System.Windows.Forms.TextBox
Friend WithEvents ValueKelvin As System.Windows.Forms.TextBox
Friend WithEvents ConvertTemperature As System.Windows.Forms.Button
End Class
Public Class ConvertForm
Private Sub ConvertTemperature_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConvertTemperature.Click
On Error Resume Next
If (SourceFahrenheit.Checked = True) Then
If (IsNumeric(ValueFahrenheit.Text) = True) Then
ValueCelsius.Text = _
(Val(ValueFahrenheit.Text) - 32) / 1.8
ValueKelvin.Text = _
((Val(ValueFahrenheit.Text) - 32) / 1.8) + 273.15
Else
ValueCelsius.Text = "Error"
ValueKelvin.Text = "Error"
End If
ElseIf (SourceCelsius.Checked = True) Then
If (IsNumeric(ValueCelsius.Text) = True) Then
ValueFahrenheit.Text = _
(Val(ValueCelsius.Text) * 1.8) + 32
ValueKelvin.Text = Val(ValueCelsius.Text) + 273.15
Else
ValueFahrenheit.Text = "Error"
ValueKelvin.Text = "Error"
End If
Else
If (IsNumeric(ValueKelvin.Text) = True) Then
ValueFahrenheit.Text = _
((Val(ValueKelvin.Text) - 273.15) * 1.8) + 32
ValueCelsius.Text = Val(ValueKelvin.Text) - 273.15
Else
ValueFahrenheit.Text = "Error"
ValueCelsius.Text = "Error"
End If
End If
End Sub
End Class

public class FahrenheitCelsiusConverter
Public Shared Sub Main()
Application.Run(New ConvertForm)
End Sub
End Class</source>

==Copy selection text from a TextBox and paste to another==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class TextBoxCopyPaste
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.Label1 = New System.Windows.Forms.Label
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.SuspendLayout()
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(128, 72)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(112, 20)
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = ""
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(128, 120)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(112, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Copy Selected Text"
"
"Label1
"
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(0, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(344, 48)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Copying Selected Text"
"
"TextBox2
"
Me.TextBox2.Location = New System.Drawing.Point(128, 168)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(112, 20)
Me.TextBox2.TabIndex = 3
Me.TextBox2.Text = ""
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(360, 253)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Copy()
TextBox2.Paste()
End Sub
End Class</source>

==Create PasswordField by setting the TextBox.PasswordChar==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class PasswordFieldByTextBox
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.SuspendLayout()
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(96, 56)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.PasswordChar = Microsoft.VisualBasic.ChrW(42)
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = ""
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(104, 104)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 1
Me.Button1.Text = "Read Text"
"
"TextBox2
"
Me.TextBox2.Location = New System.Drawing.Point(96, 160)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.TabIndex = 2
Me.TextBox2.Text = ""
"
"Label1
"
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(0, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(184, 40)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Passwords"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = TextBox1.Text
End Sub
End Class</source>

==Disable TextBox Context Menu==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class DisableTextBoxContextMenu
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim text_box As New NoCtxMnuTextBox
text_box.Location = New Point(TextBox1.Left, TextBox1.Top + TextBox1.Height + 4)
text_box.Size = TextBox1.Size
Me.Controls.Add(text_box)
End Sub
End Class
Public Class NoCtxMnuTextBox
Inherits System.Windows.Forms.TextBox
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Const WM_CONTEXTMENU As Integer = &H7B
If m.Msg <> WM_CONTEXTMENU Then
MyBase.WndProc(m)
End If
End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Public Class Form1
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.TextBox1 = New System.Windows.Forms.TextBox
Me.SuspendLayout()
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(16, 16)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(120, 20)
Me.TextBox1.TabIndex = 0
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(156, 102)
Me.Controls.Add(Me.TextBox1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
End Class</source>

==Display text file in a TextBox==

<source lang="vbnet">Imports System.IO
Imports System.Windows.Forms
public class TextFileDisplayTextBox
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(104, 24)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 0
Me.Button1.Text = "Select a File"
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(20, 80)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(250, 150)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = ""
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.TextBox1})
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim FileDB As New OpenFileDialog()
FileDB.Filter = "All files | *.* | Word files | *.doc | Text files | *.txt"
FileDB.FilterIndex = 3
FileDB.InitialDirectory = "C:\Temp"
If (FileDB.ShowDialog() = DialogResult.OK) Then
Dim FS As FileStream
Try
FS = FileDB.OpenFile()
Catch
MsgBox("Error opening " & FileDB.FileName)
End Try
Dim TextData(1025) As Byte
Dim BytesRead As Integer
Dim I As Integer
Dim NewText As String
Do
Try
BytesRead = FS.Read(TextData, 1, 1024)
NewText = ""
For I = 1 To BytesRead
NewText = NewText & Chr(TextData(I))
Next
TextBox1.AppendText(NewText)
Catch
MsgBox("Error reading file")
End Try
Loop While (BytesRead <> 0)
FS.Close()
Else
MsgBox("User selected Cancel")
End If
End Sub
End Class</source>

==Get input from TextBox and Set to Label==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class GetTextInTextBoxAndSetToLabel
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private components As System.ruponentModel.IContainer
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.SuspendLayout()
"
"Label1
"
Me.Label1.Location = New System.Drawing.Point(48, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(160, 32)
Me.Label1.TabIndex = 0
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(64, 64)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(120, 20)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = ""
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(88, 104)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(72, 24)
Me.Button1.TabIndex = 2
Me.Button1.Text = "Display"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(256, 166)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = "Hello," + TextBox1.Text + ""
End Sub
End Class</source>

==Get selected text in TextBox==

<source lang="vbnet">Imports System.Windows.Forms
Imports System.Drawing.Text
Imports System.Drawing
Imports System.Drawing.Drawing2D
public class TextBoxSelectionLength
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.SelectionLength = 0 Then
MessageBox.Show(TextBox1.Text)
Else
MessageBox.Show(TextBox1.SelectedText)
End If
End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.TextBox1 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.SuspendLayout()
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(12, 12)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(410, 137)
Me.TextBox1.TabIndex = 0
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(150, 173)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(131, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Display selected text"
Me.Button1.UseVisualStyleBackColor = True
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(434, 208)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
End Class</source>

==Inherit TextBox to create custom control based on TextBox==

<source lang="vbnet">Imports System
Imports System.Collections
Imports System.IO
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Drawing2D
Public Class FileTextBox
Inherits TextBox
#Region " Component Designer generated code "
Public Sub New(ByVal Container As System.ruponentModel.IContainer)
MyClass.New()
"Required for Windows.Forms Class Composition Designer support
Container.Add(Me)
End Sub
Public Sub New()
MyBase.New()
"This call is required by the Component Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Component overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Component Designer
Private components As System.ruponentModel.IContainer
"NOTE: The following procedure is required by the Component Designer
"It can be modified using the Component Designer.
"Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
components = New System.ruponentModel.Container()
End Sub
#End Region

Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
If Not File.Exists(Me.Text) Then
Me.ForeColor = Color.Red
Else
Me.ForeColor = Color.Black
End If
MyBase.OnTextChanged(e)
End Sub
End Class</source>

==Multiline Text Boxes==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class TextBoxMultiline
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.SuspendLayout()
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(5, 5)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.TextBox1.Size = New System.Drawing.Size(200, 150)
Me.TextBox1.TabIndex = 2
Me.TextBox1.Text = ""
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(288, 189)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
End Class</source>

==Numeric TextBox==

<source lang="vbnet">Imports System.Windows.Forms
public class NumericTextBoxDemo
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents NumTextBox1 As NumTextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button()
Me.NumTextBox1 = New NumTextBox()
Me.SuspendLayout()
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(144, 120)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 1
Me.Button1.Text = "Do It!"
"
"NumTextBox1
"
Me.NumTextBox1.Location = New System.Drawing.Point(32, 56)
Me.NumTextBox1.Name = "NumTextBox1"
Me.NumTextBox1.TabIndex = 3
Me.NumTextBox1.Text = "NumTextBox1"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.NumTextBox1, Me.Button1})
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region

End Class

Public Class NumTextBox
Inherits System.Windows.Forms.TextBox
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"UserControl1 overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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()
"
"NumTextBox
"
End Sub
#End Region

Protected Overrides Sub OnLeave(ByVal e As System.EventArgs)
If Not IsNumeric(Me.Text) Then
MessageBox.Show("You must enter a numeric value!", _
"Please try again....", MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
Me.Focus()
End If
MyBase.OnLeave(e)
End Sub
End Class</source>

==Save text in TextBox to a file==

<source lang="vbnet">Imports System.IO
Imports System.Windows.Forms
public class SaveTextBoxToFile
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(104, 24)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 0
Me.Button1.Text = "Save to File"
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(20, 80)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(250, 150)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = ""
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.TextBox1})
Me.Name = "Form1"
Me.Text = "SaveTextToFile"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim FileDB As New SaveFileDialog()
FileDB.Filter = "All files | *.* | Word files | *.doc | Text files | *.txt"
FileDB.FilterIndex = 3
FileDB.InitialDirectory = "C:\Temp"
FileDB.AddExtension = True
FileDB.DefaultExt = "txt"
If (FileDB.ShowDialog() = DialogResult.OK) Then
Dim FS As FileStream
Try
FS = New FileStream(FileDB.FileName, FileMode.Create)
Dim I As Integer
For I = 0 To TextBox1.Text.Length - 1
FS.WriteByte(Asc(TextBox1.Text.Chars(I)))
Next
Catch
Console.WriteLine("Error writing file")
End Try
FS.Close()
MsgBox("Text saved to " & FileDB.FileName)
Else
MsgBox("User selected Cancel")
End If
End Sub
End Class</source>

==TextBox Text Changed Event==

<source lang="vbnet">imports System
imports System.Drawing
imports System.Windows.Forms
public class TextBoxTextChanged : inherits Form
dim txt as TextBox
dim btn as Button
dim strOriginal as string
public sub New()
Text = "TextBox Modified and TextChanged"
Size = new Size(300, 375)
txt = new TextBox()
txt.Parent = me
txt.Text = "Enter text here."
txt.Size = new Size(280, 275)
txt.Location = new Point(10,10)
AddHandler txt.TextChanged, AddressOf txt_TextChanged
txt.Multiline = true
txt.BorderStyle = BorderStyle.Fixed3D
txt.ScrollBars = ScrollBars.Vertical
txt.Anchor = AnchorStyles.Left or AnchorStyles.Right or AnchorStyles.Top or AnchorStyles.Bottom
strOriginal = txt.Text
btn = new Button()
btn.Parent = me
btn.Text = "Check "
btn.Location = new Point(20,320)
AddHandler btn.Click, AddressOf btn_Click
btn.Anchor = AnchorStyles.Bottom
end sub
public shared sub Main()
Application.Run(new TextBoxTextChanged())
end sub
private sub txt_TextChanged(ByVal sender as object,ByVal e as EventArgs)
Console.WriteLine("txt_TextChanged")
if strOriginal = txt.Text then
txt.Modified = false
else
txt.Modified = true
end if
end sub
private sub btn_Click(ByVal sender as object,ByVal e as EventArgs)
if txt.Modified then
Console.WriteLine("modified.")
strOriginal = txt.Text
txt.Modified = false
else
Console.WriteLine("not been modified." )
end if
end sub
end class</source>

VB.Net Tutorial/GUI/StatusStrip

2010-05-26T12:57:14Z

Admin: 1 версия

==StatusStrip Demo==

<source lang="vbnet">Imports System.Windows.Forms
public class StatusStripDemo
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
ToolStripProgressBar1.Value = 50
ToolStripStatusLabel1.Text = ToolStripProgressBar1.Value
End Sub
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
ToolStripProgressBar1.Value = 0
ToolStripStatusLabel1.Text = ToolStripProgressBar1.Value
End Sub
End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.StatusStrip1 = New System.Windows.Forms.StatusStrip
Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel
Me.ToolStripProgressBar1 = New System.Windows.Forms.ToolStripProgressBar
Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton
Me.ToolStripSplitButton1 = New System.Windows.Forms.ToolStripSplitButton
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem
Me.StatusStrip1.SuspendLayout()
Me.SuspendLayout()
"
"StatusStrip1
"
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1, Me.ToolStripProgressBar1, Me.ToolStripDropDownButton1, Me.ToolStripSplitButton1})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 168)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(481, 22)
Me.StatusStrip1.TabIndex = 0
Me.StatusStrip1.Text = "StatusStrip1"
"
"ToolStripStatusLabel1
"
Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(131, 17)
Me.ToolStripStatusLabel1.Text = "ToolStripStatusLabel1"
"
"ToolStripProgressBar1
"
Me.ToolStripProgressBar1.Name = "ToolStripProgressBar1"
Me.ToolStripProgressBar1.Size = New System.Drawing.Size(100, 16)
"
"ToolStripDropDownButton1
"
Me.ToolStripDropDownButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripDropDownButton1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1})
Me.ToolStripDropDownButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripDropDownButton1.Name = "ToolStripDropDownButton1"
Me.ToolStripDropDownButton1.Size = New System.Drawing.Size(29, 20)
Me.ToolStripDropDownButton1.Text = "ToolStripDropDownButton1"
"
"ToolStripSplitButton1
"
Me.ToolStripSplitButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripSplitButton1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2})
Me.ToolStripSplitButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripSplitButton1.Name = "ToolStripSplitButton1"
Me.ToolStripSplitButton1.Size = New System.Drawing.Size(32, 20)
Me.ToolStripSplitButton1.Text = "ToolStripSplitButton1"
"
"ToolStripMenuItem1
"
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(178, 22)
Me.ToolStripMenuItem1.Text = "ToolStripMenuItem1"
"
"ToolStripMenuItem2
"
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(178, 22)
Me.ToolStripMenuItem2.Text = "ToolStripMenuItem2"
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(481, 190)
Me.Controls.Add(Me.StatusStrip1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents ToolStripStatusLabel1 As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents ToolStripProgressBar1 As System.Windows.Forms.ToolStripProgressBar
Friend WithEvents ToolStripDropDownButton1 As System.Windows.Forms.ToolStripDropDownButton
Friend WithEvents ToolStripSplitButton1 As System.Windows.Forms.ToolStripSplitButton
Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem
End Class</source>

VB.Net Tutorial/GUI/MenuItem

2010-05-26T12:57:13Z

Admin: 1 версия

==Add Menu and MenuItem in your code==

<source lang="vbnet">Imports System.IO
Imports System.Windows.Forms
public class MenuAddDynamically
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Inherits System.Windows.Forms.Form
Private ourMenu As MainMenu
Private ourTop As MenuItem
Private WithEvents ourItem As MenuItem
Private Sub menuClick(ByVal sender As Object, ByVal e As System.EventArgs)
MessageBox.Show("You clicked " & sender.text & ".", _
"Interactive Menu Creator!")
End Sub

#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Friend WithEvents btnMainMenu As System.Windows.Forms.Button
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents btnTopMnu As System.Windows.Forms.Button
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents btnAddItem As System.Windows.Forms.Button
Friend WithEvents lstTopLevel As System.Windows.Forms.ListBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtItemText As System.Windows.Forms.TextBox
Friend WithEvents txtTopLevel As System.Windows.Forms.TextBox
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.btnMainMenu = New System.Windows.Forms.Button()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.txtTopLevel = New System.Windows.Forms.TextBox()
Me.btnTopMnu = New System.Windows.Forms.Button()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.lstTopLevel = New System.Windows.Forms.ListBox()
Me.btnAddItem = New System.Windows.Forms.Button()
Me.txtItemText = New System.Windows.Forms.TextBox()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.SuspendLayout()
"
"btnMainMenu
"
Me.btnMainMenu.Location = New System.Drawing.Point(40, 16)
Me.btnMainMenu.Name = "btnMainMenu"
Me.btnMainMenu.Size = New System.Drawing.Size(128, 40)
Me.btnMainMenu.TabIndex = 0
Me.btnMainMenu.Text = "Create the MainMenu"
"
"GroupBox1
"
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtTopLevel, Me.btnTopMnu})
Me.GroupBox1.Location = New System.Drawing.Point(40, 80)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(344, 104)
Me.GroupBox1.TabIndex = 1
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Add top-level Menu text:"
"
"txtTopLevel
"
Me.txtTopLevel.Location = New System.Drawing.Point(24, 24)
Me.txtTopLevel.Name = "txtTopLevel"
Me.txtTopLevel.Size = New System.Drawing.Size(272, 20)
Me.txtTopLevel.TabIndex = 5
Me.txtTopLevel.Text = ""
"
"btnTopMnu
"
Me.btnTopMnu.Location = New System.Drawing.Point(200, 64)
Me.btnTopMnu.Name = "btnTopMnu"
Me.btnTopMnu.Size = New System.Drawing.Size(88, 24)
Me.btnTopMnu.TabIndex = 4
Me.btnTopMnu.Text = "Make it so!"
"
"GroupBox2
"
Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label5, Me.lstTopLevel, Me.btnAddItem, Me.txtItemText})
Me.GroupBox2.Location = New System.Drawing.Point(40, 216)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(344, 248)
Me.GroupBox2.TabIndex = 2
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Add menu item text:"
"
"Label5
"
Me.Label5.Location = New System.Drawing.Point(32, 64)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(256, 16)
Me.Label5.TabIndex = 6
Me.Label5.Text = "Select menu the item goes on:"
"
"lstTopLevel
"
Me.lstTopLevel.Location = New System.Drawing.Point(16, 88)
Me.lstTopLevel.Name = "lstTopLevel"
Me.lstTopLevel.Size = New System.Drawing.Size(288, 108)
Me.lstTopLevel.TabIndex = 5
"
"btnAddItem
"
Me.btnAddItem.Location = New System.Drawing.Point(216, 208)
Me.btnAddItem.Name = "btnAddItem"
Me.btnAddItem.Size = New System.Drawing.Size(88, 24)
Me.btnAddItem.TabIndex = 4
Me.btnAddItem.Text = "Add Item!"
"
"txtItemText
"
Me.txtItemText.Location = New System.Drawing.Point(56, 32)
Me.txtItemText.Name = "txtItemText"
Me.txtItemText.Size = New System.Drawing.Size(200, 20)
Me.txtItemText.TabIndex = 3
Me.txtItemText.Text = ""
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(440, 510)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox2, Me.GroupBox1, Me.btnMainMenu})
Me.Name = "Form1"
Me.Text = "Interactive menu creator"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub btnMainMenu_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnMainMenu.Click
ourMenu = New MainMenu()
Me.Menu = ourMenu
End Sub
Private Sub btnTopMnu_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnTopMnu.Click
Dim itemString As String = txtTopLevel.Text
ourTop = New MenuItem(itemString)
ourMenu.MenuItems.Add(ourTop)
lstTopLevel.Items.Add(itemString)
End Sub
Private Sub btnAddItem_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnAddItem.Click
Dim i As Integer
i = 0
ourItem = New MenuItem(txtItemText.Text, New System.EventHandler (AddressOf Me.menuClick))
ourMenu.MenuItems(i).MenuItems.Add(ourItem)
End Sub
End Class</source>

==Add submenu to menu==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class OwnerDrawMenuAndSubmenu
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.MainMenu1 = New System.Windows.Forms.MainMenu
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.MenuItem2 = New System.Windows.Forms.MenuItem
Me.MenuItem7 = New System.Windows.Forms.MenuItem
Me.MenuItem8 = New System.Windows.Forms.MenuItem
Me.MenuItem9 = New System.Windows.Forms.MenuItem
Me.MenuItem3 = New System.Windows.Forms.MenuItem
Me.MenuItem4 = New System.Windows.Forms.MenuItem
Me.MenuItem5 = New System.Windows.Forms.MenuItem
Me.MenuItem6 = New System.Windows.Forms.MenuItem
Me.SuspendLayout()
"
"MainMenu1
"
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
"
"MenuItem1
"
Me.MenuItem1.Index = 0
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem3, Me.MenuItem4, Me.MenuItem5, Me.MenuItem6})
Me.MenuItem1.Text = "&File"
"
"MenuItem2
"
Me.MenuItem2.Index = 0
Me.MenuItem2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem7, Me.MenuItem8, Me.MenuItem9})
Me.MenuItem2.Text = "Item 1"
"
"MenuItem7
"
Me.MenuItem7.Index = 0
Me.MenuItem7.OwnerDraw = True
Me.MenuItem7.Text = "Item 5"
"
"MenuItem8
"
Me.MenuItem8.Checked = True
Me.MenuItem8.Index = 1
Me.MenuItem8.Text = "Item 6"
"
"MenuItem9
"
Me.MenuItem9.Index = 2
Me.MenuItem9.Text = "Item 7"
"
"MenuItem3
"
Me.MenuItem3.Index = 1
Me.MenuItem3.Text = "Item 2"
"
"MenuItem4
"
Me.MenuItem4.Index = 2
Me.MenuItem4.Text = "Item 3"
"
"MenuItem5
"
Me.MenuItem5.Index = 3
Me.MenuItem5.Text = "-"
"
"MenuItem6
"
Me.MenuItem6.Index = 4
Me.MenuItem6.Shortcut = System.Windows.Forms.Shortcut.CtrlX
Me.MenuItem6.Text = "E&xit"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Menu = Me.MainMenu1
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
End
End Sub
Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
MsgBox("You clicked Item 7.")
End Sub
Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
MenuItem8.Checked = Not MenuItem8.Checked
End Sub
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
MenuItem4.Visible = False
End Sub
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
MenuItem3.Enabled = False
End Sub
Private Sub MenuItem7_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles MenuItem7.MeasureItem
e.ItemHeight = 15
e.ItemWidth = 60
End Sub
Private Sub MenuItem7_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles MenuItem7.DrawItem
Dim penRed As New Pen(Color.Red)
e.Graphics.DrawEllipse(penRed, e.Bounds)
End Sub
End Class</source>

==Owner Draw MenuItem==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class OwnerDrawMenu
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Inherits System.Windows.Forms.Form
Private files() As String = {"yourfile.jpg", "yourfile.jpg"}

#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents mainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents mnuFile As System.Windows.Forms.MenuItem
Friend WithEvents mnuNew As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileOpen As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileClose As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileSave As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileSaveAs As System.Windows.Forms.MenuItem
Friend WithEvents mnuEdit As System.Windows.Forms.MenuItem
Friend WithEvents mnuEditCopy As System.Windows.Forms.MenuItem
Friend WithEvents mnuEditPaste As System.Windows.Forms.MenuItem
Friend WithEvents mnuOptions As System.Windows.Forms.MenuItem
Friend WithEvents mnuOption1 As System.Windows.Forms.MenuItem
Friend WithEvents mnuOption2 As System.Windows.Forms.MenuItem
Friend WithEvents mnuOption3 As System.Windows.Forms.MenuItem
Friend WithEvents mnuRadioOptions As System.Windows.Forms.MenuItem
Friend WithEvents mnuRadioOption1 As System.Windows.Forms.MenuItem
Friend WithEvents mnuRadioOption2 As System.Windows.Forms.MenuItem
Friend WithEvents mnuRadioOption3 As System.Windows.Forms.MenuItem
Friend WithEvents mnuWindow As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu1 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu11 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu12 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu13 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu14 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMerge As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu2 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu21 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu22 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu23 As System.Windows.Forms.MenuItem
Friend WithEvents mnuMenu24 As System.Windows.Forms.MenuItem
Friend WithEvents mnuSpecial As System.Windows.Forms.MenuItem
Friend WithEvents mnuODVote As System.Windows.Forms.MenuItem
Friend WithEvents mnuODShazam As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.mainMenu1 = New System.Windows.Forms.MainMenu()
Me.mnuFile = New System.Windows.Forms.MenuItem()
Me.mnuNew = New System.Windows.Forms.MenuItem()
Me.mnuFileOpen = New System.Windows.Forms.MenuItem()
Me.mnuFileClose = New System.Windows.Forms.MenuItem()
Me.mnuFileSave = New System.Windows.Forms.MenuItem()
Me.mnuFileSaveAs = New System.Windows.Forms.MenuItem()
Me.mnuEdit = New System.Windows.Forms.MenuItem()
Me.mnuEditCopy = New System.Windows.Forms.MenuItem()
Me.mnuEditPaste = New System.Windows.Forms.MenuItem()
Me.mnuOptions = New System.Windows.Forms.MenuItem()
Me.mnuOption1 = New System.Windows.Forms.MenuItem()
Me.mnuOption2 = New System.Windows.Forms.MenuItem()
Me.mnuOption3 = New System.Windows.Forms.MenuItem()
Me.mnuRadioOptions = New System.Windows.Forms.MenuItem()
Me.mnuRadioOption1 = New System.Windows.Forms.MenuItem()
Me.mnuRadioOption2 = New System.Windows.Forms.MenuItem()
Me.mnuRadioOption3 = New System.Windows.Forms.MenuItem()
Me.mnuWindow = New System.Windows.Forms.MenuItem()
Me.mnuMenu1 = New System.Windows.Forms.MenuItem()
Me.mnuMenu11 = New System.Windows.Forms.MenuItem()
Me.mnuMenu12 = New System.Windows.Forms.MenuItem()
Me.mnuMenu13 = New System.Windows.Forms.MenuItem()
Me.mnuMenu14 = New System.Windows.Forms.MenuItem()
Me.mnuMerge = New System.Windows.Forms.MenuItem()
Me.mnuMenu2 = New System.Windows.Forms.MenuItem()
Me.mnuMenu21 = New System.Windows.Forms.MenuItem()
Me.mnuMenu22 = New System.Windows.Forms.MenuItem()
Me.mnuMenu23 = New System.Windows.Forms.MenuItem()
Me.mnuMenu24 = New System.Windows.Forms.MenuItem()
Me.mnuSpecial = New System.Windows.Forms.MenuItem()
Me.mnuODVote = New System.Windows.Forms.MenuItem()
Me.mnuODShazam = New System.Windows.Forms.MenuItem()
"
"mainMenu1
"
Me.mainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuFile, Me.mnuEdit, Me.mnuOptions, Me.mnuRadioOptions, Me.mnuWindow, Me.mnuMenu1, Me.mnuMenu2, Me.mnuSpecial})
"
"mnuFile
"
Me.mnuFile.Index = 0
Me.mnuFile.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuNew, Me.mnuFileOpen, Me.mnuFileClose, Me.mnuFileSave, Me.mnuFileSaveAs})
Me.mnuFile.Text = "File"
"
"mnuNew
"
Me.mnuNew.Index = 0
Me.mnuNew.Shortcut = System.Windows.Forms.Shortcut.CtrlN
Me.mnuNew.Text = "&New"
"
"mnuFileOpen
"
Me.mnuFileOpen.Index = 1
Me.mnuFileOpen.Text = "Open"
"
"mnuFileClose
"
Me.mnuFileClose.Index = 2
Me.mnuFileClose.Text = "Close"
"
"mnuFileSave
"
Me.mnuFileSave.Index = 3
Me.mnuFileSave.Text = "Save"
"
"mnuFileSaveAs
"
Me.mnuFileSaveAs.Index = 4
Me.mnuFileSaveAs.Text = "Save&As"
"
"mnuEdit
"
Me.mnuEdit.Index = 1
Me.mnuEdit.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuEditCopy, Me.mnuEditPaste})
Me.mnuEdit.Text = "Edit"
"
"mnuEditCopy
"
Me.mnuEditCopy.Index = 0
Me.mnuEditCopy.Text = "&Copy"
"
"mnuEditPaste
"
Me.mnuEditPaste.Index = 1
Me.mnuEditPaste.Text = "Paste"
"
"mnuOptions
"
Me.mnuOptions.Index = 2
Me.mnuOptions.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuOption1, Me.mnuOption2, Me.mnuOption3})
Me.mnuOptions.Text = "Options"
"
"mnuOption1
"
Me.mnuOption1.Index = 0
Me.mnuOption1.Text = "Option1"
"
"mnuOption2
"
Me.mnuOption2.Index = 1
Me.mnuOption2.Text = "Option2"
"
"mnuOption3
"
Me.mnuOption3.Index = 2
Me.mnuOption3.Text = "Option3"
"
"mnuRadioOptions
"
Me.mnuRadioOptions.Index = 3
Me.mnuRadioOptions.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuRadioOption1, Me.mnuRadioOption2, Me.mnuRadioOption3})
Me.mnuRadioOptions.Text = "Radio Options"
"
"mnuRadioOption1
"
Me.mnuRadioOption1.Index = 0
Me.mnuRadioOption1.RadioCheck = True
Me.mnuRadioOption1.Text = "Radio Option 1"
"
"mnuRadioOption2
"
Me.mnuRadioOption2.Index = 1
Me.mnuRadioOption2.RadioCheck = True
Me.mnuRadioOption2.Text = "Radio Option 2"
"
"mnuRadioOption3
"
Me.mnuRadioOption3.Index = 2
Me.mnuRadioOption3.RadioCheck = True
Me.mnuRadioOption3.Text = "Radio Option 3"
"
"mnuWindow
"
Me.mnuWindow.Index = 4
Me.mnuWindow.MdiList = True
Me.mnuWindow.MergeOrder = 99
Me.mnuWindow.Text = "&Window"
"
"mnuMenu1
"
Me.mnuMenu1.Index = 5
Me.mnuMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuMenu11, Me.mnuMenu12, Me.mnuMenu13, Me.mnuMenu14, Me.mnuMerge})
Me.mnuMenu1.Text = "Menu 1"
"
"mnuMenu11
"
Me.mnuMenu11.Index = 0
Me.mnuMenu11.MergeOrder = 1
Me.mnuMenu11.Text = "Menu 1.1"
"
"mnuMenu12
"
Me.mnuMenu12.Index = 1
Me.mnuMenu12.MergeOrder = 2
Me.mnuMenu12.Text = "Menu 1.2"
"
"mnuMenu13
"
Me.mnuMenu13.Index = 2
Me.mnuMenu13.MergeOrder = 3
Me.mnuMenu13.Text = "Menu 1.3"
"
"mnuMenu14
"
Me.mnuMenu14.Index = 3
Me.mnuMenu14.MergeOrder = 4
Me.mnuMenu14.Text = "Menu 1.4"
"
"mnuMerge
"
Me.mnuMerge.Index = 4
Me.mnuMerge.MergeOrder = 99
Me.mnuMerge.Text = "Merge!"
"
"mnuMenu2
"
Me.mnuMenu2.Index = 6
Me.mnuMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuMenu21, Me.mnuMenu22, Me.mnuMenu23, Me.mnuMenu24})
Me.mnuMenu2.Text = "Menu 2"
"
"mnuMenu21
"
Me.mnuMenu21.Index = 0
Me.mnuMenu21.MergeOrder = 1
Me.mnuMenu21.Text = "Menu 2.1"
"
"mnuMenu22
"
Me.mnuMenu22.Index = 1
Me.mnuMenu22.MergeOrder = 2
Me.mnuMenu22.MergeType = System.Windows.Forms.MenuMerge.Replace
Me.mnuMenu22.Text = "Menu 2.2"
"
"mnuMenu23
"
Me.mnuMenu23.Index = 2
Me.mnuMenu23.MergeOrder = 3
Me.mnuMenu23.MergeType = System.Windows.Forms.MenuMerge.Remove
Me.mnuMenu23.Text = "Menu 2.3"
"
"mnuMenu24
"
Me.mnuMenu24.Index = 3
Me.mnuMenu24.MergeOrder = 5
Me.mnuMenu24.Text = "Menu 2.4"
"
"mnuSpecial
"
Me.mnuSpecial.Index = 7
Me.mnuSpecial.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuODVote, Me.mnuODShazam})
Me.mnuSpecial.Text = "Special"
"
"mnuODVote
"
Me.mnuODVote.Index = 0
Me.mnuODVote.OwnerDraw = True
Me.mnuODVote.Text = "Vote"
"
"mnuODShazam
"
Me.mnuODShazam.Index = 1
Me.mnuODShazam.OwnerDraw = True
Me.mnuODShazam.Text = "Shazam"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(456, 106)
Me.IsMdiContainer = True
Me.Menu = Me.mainMenu1
Me.Name = "Form1"
Me.Text = "Form1"
End Sub
#End Region
Private Sub mnuODVote_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) _
Handles mnuODVote.DrawItem, mnuODShazam.DrawItem
Dim img As Image
img = Image.FromFile(files(e.Index))
Dim r As Rectangle
r = e.Bounds
Dim p As Pen = New Pen(e.BackColor, 2)
r.Inflate(-6, -6)
e.Graphics.DrawRectangle(p, r)
e.Graphics.DrawImage(img, r)
End Sub
Private Sub mnuODVote_MeasureItem(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MeasureItemEventArgs) _
Handles mnuODVote.MeasureItem, mnuODShazam.MeasureItem
Dim img As Image
img = Image.FromFile(files(e.Index))
e.ItemHeight = img.Height
e.ItemWidth = img.Width
End Sub
Private Sub mnuODDraw_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) _
Handles mnuODVote.Click, mnuODShazam.Click
Dim item As MenuItem = CType(sender, MenuItem)
Dim choice As String = item.Text
MessageBox.Show("You clicked " & choice,"Menu Event Tester", MessageBoxButtons.OK, _
MessageBoxIcon.Asterisk)
End Sub
End Class</source>

==Set MenuItem to RadioCheck/Checked==

<source lang="vbnet">Imports System.Windows.Forms
public class DynamicMenu
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private components As System.ruponentModel.IContainer
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.MainMenu1 = New System.Windows.Forms.MainMenu
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.MenuItem2 = New System.Windows.Forms.MenuItem
Me.MenuItem3 = New System.Windows.Forms.MenuItem
Me.MenuItem4 = New System.Windows.Forms.MenuItem
Me.MenuItem5 = New System.Windows.Forms.MenuItem
Me.MenuItem6 = New System.Windows.Forms.MenuItem
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.SuspendLayout()
"
"MainMenu1
"
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem3})
"
"MenuItem1
"
Me.MenuItem1.Index = 0
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2})
Me.MenuItem1.Text = "File"
"
"MenuItem2
"
Me.MenuItem2.Index = 0
Me.MenuItem2.Text = "Open"
"
"MenuItem3
"
Me.MenuItem3.Index = 1
Me.MenuItem3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem4, Me.MenuItem5, Me.MenuItem6})
Me.MenuItem3.Text = "Edit"
"
"MenuItem4
"
Me.MenuItem4.Index = 0
Me.MenuItem4.Text = "Cut"
"
"MenuItem5
"
Me.MenuItem5.Index = 1
Me.MenuItem5.Text = "Copy"
"
"MenuItem6
"
Me.MenuItem6.Index = 2
Me.MenuItem6.Text = "Paste"
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(200, 8)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(72, 24)
Me.Button1.TabIndex = 3
Me.Button1.Text = "Select"
"
"Button2
"
Me.Button2.Location = New System.Drawing.Point(200, 48)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(72, 24)
Me.Button2.TabIndex = 4
Me.Button2.Text = "Disable"
"
"Button3
"
Me.Button3.Location = New System.Drawing.Point(200, 88)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(72, 24)
Me.Button3.TabIndex = 5
Me.Button3.Text = "RadioButton"
"
"Button4
"
Me.Button4.Location = New System.Drawing.Point(200, 136)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(72, 24)
Me.Button4.TabIndex = 6
Me.Button4.Text = "Hide"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(328, 225)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Menu = Me.MainMenu1
Me.ResumeLayout(False)
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MenuItem4.RadioCheck = False
MenuItem5.RadioCheck = False
MenuItem6.RadioCheck = False
MenuItem6.Checked = MenuItem4.Checked
MenuItem4.Checked = Not MenuItem4.Checked
MenuItem5.Checked = Not MenuItem5.Checked
MenuItem6.Checked = Not MenuItem6.Checked
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MenuItem4.RadioCheck = False
MenuItem5.RadioCheck = False
MenuItem6.RadioCheck = False
MenuItem6.Checked = MenuItem4.Checked
MenuItem4.Enabled = Not MenuItem4.Enabled
MenuItem5.Enabled = Not MenuItem5.Enabled
MenuItem6.Enabled = Not MenuItem6.Enabled
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
MenuItem4.Checked = False
MenuItem5.Checked = False
MenuItem6.Checked = True
MenuItem6.RadioCheck = True
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
MenuItem6.Visible = Not MenuItem6.Visible
End Sub
End Class</source>

==Set MenuItem visible and invisible==

<source lang="vbnet">Imports System.Windows.Forms
public class DynamicMenu
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private components As System.ruponentModel.IContainer
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.MainMenu1 = New System.Windows.Forms.MainMenu
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.MenuItem2 = New System.Windows.Forms.MenuItem
Me.MenuItem3 = New System.Windows.Forms.MenuItem
Me.MenuItem4 = New System.Windows.Forms.MenuItem
Me.MenuItem5 = New System.Windows.Forms.MenuItem
Me.MenuItem6 = New System.Windows.Forms.MenuItem
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.SuspendLayout()
"
"MainMenu1
"
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem3})
"
"MenuItem1
"
Me.MenuItem1.Index = 0
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2})
Me.MenuItem1.Text = "File"
"
"MenuItem2
"
Me.MenuItem2.Index = 0
Me.MenuItem2.Text = "Open"
"
"MenuItem3
"
Me.MenuItem3.Index = 1
Me.MenuItem3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem4, Me.MenuItem5, Me.MenuItem6})
Me.MenuItem3.Text = "Edit"
"
"MenuItem4
"
Me.MenuItem4.Index = 0
Me.MenuItem4.Text = "Cut"
"
"MenuItem5
"
Me.MenuItem5.Index = 1
Me.MenuItem5.Text = "Copy"
"
"MenuItem6
"
Me.MenuItem6.Index = 2
Me.MenuItem6.Text = "Paste"
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(200, 8)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(72, 24)
Me.Button1.TabIndex = 3
Me.Button1.Text = "Select"
"
"Button2
"
Me.Button2.Location = New System.Drawing.Point(200, 48)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(72, 24)
Me.Button2.TabIndex = 4
Me.Button2.Text = "Disable"
"
"Button3
"
Me.Button3.Location = New System.Drawing.Point(200, 88)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(72, 24)
Me.Button3.TabIndex = 5
Me.Button3.Text = "RadioButton"
"
"Button4
"
Me.Button4.Location = New System.Drawing.Point(200, 136)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(72, 24)
Me.Button4.TabIndex = 6
Me.Button4.Text = "Hide"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(328, 225)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Menu = Me.MainMenu1
Me.ResumeLayout(False)
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MenuItem4.RadioCheck = False
MenuItem5.RadioCheck = False
MenuItem6.RadioCheck = False
MenuItem6.Checked = MenuItem4.Checked
MenuItem4.Checked = Not MenuItem4.Checked
MenuItem5.Checked = Not MenuItem5.Checked
MenuItem6.Checked = Not MenuItem6.Checked
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MenuItem4.RadioCheck = False
MenuItem5.RadioCheck = False
MenuItem6.RadioCheck = False
MenuItem6.Checked = MenuItem4.Checked
MenuItem4.Enabled = Not MenuItem4.Enabled
MenuItem5.Enabled = Not MenuItem5.Enabled
MenuItem6.Enabled = Not MenuItem6.Enabled
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
MenuItem4.Checked = False
MenuItem5.Checked = False
MenuItem6.Checked = True
MenuItem6.RadioCheck = True
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
MenuItem6.Visible = Not MenuItem6.Visible
End Sub
End Class</source>

VB.Net Tutorial/GUI/TabControl

2010-05-26T12:57:12Z

Admin: 1 версия

==Add new Tab==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class AddNewTab
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.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.
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.TabControl1 = New System.Windows.Forms.TabControl
Me.TabPage1 = New System.Windows.Forms.TabPage
Me.TabPage2 = New System.Windows.Forms.TabPage
Me.TabPage3 = New System.Windows.Forms.TabPage
Me.Label2 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Label4 = New System.Windows.Forms.Label
Me.Button1 = New System.Windows.Forms.Button
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.TabPage3.SuspendLayout()
Me.SuspendLayout()
"
"TabControl1
"
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.TabControl1.HotTrack = True
Me.TabControl1.Location = New System.Drawing.Point(0, 89)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(292, 184)
Me.TabControl1.TabIndex = 1
"
"TabPage1
"
Me.TabPage1.Controls.Add(Me.Label2)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Size = New System.Drawing.Size(284, 158)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Tab Page 1"
"
"TabPage2
"
Me.TabPage2.Controls.Add(Me.Label3)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Size = New System.Drawing.Size(284, 158)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Tab Page 2"
"
"TabPage3
"
Me.TabPage3.Controls.Add(Me.Label4)
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(284, 158)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Tab Page 3"
"
"Label2
"
Me.Label2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(0, 0)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(284, 158)
Me.Label2.TabIndex = 0
Me.Label2.Text = "Tab Page 1"
"
"Label3
"
Me.Label3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(0, 0)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(284, 158)
Me.Label3.TabIndex = 0
Me.Label3.Text = "Tab Page 2"
"
"Label4
"
Me.Label4.Dock = System.Windows.Forms.DockStyle.Fill
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(0, 0)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(284, 158)
Me.Label4.TabIndex = 0
Me.Label4.Text = "Tab Page 3"
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(96, 48)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(88, 23)
Me.Button1.TabIndex = 2
Me.Button1.Text = "Add New Tab"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TabControl1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.TabPage3.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Dim tabPage4 As New TabPage
Dim lblLabel1 As New Label
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
tabPage4.Text = "Tab Page 4"
TabControl1.TabPages.Add(tabPage4)
lblLabel1.Dock = DockStyle.Fill
lblLabel1.Text = "Tab Page 4"
lblLabel1.Font = New Font("Microsoft San Serif", 24)
TabControl1.TabPages(3).Controls.Add(lblLabel1)
End Sub
End Class</source>

==Custom Tab==

<source lang="vbnet">Imports System.Windows.Forms
Imports System.Drawing
public class CustomTabControl
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
" Draw ellipses in the tabs.
Private Sub tabProject_DrawItem(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles tabProject.DrawItem
" Get the drawing bounds.
Dim rect As Rectangle = e.Bounds
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
" Allow extra room for the selected tab.
rect.X += 4
rect.Y += 4
rect.Width -= 8
rect.Height -= 8
Else
rect.X += 2
rect.Y += 2
rect.Width -= 4
rect.Height -= 4
End If
" Fill the ellipse with the right color.
Select Case e.Index
Case 0
e.Graphics.FillEllipse(Brushes.Green, rect)
Case 1
e.Graphics.FillEllipse(Brushes.Yellow, rect)
Case 2
e.Graphics.FillEllipse(Brushes.Red, rect)
End Select
" Outline the ellipse in black.
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
" Use a thick line for the selected tab.
e.Graphics.DrawEllipse( _
New Pen(Color.Black, 3), _
rect)
Else
e.Graphics.DrawEllipse(Pens.Black, rect)
End If
End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.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.ruponentModel.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.tabProject = New System.Windows.Forms.TabControl
Me.TabPage1 = New System.Windows.Forms.TabPage
Me.TabPage2 = New System.Windows.Forms.TabPage
Me.TabPage3 = New System.Windows.Forms.TabPage
Me.tabProject.SuspendLayout()
Me.SuspendLayout()
"
"tabProject
"
Me.tabProject.Controls.Add(Me.TabPage1)
Me.tabProject.Controls.Add(Me.TabPage2)
Me.tabProject.Controls.Add(Me.TabPage3)
Me.tabProject.DrawMode = System.Windows.Forms.TabDrawMode.OwnerDrawFixed
Me.tabProject.Location = New System.Drawing.Point(8, 8)
Me.tabProject.Name = "tabProject"
Me.tabProject.SelectedIndex = 0
Me.tabProject.Size = New System.Drawing.Size(272, 200)
Me.tabProject.TabIndex = 1
"
"TabPage1
"
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(264, 174)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "TabPage1"
"
"TabPage2
"
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(264, 174)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "TabPage2"
"
"TabPage3
"
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(264, 174)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "TabPage3"
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(289, 217)
Me.Controls.Add(Me.tabProject)
Me.Name = "Form1"
Me.Text = "UseTabControlOwnerDrawn"
Me.tabProject.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents tabProject As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
End Class</source>

==Put RadioButtons to a Tab Control==

<source lang="vbnet">Imports System.Windows.Forms
public class TabControlRadioButton
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked = True Then
Me.BackColor = System.Drawing.Color.Red
End If
If RadioButton2.Checked = True Then
Me.BackColor = System.Drawing.Color.Blue
End If
End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
"Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected 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.ruponentModel.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.TabControl1 = New System.Windows.Forms.TabControl
Me.myscreensave = New System.Windows.Forms.TabPage
Me.mybackground = New System.Windows.Forms.TabPage
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.RadioButton1 = New System.Windows.Forms.RadioButton
Me.RadioButton2 = New System.Windows.Forms.RadioButton
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.TabControl1.SuspendLayout()
Me.myscreensave.SuspendLayout()
Me.mybackground.SuspendLayout()
Me.SuspendLayout()
"
"TabControl1
"
Me.TabControl1.Controls.Add(Me.myscreensave)
Me.TabControl1.Controls.Add(Me.mybackground)
Me.TabControl1.Location = New System.Drawing.Point(17, 12)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(379, 161)
Me.TabControl1.TabIndex = 0
"
"myscreensave
"
Me.myscreensave.Controls.Add(Me.TextBox1)
Me.myscreensave.Location = New System.Drawing.Point(4, 21)
Me.myscreensave.Name = "myscreensave"
Me.myscreensave.Padding = New System.Windows.Forms.Padding(3)
Me.myscreensave.Size = New System.Drawing.Size(371, 136)
Me.myscreensave.TabIndex = 0
Me.myscreensave.Text = "Screen Saver"
Me.myscreensave.UseVisualStyleBackColor = True
"
"mybackground
"
Me.mybackground.Controls.Add(Me.RadioButton2)
Me.mybackground.Controls.Add(Me.RadioButton1)
Me.mybackground.Controls.Add(Me.Label1)
Me.mybackground.Location = New System.Drawing.Point(4, 21)
Me.mybackground.Name = "mybackground"
Me.mybackground.Padding = New System.Windows.Forms.Padding(3)
Me.mybackground.Size = New System.Drawing.Size(371, 156)
Me.mybackground.TabIndex = 1
Me.mybackground.Text = "Color"
Me.mybackground.UseVisualStyleBackColor = True
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(6, 101)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(260, 21)
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = "Function"
"
"Label1
"
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(23, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(89, 12)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Select"
"
"RadioButton1
"
Me.RadioButton1.AutoSize = True
Me.RadioButton1.Location = New System.Drawing.Point(25, 49)
Me.RadioButton1.Name = "RadioButton1"
Me.RadioButton1.Size = New System.Drawing.Size(47, 16)
Me.RadioButton1.TabIndex = 1
Me.RadioButton1.TabStop = True
Me.RadioButton1.Text = "Red"
Me.RadioButton1.UseVisualStyleBackColor = True
"
"RadioButton2
"
Me.RadioButton2.AutoSize = True
Me.RadioButton2.Location = New System.Drawing.Point(25, 71)
Me.RadioButton2.Name = "RadioButton2"
Me.RadioButton2.Size = New System.Drawing.Size(47, 16)
Me.RadioButton2.TabIndex = 2
Me.RadioButton2.TabStop = True
Me.RadioButton2.Text = "Blue"
Me.RadioButton2.UseVisualStyleBackColor = True
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(58, 179)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "OK"
Me.Button1.UseVisualStyleBackColor = True
"
"Button2
"
Me.Button2.Location = New System.Drawing.Point(250, 179)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 2
Me.Button2.Text = "Cancel"
Me.Button2.UseVisualStyleBackColor = True
"
"Form1
"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(407, 214)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TabControl1)
Me.Name = "Form1"
Me.Text = "TabControl Demo"
Me.TabControl1.ResumeLayout(False)
Me.myscreensave.ResumeLayout(False)
Me.myscreensave.PerformLayout()
Me.mybackground.ResumeLayout(False)
Me.mybackground.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents myscreensave As System.Windows.Forms.TabPage
Friend WithEvents mybackground As System.Windows.Forms.TabPage
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
End Class</source>

==Tab Control==

<source lang="vbnet">Imports System.Windows.Forms
public class TabControl
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private components As System.ruponentModel.IContainer
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
Friend WithEvents TabPage5 As System.Windows.Forms.TabPage
Friend WithEvents TabPage6 As System.Windows.Forms.TabPage
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.TabControl1 = New System.Windows.Forms.TabControl
Me.TabPage1 = New System.Windows.Forms.TabPage
Me.TabPage2 = New System.Windows.Forms.TabPage
Me.TabPage3 = New System.Windows.Forms.TabPage
Me.TabPage4 = New System.Windows.Forms.TabPage
Me.TabPage5 = New System.Windows.Forms.TabPage
Me.TabPage6 = New System.Windows.Forms.TabPage
Me.ListBox1 = New System.Windows.Forms.ListBox
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.SuspendLayout()
"
"TabControl1
"
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage4)
Me.TabControl1.Controls.Add(Me.TabPage5)
Me.TabControl1.Controls.Add(Me.TabPage6)
Me.TabControl1.Location = New System.Drawing.Point(40, 24)
Me.TabControl1.Multiline = True
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(208, 208)
Me.TabControl1.TabIndex = 0
"
"TabPage1
"
Me.TabPage1.Controls.Add(Me.Button2)
Me.TabPage1.Controls.Add(Me.Button1)
Me.TabPage1.Controls.Add(Me.ListBox1)
Me.TabPage1.Location = New System.Drawing.Point(4, 40)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Size = New System.Drawing.Size(200, 164)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "A"
"
"TabPage2
"
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Size = New System.Drawing.Size(232, 182)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "B"
"
"TabPage3
"
Me.TabPage3.Location = New System.Drawing.Point(4, 40)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(200, 164)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "C"
"
"TabPage4
"
Me.TabPage4.Location = New System.Drawing.Point(4, 40)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Size = New System.Drawing.Size(232, 164)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "D"
"
"TabPage5
"
Me.TabPage5.Location = New System.Drawing.Point(4, 40)
Me.TabPage5.Name = "TabPage5"
Me.TabPage5.Size = New System.Drawing.Size(232, 164)
Me.TabPage5.TabIndex = 4
Me.TabPage5.Text = "E"
"
"TabPage6
"
Me.TabPage6.Location = New System.Drawing.Point(4, 40)
Me.TabPage6.Name = "TabPage6"
Me.TabPage6.Size = New System.Drawing.Size(200, 164)
Me.TabPage6.TabIndex = 5
Me.TabPage6.Text = "F"
"
"ListBox1
"
Me.ListBox1.Items.AddRange(New Object() {"A", "B", "C"})
Me.ListBox1.Location = New System.Drawing.Point(16, 16)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(88, 108)
Me.ListBox1.TabIndex = 0
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(120, 32)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(56, 24)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Add"
"
"Button2
"
Me.Button2.Location = New System.Drawing.Point(120, 88)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(56, 24)
Me.Button2.TabIndex = 2
Me.Button2.Text = "Delete"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Controls.Add(Me.TabControl1)
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Add("str")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Remove(ListBox1.SelectedItem)
End Sub
End Class</source>

==TabControl and TabPages==

<source lang="vbnet">imports System
imports System.Drawing
imports System.Windows.Forms

public class TabControls : inherits Form
public sub New()
Size = new Size(325,375)
dim tc as new TabControl()
tc.Parent = me
tc.Size = new Size(275,300)
tc.Location = new Point(25,25)
tc.Anchor = AnchorStyles.Top or AnchorStyles.Bottom or AnchorStyles.Left or AnchorStyles.Right
tc.Alignment = TabAlignment.Top
tc.Appearance = TabAppearance.Normal
tc.HotTrack = true
tc.Multiline = true
tc.Padding = new Point(20,3)
tc.SizeMode = TabSizeMode.FillToRight
AddHandler tc.SelectedIndexChanged, AddressOf tc_Changed
tc.Text = "Some text"
dim img as Image = Image.FromFile("1.ico")
dim imgList as new ImageList()
imgList.Images.Add(img)
tc.ImageList = imgList
dim tpAddress as new TabPage()
tpAddress.Parent = tc
tpAddress.Text = "Address Book"
dim tpDates as new TabPage()
tpDates.Parent = tc
tpDates.Text = "Date Book"
dim tpToDo as new TabPage()
tpToDo.Parent = tc
tpToDo.Text = "ToDo List"
dim tpMisc as new TabPage()
tpMisc.Parent = tc
tpMisc.Text = "A Really Long Tab"
tpMisc.ImageIndex = 0
dim lbl as new Label()
lbl.Parent = tpAddress
lbl.Text = "Put the Address book controls on this page."
lbl.AutoSize = true
lbl.Location = new Point(10,25)
dim pnl as new Panel()
pnl.Parent = tpDates
pnl.BorderStyle = BorderStyle.Fixed3D
pnl.Location = new Point(10,10)
pnl.Anchor = AnchorStyles.Top or AnchorStyles.Bottom or _
AnchorStyles.Left or AnchorStyles.Right
pnl.Size = new Size(tpDates.Width - 20, tpDates.Height - 20)
dim cal as new MonthCalendar()
cal.Parent = pnl
cal.Location = new Point(25,25)
dim rtxt as new RichTextBox()
rtxt.Parent = tpToDo
rtxt.Dock = DockStyle.Fill
rtxt.BorderStyle = BorderStyle.FixedSingle
end sub
public shared sub Main()
Application.Run(new TabControls())
end sub
private sub tc_Changed(ByVal sender as object,ByVal e as EventArgs)
dim tc as TabControl = CType(sender,TabControl)
Console.WriteLine("Button " + tc.SelectedIndex.ToString())
end sub
end class</source>

==Using TabControl to display various font settings==

<source lang="vbnet">Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Drawing2D
public class FormTabControl
public Shared Sub Main
Application.Run(New FrmTabs)
End Sub
End class

Public Class FrmTabs
Inherits Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
" output label reflects text changes
Friend WithEvents lblDisplay As Label
" table control containing table pages tbpColor,
" tbpSize, tbpMessage and tbpAbout
Friend WithEvents tbcTextOptions As TabControl
" table page containing color options
Friend WithEvents tbpColor As TabPage
Friend WithEvents radBlack As RadioButton
Friend WithEvents radRed As RadioButton
Friend WithEvents radGreen As RadioButton
" table page containing font size options
Friend WithEvents tbpSize As TabPage
Friend WithEvents radSize12 As RadioButton
Friend WithEvents radSize16 As RadioButton
Friend WithEvents radSize20 As RadioButton
" table page containing text display options
Friend WithEvents tbpMessage As TabPage
Friend WithEvents radHello As RadioButton
Friend WithEvents radGoodbye As RadioButton
" table page containing about message
Friend WithEvents tbpAbout As TabPage
Friend WithEvents lblMessage As Label
"Required by the Windows Form Designer
Private components As System.ruponentModel.Container
"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.radSize12 = New System.Windows.Forms.RadioButton()
Me.radSize20 = New System.Windows.Forms.RadioButton()
Me.radHello = New System.Windows.Forms.RadioButton()
Me.lblDisplay = New System.Windows.Forms.Label()
Me.tbpMessage = New System.Windows.Forms.TabPage()
Me.radGoodbye = New System.Windows.Forms.RadioButton()
Me.tbpAbout = New System.Windows.Forms.TabPage()
Me.lblMessage = New System.Windows.Forms.Label()
Me.radSize16 = New System.Windows.Forms.RadioButton()
Me.tbpColor = New System.Windows.Forms.TabPage()
Me.radGreen = New System.Windows.Forms.RadioButton()
Me.radRed = New System.Windows.Forms.RadioButton()
Me.radBlack = New System.Windows.Forms.RadioButton()
Me.tbcTextOptions = New System.Windows.Forms.TabControl()
Me.tbpSize = New System.Windows.Forms.TabPage()
Me.tbpMessage.SuspendLayout()
Me.tbpAbout.SuspendLayout()
Me.tbpColor.SuspendLayout()
Me.tbcTextOptions.SuspendLayout()
Me.tbpSize.SuspendLayout()
Me.SuspendLayout()
"
"radSize12
"
Me.radSize12.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.radSize12.Location = New System.Drawing.Point(16, 24)
Me.radSize12.Name = "radSize12"
Me.radSize12.TabIndex = 0
Me.radSize12.Text = "12 point"
"
"radSize20
"
Me.radSize20.Location = New System.Drawing.Point(16, 104)
Me.radSize20.Name = "radSize20"
Me.radSize20.TabIndex = 2
Me.radSize20.Text = "20 point"
"
"radHello
"
Me.radHello.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.radHello.Location = New System.Drawing.Point(16, 24)
Me.radHello.Name = "radHello"
Me.radHello.TabIndex = 0
Me.radHello.Text = "Hello!"
"
"lblDisplay
"
Me.lblDisplay.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDisplay.Location = New System.Drawing.Point(16, 184)
Me.lblDisplay.Name = "lblDisplay"
Me.lblDisplay.Size = New System.Drawing.Size(272, 40)
Me.lblDisplay.TabIndex = 1
Me.lblDisplay.Text = "Hello!"
Me.lblDisplay.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
"
"tbpMessage
"
Me.tbpMessage.Controls.AddRange(New System.Windows.Forms.Control() {Me.radGoodbye, Me.radHello})
Me.tbpMessage.Location = New System.Drawing.Point(4, 22)
Me.tbpMessage.Name = "tbpMessage"
Me.tbpMessage.TabIndex = 2
Me.tbpMessage.Text = "Message"
"
"radGoodbye
"
Me.radGoodbye.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.radGoodbye.Location = New System.Drawing.Point(16, 64)
Me.radGoodbye.Name = "radGoodbye"
Me.radGoodbye.TabIndex = 1
Me.radGoodbye.Text = "Goodbye!"
"
"tbpAbout
"
Me.tbpAbout.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblMessage})
Me.tbpAbout.Location = New System.Drawing.Point(4, 22)
Me.tbpAbout.Name = "tbpAbout"
Me.tbpAbout.TabIndex = 3
Me.tbpAbout.Text = "About"
"
"lblMessage
"
Me.lblMessage.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblMessage.Location = New System.Drawing.Point(16, 16)
Me.lblMessage.Name = "lblMessage"
Me.lblMessage.Size = New System.Drawing.Size(248, 104)
Me.lblMessage.TabIndex = 0
Me.lblMessage.Text = "Tabs are used to organize controls and conserve screen space."
"
"radSize16
"
Me.radSize16.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.radSize16.Location = New System.Drawing.Point(16, 64)
Me.radSize16.Name = "radSize16"
Me.radSize16.TabIndex = 1
Me.radSize16.Text = "16 point"
"
"tbpColor
"
Me.tbpColor.Controls.AddRange(New System.Windows.Forms.Control() {Me.radGreen, Me.radRed, Me.radBlack})
Me.tbpColor.Location = New System.Drawing.Point(4, 22)
Me.tbpColor.Name = "tbpColor"
Me.tbpColor.TabIndex = 0
Me.tbpColor.Text = "Color"
"
"radGreen
"
Me.radGreen.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.radGreen.Location = New System.Drawing.Point(16, 104)
Me.radGreen.Name = "radGreen"
Me.radGreen.TabIndex = 2
Me.radGreen.Text = "Green"
"
"radRed
"
Me.radRed.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.radRed.Location = New System.Drawing.Point(16, 64)
Me.radRed.Name = "radRed"
Me.radRed.TabIndex = 1
Me.radRed.Text = "Red"
"
"radBlack
"
Me.radBlack.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.radBlack.Location = New System.Drawing.Point(16, 24)
Me.radBlack.Name = "radBlack"
Me.radBlack.TabIndex = 0
Me.radBlack.Text = "Black"
"
"tbcTextOptions
"
Me.tbcTextOptions.Controls.AddRange(New System.Windows.Forms.Control() {Me.tbpColor, Me.tbpSize, Me.tbpMessage, Me.tbpAbout})
Me.tbcTextOptions.Location = New System.Drawing.Point(8, 8)
Me.tbcTextOptions.Name = "tbcTextOptions"
Me.tbcTextOptions.SelectedIndex = 0
Me.tbcTextOptions.Size = New System.Drawing.Size(280, 168)
Me.tbcTextOptions.TabIndex = 0
"
"tbpSize
"
Me.tbpSize.Controls.AddRange(New System.Windows.Forms.Control() {Me.radSize20, Me.radSize16, Me.radSize12})
Me.tbpSize.Location = New System.Drawing.Point(4, 22)
Me.tbpSize.Name = "tbpSize"
Me.tbpSize.TabIndex = 1
Me.tbpSize.Text = "Size"
"
"FrmTabs
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 229)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblDisplay, Me.tbcTextOptions})
Me.Name = "FrmTabs"
Me.Text = "Using Tabs"
Me.tbpMessage.ResumeLayout(False)
Me.tbpAbout.ResumeLayout(False)
Me.tbpColor.ResumeLayout(False)
Me.tbcTextOptions.ResumeLayout(False)
Me.tbpSize.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
" event handler for black color radio button
Private Sub radBlack_CheckedChanged _
(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles radBlack.CheckedChanged
lblDisplay.ForeColor = Color.Black
End Sub

Private Sub radRed_CheckedChanged _
(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles radRed.CheckedChanged
lblDisplay.ForeColor = Color.Red
End Sub

Private Sub radGreen_CheckedChanged _
(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles radGreen.CheckedChanged
lblDisplay.ForeColor = Color.Green
End Sub

Private Sub radSize12_CheckedChanged( _
ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles radSize12.CheckedChanged
lblDisplay.Font = New Font("Microsoft Sans Serif", 12)
End Sub
Private Sub radSize16_CheckedChanged _
(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles radSize16.CheckedChanged
lblDisplay.Font = New Font("Microsoft Sans Serif", 16)
End Sub
Private Sub radSize20_CheckedChanged _
(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles radSize20.CheckedChanged
lblDisplay.Font = New Font("Microsoft Sans Serif", 20)
End Sub
Private Sub radHello_CheckedChanged _
(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles radHello.CheckedChanged
lblDisplay.Text = "Microsoft Sans Serif"
End Sub

Private Sub radGoodbye_CheckedChanged _
(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles radGoodbye.CheckedChanged
lblDisplay.Text = "Font Size 20"
End Sub
End Class</source>

VB.Net Tutorial/GUI/InputBox

2010-05-26T12:57:12Z

Admin: 1 версия

==Get input from InputBox==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class PasswordFieldMatch
public Shared Sub Main
Dim Filename As String
Filename = InputBox("Your Value", "Title", "c:\document")
End Sub
End class</source>

==InputBox Demo==

<source lang="vbnet">public class InputBoxDemo
public Shared Sub Main
Dim PASSWORD As String
PASSWORD = InputBox("Password", "Password Dialog")
Do While PASSWORD <> "12345"
PASSWORD = InputBox("Password", "Password Dialog")
Loop
End Sub
End class</source>

==Read Integer value from Keyboard==

<source lang="vbnet">Module Module1
Sub Main()
Dim Age As Integer
Console.Write("Age: ")
Age = Console.ReadLine()
Console.WriteLine(Age)
End Sub
End Module</source>
<pre class=codeResult>Age: 12
12</pre>

==Use InputBox to read Double value==

<source lang="vbnet">Module Module1
Sub Main()
Dim Salary As Double
Salary = InputBox("Enter salary")
Console.WriteLine(Salary)
End Sub
End Module</source>

==Use InputBox to read Integer value==

<source lang="vbnet">Module Module1
Sub Main()
Dim Age As Integer
Age = InputBox("Enter age", 21)
Console.WriteLine(Age)
End Sub
End Module</source>

==Use InputBox to read string value==

<source lang="vbnet">Module Module1
Sub Main()
Dim Name As String
Name = InputBox("Enter name")
Console.WriteLine(Name)
End Sub
End Module</source>
<pre class=codeResult>asdf</pre>