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

@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

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

Новые блоги и статьи Все статьи Все блоги /
сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .
сукцессия 25. Хронология ошибок anaschu 12.07.2026 # От 50-тонного гриба до устойчивого леса: хроника ошибок при построении модели вековой сукцессии микоризы ## О чём эта статья В процессе построения ОДУ-модели (система дифференциальных. . .	сукцессия 24. Промежуточное общее описание модели anaschu 12.07.2026 Хендофф: модель АМ→ЭКМ сукцессии микоризы (ризосфера, 50 лет) Содержание проекта Симуляция вековой (50 лет) экологической сукцессии в почве леса Основные участники: АМ-гриб, ЭКМ-гриб,. . .	сукцессия 23. Более физиологичная физиология, более экологичная экология, более диффурные диффуры. anaschu 12.07.2026 Что реально нашли и починили за эти 5 часов Правило Линдемана (КПД конверсии сахара в тело, kEff) — раньше 100% полученного углерода шло прямо в биомассу гриба; теперь только kEff=0. 5 (после. . .	сукцессия 22. От артефактов к физиологии: калибровка агентной модели грибной сукцессии для воспроизведения сезонной динамики и pH-плато anaschu 11.07.2026 Аннотация В данной работе представлена калибровка агентной модели динамики грибных сообществ (fungal-succession), направленная на устранение нефизичных артефактов (коллапс биомассы, мгновенное. . .

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

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