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

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



Выпуск # 131


http://www.kbyte.ru/

 

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

Здравствуйте дамы и господа!
Очередной выпуск рассылки Kbyte.Ru!

 

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

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

    Вопрос #000154: Что включает в себя предметная область "Интернет"?

    Вопрос #000151: Pro6u otvetitj na moi vopros!!!!

    Вопрос #000148: Удаление лишних пробельных символов между словами в тексте

    Вопрос #000143: Для_чего_нужен_#Region?

    Вопрос #000144: Помогите_сделать_выборку_по_букве_в_SQL_Server_2005

    Вопрос #000141: Просьба

    Вопрос #000138: Вопрос_по_VB6

    Вопрос #000133: Перевернуть_картинку

    Вопрос #000134: Функция_Server.HtmlDecode_в_Visual_Basic_.NET

    Вопрос #000131: Как_поместить_одну_форму_в_другую?

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

    Можно ли наследовать...

    Всех с праздником!

    Востановление паролей Dual-Up в Windows XP

    Do..Loop (VB NET)

    Американцы собираются "выключить" интернет

    Регулярные выражения в SQL запросе Access

    XML....and EROS :-)

    EROS, С Днем Рождения!

    Таймер

    Помогите прикрутить прогресс бар

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

    Выбор языка программирования для научных работ (2-я редакция)

    Работаем с MIME

    Visual Basic 2003/2005 .NET: Взаимодействие с Microsoft Word 2000 и выше

    Visual Basic .NET: Работа с файлами

    ASP .NET 2.0: Эталонные страницы

    Описание ошибок VB

    Горячие клавиши VB 6.0

    ASP .NET 2.0: Файл Global.asax

    Как узнать страну по IP-адресу?

    Visual Basic 6.0 - Экспорт DataReport в Microsoft Word

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

Юмор на Kbyte.Ru

 

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

 

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


Вопрос #000154: Что включает в себя предметная область "Интернет"?

Автор вопроса: Игорь Голов // 02.05.2007 / 17:37

Здравствуйте, expert!

Необходимо составить техническое задание
на разработку БД по предметной области
"Интернет".
Что может включать в себя данная предметная область?

--
С уважением,
Игорь Голов mailto:itshark@mail.ru

Отвечает: EROS // 02.05.2007 / 17:37

Все, что угодно! начиная от Url и IP и заканчивая методом отправки данных и
адресом прокси сервера. "Интернет" - это настолько обширное понятие что даже примерно ничего
сказать нельзя. Все зависит от конкретных условий и назначения этой
БД..
--
С уважением,
EROS

 

Вопрос #000151: Pro6u otvetitj na moi vopros!!!!

Автор вопроса: Вася Пупкин // 02.05.2007 / 16:14

Ne mogli bi podskazatj, ili esli eto vozmozno datj KOD kak na VisualBasic 6 Za6ititj programmu ot kopirovanija na zestkij disk? $tobi programma mogla rabotatj tolko s CD diskom, ili ze etot disk nelzja bilo bi perekopirovatj! Po vozmoznosti pro6u otvetitj pobistrej! Tak kak proekt sroki zazimaet! Budu o4enj blagodaren za otziv4ivostj i e6e bol6e blagodaren za KOD!!! Etoo programmi! Spasibo vam EKSPERTI! Esli mozete to pi6ite otvet na moe milo : gleb112@mail.ru Ja programmist so stazem, no eta programmka v bo6ku ne lezet! Pomogite!!!!

Отвечает: Алексей Немиро // 02.05.2007 / 16:14

Здравствуйте,

Довольно инетересный вопрос. В принципе, программно защитить программу
от копирования с диска можно лишь от не опытных пользователей, а уже
продвинутые юзеры запросто смогут вырубить всю защиту и скопировать
вашу программку.

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

Еще есть вариант, он более надежный - зашифровать программку и
упаковать ее в другую программу, либо оставить отдельным файлом любого
формата (не exe), и запускать при помощи программы - дешифратора.
Причем, программа-дешифратор, должна проверять, что она находится
именно на CD-ROM, и только в этом случае дешифровать и запускать
основную программу. Собственно, шифрование можно опустить, но тогда
опять же, эта защита поможет только от мало опытных пользователей.
Даже если использовать шифрование, ничто не мешает пользователю
установить виртуальный CD-ROM..

