| Вопрос: My.Settings | Добавлено: 10.01.08 19:58 |
Автор вопроса:  Пашок
|
|
Здравствуйте!
У меня такая проблема. My.Settings сохраняться не хочет. Нужно чтобы в списке недавних докуметнов в менюшке отображались недавние документы Код: Private Sub LoadDocs() If Not conf.OneDoc = "" Then mnuOne.Text = conf.OneDoc If Not conf.TwoDoc = "" Then mnuTwo.Text = conf.TwoDoc If Not conf.ThreeDoc = "" Then mnuThree.Text = conf.ThreeDoc If Not conf.FourDoc = "" Then mnuFour.Text = conf.FourDoc If Not conf.FiveDoc = "" Then mnuFive.Text = conf.FiveDoc End Sub Private Sub AddInDocs(ByVal filename As String) 'Добавляем документ в список недавних Dim docs(4) As String docs(0) = My.Settings.OneDoc docs(1) = My.Settings.TwoDoc docs(2) = My.Settings.ThreeDoc docs(3) = My.Settings.FourDoc docs(4) = My.Settings.FiveDoc conf.OneDoc = filename conf.TwoDoc = docs(0) conf.ThreeDoc = docs(1) conf.FourDoc = docs(2) conf.FiveDoc = docs(3) My.Settings.Save() LoadDocs() End Sub ЗЫ: Пробовал My.Settings.Reload результат точно такой же. Нет их в менюшке. Заранее спасибо |
| Ответы | Всего ответов: 0 |
Страница: