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

Отправляет email-рассылки с помощью сервиса Sendsay

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Рассылка закрыта

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

← Июнь 2008 →
	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
30

Автор

Алексей Немиро

Статистика

1.234 подписчиков
-1 за неделю

← Все выпуски →

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Выпуск # 328

http://www.kbyte.ru/

Новый выпуск!

Здравствуйте дамы и господа!
Представляю очередной выпуск рассылки научно-информационного портала Kbyte.Ru. Надеюсь он Вам понравится. Если у Вас есть какие либо вопросы или предложения по рассылке, пишите нам – admin@kbyte.ru!

Содержание выпуска

Система ЭКСПЕРТ

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

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

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

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

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

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

Компьютер при вычисление выдает сообщение "деление на ноль"

Как узнать размер базы данных MySQL через php

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)

Работа с SQL – Запросы

Использование XML.Serialization

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

Юмор на Kbyte.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

Наверх

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

Компьютер при вычисление выдает сообщение "деление на ноль" | Автор: Наталья
Добавлено: 19.06.2008 / 15:41 | ответов: 1 | просмотров: 36

Очень срочно помогите пожалуйста! Не могу разобраться! Во программный код: Private Sub Command1_Click()
Dim Eps, E As Single
Dim n, x As Integer
Eps = 10 ^ (-4)
E = 0
n = 1
Do While ((Abs(x) + Cos(n)) / (Abs(2 * x) + Cos(n))) ^ (2 * n - Log(n)) <= 10 ^ (-4)
E = E + ((Abs(x) + Cos(n)) / (Abs(2 * x) + Cos(n))) ^ (2 * n - Log(n))
n = n + 1
Loop
k = n - 1
Text2 = E
Text3 = k
Text4 = x
End Sub
Компьтер выдает или "деление на ноль", или все результаты равны нулю. В чем ошибка? Плиз!

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

Ответ # 1 | Автор: Stuart
Добавлено:19.06.2008 / 19:48
А какое условие задачи, ото фтыкать лень:)?

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

Как это сделать? | Автор: d_d
Добавлено: 19.06.2008 / 08:06 | ответов: 7 | просмотров: 135

1. В форме имеется три Label (Label1, Label2, Label3)
2. Хочу, чтоб в каждой из них был текст "Превед!"
3. Я знаю, что можно сделать так:

001:
002:
003:
004:
005:
Label1.text="Превед!"
Label2.text="Превед!"
Label3.text="Превед!"

Colorized by: Eros.CodeSyntaxColor Engine

4. Задача состоит в том, чтоб сделать это через цикл. Я делаю так

001:
002:
003:
004:
005:
006:
Dim i As Integer
    For i =
1 To 3
      "Label"&i&".text"="Привед!"
    Next

Colorized by: Eros.CodeSyntaxColor Engine

но что-то не правильно, объясните PLZ как это реализовать?

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

Ответ # 1 | Автор: Алексей
Добавлено:19.06.2008 / 08:23
Использовать Index, например у Label1, поставить свойство Index = 0, тогда можно много Label1 сделать. В общем, массив Label-ов будет.

001:
002:
003:
004:
005:
006:
007:
Dim i As Integer
For i = 1 To 3
Label1(i).Text = "Привед!"
Next

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

Либо листать коллекцию контролов (Me.Controls), но если контролов на форме много, то это сильно
отразится на производительности.

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

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

Ответ # 2 | Автор: Алексей
Добавлено:19.06.2008 / 08:33
Ой, это VB .NET :)
Тогда так:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
For i As Integer = 0 To Me.Controls.Count - 1
   If Me.Controls(i).Name.StartsWith("Label") Then
    CType(Me.Controls(i), Label).Text = "ПРЕВЕД!"
   End If
  Next
  'либо использовать Find
  For i As Integer = 1 To 3
   If Me.Controls.Find("Label" & i.ToString(), True) IsNot Nothing AndAlso Me.Controls.Find("Label" & i.ToString(), True).Length > 0 Then
    Dim c As Control = Me.Controls.Find("Label" & i.ToString(), True)(0)
    CType(c, Label).Text = "ПРЕВЕДъ!"
   End If
  Next

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

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

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

Ответ # 3 | Автор: d_d
Добавлено:19.06.2008 / 08:43
Ого, как сложно. Ну хотябы так. Спасибо!

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

Ответ # 4 | Автор: EROS
Добавлено:19.06.2008 / 08:46
If Me.Controls(i).Name.StartsWith("Label") Then

хыы))) Это ПЯТЬ!!!!! ))))))))))))))
В таком случае этот код будет тоже актуальным!

001:
002:
003:
If Me.Controls(i).Name.Lenght=6 Then

Colorized by: Eros.CodeSyntaxColor Engine

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

Ответ # 5 | Автор: Алексей
Добавлено:19.06.2008 / 08:50
нормально :) С типами возиться лень :)

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

Ответ # 6 | Автор: d_d
Добавлено:19.06.2008 / 09:23
Извините, но я не могу понять смысл этой строки, если и без неё всё работает:

