/
aprogrammer
/
dotnet-docs
Обзор
Документация
Войти
/
aprogrammer
/
dotnet-docs
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
main
samples/snippets/visualbasic/VS_Snippets_VBCSharp/VbVersHelp60Controls/VB/Form4.vb
52 строки
1 KB
Andy De George
Move snippets from samples repo to this repo (#17296)
03 мар 2020, 19:23
Не верифицирован
03 мар 2020, 19:23
dbbeda1
Код
Авторство
О чём код?
Public Class Form4 '************************************************************************* Sub test() '<Snippet77> ' Visual Basic For Each selectedItem As ListViewItem In Me.ListView1.SelectedItems MsgBox(selectedItem.Text) Next '</Snippet77> '<Snippet76> ' Visual Basic Dim theItem As ListViewItem If Me.ListView1.SelectedItems.Count > 0 Then theItem = Me.ListView1.SelectedItems(0) End If '</Snippet76> '<Snippet75> ' Visual Basic Dim nodX As TreeNode = New TreeNode("New Node") Me.TreeView1.SelectedNode.Nodes.Add(nodX) '</Snippet75> End Sub '************************************************************************* '<Snippet74> ' Visual Basic Private Sub TreeView1_AfterSelect() Handles TreeView1.AfterSelect Me.TreeView1.SelectedNode.Expand() End Sub '</Snippet74> '************************************************************************* '<Snippet78> ' Visual Basic ' Make sure that HideSelection is set to False. Private Sub Button1_Click() Handles Button1.Click Dim endChars() As Char = New Char() {".", "!", "?"} Dim intEnd As Integer intEnd = Me.RichTextBox1.Find(endChars, Me.RichTextBox1.SelectionStart) Me.RichTextBox1.SelectionLength = intEnd - Me.RichTextBox1.SelectionStart End Sub '</Snippet78> End Class