Сохранение настроек программы

@Spread · Регистрация: 07.01.2012

Студворк — интернет-сервис помощи студентам

Доброго времени суток всем

Я не давно начал увлекаться VB и вот возник такой вопросы.

Есть три формы:
1. Форма загрузочного экрана
2. Главная форма
3. Форма настроек

Вопрос 1:
Например я захожу в настройки и там есть TextBox мне нужно в него добавить текст, что бы при следующем и последующих запуска программы он был отображён в Label на Форме загрузочного экрана.

Вопрос 2.
Например у меня на главной форме установлены горячие клавиши. Я захожу в настройки и там есть два ComboBox в первом боке например функции (например: закрыть программу), а во втором боке кнопки (например: f1, f2, f3, f4 , ... f12). Пользователь смог зайти в настройки выбрать функцию и кнопку для неё и при последующих открытиях программы настройки сохранялась.

@Spread · 12.01.2012, 19:34 **[ТС]**

это старый)) я с новым кодом не сохранил т.к там ошибки) которые на скрине)

@Jason · 12.01.2012, 19:40

Вот еще.... удали строчки которые с ошибками.

Добавлено через 3 минуты
Хотя блин у тя наверно VS 2008 еще незадача на строчке с ошибкой там есть такой восклицательный знак?)))

@Spread · 12.01.2012, 19:40 **[ТС]**

VB.NET
1
2
3
4
5
6
            Form1.rtbEdit.Focus()
            Form1.rtbEdit.SelectionLength = Len(Me.TextBox2.Text)
            Form1.rtbEdit.SelectedText = TextBox2.Text
        Else
            MsgBox("Нет!")
        End If

вот что получится

ну посмотри на скришоте есть он или нет его)

@Jason · 12.01.2012, 19:47

Удали и выложи сюда.

Добавлено через 2 минуты
Только укажи на этот раз что и куда надо мне написать).

@Spread · 12.01.2012, 19:51 **[ТС]**

На форме ZamenaTxt
надо что бы при нажатие на Button3 заменялось по одному , а при нажатии на Button1 заменялось всё
Button2 это закрыть форму)

@Jason · 12.01.2012, 20:14

VB.NET
1
If CBool(CInt(SER) WindowsApplication1.Form1.rtbEdit.Text, Me.TextBox2.Text) <> 0 Then

Откуда эта строка? Я такого не писал.)

Добавлено через 3 минуты
WindowsApplication1 надо писать в том случае если у тя там называется проект(( Ппц. Ща посмотрим.

@Spread · 12.01.2012, 20:22 **[ТС]**

щас вставил название своего проекта High Speed Syntax Coloring те же ошибки

@Jason · 12.01.2012, 20:37

Да... Ты назвал проект HTML Editor черт я уже все пере побывал и тут такое что ппц...
Господи, пиши так НЕ WindowsApplication1.Form1.rtbEdit.Text А -> HTML_Editor.Form1.rtbEdit.Text

Добавлено через 54 секунды
Ты при создании проекта имя написал HTML Editor

@Spread · 12.01.2012, 20:40 **[ТС]**

=( =(
как так то..

@Jason · 12.01.2012, 20:43

VB.NET
1
If CBool(CInt(SER) WindowsApplication1.Form1.rtbEdit.Text, Me.TextBox2.Text) <> 0 Then

Зачем такая ужасная строка? это во 1.
Во 2 Ты какое имя при создании проекта написал?

@Spread · 12.01.2012, 20:48 **[ТС]**

ну вот..

@Jason · 12.01.2012, 20:50

VB.NET
1
2
3
4
5
6
7
8
9
10
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
* * * * If InStr(SER, RichTextBox1.Text, TextBox1.Text) <> 0 Then
* * * * * * RichTextBox1.Focus()
* * * * * * RichTextBox1.SelectionStart = InStr(SER, RichTextBox1.Text, TextBox1.Text) - 1
* * * * * * RichTextBox1.SelectionLength = Len(TextBox1.Text)
* * * * * * RichTextBox1.SelectedText = TextBox2.Text 'Заменяем на тхтбох2
* * * * Else
* * * * * * MsgBox("Нет!")
* * * * End If
* * End Sub

Мой использовать пробовал если сюда вписать HTML_Editor.Form1.rtbEdit.Text то нет ошибки...

@Spread · 12.01.2012, 20:56 **[ТС]**

да чё за бред? почему опять эти сранные ошибки?

@Jason · 12.01.2012, 21:00

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 If InStr(SER, HTML_Editor.Form1.rtbEdit.Text, TextBox1.Text) <> 0 Then
            Try 'Если ошибка то Catch
                For i = 1 To 1000000 Step 1 ' Думаю больше этого кол-ва значений не придется заменять)
                    HTML_Editor.Form1.rtbEdit.Focus()
                    HTML_Editor.Form1.rtbEdit.SelectionStart = InStr(SER, HTML_Editor.Form1.rtbEdit.Text, TextBox1.Text) - 1
                    HTML_Editor.Form1.rtbEdit.SelectionLength = Len(TextBox1.Text)
                    HTML_Editor.Form1.rtbEdit.SelectedText = TextBox2.Text
                    U = U + 1
                Next
                MsgBox("Заменено " & U)
            Catch
                MsgBox("Заменено " & U)
            End Try
        Else
            MsgBox("Нет!")
        End If

Ты так пробывал чтобы заменить все что написано в ТХТ1 заменть на ТХТ2

@Jason · 12.01.2012, 21:03

High Speed Syntax Coloring.rar

@Spread · 12.01.2012, 21:03 **[ТС]**

пожалуйста..

@Jason · 12.01.2012, 21:05

Вот пробуй у себя запустить а то он у меня на все ругается)) что типо каких то файлов нет и т.п. вобщем посмотри щас нет ошибки?

Добавлено через 1 минуту
Это то что я тебе передал Оо?

@Spread · 12.01.2012, 21:09 **[ТС]**

открыл в бейсеке 10 и нет ошибок о_О
как так? код же один и тот же..

@Spread · 12.01.2012, 21:17 **[ТС]**

почему так?

когда нажимаю заменить или заменить всё

@Jason · 12.01.2012, 21:18

Так я не понял у тебя ошибки есть?)

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Spread 77 / 38 / 2 Регистрация: 07.01.2012 Сообщений: 414

	Сохранение настроек программы 11.01.2012, 17:26. Показов 7034. Ответов 49 Метки нет (Все метки) Доброго времени суток всем Я не давно начал увлекаться VB и вот возник такой вопросы. Есть три формы: 1. Форма загрузочного экрана 2. Главная форма 3. Форма настроек Вопрос 1: Например я захожу в настройки и там есть TextBox мне нужно в него добавить текст, что бы при следующем и последующих запуска программы он был отображён в Label на Форме загрузочного экрана. Вопрос 2. Например у меня на главной форме установлены горячие клавиши. Я захожу в настройки и там есть два ComboBox в первом боке например функции (например: закрыть программу), а во втором боке кнопки (например: f1, f2, f3, f4 , ... f12). Пользователь смог зайти в настройки выбрать функцию и кнопку для неё и при последующих открытиях программы настройки сохранялась. 0

@Spread 77 / 38 / 2 Регистрация: 07.01.2012 Сообщений: 414
	12.01.2012, 19:34 [ТС]
	это старый)) я с новым кодом не сохранил т.к там ошибки) которые на скрине) 0