Здесь, конечно можно попытать определить, какие у пользователя
CD-ROM-ы настоящие, а какие виртуальные, но это довольно сложный
процесс, хотя вполне реальный..

--
С наилучшими пожеланиями,
Немиро Алексей mailto:admin@kbyte.ru
http://blogs.kbyte.ru/Aleksey/Home.aspx

Администратор http://www.kbyte.ru/
Программист ООО "АримСофт"

Отвечает: Анатолий Присяжнюк // 02.05.2007 / 16:35

Действительно, очень интересный вопрос.
Дело в том, что после любого ответа на поставленный вопрос, использовать конкретную описанную защиту уже не имеет смысла, так как способ защиты становится всем известным. А как известно, все. что создано руками человеческими, может быть такими же другими руками изменено.
Для этого обычно каждый разрабатывает свою систему защиту, секрет которой бережно хранит. Но даже это не гарантирует полной защиты. Самой лучшей защитой пока что является:
- использование физического устройства "перепрограмматора" LPT-портов
- нанесение физических изменений на диск при помощи не стандартных способов записи
- использование механических повреждений
- использование несущих информацию битов в междусекторном пространстве диска.
В любом случае Вам необходимо избрать и разработать свой способ защиты, хотя стоит ли оно того?

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

 

Вопрос #000148: Удаление лишних пробельных символов между словами в тексте

Автор вопроса: Игорь Голов // 02.05.2007 / 09:04

Здравствуйте !

Как решить задачу
"Удаление лишних пробельных символов между словами в тексте",
используя регулярные выражения?

Платформа: Microsoft Visual Studio 2005 Express Edition
(Microsoft .NET FrameWork 2.0)
Язык: C#

Спасибо!
--
С уважением,
Игорь Голов mailto:itshark@mail.ru

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

Здравствуйте, Игорь!

0001:
0002:
0003:
0004:
0005:
0006:
0007:
0008:
0010:
0011:
0012:
0013:
0014:
0015:
0016:
0017:
0019:
0020:
0021:
0022:
0023:
0024:
0025:
0026:
0027:
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.Text.RegularExpressions;
namespace WindowsApplication1
{
  public partial class Form1 : Form
  {
    public Form1()
    {
      InitializeComponent();
    }
    private void Form1_Load(object sender, EventArgs e)
    {
      Regex myRegEx = new Regex("\\x20+");
      String myString = "Привет   это  строка с  пробелами   раз   два   три";
      myString = myRegEx.Replace(myString, " ");
      MessageBox.Show(myString);
    }
  }
}




--
С наилучшими пожеланиями,
Немиро Алексей

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

Или вот такое выражение:

0001: \x20{2,}

Где x20 - в десятичной системе - 32, символ пробела.
{2,} - от двух и более


--
С наилучшими пожеланиями,
Немиро Алексей

 

Вопрос #000143: Для_чего_нужен_#Region?

Автор вопроса: SergeyHTML404@yandex.ru // 02.05.2007 / 08:05

Здравствуйте, для чего в VB .NET нужен #Region ... End Region?
Спасибо.

Отвечает: EROS // 02.05.2007 / 08:05

Эти ключевые слова служать для обозначения "региона" который можно
свернуть и развернуть.
Лично я использую Region для разделения кода на логические блоки и скрытие редкоиспользуемых свойст, функций и процедур

 

Вопрос #000144: Помогите_сделать_выборку_по_букве_в_SQL_Server_2005

Автор вопроса: aleks2 // 02.05.2007 / 06:09

Здравствуйте!

Мне нужно сделать выборку данных из базы данных SQL Server 2005 по
первой букве поля. Например, вывести список фамилий на букву "А". Как
это сделать? Я думаю через функцию substring, ее мой редактор запросов выделяет
цветом, как ключевое слово, но как ей пользоваться?

Большое спасибо за ответы.

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

Здравствуйте,

Делается это примерно так:

0001: SELECT * FROM Names WHERE substring(lastname, 1, 1) = 'А'



--
С наилучшими пожеланиями,
Немиро Алексей

Отвечает: EROS // 02.05.2007 / 08:10

SELECT * FROM Users WHERE LastName LIKE 'A%'

 

Вопрос #000141: Просьба

Автор вопроса: katolik@meta.ua // 02.05.2007 / 05:32

Христос воскресе! - Воистину воскресе!
Дай, Бог, здоровья, счастья и успехов в жизни. Разрешите обратиться к Вам
за помощью, если вы уже разобрались с этим вирусом:
Win32/TrojanProxy.Dlena.AN тpoян, то помогите Христа ради, и мне сним
"разобраться", тоесть избавиться. С любовью и благословением р.Б. Андрей.

______________________________
Моя почта живет на Мете http://webmail.meta.ua

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

Здравствуйте,

Это довольно мерзкий вирус, из под зараженной системы его практически
не вывести, нужно выводить из под другой Windows. Если у Вас
установлена другая Windows на компьютере, то попробуйте провести
проверку всех дисков любым антивирусом с обнавленными антивирусными
базами данных. Если другой Windows у Вас нет, то снимайте свой
HDD и несисте его к другу, и лечите из под его системы. Другого простого способа нет..

Если Вы работаете с Интернет из под зарженной системы, то настоятельно
рекомендую поставить Firewall, например Outpost Firewall и
блокировать вирусу доступ в сеть.

--
С наилучшими пожеланиями,
Немиро Алексей

 

Вопрос #000138: Вопрос_по_VB6

Автор вопроса: vic // 30.04.2007 / 12:13

На форме формата А4 необходимо разместить около 70 Label и TextBox + 5 -
10 кнопок. Как сделать контейнер с вертикальной прокруткой? заранее
спасибо.


---
Все товары - ТУТ:
http://shop.tut.by/

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

Здравствуйте, expert.

Не сразу заметил тему =)

На Visual Basic 6.0 для создания вертикальной прокрутки можно
использовать элемент VScroll. Тут Вам понадобится два
контейнера (для простоты). Например - Frame.

Добавьте на форму (Form) два элемента Frame.
В первый элемент - Frame1 поместите второй элемент - Frame2.
У Frame2 установите свойство Height = 10000, у
Frame1 свойство Height = 1024, также на форме разместите
элемент VScroll и установите у него свойства Max = 10000.
Также, у Frame2 установите свойство Top = 0. Вставьте
следующий код:

0001:
0002:
0003:
Private Sub VScroll1_Change()
  Frame2.Top = -VScroll1.Value
End Sub


При этом, Вы можете разместить все Ваши элементы (Label, TextBox, Command) непосредственно на Frame2


--
С наилучшими пожеланиями,
Немиро Алексей

 

Вопрос #000133: Перевернуть_картинку

Автор вопроса: Макс // 30.04.2007 / 10:56

Првт!

Как мне в ASP .NET (Visual Basic .NET) перевернуть нарисованную
картинку? Т.е. я нарисовал счетчик, а мне теперь его надо "к верх
ногами" вывести :) Как это сделать?

Спсб.

Отвечает: EROS // 30.04.2007 / 10:56

Для этого вы можете вызвать метод RotateFlip объекта Image и передать
ему в качестве параметра тип поворота из перечисления RotateFlipType
--
С Уважением, EROS 

Отвечает: Анатолий Присяжнюк // 30.04.2007 / 11:16

Для вывода значения счетчика "наоборот" нужно применить математику: выводить значение равное максимальному значению минус текущее.

 

Вопрос #000134: Функция_Server.HtmlDecode_в_Visual_Basic_.NET

Автор вопроса: Mikhail // 30.04.2007 / 08:19

Здравствуйте.

Такой вопрос, как использовать Server.HtmlDecode в моем Windows-приложении на Visual Basic .NET?

Если написать Server.HtmlDecode, то происходит ошибка :(

--
С уважением,
Михаил

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

Здравствуйте,

Нужно импортировать в проект пространство имен System.Web.

Функции для кодировани и расшифровки Html, Url etc. находятся в классе HttpUtility.

0001: HttpUtility.HtmlDecode("<>")


--
С наилучшими пожеланиями,
Немиро Алексей

 

Вопрос #000131: Как_поместить_одну_форму_в_другую?

Автор вопроса: Oleg1965 // 29.04.2007 / 09:07

Кто знает, как поместить одну форму в другую, или одну форму в любой
другой контейнер, например Panel?

Вопрос по Visual Basic .NET 2005.

Отвечает: EROS // 29.04.2007 / 09:07

Дело в том, что в NET любая форма(по умолчанию) имеет статус "Форма
верхнего уровня" т.е. форма не имеющая родителя. И если у вас не MDI -
приложение, то это поведение вполне очевидно так как в этом случае
любая форма является самостоятельной. Чтобы переопределить это
поведение формы и назначить ей родителя Вам необходимо установить
свойство TopLevel = False
Пример:
0002:
0003:
0004:
0005:
        Dim frm As New Form1
        frm.TopLevel = False
        frm.Parent = Panel1
        frm.Show()

В качестве родителя может выступать любой наследник
System.Windows.Forms.Control
--
С уважением,
EROS

 


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

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

Наверх

 

 

Голосование на Kbyte.Ru

Голосование на Kbyte.Ru через E-Mail!
Чтобы проголосовать через E-Mail, выберите ответ, если у Вас настроен почтовый клиент, должно появиться окно с новым сообщением, ничего не изменяйте, а просто отправьте пустое письмо и в течение некоторого времени Ваш голос будет зачтен.
Для голосования через сайт, перейдите по этой ссылке: http://kbyte.ru/Voting/.
Пользуетесь ли Вы системой «Эксперт» на нашем сайте?
На нашем сайте работает система «Эксперт», через которую любой желающий может задать вопрос Экспертам в области программирования и информационных технологий.
Да, только ей и пользуюсь! (1)
Да, периодически использую (1)
Вашей – нет, но иногда использую другие подобные системы (0)
Нет, предпочитаю использовать форумы (2)
Нет, мне это вообще не надо (0)
А как ей пользоваться? (0)
Нет, а что это? (0)

Всего голосов: 4

Голосование на Kbyte.Ru

Наверх

 

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

Можно ли наследовать... | Автор: -АлександР-
Добавлено: 01.05.2007 / 19:09 | ответов: 10 | просмотров: 36

Точнее можно ли переименовать свойство класса-родителя в наследнике?

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


Всех с праздником! | Автор: Алексей
Добавлено: 01.05.2007 / 06:24 | ответов: 0 | просмотров: 14

сабж.

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


Востановление паролей Dual-Up в Windows XP | Автор: A_XIII
Добавлено: 30.04.2007 / 15:55 | ответов: 2 | просмотров: 37

Я давно хотел сделать программу для востановления паролей от Dual-Up на Visual Basic 6.5 , но я плохо знаю архитектуру Windows XP, да и Basic знаю плохо..... Вообщем, хотелось бы знать, где хранятся пароли (я слышал в реестре в шестнадцатиричной сис.) и пожалуйста, если у кого-нибудь есть кирпичек проги, киньте плиз, заранее спасибо!!!

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


Do..Loop (VB NET) | Автор: pasha
Добавлено: 30.04.2007 / 14:45 | ответов: 2 | просмотров: 34

А как с помощью Do..Loop
1. Подготовить место в дин. массиве для некоторых данных
2. Если данные сохранены успешно, вывести кол-во успешных сохранений данных с этой формы.
!!! Ситуация. Я первый раз сохраняю данные. Второй раз. Закрываю программу, перезагружаю винду.
Захожу опять в эту форму в программе. Сохраняю (если считать сохранения и до перезагрузки) третий раз. Четвертый (всё успешно). Тут мне нужно, чтоб был МsgBox, сообщающий, что я сохранил данные с этой формы 4 раза, а не 2!!!
т. е. похоже на счётчик Acess.
P. S. Выделяем память с
001:
ReDim Preserve
Powered by EROS: CSC ver. 1.x
Modify by Aleksey S Nemiro special for Kbyte.Ru
.
Дайте, пожалуйста код этой операции (в кнопку).

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


Американцы собираются "выключить" интернет | Автор: Алексей
Добавлено: 30.04.2007 / 07:50 | ответов: 4 | просмотров: 21

В академических кругах США все более популярной становится идея закрыть навсегда сеть Интернет (World Wide Web, WWW, Всемирную паутину). Наиболее естественным способом это сделать представляется отключение ведущих серверов, поддерживающих глобальную связь. В основном они расположены в Америке.
Вместо WWW предлагается создать новую сеть сетей, выстроенную более корректно с точки зрения безопасности пользователей. Такое предложение получает активную поддержку в правительственных кругах США.

Сторонники полной санации www-пространства указывают, что без радикальных мер невозможно найти решение для современных вызовов в области мобильности и безопасности, связанных с мировой компьютерной связью. Однако подобный предлагаемым проект требует многомиллиардных инвестиций и долгих лет дорогостоящего труда инженеров.

Напомним, еще в 2003 году "Лаборатория Касперского", ведущий российский производитель антивирусного программного обеспечения, устами своего основателя Евгения Касперского объявила, что сеть Интернет в скором времени ждет крах. Причина будущего цифрового апокалипсиса заключается в том, что сейчас доступ в сеть Интернет открыт любому, количество хакерских атак на сервера сети возрастает.

"Со временем у нас будет два интернета: защищенный и незащищенный. Последний, аналогичный тому, какой мы имеем сегодня, будет кишеть хакерами – ну и пусть себе атакуют друг друга", - говорил ранее господин Касперский в одном из интервью.

http://itar-tass.ru


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

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


Регулярные выражения в SQL запросе Access | Автор: Wyfinger
Добавлено: 29.04.2007 / 14:53 | ответов: 2 | просмотров: 29

Подскажите пожалуйста как реализовать subj.

Например в Exel можно в VB написать свою функцию, объявить как Public и использовать ее в расчетах ячеек, но в Access такое, похоже, не проходит. Либо делается как-то по-другому.

Механизм Like довольно гибок, но мне нужно сравнивать имена файлов, т.е. нужны спецсимволs^
* - любое число любых символов;
? - один любой символ;
; - логическое или;

Если возможны какие-то другие варианты - посоветуйте.

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


XML....and EROS :-) | Автор: ZXC
Добавлено: 29.04.2007 / 11:58 | ответов: 14 | просмотров: 62

Вопрос, скорее всего к EROSу =) вот твой код, он работает нормально, но, ты там написал класс, и комментарий:

'Класс для хранения настроек
'его я сделал для наглядности,чтоб ты понял как
'как можно это делать ручками.. Но в VB2005
'этот класс уже встроен!!!
'Называется - My.Settings

Так вот, покажи плизз пример работы с My.Settings, а то я задолбался добавлять описание каждого текст бокса, чекбокса :) как тут

Private _CheckBoxValue As Boolean = False
Private _TextBoxValue As String = ""

Public Property CheckBoxValue() As Boolean
Get
Return _CheckBoxValue
End Get
Set(ByVal value As Boolean)
_CheckBoxValue = value
End Set
End Property

Public Property TextBoxValue() As String
Get
Return _TextBoxValue
End Get
Set(ByVal value As String)
_TextBoxValue = value
End Set
End Property


Или и в My.Settings тоже надо будет всё это объявлять?
Сам код:

'Импортируем неоходимые пространства имён
Imports System.IO
Imports System.Xml.Serialization
Imports Microsoft.VisualBasic.FileIO

Public Class Form1
'Объявляем переменные
Private FilePath As String = Path.Combine(SpecialDirectories.Desktop, "Test.xml")
Private MyTestClass As MySettings
Private formatter As New XmlSerializer(GetType(MySettings))
Private fs As FileStream

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Сохранение в файл
MyTestClass = New MySettings
With MyTestClass
.CheckBoxValue = CheckBox1.Checked
.TextBoxValue = TextBox1.Text
End With
Try
fs = File.Open(FilePath, FileMode.Create)
formatter.Serialize(fs, MyTestClass)
fs.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Чтение из файла
Try
fs = File.Open(FilePath, FileMode.Open)
MyTestClass = CType(formatter.Deserialize(fs), MySettings)
fs.Close()
With MyTestClass
CheckBox1.Checked = .CheckBoxValue
TextBox1.Text = .TextBoxValue
End With
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

End Class

<System.Serializable()> _
Public Class MySettings
'Класс для хранения настроек
'его я сделал для наглядности,чтоб ты понял как
'как можно это делать ручками.. Но в VB2005
'этот класс уже встроен!!!
'Называется - My.Settings

Private _CheckBoxValue As Boolean = False
Private _TextBoxValue As String = ""

Public Property CheckBoxValue() As Boolean
Get
Return _CheckBoxValue
End Get
Set(ByVal value As Boolean)
_CheckBoxValue = value
End Set
End Property

Public Property TextBoxValue() As String
Get
Return _TextBoxValue
End Get
Set(ByVal value As String)
_TextBoxValue = value
End Set
End Property

End Class

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


EROS, С Днем Рождения! | Автор: Алексей
Добавлено: 28.04.2007 / 03:05 | ответов: 3 | просмотров: 24

EROS, от имени человечества нашей планеты, поздравляю тебя С Днем Рождения!
Желаю всего самого-самого и в неограниченном количестве ;)

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


Таймер | Автор: ZXC
Добавлено: 27.04.2007 / 12:35 | ответов: 14 | просмотров: 55

Нашёл в учебнике пример, таймера, который после запуска начинает отсчитывать сколько прошло времени: часы, минуты, секунды
Но там формат PDF и половина текста не видать, вот что можно было скопировать, но не работает, подскажите плизз что не так
Пишем в процедуре таймера:

Dim ticks As Integer = 0
Dim h, m, s As Integer
ticks = ticks + 1
h = Int(ticks / 3600)
m = Int((ticks - h * 3600) / 60)
s = ticks - h * 3600 - m * 60
Label1.Text = h.ToString + ":" + m.ToString + " : " + s.ToString

Ну или подскажите свои решения этой задачи

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


Помогите прикрутить прогресс бар | Автор: ZXC
Добавлено: 27.04.2007 / 08:57 | ответов: 10 | просмотров: 64

Назначение кода:
Эта функция перебирает в указанной директории все папки и файлы в них и делает некие операции над файлами, один прогресс бар там прикручен, но он показывает состояние насколько обработан [U]файл[/U], а нужно отображать общий процесс, т.е сколько прошло и сколько осталось на прогресс баре
pb = ProgresBar
вот сам код:


Function ProccessDirectory(ByVal directoryName As String)


Dim sourceLines(ListBox1.Items.Count - 1) As String
ListBox1.Items.CopyTo(sourceLines, 0)

Dim DI As New DirectoryInfo(directoryName)
For Each FI As FileInfo In DI.GetFiles()
dataLines = File.ReadAllLines(FI.FullName)

Me.Text = System.IO.Path.GetFileName(FI.FullName)
Application.DoEvents()

pb.Maximum = dataLines.Length
pb.Value = 0

For Each data As String In dataLines
For Each source As String In sourceLines
If data.Contains(source) Then
output.AppendLine(data)
Exit For
End If
Next
pb.Value += 1
Next
Next

For Each SubDI As DirectoryInfo In DI.GetDirectories
ProccessDirectory(SubDI.FullName)
Next
End Function

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


Наверх

 

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

Выбор языка программирования для научных работ (2-я редакция)
Автор: Юдин С. Ю. | добавлено: 15.03.2007 / 02:49 | просмотров: 1152

Идея написания этой статьи возникла после того, как на одном из сайтов по физике http://physics.nad.ru/aniboard/messages/291.html я обнаружил интересный алгоритм моделирования движения тела в поле постоянной напряженности по различным направляющим. Вернее, меня заинтересовал не весь алгоритм, т.к. основа их всех одна (принцип Даламбера, если не считать квазиалгоритма с применением уравнений Лагранжа 2-го рода) и различаются они только способом определения реакций в месте соприкосновения тел. Вот именно не известный мне способ определения реакций меня и заинтересовал, но код программы...

Работаем с MIME
Автор: Немиро Алексей | добавлено: 29.11.2006 / 14:46 | просмотров: 1327

Не так давно мне пришлось немного поработать MIME (Multipurpose Internet Mail Extension) - это стандарт почтовых сообщений, в РуНете (Russian Internet) я не нашел нормального описания спецификации MIME, и посему решил написать небольшую статейку на эту тему. В данной статье вы узнаете об основных особенностях и стандартах MIME, а также научитесь «читать» MIME с использованием синтаксиса языка Visual Basic .NET 2005.

Visual Basic 2003/2005 .NET: Взаимодействие с Microsoft Word 2000 и выше
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 05.10.2006 / 12:15 | просмотров: 2551

Эта статья будет полезна только тем людям, у которых установлен Microsoft Word 2000 или выше! Мы научимся делать всё возможное с документами MS WORD при помощи VB 2003/2005 .NET.

Visual Basic .NET: Работа с файлами
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 04.10.2006 / 10:35 | просмотров: 3058

В этой статье мы поговорим о работе с файлами. Научимся добавлять и удалять файлы/каталоги, записывать и читать данные из файла и.т.д.

ASP .NET 2.0: Эталонные страницы
Автор: Немиро Алексей | добавлено: 27.08.2006 / 04:08 | просмотров: 2321

Как известно, большинство сайтов имеют однотипную, общепринятую разметку страниц, неотъемлемой частью которой является верхний и нижний колонтитулы и, пожалуй, самая главная часть - тело страницы, хотя конечно, бывают и исключения. ASP .NET 2.x предлагает уникальный метод создания одинаковой разметки для страниц сайта – это использование, так называемых, эталонных страниц. Если вы работали с ранними версиями ASP(ASP, ASP .NET 1.x), то, наверное, помните, что постоянно приходилось копировать HTML-код страницы с элементами ASP. Конечно, использование включаемых файлов (include) в классическом ASP, и пользовательских элементов управления (*.ascx) в ASP .NET 1.x, значительно упрощало разработку Web-сайтов, но это не сравнится с тем, что предлагает ASP .NET 2.x.

Описание ошибок VB
Автор: [root] | добавлено: 29.07.2006 / 06:58 | просмотров: 3311

В данном обзоре содержится русскоязычное описание ошибок Visual Basic 5.0/6.0.

Горячие клавиши VB 6.0
Автор: [root] | добавлено: 20.07.2006 / 13:21 | просмотров: 1786

В данном обзоре рассмотрены горячие клавиши Visual Basic 5.0/6.0, которые значительно ускоряют процесс разработки и тестирования программ.

ASP .NET 2.0: Файл Global.asax
Автор: Немиро Алексей | добавлено: 17.07.2006 / 18:04 | просмотров: 2116

Файл Global.asax является необязательным файлом приложений ASP .NET и содержит дополнительный код, отвечающий за обработку событий, происходящих на уровне приложения. Этот файл должен находиться в корневом каталоге Web-приложения. В ASP .NET 1.1 сей файл автоматически создавался Visual Studio при создании нового Web-проекта, в ASP .NET 2.0 Visual Studio Global.asax автоматически не создает, но его можно добавить в проект вручную. Все изменения, внесенные в файл Global.asax отслеживаются средой ASP .NET, и приложение перезагружается...

Как узнать страну по IP-адресу?
Автор: Amit Gupta | добавлено: 17.07.2006 / 08:09 | просмотров: 35145

Интернет широко распространен в большинстве стран и континентов. Узнать страну посетителей вашего веб-сайта может быть не легкой задачей, особенно если вы не знаете как это сделать...

Visual Basic 6.0 - Экспорт DataReport в Microsoft Word
Автор: John D. Conway | добавлено: 17.07.2006 / 06:16 | просмотров: 3022

В этой статье мы создадим пример базы данных Microsoft Access и пользовательский интерфейс в среде Visual Basic 6.0. Сделать это будет относительно несложно, поскольку для работы с нашей базой данных мы будем использовать компонент ADODC Componenet (Microsoft ADO Data Control 6.0 (OLEDB)). Мы добавим DataEnvironment и DataReport и буквально, в течении минуты, мы уже сможем экспортировать наш DataReport в Microsoft Word Document. (.doc)...

 

Статьи на Kbyte.Ru

Наверх

 

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

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

Как загрузить изображение в PictureBox/Image?
Дата добавления: 16.08.2006 / 19:55 | просмотров: 472 | платформа: VB

Как преобразовать цвет в Web-стандарт?
Дата добавления: 24.03.2007 / 11:37 | просмотров: 37 | платформа: VB .NET

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

Как запретить изменение размера формы?
Дата добавления: 21.08.2006 / 20:11 | просмотров: 562 | платформа: VB

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

Как определить, какие кнопки мыши нажаты?
Дата добавления: 16.08.2006 / 19:45 | просмотров: 427 | платформа: VB

