Программирование (VB,C#,ASP,.NET): новости, советы, примеры (comp.soft.prog.vbaspsharpnet) : Рассылка : Subscribe.Ru

Система «Эксперт» - уникальная система, которая поможет решить, если не все, то многие Ваши проблемы с программированием и разработкой! Если у Вас есть какой-либо вопрос по программированию или разработке, то Вы всегда можете задать его нашим Экспертам! При этом каких-либо особых действий от Вас не потребуется! Просто отправьте Ваш вопрос на адрес mailto:expert@kbyte.ru, в теме письма укажите тему вопроса, в тексте – сам вопрос, и все! Эксперты дадут Вам ответ в течение 12-24 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, просто спросите и получите ответ ;-)

Вопрос #001017: Бесплатные программы

Автор вопроса: Sarj // 03.06.2008 / 08:56

Уважаемые эксперты, поскажите пожалуйста бесплатный аналог Corel Draw. Очень надо...
 
 .....

Отвечает: Алексей Немиро // 03.06.2008 / 09:02

Здравствуйте, Sarj.
 
 http://inkscape.org/
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #001014: Avi и Mpeg4 в Visual Basic

Автор вопроса: алексей // 02.06.2008 / 12:36

Как можно проигрывать эти форматы в вижал бэйсик? Пример на сайте не работает.
 
 .....

Отвечает: Алексей Немиро // 02.06.2008 / 12:43

Здравствуйте, Алексей.
 
 Можно использовать MediaPlayer. Для этого его нужно подключить к
 проекту через меню Project (Проект) -> Components (Компоненты), в
 появившемся окне найти и выбрать Windows Media Player. Далее, в
 панели инструментов должна появиться
иконка плеера, который можно
 разместить на форме. Указать файл для проигрывания можно
 в свойство URL, или FileName в зависимости от версии проигрывателя.
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000952: Обработка файлов в C# (.NET 2.0)

Автор вопроса: Сергей // 09.05.2008 / 18:07

Доброе время суток!
 В общих словах, такая задача поставлена передо мной: На веб-странице 
 пользователь выбирает файл, нажимает кнопку "Импорт" и из этого файла 
 данные импортируются в таблицу БД Oracle.
 Файл должен быть текстовым, первые 2 строки- информация о времени и 
 логине
того, кто выгружал. После них идут строки данных, поля 
 разделяются симоволом | .
 Просьба дать ссылки на документацию по работе с файлами, которые могут 
 помочь :-)

Отвечает: Алексей Немиро // 12.05.2008 / 10:34

Здравствуйте,
Сергей.
 
 Необходимые классы и функции для работы с файлами лежак в пространстве имен System.IO. Также Вам могут понадобиться классы для работы с регулярными выражениями, которые лежат в пространстве имен System.Text.RegularExpressions.
 Что касается импорта файлов, то данные можно взять прямо из потока FileUpload.PostedFile.InputStream, передать их в StreamReader и обработать при помощи регулярных выражений. 
 
 --

 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000947: Секундомер

Автор вопроса: Александр // 08.05.2008 / 17:40

Добрый
день!
 Как сделать секундомер на сайте kbyte.ru много но вот все они выдают результат как 345сек, а мне надо 1:45:01 то есть в временом формате. Как сделать???
 
 .....

Отвечает: Алексей Немиро // 09.05.2008 / 08:29

Здравствуйте,
Александр.
 
 Зная, что в минуте 60 секунд, в часе 60 минут, а в сутках 24 часа, можно легко превратить 345 секунд в нужный формат.
 001:
002:
003:
004:
005:
006:
007:
008:
009:
Dim sec As Integer
sec = 345
Dim ssec As Integer, min As
Integer, hour As Integer
If sec > 59 Then
 min = Int(sec / 60)
 ssec = sec Mod 60
End If
If min > 59 Then
hour = Int(min / 60)
MsgBox sec & " сек. = " & hour & " ч. " & min & " мин. " & ssec & " сек."

 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000937: DLOOKUP??

Автор вопроса: Алексей // 05.05.2008 / 16:37

Почему те поля формы, которые имеют в ControlSource функцию Dlookup не записывают значение полей в конечную таблицу?
 
 --------------------------------------
 Категория: --- MS Access

Отвечает: Алексей Немиро // 06.05.2008 / 05:24

