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

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

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

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

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

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

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

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

@Jason · 11.01.2012, 18:03

1. Записывай в текстовой документ а потом считывай.

VB.NET
1
2
'Кнопка сохранить.
My.Computer.FileSystem.WriteAllText("D:\1.txt", TextBox1.Text, True) ' текст бокс это то что ты хочешь записать то есть из тхт бокса)).

Потом лоад форму:

VB.NET
1
 Label1.Text = My.Computer.FileSystem.ReadAllText("D:\1.txt", System.Text.Encoding.Default) 'Прочитать и добавить в табличку.

Добавлено через 24 минуты
У тебя это реализовано?

Сообщение от Spread

Пользователь смог зайти в настройки выбрать функцию и кнопку

Оно работает? Или тебе надо помочь написать?

@Spread · 11.01.2012, 22:30 **[ТС]**

Надо помочь написать

Добавлено через 19 минут
Спасибо за первую функцию, прекрасно работает!

Добавлено через 1 час 51 минуту
Возник третий вопрос.

На форме 2TextBox и ListBox.

Код первого TextBox

VB.NET
1
2
3
4
5
        
ListBox1.Items.Clear()
        For I As Integer = 0 To Str.Length - 1
            If Str(I).Contains(TextBox1.Text) Then ListBox1.Items.Add(Str(I))
        Next

Код форма лоад

VB.NET
1
2
        Str = IO.File.ReadAllLines("D:\Users\Рустам\Desktop\ccc.txt", System.Text.Encoding.Default)
        ListBox1.Items.AddRange(Str)

Как внедрить это *.txt в саму программу, что бы когда программа открывалась на компьютере всё было нормально?

@Mad_Marine · 11.01.2012, 23:18

Ты имеешь ввиду тебе нужно чтобы с exe'шником программы были txt файлы сохранений?

@Spread · 11.01.2012, 23:41 **[ТС]**

да, внедрить в программу этот *.txt
программа не сможет же найти на другом компьютере этот файл с таким путём.

@Mad_Marine · 11.01.2012, 23:52

Щас помогу

Добавлено через 8 минут
Создаёшь в папке bin\Debug папку, например, Resources и в ней создаёшь файл, например, Setting.txt. Получается bin\Debug\Resources\Setting.txt. И в файле Setting.txt пишешь то, что тебе нужно.

VB.NET
1
2
'Str = IO.File.ReadAllLines("D:\Users\Рустам\Desktop\ccc.txt", System.Text.Encoding.Default)
Str = IO.File.ReadAllLines(Application.StartupPath & "\Resources\Setting.txt", System.Text.Encoding.Default)

Добавлено через 51 секунду
Ну то есть вместо ccc.txt у тебя будет файл Setting.txt

@Spread · 12.01.2012, 14:46 **[ТС]**

т.е если я запущу *.exe просто один файл на другом компьютере он считает информацию с *.txt?

Добавлено через 14 минут
Mad_Marine, сделал всё как вы написали, вообще не подгружает на форме ничего..

Добавлено через 1 час 7 минут
Четвёртый опрос:
как определить кодировку текста который написан в RichTextBox?
как открывать различные кодировки?
как дать возможность пользователю менять кодировку?

Добавлено через 10 минут
Вопрос пятый:
1.есть на форме RichTextBox, 3Button и 1TextBox
я ввожу слово в textBox нажимаю 1button и он ищет это слово в richtextbox?
а кнопками 2button и 3button можно листать поиск вперёд и назад как в опере?

2. есть на форме RichTextBox, 2Button и 2TextBox.
ввожу текст который хочу заменить в 1textbox и на что заменить в 2textbox, нажимаю 1button и он заменяет во всё текст richtextbox'a это. а если нажать на 2button то он заменяет по одному (т.е если я нажму раз он заменяет это слово вначале жму ещё раз он ищет это слово опять по тексту и опять заменят т.е по одному а не во всём тексте сразу)

Добавлено через 1 минуту
3. как узнать кодирвку текста в richtextbox
как дать пользователю возможность меняю кодировки текста и открывать различные?

@Jason · 12.01.2012, 17:49

Сообщение от Spread

Mad_Marine, сделал всё как вы написали, вообще не подгружает на форме ничего..

Что именно не работает он должен из папки программы доставать файл.

Сообщение от Mad_Marine

Str = IO.File.ReadAllLines(Application.Startup Path & "\Resources\Setting.txt", System.Text.Encoding.Default)

Добавлено через 1 час 2 минуты
Так, начнем хД))

Сообщение от Spread

Mad_Marine, сделал всё как вы написали, вообще не подгружает на форме ничего..

Сохраняешь проект у него по стандарту (у меня) папка с названием: "WindowsApplication1" заходим в WindowsApplication1\WindowsApplication1\ bin\Debug создаем там допустим текстовой документ с названием 1.txt потом добавляем код:

VB.NET
1
2
        STR = IO.File.ReadAllText(Application.StartupPath & "\1.txt", System.Text.Encoding.Default)
        Label1.Text = STR

В общем чтобы он допустим искал в папке где программа и еще в какой то папке изменяешь это "\1.txt" на "\название папки\1.txt"

Добавлено через 59 минут

Сообщение от Spread

Вопрос пятый:
1.есть на форме RichTextBox, 3Button и 1TextBox
я ввожу слово в textBox нажимаю 1button и он ищет это слово в richtextbox?
а кнопками 2button и 3button можно листать поиск вперёд и назад как в опере?

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Public Class Form1
    Dim SER
 
    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)
        Else
            MsgBox("Нет!")
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SER = 1
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If InStr(SER, RichTextBox1.Text, TextBox1.Text) <> 0 Then
            RichTextBox1.Focus()
            RichTextBox1.SelectionStart = InStr(SER, RichTextBox1.Text, TextBox1.Text) + Len(TextBox1.Text)
            RichTextBox1.SelectionLength = Len(TextBox1.Text)
            SER = InStr(SER, RichTextBox1.Text, TextBox1.Text) + Len(TextBox1.Text)
        Else
            MsgBox("Нет!")
        End If
    End Sub
 
End Class

Добавлено через 22 минуты

Сообщение от Spread

2. есть на форме RichTextBox, 2Button и 2TextBox.
ввожу текст который хочу заменить в 1textbox и на что заменить в 2textbox, нажимаю 1button и он заменяет во всё текст richtextbox'a это. а если нажать на 2button то он заменяет по одному (т.е если я нажму раз он заменяет это слово вначале жму ещё раз он ищет это слово опять по тексту и опять заменят т.е по одному а не во всём тексте сразу)

Чтобы заменить 1 слово пиши RichTextBox1.SelectedText.
Допустим:

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

Добавлено через 24 минуты
Чтобы заменить сразу все:

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

Добавлено через 12 минут

Сообщение от Spread

3. как узнать кодирвку текста в richtextbox
как дать пользователю возможность меняю кодировки текста и открывать различные?

Хз как.

@XIST · 12.01.2012, 17:58

My.Computer.FileSystem.WriteAllText("D:\ 1.txt", RichTBox.Text, True, encoding:=System.Text.Encoding.ASCII)
Запись, в конце после System.Text.Encoding. выбор кодировки

@Spread · 12.01.2012, 18:07 **[ТС]**

Hennasy,
ваша замена не работает

ввожу в первый текстьок что хочу заменить во второй на что нажимаю на button2 и вылазиет такое как на скриншоте. а когда нажимаю на button1 выскакиевает тоже ошибка.

так же не работает и поиск

нажимаю на button1 он ищет слово, да, а когда хочу продолжить поиск т.е жму на button2 он просто подсвечивает соседнее слово..

нашёл код замены:

Visual Basic
1
RichTextBox.Text = Replace(RichTextBoxEdit.Text, TextBox1.Text, TextBox2.Text)

он работает, но заменяет желаемое слово во всём документе
нашёл код поиска:

Visual Basic
1
RichTextBox.Find(TextBox1.Text)

но он ищет только одно такое слово. форма поиска должна быть у меня примерно такая как на скриншоте

про внедренее txt в проект вы не поняли

нужно что бы я смог дать только файл exe и он не искал по чужому компа этот айл а он уже был в программе) вот так надо)

@Spread · 12.01.2012, 18:08 **[ТС]**

DM_AND, как это реализовать?
ну например что бы кодировка текста(richtextbox'a) отображалась в label?

@Jason · 12.01.2012, 18:31

1 скрин ты не написал в лоад форму SER = 1

Добавлено через 1 минуту
Скорее всего и с заменой всего тоже такая же шняга) в лоад форму напиши SER = 1 и посмотри что будет.

Добавлено через 17 минут

Сообщение от Spread

нажимаю на button1 он ищет слово, да, а когда хочу продолжить поиск т.е жму на button2 он просто подсвечивает соседнее слово..

А это что за фигняОо у меня все работает, хм.

@Spread · 12.01.2012, 18:55 **[ТС]**

да и правда забыл ser

но такая ошибка у меня
у меня две ормы на одной textbox Две штуки и buttn'ы а на другой richtextbox
скрин шот) как убрать ошибку?

@Jason · 12.01.2012, 19:06

Оо а как ты записал Form1. действие? надо так:
WindowsApplication1.Form2. и действие.

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

Так?

Visual Basic
1
2
3
4
5
6
7
8
        If CBool(CInt(SER) WindowsApplication1.Form1.rtbEdit.Text, Me.TextBox2.Text) <> 0 Then
            Form1.rtbEdit.Focus()
            Form1.rtbEdit.SelectionStart = CInt((SER) WindowsApplication1.Form1.rtbEdit.Text, Me.TextBox2.Text) - 1
            Form1.rtbEdit.SelectionLength = Len(Me.TextBox2.Text)
            Form1.rtbEdit.SelectedText = TextBox2.Text
        Else
            MsgBox("Нет!")
        End If

такая же ошибка всё равно

исправьте пожалуйста..

@Jason · 12.01.2012, 19:15

Выложи сюда саму программу.

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

Вот

@Jason · 12.01.2012, 19:26

Черт как много всего)), я не пойму где этот код был:

VB.NET
1
2
3
4
5
6
7
8
        If CBool(CInt(SER) WindowsApplication1.Form1.rtbEdit.Text, Me.TextBox2.Text) <> 0 Then
            Form1.rtbEdit.Focus()
            Form1.rtbEdit.SelectionStart = CInt((SER) WindowsApplication1.Form1.rtbEdit.Text, Me.TextBox2.Text) - 1
            Form1.rtbEdit.SelectionLength = Len(Me.TextBox2.Text)
            Form1.rtbEdit.SelectedText = TextBox2.Text
        Else
            MsgBox("Нет!")
        End If

Добавлено через 4 минуты
Просто у тебя в коде написано Me.TextBox2.Text - а Ме это какая форма (ее название).=)

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

это форма ZamenaText =)

Опять ошибка... да блин..

это где то скобок не хватает или что вообще

@Jason · 12.01.2012, 19:31

Но в замена ТХТ только это:

VB.NET
1
2
3
4
5
6
7
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form1.rtbEdit.Text = Replace(Form1.rtbEdit.Text, Me.TextBox2.Text, Me.TextBox3.Text)
    End Sub

Или у меня глюки?)

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук 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 . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

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

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

@Mad_Marine 4 / 4 / 0 Регистрация: 10.07.2011 Сообщений: 115
	11.01.2012, 23:18
	Ты имеешь ввиду тебе нужно чтобы с exe'шником программы были txt файлы сохранений? 0

@Spread 77 / 38 / 2 Регистрация: 07.01.2012 Сообщений: 414
	11.01.2012, 23:41 [ТС]
	да, внедрить в программу этот *.txt программа не сможет же найти на другом компьютере этот файл с таким путём. 0

@Spread 77 / 38 / 2 Регистрация: 07.01.2012 Сообщений: 414
	12.01.2012, 14:46 [ТС]
	т.е если я запущу .exe просто один файл на другом компьютере он считает информацию с .txt? Добавлено через 14 минут Mad_Marine, сделал всё как вы написали, вообще не подгружает на форме ничего.. Добавлено через 1 час 7 минут Четвёртый опрос: как определить кодировку текста который написан в RichTextBox? как открывать различные кодировки? как дать возможность пользователю менять кодировку? Добавлено через 10 минут Вопрос пятый: 1.есть на форме RichTextBox, 3Button и 1TextBox я ввожу слово в textBox нажимаю 1button и он ищет это слово в richtextbox? а кнопками 2button и 3button можно листать поиск вперёд и назад как в опере? 2. есть на форме RichTextBox, 2Button и 2TextBox. ввожу текст который хочу заменить в 1textbox и на что заменить в 2textbox, нажимаю 1button и он заменяет во всё текст richtextbox'a это. а если нажать на 2button то он заменяет по одному (т.е если я нажму раз он заменяет это слово вначале жму ещё раз он ищет это слово опять по тексту и опять заменят т.е по одному а не во всём тексте сразу) Добавлено через 1 минуту 3. как узнать кодирвку текста в richtextbox как дать пользователю возможность меняю кодировки текста и открывать различные? 0

@XIST 1960 / 1061 / 148 Регистрация: 01.10.2009 Сообщений: 3,584 Записей в блоге: 1
	12.01.2012, 17:58
	My.Computer.FileSystem.WriteAllText("D:\ 1.txt", RichTBox.Text, True, encoding:=System.Text.Encoding.ASCII) Запись, в конце после System.Text.Encoding. выбор кодировки 0

@Spread 77 / 38 / 2 Регистрация: 07.01.2012 Сообщений: 414
	12.01.2012, 18:08 [ТС]
	DM_AND, как это реализовать? ну например что бы кодировка текста(richtextbox'a) отображалась в label? 0

@Spread 77 / 38 / 2 Регистрация: 07.01.2012 Сообщений: 414
	12.01.2012, 18:55 [ТС]
	да и правда забыл ser но такая ошибка у меня у меня две ормы на одной textbox Две штуки и buttn'ы а на другой richtextbox скрин шот) как убрать ошибку? Миниатюры 0

@Jason 525 / 487 / 99 Регистрация: 25.12.2011 Сообщений: 1,176
	12.01.2012, 19:06
	Оо а как ты записал Form1. действие? надо так: WindowsApplication1.Form2. и действие. 0

@Jason 525 / 487 / 99 Регистрация: 25.12.2011 Сообщений: 1,176
	12.01.2012, 19:15
	Выложи сюда саму программу. 0

@Spread 77 / 38 / 2 Регистрация: 07.01.2012 Сообщений: 414
	12.01.2012, 19:27 [ТС]
	это форма ZamenaText =) Опять ошибка... да блин.. это где то скобок не хватает или что вообще Миниатюры 0