Как сделать часы?
Дата добавления: 16.08.2006 / 23:30 | просмотров: 562 | платформа: VB

Как определить текущую раскладку клавиатуры?
Дата добавления: 16.08.2006 / 19:38 | просмотров: 389 | платформа: VB

Как можно скрыть заголовок формы?
Дата добавления: 31.07.2006 / 12:04 | просмотров: 396 | платформа: VB

 

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

Наверх

 

Юмор на Kbyte.Ru

В детстве его приходилось пугать патологоанатомом.

 

Рейтинг: 29
Всего голосов: 49
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Сидит в ресторане новый русский. На столе икорка, осетрина, коньячек, водочка. Все самое дорогое, по высшему классу. Он, не стесняясь, наворачивает с большим аппетитом. Рядом за столиком семья ботаников ест капустку. Отец с сантиметровыми линзами, мама тоже в очках и худенький сынишка-лицеист в потрепанном пиджачке. Новому русскому стало стыдно. Он подозвал мальчугана мол, пускай поест. Мальчик топчется на месте, стесняется. Мать, поправляя очки:
- Вы знаете, мой сын сыт.
Новый русский:
- Так я и говорю, пускай не ссыт, пускай хавает!!!

 

Рейтинг: 3
Всего голосов: 2
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Приходит мужик в кабак:
- Я вчера тут весь вечер провёл?
- Тут.
- А зарплату всю пропил?
- Всю.
- Фу-у-у... Слава богу, а я думал, что потерял.

 

Рейтинг: 26
Всего голосов: 37
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Стоит взвод молодых бойцов. Старшина:
- По порядку номеров рассчитайсь!!!
Солдат-программист:
- Можно вопрос ?
- Можно...
- А в какой системе? Десятичной? Шестнадцатеричной?
- Для дураков объясняю, в десятичной!!!
- Понял! Нулевой!!!

 

Рейтинг: 35
Всего голосов: 52
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Приходит хакер к пианисту, а тот ему хвалиться новым пианино. Хакер посмотрел оценивающее и сказал:
- Клавиатура, конечно хреновая, но то что shift ногами нажимать надо-это круто.

 

Рейтинг: 30
Всего голосов: 46
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Мадонна пострадала от российского пиратского рынка, так как на Горбушке уже продается на DVD запись ее концерта, который будет в Москве в сентябре.

 

Рейтинг: 562
Всего голосов: 803
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Звонок в компьютерную контору:
- С моим компьютером проблемы, он не включается...
- Как не включается?
- Да пишет все время: "Вставьте дискету, вставьте дискету..."
- А вы вставляли?
- Hет... Как-то не догадался

 

Рейтинг: 35
Всего голосов: 54
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Выходной выдался посреди недели. Дай, думаю, в кино схожу на дневной сеанс, все билеты дешевле. Набрал всей этой хренотени, что к фильму полагается, поп-корн, колу и т.д. Сижу. Передо мной усаживаются две девчонки, явно с бодуна, одна еще ничего, а другую явно колбасит, то куртку снимет, то наденет, минералка в ее бутылке на глазах исчезает. Потом вроде подотпустило ее, а фильм все не начинается. И тут она своей подруге говорит: "Кать, ты следи, чтобы я не заснула". На что подруга ей отвечает: "Делать мне больше нечего, за тобой следить. Мне, вообще, пофиг, спишь ты или нет. Главное, чтоб ты дышала!" Душевная подруга.

 

Рейтинг: 50
Всего голосов: 78
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Чем отличается человек умеющий программировать от настоящего программиста: первый разговаривает на русском и программирует на С, а второй разговаривает на С и программирует на русском.

 

Рейтинг: 37
Всего голосов: 59
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Студент сдаёт экзамен по физике. Сдаёт очень плохо. Профессор пытается его вытянуть, спрашивает:
- Ну скажите хотя бы, при какой температуре кипит вода?
- Профессор, я не знаю, при какой температуре она кипит, но я знаю, что при 40 градусах она превращается в водку!

 

Рейтинг: 67
Всего голосов: 98
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Весь юмор на Kbyte.Ru

Наверх


Выпуск подготовил: R-KDR-19826

Редактор: Немиро Алексей

Copyright (c) Nemiro AS, 2005-2007


В избранное