Здравствуйте, Алексей.
 
 Из справки MS Access: Функция Dlookup
 При использовании этой функции не учитываются
 несохраненные изменения записей подмножества. Если функция
 DLookup должна использовать измененные значения, необходимо сначала сохранить
 изменения с помощью команды Сохранить запись
в меню
 Записи, с помощью перемещения фокуса на другую запись или
 метода Update.

 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Чтобы задать Ваш вопрос, отправьте его на адрес expert@kbyte.ru

Раздел Эксперт на сайте Kbyte.Ru

Наверх

Последнее на форумах

Раба с ячейками в Excel 2007 | Автор: golishev_S
Добавлено: 15.06.2009 / 03:28 | ответов: 3 | просмотров: 71

Доброго Вам времени суток. Помогите разрешить проблему.
Начав работать на VB 2008 возникла необходимость создания Excel 2007 файла и его заполнение. При тесте фыдает ошибку на строке .Range("A1").Value = "Найменування статті". Я так понимаю что это связанно с региональными различиями (может и ошибаюсь). Ошибка следующая "COMException не обработано Исключение из HRESULT: 0x800A03EC"
Помогите решить проблему
Ниже приведен код
Sub dannie_v_Excel()
Dim oApp As New Excel.Application()
oApp.Visible = True
oApp.UserControl = True
Dim oldCI As System.Globalization.CultureInfo = _
System.Threading.Thread.CurrentThread.CurrentCulture
System.Threading.Thread.CurrentThread.CurrentCulture = _
New System.Globalization.CultureInfo("en-US")
oApp.Workbooks.Add()
System.Threading.Thread.CurrentThread.CurrentCulture = oldCI
Dim rob_list_Excel As Excel.Worksheet = oApp.Worksheets(1)
rob_list_Excel.Name = "Баланс"
With rob_list_Excel
.Range("A1").Value = "Найменування статті"
End With
oApp.Visible = True
End Sub

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Edlin
Добавлено:15.06.2009 / 09:06
Попробуй выставить английскую локаль:

001:
002:
003:
004:
System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")
System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo("en-US")

Colorized by: Eros.CodeSyntaxColor Engine

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: golishev_S
Добавлено:15.06.2009 / 11:29
ничего не получается

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: golishev_S
Добавлено:15.06.2009 / 14:56
Сам ответил на свой вопрос
Следующий код - рабочий
Sub dannie_v_Excel()
Dim oApp As New Excel.Application()
oApp.Visible = True
oApp.UserControl = True
Dim oldCI As System.Globalization.CultureInfo = _
System.Threading.Thread.CurrentThread.CurrentCulture
System.Threading.Thread.CurrentThread.CurrentCulture = _
New System.Globalization.CultureInfo("en-US")
oApp.Workbooks.Add()
Dim rob_list_Excel As Excel.Worksheet = oApp.Worksheets(1)
rob_list_Excel.Name = "Баланс"
With rob_list_Excel
.Range("A1").Value = "Найменування статті"
End With
System.Threading.Thread.CurrentThread.CurrentCulture = oldCI
oApp.Visible = True
End Sub

Все как всегда логично только доходит поздно:)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Помогите определить число отрицательных элементов. VB 6.0 | Автор: HHFS
Добавлено: 14.06.2009 / 21:09 | ответов: 0 | просмотров: 30

Составить программу,которая в задаваемом пользователем одновременном числовом массиве опред. число отрицательных элементов и число элементов,принадлежащим отр. от 1 до 3.

Помогите плз в четверг экзамен.

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Помогите разобраться с XML файлом | Автор: andreywin
Добавлено: 07.06.2009 / 16:33 | ответов: 9 | просмотров: 240

Есть xml файл вида :

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
<?xml version="1.0" encoding="utf-8" ?>
<root>
  <playlist>
     <time> 10:30</time>
          
                   <source>D:\DX\my\1.mp3</source>
                   <source>D:\DX\my\2.mp3</source>
                   <source>D:\DX\my\3.mp3</source>
                  
<source>D:\DX\4.mp3</source>
           
  </playlist>

 <playlist>
     <time>12:01</time>
         
                   <source>D:\DX\my\5.mp3</source>
                  
<source>D:\DX\my\7.mp3</source>
                   <source>D:\DX\my\22.mp3</source>
                    <source>D:\DX\my\5.mp3</source>
                   <source>D:\DX\54.mp3</source>
            <source>D:\DX\598.mp3</source>
  </playlist>