001:
002:
003:
If Me.Controls.Find("Label" & i.ToString(), True) IsNot Nothing AndAlso Me.Controls.Find("Label" & i.ToString(), True).Length > 0 Then

Colorized by: Eros.CodeSyntaxColor Engine

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

Ответ # 7 | Автор: Алексей
Добавлено:19.06.2008 / 09:32
Извините, но я не могу понять смысл этой строки, если и без неё всё работает:

Это проверка того, что Find что-то нашел, а то если он ничего не
найдет, произойдет ошибка. Вообще Find лучше вызвать один раз,
результат поиска передать в переменную, и далее работать с этой
переменной, т.е. проверять, нашлось то, что нужно, или нет.

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

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

CD - ROM | Автор: IvanKovinov2
Добавлено: 19.06.2008 / 07:15 | ответов: 0 | просмотров: 28

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

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

Метки диска | Автор: IvanKovinov2
Добавлено: 19.06.2008 / 06:58 | ответов: 1 | просмотров: 38

Как узнать метку диска и как изменить её

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

Ответ # 1 | Автор: Алексей
Добавлено:19.06.2008 / 07:19
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
'инфа о диске
Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Sub Form_Load()
Dim sDrive As String
Dim VolumeName As String
Dim SerialNumber As Long
sDrive = "C:\" 'имя диска
VolumeName = Space$(128)
GetVolumeInformation sDrive, vbNullString, 128&, SerialNumber, ByVal 0&, ByVal 0&, vbNullString, 0
VolumeName = Left$(VolumeName, InStr(VolumeName, Chr$(0)))
MsgBox "Серийный номер диска = " & SerialNumber & vbCrLf & "Имя тома = " & VolumeName
End Sub

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
'поменять метку диска
Private Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long
Private Sub Command1_Click()
'replace the "d:\" below with the drive you want to change its label
'replace the "MyNewLabel" below with the drive new label
If SetVolumeLabel("d:\", "MyNewLabel") = 0 Then
MsgBox "An Error occured while trying to change drive label", vbCritical, "Error"
End If
End Sub

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

Еще есть полезная консольная программка mountvol, позволяющая менять буквы дисков.

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

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

Папки в FileListBox | Автор: IvanKovinov2
Добавлено: 19.06.2008 / 06:48 | ответов: 3 | просмотров: 74

Что надо сделать, чтобы FileListBox показывал папки?

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

Ответ # 1 | Автор: Алексей
Добавлено:19.06.2008 / 06:56
Ничего :) Для этого предназначен DirListBox.

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

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

Ответ # 2 | Автор: andreymp
Добавлено:19.06.2008 / 10:48
Что надо сделать, чтобы FileListBox показывал папки?
Тут никак. Только ручками, используя ListView, TreeView и пр.

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

Ответ # 3 | Автор: andreymp
Добавлено:19.06.2008 / 12:13
Конечно с ListView, TreeView красивее, там функционала побольше, и на API быстрее наверно будет это просто примерчик вот на обеде накидал.

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
Private Sub Form_Load()
'подключаем в референсах FSO
  Dim Fld As Folder, SubFld As Folder, Fl As File
  Dim FSO As FileSystemObject
  Path = "C:\"
  List1.Clear
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set Fld = FSO.GetFolder(Path)
  If Len(Path) = 3 Then Path = Mid(Path, 1, 2)
  For Each SubFld In Fld.SubFolders
    List1.AddItem "[" & SubFld.Name & "]"
  Next
  For Each Fl In Fld.Files
    List1.AddItem Fl.Name
  Next
End Sub

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

Наверх

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

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

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

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

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

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

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

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

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

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

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

Статьи на Kbyte.Ru

Наверх

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

Как программно установить/получить значение текстового поля (HtmlInputTextBox)?
Дата добавления: 31.07.2006 / 16:15 | просмотров: 1904 | платформа: ASP .NET (VB)

Как сделать секундомер?
Дата добавления: 16.08.2006 / 23:26 | просмотров: 2078 | платформа: VB

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

Перекодировка текста из DOS в Windows и обратно
Дата добавления: 31.07.2006 / 12:31 | просмотров: 1844 | платформа: VB

Как узнать свой IP-адрес?
Дата добавления: 31.07.2006 / 12:53 | просмотров: 3770 | платформа: VB

Анализ IP-адреса
Дата добавления: 24.03.2007 / 10:56 | просмотров: 1577 | платформа: RegEx

Как получить текущий физический путь?
Дата добавления: 31.07.2006 / 17:05 | просмотров: 1455 | платформа: ASP .NET (VB)

Как сделать поле для ввода пароля?
Дата добавления: 01.08.2006 / 22:08 | просмотров: 1440 | платформа: VB .NET

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

Как обработать клиентские события элемента управления?
Дата добавления: 17.08.2006 / 17:50 | просмотров: 1851 | платформа: ASP .NET (VB)

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

Наверх

Юмор на Kbyte.Ru

На курсах делового русского языка для английских бизнесменов:
- Артикль "a" переводится на русский язык как "типа", а артикль "the" как "конкретно".

Рейтинг: 403
Всего голосов: 662