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

@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

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

Новые блоги и статьи Все статьи Все блоги /
Установка ChatGPT (Codex) на Windows без использования Microsoft Store Fabien159 28.10.2026 Здравствуйте всем читающим! Опишу процесс установки ChatGPT (Codex) на Windows, если по каким-то причинам у вас не получается устанавить его через Microsoft Store. И так: 1. Скачиваем с. . .	Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .	После закрытия оутлука продолжает висеть процесс в диспетчере задач Maks 27.10.2026 С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .	Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .

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

	Сохранение настроек программы 11.01.2012, 17:26. Показов 7388. Ответов 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