</root>

есть ноды <playlist>. В них есть время <time> и музыкальные композиции <source>. Как зная конкретное время, добавить все <source>, находящиеся в той же ноде что и время, в ListBox?

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Edlin
Добавлено:08.06.2009 / 11:29
001:
002:
003:
004:
005:
006:
007:
008:
Dim doc As New Xml.XmlDocument()
    doc.Load("XMLFile.txt")
    Dim sources As Xml.XmlNodeList = doc.SelectNodes("/descendant::playlist[child::time='10:30']/child::source")
    For Each node As Xml.XmlNode In sources
      listBox.Items.Add(node.InnerText)
    Next

Colorized by: Eros.CodeSyntaxColor Engine

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: andreywin
Добавлено:08.06.2009 / 13:32
Dim sources As Xml.XmlNodeList = doc.SelectNodes("/descendant::playlist[child::time='10:30']/child::source")
не работает.

Может я не правильно описал чего мне надо от файла...
я получаю системное время , допусти 10:30.
Открываю xml файл.
Ищу там это время.
Нахожу. (До этого шага я все сделал)
Зная, что в xml файле, в какой то из множества нод <playlist> есть <time> 10:30</time>, надо добавить все <source> находящиеся в данном <playlist>(в котором есть время 10:30)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: andreywin
Добавлено:09.06.2009 / 11:13
ШЕф! Шо делать?!!!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 4 | Автор: Neco
Добавлено:09.06.2009 / 17:53
Dim sources As Xml.XmlNodeList = doc.SelectNodes("/descendant::playlist[child::time='10:30']/child::source")
не работает.

что означает "не работает"? не компилируется? выбрасывает исключение? выдаёт пустой результат? воду не носит? печку не топит?

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 5 | Автор: andreywin
Добавлено:09.06.2009 / 18:37
Выдает пустой результат.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 6 | Автор: Edlin
Добавлено:10.06.2009 / 09:51
Это потому, что у тебя в файле пробел перед 10:30. Нужно аккуратнее форматировать документ.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 7 | Автор: andreywin
Добавлено:10.06.2009 / 11:23
Cпасибо ОГРОМНОЕ ! за терпение :) и растолковывание мне неразумному где у меня и что ! Все заработало!
И еще вопрос !
в этой строке Dim sources As Xml.XmlNodeList = doc.SelectNodes("/descendant::playlist[child::time='19:09']/child::source")
'19:09'
У меня системное время хранится в переменной типа String
как эту переменну подставить вместо 19:09 ?
сорри, вааще не силён в XML-ях...
descendant - это потомок или наследование?
Сорри за множество вопросов, пытаюсь с Вашей помошью разобраться :)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 8 | Автор: andreywin
Добавлено:10.06.2009 / 12:29
Зделал так :
Dim Time_Play as string
Dim sources As Xml.XmlNodeList = doc.SelectNodes("/descendant::playlist[child::time='" & Time_Play & "']/child::source")
Вроде работает... может есть другое решение?

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 9 | Автор: Edlin
Добавлено:11.06.2009 / 08:56
Это нормальное решение. descendant - потомок. В XML нет никакого наследования.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Кодировка html | Автор: MrLink
Добавлено: 06.06.2009 / 17:03 | ответов: 2 | просмотров: 106

Здравствуйте!
Помогите, пожалуйста, разобраться с кодировкой.
Собственно сам вопрос:
Есть html страница, кодировка charset=ISO-8859-1. В ней английский текст(код страницы), а также символы вида оа....(русский текст) ну и так далее.
Если эту страницу открыть в браузере, то русский текст будет отображаться как надо, а в исходном тексте эти закодированные символы...
Подскажите пожалуйста как сделать в исходном тексте страницы нормальное отображение русских букв?
Заранее спасибо за ответ.

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Алексей
Добавлено:07.06.2009 / 05:47
System.Web.HttpUtility.HtmlDecode("оа")

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: MrLink
Добавлено:07.06.2009 / 22:21
Большое спасибо

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Как выравнить дочерние формы? | Автор: kentaro
Добавлено: 03.06.2009 / 13:13 | ответов: 4 | просмотров: 194

После срабатывание этого код Me.LayoutMdi(System.Windows.Forms.MdiLayout.TileHorizontal) окна становятся горизонтальными, после этого я закрываю одну из дочерних форм.Как мне выравнитьвсе остальные дочерние формы?

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Edlin
Добавлено:04.06.2009 / 08:41
А если еще раз вызвать этот метод?

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: kentaro
Добавлено:04.06.2009 / 09:59
Пробывал не получается поставил на закрытие дочерней формы
001:
002:
003:
004:
005:
006:
Private Sub ChildForm_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
MdiParent.LayoutMdi(System.Windows.Forms.MdiLayout.TileHorizontal)

End Sub

Colorized by: Eros.CodeSyntaxColor Engine
и Refresh,invalidate,update тоже не получается

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: Edlin
Добавлено:05.06.2009 / 09:41
У меня все работает.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 4 | Автор: kentaro
Добавлено:05.06.2009 / 10:08
Ну на форме всё равно остаётся пустое место после закрытия дочерний формы,как мне сделать чтоб форма занова перерисовалась?

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Наверх

Последние статьи

Нестандартная форма
Автор: Zhenik Ipatov | добавлено: 05.05.2008 / 12:42 | просмотров: 2815

Первое что бросается в глаза, когда первый раз используешь программу это конечно же её облик, внешний вид. Есть вероятность что если пользователю не понравится внешний вид окна, то он не будет пользоваться продуктом. Значит нам, не побоюсь этого слова, программистам нужно как можно лучше, удобнее, понятнее, красивее и приветливее сделать лицо программы. Нужно как можно эффектнее преподнести программу. С самого первого появления Windows окна получили прямоугольный стандарт и все User Control’ы

Как узнать размер базы данных MySQL через php
Автор: Николай Рудченко | добавлено: 14.02.2008 / 13:01 | просмотров: 3265

В этой небольшой статье вы узнаете, как получить размер вашей базы данных (БД) MySQL используя язык программирования PHP.

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)
Автор: Немиро Алексей | добавлено: 27.07.2007 / 14:01 | просмотров: 10123

В данной статье речь пойдет о том, как можно программно заполнить и отправить Web-форму, а также получить результат с использованием довольно простых классов - HttpWebRequest и HttpWebResponse.

Работа с SQL – Запросы
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 22.07.2007 / 04:43 | просмотров: 25521

В данной статье рассмотрены часто используемые SQL-запросы и приведены примеры их использования.

Использование XML.Serialization
Автор: Немиро Алексей | добавлено: 19.07.2007 / 15:38 | просмотров: 5358

В данном обзоре речь пойдет об использование XML.Serialization в .NET и ее применении на примере сохранения и считывания настроек программы с использованием синтаксиса языка Visual Basic .NET.

Статьи на Kbyte.Ru

Наверх

Интересные коды и решения

Как узнать IP-адрес текущего посетителя?
Дата добавления: 31.07.2006 / 15:34 | просмотров: 3990 | платформа: ASP .NET (VB)

Как прочитать текстовой файл?
Дата добавления: 01.08.2006 / 11:24 | просмотров: 2962 | платформа: ASP

Как связать расширение файла с приложением?
Дата добавления: 04.08.2006 / 08:56 | просмотров: 2830 | платформа: VB .NET

Как установить фокус на определенный элемент?
Дата добавления: 31.07.2006 / 16:55 | просмотров: 2649 | платформа: ASP .NET (VB)

Как заблокировать/разблокировать любое окно?
Дата добавления: 31.07.2006 / 12:52 | просмотров: 2841 | платформа: VB

Как получить имя пользователя?
Дата добавления: 24.03.2007 / 12:20 | просмотров: 1870 | платформа: VB .NET

Как удалить данные из базы данных?
Дата добавления: 31.07.2006 / 12:48 | просмотров: 2846 | платформа: VB

Как проверить корректность E-Mail?
Дата добавления: 17.08.2006 / 18:18 | просмотров: 3623 | платформа: VB

Как преобразовать десятичное число в шестнадцатеричное?
Дата добавления: 16.08.2006 / 20:25 | просмотров: 3309 | платформа: VB

Как поменять стиль у всех контролов на форме (Form)?
Дата добавления: 24.03.2007 / 11:59 | просмотров: 2073 | платформа: VB .NET

Универсальные коды на Kbyte.Ru

Наверх

Юмор на Kbyte.Ru

А связь у меня никогда не обpыва¬%Я(¦P^ NO CARRIER

Рейтинг: 590
Всего голосов: 918