@Jason 525 / 487 / 99 Регистрация: 25.12.2011 Сообщений: 1,176
	12.01.2012, 19:40
	Вот еще.... удали строчки которые с ошибками. Добавлено через 3 минуты Хотя блин у тя наверно VS 2008 еще незадача на строчке с ошибкой там есть такой восклицательный знак?))) 0

@Jason 525 / 487 / 99 Регистрация: 25.12.2011 Сообщений: 1,176
	12.01.2012, 19:47
	Удали и выложи сюда. Добавлено через 2 минуты Только укажи на этот раз что и куда надо мне написать). 0

@Spread 77 / 38 / 2 Регистрация: 07.01.2012 Сообщений: 414
	12.01.2012, 20:22 [ТС]
	щас вставил название своего проекта High Speed Syntax Coloring те же ошибки 0

@Jason 525 / 487 / 99 Регистрация: 25.12.2011 Сообщений: 1,176
	12.01.2012, 20:37
	Да... Ты назвал проект HTML Editor черт я уже все пере побывал и тут такое что ппц... Господи, пиши так НЕ WindowsApplication1.Form1.rtbEdit.Text А -> HTML_Editor.Form1.rtbEdit.Text Добавлено через 54 секунды Ты при создании проекта имя написал HTML Editor 0

@Spread 77 / 38 / 2 Регистрация: 07.01.2012 Сообщений: 414
	12.01.2012, 20:40 [ТС]
	=( =( как так то.. Миниатюры 0

@Spread 77 / 38 / 2 Регистрация: 07.01.2012 Сообщений: 414
	12.01.2012, 20:48 [ТС]
	ну вот.. Миниатюры 0

@Spread 77 / 38 / 2 Регистрация: 07.01.2012 Сообщений: 414
	12.01.2012, 20:56 [ТС]
	да чё за бред? почему опять эти сранные ошибки? Миниатюры 0

@Jason 525 / 487 / 99 Регистрация: 25.12.2011 Сообщений: 1,176
	12.01.2012, 21:03
	High Speed Syntax Coloring.rar 0

@Spread 77 / 38 / 2 Регистрация: 07.01.2012 Сообщений: 414
	12.01.2012, 21:03 [ТС]
	пожалуйста.. Миниатюры 0

@Jason 525 / 487 / 99 Регистрация: 25.12.2011 Сообщений: 1,176
	12.01.2012, 21:05
	Вот пробуй у себя запустить а то он у меня на все ругается)) что типо каких то файлов нет и т.п. вобщем посмотри щас нет ошибки? Добавлено через 1 минуту Это то что я тебе передал Оо? 0

@Spread 77 / 38 / 2 Регистрация: 07.01.2012 Сообщений: 414
	12.01.2012, 21:09 [ТС]
	открыл в бейсеке 10 и нет ошибок о_О как так? код же один и тот же.. 0

@Spread 77 / 38 / 2 Регистрация: 07.01.2012 Сообщений: 414
	12.01.2012, 21:17 [ТС]
	почему так? когда нажимаю заменить или заменить всё Миниатюры 0

@Jason 525 / 487 / 99 Регистрация: 25.12.2011 Сообщений: 1,176
	12.01.2012, 21:18
	Так я не понял у тебя ошибки есть?) 0