Модераторы: diadiavova, gambit

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> 1000 мелочей, Вопросы, не стоящие отдельной темы 
:(
    Опции темы
AChrist
Дата 6.8.2010, 15:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 17.6.2010

Репутация: нет
Всего: нет
Нашел несколько ошибок у себя в разделе считывания с файла, потом стало получаться и стал выходить из проблем. 
Изменил стиль записи в таблицу и стало нормально записываться. 
Может кому пригодится:
Код

If tb2.Rows(x).Item(1) = tb3.Rows(f).Item(2) Then

                    trow = tb4.NewRow
                    trow(0) = tb3.Rows(f).Item(0)
                    trow(1) = tb3.Rows(f).Item(1)
                    tb4.Rows.Add(trow(0), trow(1))

                End If
PM MAIL   Вверх
AChrist
Дата 8.9.2010, 19:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 17.6.2010

Репутация: нет
Всего: нет
Здравствуйте, стало интересно, как можно включить в проект файлы, что бы в итоге я имел 1 файл "myprog.exe" который уже содержит все что надо. 
Сейчас у меня получается так: file.csv, file2.csv, myprog.exe. А я хотел бы, чтоб myprog.exe уже содержал эти файлы.  

Я пробовал My.Resources.file, но при моем виде как я считывал файл - получается совсем не то. 

Вот так сейчас выглядит код:
Код

        Dim sFilename As String = "file.csv"
        Dim myStream As System.IO.StreamReader = New System.IO.StreamReader(sFilename)
        Dim line As String
        Dim aRow As DataRow
        Do
            line = myStream.ReadLine()
            If line Is Nothing Then
                Exit Do
            End If

'magic

        Loop
        myStream.Close()


Подскажите пожалуйста как быть?
PM MAIL   Вверх
diadiavova
Дата 8.9.2010, 19:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
В свойствах проекта открой вкладку "Ресурсы", выбери тип ресурса и имя. Доступ в коде получишь через 
Код

My.Resources.<Имя ресурса>



--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
AChrist
Дата 10.9.2010, 12:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 17.6.2010

Репутация: нет
Всего: нет
Код

My.Resources.<Имя ресурса>


Я пробовал это, но visual studio мне сsv  файл превращает в одну сплошную строку

Это сообщение отредактировал(а) AChrist - 10.9.2010, 12:07
PM MAIL   Вверх
diadiavova
Дата 10.9.2010, 15:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Цитата(AChrist @  10.9.2010,  13:06 Найти цитируемый пост)
Я пробовал это, но visual studio мне сsv  файл превращает в одну сплошную строку

А надо? smile 


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
AChrist
Дата 10.9.2010, 17:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 17.6.2010

Репутация: нет
Всего: нет
А надо, чтоб я построчно мог считывать  smile 
PM MAIL   Вверх
diadiavova
Дата 10.9.2010, 17:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Хочешь сказать, что обрывы строк удаляются? smile Такого быть не должно. smile 


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
AChrist
Дата 10.9.2010, 17:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 17.6.2010

Репутация: нет
Всего: нет
ссылка1
ссылка2

похоже, что да... или я может не так считываю из ресурсов.
PM MAIL   Вверх
diadiavova
Дата 10.9.2010, 17:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Цитата(AChrist @  10.9.2010,  18:44 Найти цитируемый пост)
или я может не так считываю из ресурсов. 

Я у тебя там построчного считывания вообще не вижу. Ты сразу же в первой итерации цикла считываешь весь текст. Хотя всего кода там не видно
Код

Dim sr As New Io.StringReader(My.Resources.loca)
Dim line As String = sr.ReadLine()
Do Until String.NullOrEmpty(line)
    'Здесь добавляй line куда надо
    line = sr.ReadLine()
Loop
sr.Dispose()

Код набросал примерно, так что, если что подправь сам.

Это сообщение отредактировал(а) diadiavova - 10.9.2010, 18:17


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
AChrist
Дата 10.9.2010, 18:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 17.6.2010

Репутация: нет
Всего: нет
Спасибо! Вы можно сказать просто ткнули меня в мою собственную невнимательность и не способность догадаться правильно переделать по аналогии свой же код. Ведь все тоже самое уже было написано, но переделать надо было как Вы набросали.
PM MAIL   Вверх
andrey1636
Дата 16.8.2011, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 13.8.2011

Репутация: нет
Всего: нет
Есть два текстбокса и кнопка. Какой нужен код, чтобы кнопка активировалась если 2 строки заполнены?
Код

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If TextBox1.Text = "" And TextBox3.Text = "" Then
            PictureBox10.Visible = False
        Else
            PictureBox10.Visible = True
        End If

Не робит, хотя в vb6 робило...

Это сообщение отредактировал(а) andrey1636 - 16.8.2011, 15:20
PM MAIL   Вверх
diadiavova
Дата 16.8.2011, 18:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Цитата(andrey1636 @  16.8.2011,  16:19 Найти цитируемый пост)
Не робит, хотя в vb6 робило...

А что должно происходить-то? Я так понимаю, при загрузке формы текстбоксы всегда в одном состоянии находятся(например пусты), стало быть картинка всегда будет тоже появляться в одном состоянии. Если код разместить в обработчике клика какой-то кнопки, то в принципе должно работать. Только вместо And лучше использовать AndAlso(хотя и не обязательно, но о различиях читай мсдн), ну и код этот можно написать покороче

Код

PictureBox10.Visible = Not (TextBox1.Text = "" AndAlso TextBox3.Text = "")

А так я не вижу причин, для того, чтобы это не работало.


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
andrey1636
Дата 17.8.2011, 07:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 13.8.2011

Репутация: нет
Всего: нет
Судя по коду, это процедура загрузки формы (Me.Load) Естественно, во время загрузки формы, текстБоксы пустые.
Больше эта процедура вызываться не будет, поэтому и код Visible = False / Visible = True не выполнится.
Надо привязываться к событиям изменения содержимого TextBox'-ов...


Код


Public Class Form1

Private Sub TextBox_Changed() Handles TextBox1.TextChanged, TextBox2.TextChanged
If TextBox1.Text = "" And TextBox2.Text = "" Then
Button1.Enabled = False
Else
Button1.Enabled = True
End If
End Sub

End Class


Вот в чем ошибка была) Спасибо мужику с ответы@mail.ru smile 

А подскажите код сворачивания окна. Что то найти не могу...

Это сообщение отредактировал(а) andrey1636 - 17.8.2011, 07:57
PM MAIL   Вверх
diadiavova
Дата 17.8.2011, 08:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Цитата(andrey1636 @  17.8.2011,  08:57 Найти цитируемый пост)
Судя по коду, это процедура загрузки формы 

Что значит судя по коду? Ты написал код и не знаешь что и когда он делает что ли? smile 
Цитата(andrey1636 @  17.8.2011,  08:57 Найти цитируемый пост)
Больше эта процедура вызываться не будет, поэтому и код Visible = False / Visible = True не выполнится.

Ну я вообще-то это и написал
Цитата(diadiavova @  16.8.2011,  19:56 Найти цитируемый пост)
Я так понимаю, при загрузке формы текстбоксы всегда в одном состоянии находятся(например пусты), стало быть картинка всегда будет тоже появляться в одном состоянии. 


Цитата(andrey1636 @  17.8.2011,  08:57 Найти цитируемый пост)
А подскажите код сворачивания окна. Что то найти не могу...

http://msdn.microsoft.com/ru-ru/library/sy...indowstate.aspx


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
andrey1636
Дата 17.8.2011, 09:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 13.8.2011

Репутация: нет
Всего: нет
diadiavova, это я процитировал чувака, который мне помог smile 
Во, спасибище за код smile 
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1895 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.