Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
76 / 37 / 2
Регистрация: 07.01.2012
Сообщений: 414
1

Определить, какой RichTextBox был последним в фокусе

03.03.2016, 20:00. Показов 1380. Ответов 3
Метки нет (Все метки)

На форме два RichTextBox и один Button. При нажатии на Button должно вставиться слово в тот RichTextBox, в которым фокус или в котором происходило последнее действие.


VB.NET
1
2
3
4
5
6
7
8
Private Sub 1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 1ToolStripMenuItem.Click
 If RichTextBox1.Focus Then
            RichTextBox1.Text = RichTextBox1.Text.Insert(RichTextBox1.SelectionStart, "текст")
        End If
        If RichTextBox2.Focus Then
            RichTextBox2.Text = RichTextBox2.Text.Insert(RichTextBox2.SelectionStart, "текст")
        End If
   End Sub

Так не получилось, кто подскажет?
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.03.2016, 20:00
Ответы с готовыми решениями:

Определить, по какой строке RichTextBox был совершен двойной клик
Здравствуйте, Подскажите как можно определить по какой именно строчке был сделан двойной клик в...

Как определить какой ListView использовался последним
Проблемка такого рода у меня есть 2 List View кнопка копировать мне нужно определить из какого...

Определить, какой символ был введен
Задание 5.11. Написать программу, в которой в переменную типа Char вводится символ с клавиатуры....

Сохранить в файл текст того Memo, что был в фокусе
Здравствуйте есть вопрос: на форме имееться 2 компонента скажем memo. Как сделать чтобы при нажатии...

3
Почетный модератор
21319 / 9054 / 1082
Регистрация: 11.04.2010
Сообщений: 11,014
03.03.2016, 20:34 2
Лучший ответ Сообщение было отмечено Spread как решение

Решение

VB.NET
1
2
3
4
5
6
7
8
9
10
    Dim RTB As RichTextBox
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not RTB Is Nothing Then
            RTB.Text = "Text"
        End If
    End Sub
 
    Private Sub RichTextBoxes_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.GotFocus, RichTextBox2.GotFocus
        RTB = sender
    End Sub
2
76 / 37 / 2
Регистрация: 07.01.2012
Сообщений: 414
05.03.2016, 20:22  [ТС] 3
А если два RTB на одной форме, а Button на другой, как будет выглядеть код?
0
Почетный модератор
21319 / 9054 / 1082
Регистрация: 11.04.2010
Сообщений: 11,014
05.03.2016, 20:25 4
Лучший ответ Сообщение было отмечено Spread как решение

Решение

Представим, что RTB находится в Form1, а кнопка в Form2
VB.NET
1
Dim RTB As RichTextBox
Меняем на
VB.NET
1
Friend RTB As RichTextBox
В кнопке на второй форме пишем
VB.NET
1
2
3
        If Not Form1.RTB Is Nothing Then
            Form1.RTB.Text = "Text"
        End I
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.03.2016, 20:25

Определить, какой разделитель из списка был использован
Здравствуйте! Возник вопрос... Есть такой кусочек string split = Str.Split(' ', ',', '.', ':',...

Как определить на какой элемент был клик?
Создал свой элемент управления UserView состоящий из нескольких листбоксов и пиктурбоксов. Затем...

Как определить, какой символ был введен?
# include <iostream> # include <iomanip> using namespace std; # include <conio.h> void main()...

Определить по какой цене был закуплен сахар
Фирма Сахарок реализовала M тонн сахара на сумму рублей, получив при этом N % прибыли Определить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru