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

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



Выпуск # 461


http://www.kbyte.ru/

 

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

Если у Вас возникнут какие-либо вопросы, замечания, пожелания или предложения, пишите, мы детально рассмотрим каждое Ваше сообщение – mailto: admin@kbyte.ru.

 

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

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

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

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

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

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

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

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

    Microsoft Tabbed Dialog Control - цвет фона

    помогите написать скрипт

    Номера цветов

    Копирование массива

    Проблема с подстановкой данных в таблицу

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

    Нестандартная форма

    Как узнать размер базы данных 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

Наверх

 

 

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

Microsoft Tabbed Dialog Control - цвет фона | Автор: chanchikela
Добавлено: 29.03.2009 / 23:19 | ответов: 0 | просмотров: 15

В VB6 создал вкладки с помощью Microsoft Tabbed Dialog Control 6.0, но хочется поменять цвет фона самой вкладки – не как не получается.

Прошу помогите
Заранее благодарю,

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


помогите написать скрипт | Автор: vbvirus
Добавлено: 26.03.2009 / 09:36 | ответов: 0 | просмотров: 54

:'(:'(:'(Помогите кто может как на vbscript (с vbs сталкиваюсь впервые) сделать чтобы с одной папки например c:\1\2
брались все файлы с разными расширениями и перемещались в другую,например c:\2\4, при условии что они должны переместиться с другим расширением (иначе другая прога подхватит их во время копирования, и будет ошибка), а потом переименовывались в то в которое у них было (расширений у них много, и все разные). При этом вёлся лог их перемещения в отдельном файле. А потом в конце дня из c:\2\4, в 00 ч. они заливались в архив на c:\3\5. И это же велось тоже в логе! Лог должен постоянно накапливаться! Помогите пожалуйста! Может и я вам когда нить помогу!

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


Номера цветов | Автор: Alibaba
Добавлено: 20.03.2009 / 17:50 | ответов: 1 | просмотров: 107

Всем привет.
Подскажите, плиз, начинающему:

Есть GridView.
На событие RowDataBound назначил перерисовку колонок:
e.Row.Cells(1).BackColor = Drawing.Color.Aqua
e.Row.Cells(2).BackColor = Drawing.Color.AntiqueWhite

Можно ли вместо "Drawing.Color.Aqua" указывать соответствующий номер цвета?

Тоесть, я хочу писать так:
e.Row.Cells(1).BackColor = 1
e.Row.Cells(2).BackColor = 2

Как получить эти номера?

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


Ответ # 1 | Автор: Edlin
Добавлено:23.03.2009 / 08:43
Нет, так писать нельзя. Свойство BackColor имеет тип Color, а не int, и прямого преобразования между ними нет. Но ты можешь написать собственный класс, который осуществляет такое преобразование:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
class MyColorConverter
{
  public static Color GetColor(int colorIndex)
  {
   switch( colorIndex )
   {
     case 1: return Drawing.Color.Aqua;
     case 2: return Drawing.Color.AntiqueWhite;
     ...
   }
  }
}

Colorized by: Eros.CodeSyntaxColor Engine


Теперь ты можешь использовать свой класс для задания цвета через его номер:

001:
002:
003:
004:
e.Row.Cells(1).BackColor = MyColorConverter.GetColor(1);
e.Row.Cells(2).BackColor = MyColorConverter.GetColor(2);

Colorized by: Eros.CodeSyntaxColor Engine

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


Копирование массива | Автор: DIS
Добавлено: 11.03.2009 / 00:16 | ответов: 0 | просмотров: 151

Ситуация такая. Есть две формы, в каждой обьявлено по массиву элементов пользовательского типа (обьявление типа расположено в отдельном модуле). Необходимо скопировать массив из одной формы в другую. Поскольку VB не хочет передавать массив пользовательских типов как аргумент, заюзал CopyMemory. Но она работает только когда в массиве один элемент. Если элементов больше, прога валится вместе с IDE (видимо что то не туда копирует). Вот фрагмент кода:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
036:
037:
038:
039:
040:
041:
042:
043:
044:
045:
046:
047:
048:
049:
050:
051:
052:
053:
054:
055:
056:
057:
058:
059:
060:
061:
062:
063:
064:
----------- Обьявление структур -----------
Type InCtrl
 CtrlType As Integer
 OnKey As Byte
 OffKey As Byte
 FuncName As String
 FuncAmp As Double
 FuncFreq As Double
 FuncPhase As Double
End Type

Type ModelCtrl
 Fields As Integer
 CtrlName As String
 StackCell As Integer
 DiaMin As Double
 DiaMax As Double
 GraphColor As Long
 LineWidth As Single
 Direction As Integer
 MainFunc As InCtrl
 AmpMod As InCtrl
 FreqMod As InCtrl
 Height As Single
 Width As Single
 Left As Single
 Top As Single
 BandPos As Integer
 Constraints As Integer
End Type

---------------- Из этой формы нужно скопировать:
Private MathCtrls() As ModelCtrl, CtrlCnt As Integer

Private Sub cmdStart_Click()
 Dim ByteArray() As Byte, ByteArrSize As Long
 
 Load frmModel
 If CtrlCnt > 0 Then
  ByteArrSize = LenB(MathCtrls(0)) * CtrlCnt
  ReDim ByteArray(ByteArrSize - 1)
  CopyMemory ByteArray(0), MathCtrls(0), ByteArrSize
 End If
 frmModel.SetCtrls CtrlCnt, ByteArray
 Me.Hide
 frmModel.Show
End Sub

------------------ В эту форму нужно скопировать ------------
Private MathCtrls() As ModelCtrl, CtrlCount As Integer

Public Sub SetCtrls(Count As Integer, ArrayRef() As Byte)
 Dim curCtrl As Integer
 
 CtrlCount = Count
 If Count > 0 Then
  ReDim MathCtrls(Count - 1)
  CopyMemory MathCtrls(0), ArrayRef(0), LenB(MathCtrls(0)) * Count
 Else
  Erase MathCtrls
 End If
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

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


Проблема с подстановкой данных в таблицу | Автор: Сергей_V
Добавлено: 09.03.2009 / 01:07 | ответов: 3 | просмотров: 247

Просьба помочь с решением небольшой задачи.

Есть две таблицы в файле mdb ACCESS-97:

Klient
---------
NumKlient
idNazvanie
idAdres


Otpravki
----------
NumOtpravka
idNazvanie
idAdres
idOtpravka


Первая таблица полностью заполнена.
Создаю форму в VB6, располагаю на ней DATA1, DATA2, DBCombo1, Text1, Text2
В DATA1 определяю таблицу Otpavrki, в которую добавляются новые записи.
В DATA2 определяю таблицу Klient из которой берутся данные.
В DBCombo1 - список для выбора клиента из первой таблицы (idNazvanie).
В поле Text2 ввожу новые необходимые данные (idOtpravka).

У меня не получается сделать автоматическую подстановку данных в поле Text1, в которой должен быть Адрес клиента.
Он должен автоматически подставиться из первой таблицы в момент выбора Названия клиента.

Очень прошу помочь решить проблему. В VB силён не очень. Когда-то давно изучал ACCESS.

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


Ответ # 1 | Автор: Сергей_V
Добавлено:14.03.2009 / 16:09
Неужели нет никаких решений?
Или здесь на форуме такие вещи просто не обсуждаются? Надо прикинуться глупенькой блондинкой, чтобы обратили внимание?

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


Ответ # 2 | Автор: Алексей
Добавлено:14.03.2009 / 16:58
http://kbyte.ru/unicode/showcode.aspx?id=29&lang=ru
http://kbyte.ru/Code/Show.aspx?id=79&lang=ru

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

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


Ответ # 3 | Автор: Сергей_V
Добавлено:16.03.2009 / 19:49
Спасибо!

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


Наверх

 

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

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

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

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

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

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

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

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

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

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

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

 

Статьи на Kbyte.Ru

Наверх

 

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

Воспроизведение звукового файла #2
Дата добавления: 31.07.2006 / 12:54 | просмотров: 3048 | платформа: VB

Преобразование числа в Украинскую валюту
Дата добавления: 16.08.2006 / 19:30 | просмотров: 2228 | платформа: VB

Работа с группами ListView
Дата добавления: 23.08.2006 / 22:09 | просмотров: 3844 | платформа: VB .NET

Поиск и замена
Дата добавления: 16.08.2006 / 18:54 | просмотров: 2705 | платформа: VB

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

Округление до десятых, сотых, тысячных и т.д.
Дата добавления: 04.02.2007 / 21:09 | просмотров: 4323 | платформа: VB

Как изменить текущее системное время Windows?
Дата добавления: 16.08.2006 / 20:21 | просмотров: 2302 | платформа: VB

Анализ тэгов
Дата добавления: 24.03.2007 / 11:10 | просмотров: 2103 | платформа: RegEx

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

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

 

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

Наверх

 

Юмор на Kbyte.Ru

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

 

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

 

Идет программист по улице тут ему на голову падает кирпич. Тетрис, подумал программист...

 

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

 

- Я у вас компьютер купил. Так он сдох.
- Гарантия какая?
- Пожизненная.
- Раз сдох - гарантия кончилась.

Прислал MAGICIAN

 

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

 

Дамочка привела сына в зоопарк и остановилась у бассейна.
- Видишь, Вася, это кит.
- Простите, мадам, это крокодил, - поправил ее служитель, стоявший рядом.
- Нет, это кит! - упорствовала дама.
В этот момент животное выбралось на сушу.
- Ну, что вы на это скажете? - победоносно воскликнул служитель.
- Киты ведь никогда не выходят на берег!
- Чепуха! Вы же сами видите: иногда выходят!

 

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

 

– Доктор, посоветуйте, что делать. Мой муж постоянно говорит во сне.
– Позволяйте ему говорить днем.

 

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

 

Рабинович узнал о возвращении Гагарина на Землю:
- Вылететь из Советского Союза, облететь вокруг земли - и все это для того, чтобы снова вернуться!

 

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

 

Пьяный на вокзале обнимает столб. Женский голос из громкоговорителя объявляет:
- Поезд на Мурманск отправляется в 17 часов 15 минут...
- А ну, дура, повтори ещё раз!
- Повторяю...

 

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

 

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

 

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

 

Едет программист и водитель. Вдруг машина останавливается и дальше ну никак не едет. Водитель и так, и эдак... Программист и советует:
- А вы закройте лишние окна. Поможет...

 

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

 

Вовочке срочно понадобились деньги. Просит у отца. Отец говорит ему:
- Денег у меня нет, вот тебе петух, сходи на рынок и продай его.
Пошел Вовочка на рынок, стоит. К нему подходит молодая красивая женщина. Говорит Вовочке:
- Слушай, что ты здесь стоишь, пошли лучше ко мне домой.
Пришли они к ней домой, Вовочка ее трахает, вдруг звонок в дверь. Женщина говорит:
- Это мой муж, давай лезь в шкаф.
Вовочка взял петуха, залез в шкаф, сидит. Слышит - заходит какой-то мужик, тр#хает ее. Вдруг опять звонок в дверь. Она объясняет этому мужику, что это ее муж, и запихивает его в тот же шкаф.
Вовочка говорит мужику:
- Слушай, мужик, купи петуха!
- Да не нужен он мне.
- Давай покупай, а то закричу.
Делать нечего, пришлось купить. Через 5 минут:
- Мужик, отдай петуха, а то закричу!
И так до тех пор, пока у мужика все деньги не кончились. Наконец, муж уходит, Вовочка выбегает и идет домой. Приходит домой, видит отца и говорит:
- Не смог я продать петуха, может, ты купишь?
Отец:
- Вовочка, иди на х#й, ты меня уже в шкафу за#бал!!!

 

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

 

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

Наверх


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

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

Copyright (c) Nemiro AS, 2005-2007


В избранное