Отправляет 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): новости, советы, примеры

Выпуск # 302

http://www.kbyte.ru/

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

Ну что я могу сказать, погода не летная, но на выпуск рассылки это никак не повлияло. Читайте! Если будут вопросы, пишите нам на E-Mail или воспользуйтесь общедоступным форумом (регистрация не требуется).

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

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

Вопрос #000916: Вопрос_с_работой_C#_и_Sql_Server_2005

Вопрос #000891: Как прочитать текстовые ресурсы ASP.NET 2.0 из ...

Вопрос #000885: Генерация отчетов(Печатных форм)

Вопрос #000884: О бесплатном хостинге.

Вопрос #000857: Защита от шпионских программ на Ginza MS100

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

Статья

Поиск в массиве заданного значение

ListView скрытие строки со значением

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

Распечатка формы ориентации Ландшафт в VB5

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

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

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

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

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

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

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

Юмор на Kbyte.Ru

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

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

Вопрос #000916: Вопрос_с_работой_C#_и_Sql_Server_2005

Автор вопроса: Дмитрий Корнев // 28.04.2008 / 07:50

У меня есть автоматом созданный ДатаСэт (взятый из SQL)... при нажатии кнопки данные из текст-боксов должны записываться в поля... вопрос в том, что у меня не получается сделать цикл, чтобы в поле с ID автоматически вносились значения при создании новых строк... 
 
 private void button1_Click(object sender, EventArgs e)
     {
 
       // Создаём переменную для хранения значения типа Int32
       Int32 id1 = 0;
       Int32.TryParse(textBox1.Text, out id1);
 
       // Создаём объект DataAdapter для таблицы Т1 - см. файлы bazaDataSet.xsd и bazaDataSet.Designer.cs 
       T1TableAdapter t1Adapt = new T1TableAdapter();
       
       // Вызываем метод, который сразу-же пытается выполнить 
       //подключение к БД, вставку записи в таблицу и отключение от БД
 
       try

      {
         t1Adapt.Insert(id1, textBox2.Text, textBox3.Text);
       }
       catch (Exception ex)
       {
         MessageBox.Show(ex.Message,"Ошибка",MessageBoxButtons.OK,MessageBoxIcon.Error);
       }
     }
 
 
 
 Я вставил код, где ID берётся из текстбокса... А мне нада, чтобы ID сам автоматически создавался при добавлении новой строки...
 
 Если поможете, буду Вам очень благодарен...

Отвечает: Алексей Немиро // 28.04.2008 / 07:56

Здравствуйте, Дмитрий.
 
 В базе поле с ID должно быть Primary Key и Identity, тогда SQL Server идентификатор будет ставить автоматом.

 Типизированные DataSet я бы не рекомендовал вообще использовать, хотя на этот счет существует много мнений :)
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000891: Как прочитать текстовые ресурсы ASP.NET 2.0 из ...

Автор вопроса: Victor Papp // 22.04.2008 / 18:01

Вопрос.
 
 У меня сайт asp.net 2.0 и текстовые ресурсы храню в папке
 App_LocalResources в формате .resx
 
 Мне нужно из одного из роликов Flash CS3 исползуя Actionscript 3.0
 прочитать значение текстовых ресурсов.
 Т.е. мне бы хотелось иметь в Flash CS3 что-то на подобии
 GetLocalResourceObject(string
key), которая вернет мне значение
 текстового ресурса из файла "somefile.aspx.resx" или
 "somefile.aspx.ru-RU.resx" в зависимости от текущего "culture"
 
 Заранее благодарю,
 
 Victor Papp
 ICQ# 431-486-339
 Tel/fax: +38 (0312) 66-52-55
 Cellular: +38 (050) 5-141-142

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

Здравствуйте, Victor Papp.
 
 Файлы ресурсов .NET (.resx) - это обычные XML-документы, думаю, Вы
 можете их прочитать стандартными средствами AS для работы с XML, примерно:
 
 001:
002:
003:
004:
005:
006:
007:
var myXml = new XML();
System.useCodepage = true;
myXml.ignoreWhite = true;
myXml.onLoad = function (success)
{
 //.
}

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

Вопрос #000885: Генерация отчетов(Печатных форм)

Автор вопроса: Skala // 21.04.2008 / 09:15

Здравствуйте!
 Скажите пожалуйста, как можно получить отчеты из программы? - Читал, что для веб-приложений достаточно изменить заголовок страницы (например- на excel), но нужно написать отчеты заданной формы: Т.е. определенного формата бумага, в определенном месте текст, линии и т.п. А если быть точным, то вот какая задача намечается: 
 Нужно написать программу для печати пропусков (ФИО и т.п. берется из
БД). Пропуск по диагонали будет пересекать линия и прочие "украшательства". Я предполагаю так делать: Сделать некий шаблон, а потом в поля выводить данные. 
 
 Какой способ/инструмент посоветуете для этого?

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

Здравствуйте, Skala.
 
 Безусловно, самый простой вариант в данном случае взять MS Word или
 MS Excel и просто создать документ необходимого формата, сохранить его
 как HTML, потом открыть, например, в блокноте и поставить метки в
 нужные места :) Правда, в данном случае, генератор отчетов, вполне
 возможно, также должен будет содержать куски HTML-а шаблона, например,
 при использовании
таблиц.
 
 Собственно, Вы не указали язык, на котором все это чудо хотите
 реализовывать, поэтому извиняйте, если ткнув пальцем в небо, я попал
 совсем не туда, куда нужно :) В .Net для создания Excel документов в
 Web на лету можно использовать контрол CarlosAg.ExcelXmlWriter,
 он создает XML-документ в формате Excel,
правда с некоторыми ограничениями.
 
 Выводить данные можно через хендлер, указав тип контента application/vnd.ms-excel (Response.ContentType = "application/vnd.ms-excel"), чтобы страничка сразу открывалась в Excel.
 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000884: О бесплатном хостинге.

Автор вопроса: "S.Krasnikov" // 21.04.2008 / 06:47

Где найти бесплатный и надежный NET хостинг под WINDOWS 2003 ?

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

Здравствуйте, S.Krasnikov.
 
 Здесь
 
 Учитывая, что сама Windows не бесплатная, то и бесплатный хостинг зачастую оставляет желать лучшего, да и платный в России довольно дороговат, по сравнению с тем же самым Linux.
Так что, если есть деньги, лучше воспользоваться платным.
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000857: Защита от шпионских программ на Ginza MS100

Автор вопроса: Koshpaev Valery // 09.04.2008 / 01:04

Здравствуйте,уважаемые эксперты!Для меня очень остро стоит проблема &quot;утечка информации&quot; с телефона,я подозреваю,что в какой-то из программ моего телефона находится программа-шпион(троян,руткит либо какая другая),которая передает информацию о моих контактах в записной книжке телефона(номера телефонов),какие сайты я посещаю и пароли к ним(e-mail,сайты
знакомств...).Я не могу ее обнаружить,тем более я не специалист по этой области.Пожалуйста,помогите мне:какую можно скачать программу для Ginza MS100,чтобы можно было найти и
 уничтожить шпионскую программу?А она точно есть,потому что очень много моих данных уходит куда-то кому-то.Или,что надо сделать,чтобы удалить вредную программу?С большим к Вам уважением,Кошпаев Валерии Анатольевич


   ________________________________________________________
Вы уже с Yahoo!? 
Испытайте обновленную и улучшенную. Yahoo! Почту! http://ru.mail.yahoo.com

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

Здравствуйте, Валерий.
 
 Воспользуйтесь антивирусом. У Касперского есть версия антивируса специально
для КПК.
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

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

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

Наверх

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

Статья | Автор: Евгений
Добавлено: 29.04.2008 / 22:56 | ответов: 0 | просмотров: 8

Тут у Вас, есть раздел статьи. Как туда свою добавить?

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

Первое что бросается в глаза, когда первый раз используешь программу это конечно же её облик, внешний вид. Есть вероятность что если пользователю не понравится внешний вид окна, то он не будет пользоваться продуктом. Значит нам, не побоюсь этого слова, программистам нужно как можно лучше, удобнее, понятнее, красивее и приветливее сделать лицо программы. Нужно как можно эффектнее преподнести программу.
С самого первого появления Windows окна получили прямоугольный стандарт и все User Control’ы ( кнопки, textbox, PictureBox, и др.) тоже не ушли от этого. Уже более 10 лет господствуют эти стандарты, мне кажется нужно вступать в новое, нестандартное поколение окон.
Ну что ж, так как в Visual Basic нет специальной функции для создания «кривых» форм, придётся использовать API функции. С их помощью мы сможем делать даже прозрачные и полупрозрачные окна.
Ну что нужно начинать.
Сначала опишем функции и константы:

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXstyle="(-20)"
Const WS_EX_LAYERED = &H80000

А теперь самое интересное мы сделаем форму «кривой» с помощь прозрачного цвета, в его роли будет выступать белый(если нужно, можно сделать и другой).

Private Sub Form_Load()
Dim Ret As Long
Ret = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hwnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes Me.hwnd, vbWhite, 0, LWA_COLORKEY
End Sub

Ret = GetWindowLong(Me.hwnd, GWL_EXSTYLE) В этой строке мы определяем форму с которой будем работать.

SetLayeredWindowAttributes Me.hwnd, vbWhite, 0, LWA_COLORKEY В этой строке мы удаляем, делаем прозрачным белый цвет.
Теперь просто вставляем на форму заранее нарисованую картинку, где белые места там прозначное место на форме.

Теперь сделаем форму полупрозрачной.
Будем использовать теже самые API.

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXstyle="(-20)"
Const WS_EX_LAYERED = &H80000

Private Sub Form_Load()
Dim Ret As Long
Ret = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hwnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes Me.hwnd, 0, 125, LWA_ALPHA
End Sub

SetLayeredWindowAttributes Me.hwnd, 0, 125, LWA_ALPHA В этой строчке мы делаем форму полупрозрачной. Параметр 125 отвечает за уровень прозрачности(от 0 до 255).

Ещё можно сделать форму по контуру текста.
Вот так.

Описываем функции

Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Const RGN_COPY = 5

Private Sub Form_Load()
Const Text = "IpatovSoft"
Dim hRgn As Long
Font.Name = "Times New Roman"
Font.Italic = True
Font.Size = 50
Width = TextWidth(Text)
Height = TextHeight(Text)
BeginPath hdc
Print Text
EndPath hdc
hRgn = PathToRegion(hdc)
SetWindowRgn hWnd, hRgn, False
End Sub

Вот так.
Наверняка есть ещё много способов сделать нестандартную форму.

Это один из множества примеров создания более привлекательного интерфейса, я думаю Вы и сами придумаете много способов как сделать «лицо программы» более приветливым.

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

Поиск в массиве заданного значение | Автор: Arti
Добавлено: 29.04.2008 / 18:49 | ответов: 2 | просмотров: 49

Каким способом лучше это сделать, если речь идет о не сортированном массиве. В цикле перебором пока значение не совпадет с запросом или есть еще, какие продуктивные способы?

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

Ответ # 1 | Автор: Евгений
Добавлено:29.04.2008 / 22:14
В цикле перебором пока значение не совпадет с запросом или есть еще, какие продуктивные способы?

Почему бы и нет.

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

Ответ # 2 | Автор: Евгений
Добавлено:29.04.2008 / 22:20
Есть массив A(m*n); b заданное значение
я .net не знаю, на vb6 пишу

for i=1 to m
for j=1 to n
if b=A(i,j) then print "Найдено значение"
next j
next i

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

ListView скрытие строки со значением | Автор: Arti
Добавлено: 29.04.2008 / 04:25 | ответов: 7 | просмотров: 117

Подскажите каким образом можно скрыть в ListView строчку содержащие во втором столбике (subitem) некое значение?

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

Ответ # 1 | Автор: Arti
Добавлено:29.04.2008 / 08:10
Или хотябы удалить все элементы у которых во втором subitems(2).Text= "0". Наверно надо сначала как-то получить индекс всех срок у которых subitems(2).Text= "0", только как?

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

Ответ # 2 | Автор: Алексей
Добавлено:29.04.2008 / 08:22
Скрыть, по-моему, стандартными средствами не получится, можно удалить Items.Remove(), а если нужно будет потом восстановить, то перед удалением весь Item можно куда-нибудь запомнить, и когда понадобится, то через Items.Insert() вставить в нужное место.

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

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

Ответ # 3 | Автор: Алексей
Добавлено:29.04.2008 / 08:26
Или хотябы удалить все элементы у которых во втором subitems(2).Text= "0". Наверно надо сначала как-то получить индекс всех срок у которых subitems(2).Text= "0", только как?

FMC опять глючнулся, мой ответ пришел позже, чем я его отправил :)

Можно циклом полистать:

001:
002:
003:
004:
005:
ForEach itm As ListViewItem In ListView1.Items
If (itm.SubItems(2).Text = "0") Then ListView1.Items.Remove(itm)
Next

Colorized by: Eros.CodeSyntaxColor Engine

примерно так..

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

Ответ # 4 | Автор: Arti
Добавлено:29.04.2008 / 08:43
Попробуем.

Я вот подумал может сделать возможность на этапе заполнения отсечь не нужные элементы. ListView заполняется из текстового файла в котором пять столбиков и разделены они табуляцией вот код заполнения, думаю он ещё кому-нибудь пригодится.

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:
Module File2Massiv
  ' Объявляем переменные для заполнения столбцов
  Dim intKod() As UInt32
  Dim strMNN() As String
  Dim strTNLP() As String
  Dim sngPrice() As Single
  Dim sngMUP() As Single

  Public Sub file2massive()
    ' Создаем поток открываем файл
    Dim readfl As New IO.StreamReader(".\indate.txt")

    ' Переменная для работы со строками из текстового файла
    Dim stroki() As String

    ' Читаем файл до конца и заполняем массив строк, каждый элемент массива это строка из файла
    stroki = readfl.ReadToEnd.Split(vbLf)

    ' Закрываем поток
    readfl.Close()

    ' Задаем длинну массивов (количество столбиков) в соответствии с количеством прочитанных строк
    ReDim intKod(0 To stroki.Length - 1), strMNN(0 To stroki.Length - 1), _
    strTNLP(0 To stroki.Length - 1), sngPrice(0 To stroki.Length - 1), sngMUP(0 To stroki.Length - 1)

    ' Переменная для работы с подстроками
    Dim strTab(4) As String

    ' Для каждой строчки в массиве строк (т.е. пока не переберутся все
    ' элементы(строки) массива разбиваем строку на подстроки
    ' и записываем каждую из них в масив strTab
    ' ВНИМАНИЕ когда цикл снова повторяется то предидущее значение
    ' strTab перезаписывается значением полученным из текущей строки

    For Each stroka As String In stroki ' Цикл перебирает строчки
      ' Счетчик для индекса массивов
      Dim c As UInteger
      strTab = stroka.Split(vbTab)
      ' Заполняем массивы
      intKod(c) = strTab(0)
      strMNN(c) = strTab(1)
      strTNLP(c) = strTab(2)
      sngPrice(c) = strTab(3)
      sngMUP(c) = strTab(4)
      ' переводим счетчик индекса массивов
      c += 1
    Next
  End Sub

  Public Sub zapolnitLV(ByRef tablica As ListView)
    For i As UInt16 = 0 To UBound(intKod)
      ' Обявляем первый столбик и заполняем его
      Dim lvItem As New ListViewItem(intKod(i))
      ' Заполняем соседние столбики
      lvItem.SubItems.Add(strMNN(i))
      lvItem.SubItems.Add(strTNLP(i))
      lvItem.SubItems.Add(sngPrice(i))
      lvItem.SubItems.Add(sngMUP(i))
      tablica.Items.Add(lvItem)
    Next
  End Sub
End Module

Colorized by: Eros.CodeSyntaxColor Engine

Соответственно при загрузки формы вызывается Call file2massive для чтения файла в переменные и Call zapolnitLV для заполнения самого ListView из переменных. Здесь интересует sngMUP(i) если его значение равно нулю то строку не заполняем в ListView. Посмотрите может кто добавит в данный код это возможность.

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

Ответ # 5 | Автор: Алексей
Добавлено:29.04.2008 / 09:32
Я вот подумал может сделать возможность на этапе заполнения отсечь не нужные элементы

так и надо

зы: имхо, много лишнего кода, у Item-а есть свойство Tag в которое
можно засунуть все, что угодно. Еще можно использовать коллекции, это
гораздо удобней чем массивы. Еще у SubItems есть метод AddRange
который способен добавлять массив элементов:

001:
002:
003:
004:
itm.SubItems.AddRange(New String() { "превед", "медвед", "сам ты медвед", ":)" })

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

можно просто переменную-массив строк засунуть:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
Dim arr() As String
ReDim arr(3)
arr(0) = "превед"
arr(1) = "медвед"
arr(2) = "сам ты медвед"
arr(3) = ":)"
itm.SubItems.AddRange(arr)

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

а если с коллекциями:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
Public Class MyItem
Public Kod As UInt32
Public MNN As String
Public TNLP As String
Public Price As Single
Public MUP As Single

'можно сделать метод, который возвратит массив необходимых данных
Public Function GetArray() As String()
Return New String() { Kod.ToString(), MNN, TNLP, Price.ToString() }
End Function
End Class

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

далее, в коде:

001:
002:
003:
004:
Dim _Items As New List(Of MyItem)

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

далее, гразим данные из файла и создаем коллекцию на основе этих данных:

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:
'можно даже без изменений
Dim readfl As New IO.StreamReader(".\indate.txt")
' Переменная для работы со строками из текстового файла
Dim stroki() As String
' Читаем файл до конца и заполняем массив строк, каждый элемент массива это строка из файла
stroki = readfl.ReadToEnd.Split(vbLf)
' Закрываем поток
readfl.Close()

'пихаем данные в нашу коллекцию:
For Each s As String In stroki
Dim myItm As New MyItem() 'если в классе MyItem сделать конструктор, будет вообще здорово
'сплитим строку
Dim arr() As String = s.Split(vbTab)
'лучше проверить, чтобы массив был не меньше 4
myItm.Kod = arr(0) 'числа лучше через TryParse пихать, чтоб ошибок не было: Integer.TryParse(arr(0), myItm.Kod)
myItm.MNN = arr(1)
myItm.TNLP = arr(2)
myItm.Price = arr(3)
myItm.MUP = arr(4)
'кстати, для всего выше описанного, можно сделать отдельную
'функцию, которая будет принимать либо строку, либо массив. Это же
'можно сделать и в конструкторе, чтобы было что-то типа этого:
'Dim myItm As New MyItem(s)
'или еще круче
'_Items.Add(New MyItem(s))

'добавляем в коллекцию
_Items.Add(myItm)

'одновременно, можно создать список в ListView
Dim itm As New ListViewItem()
itm.SubItems.AddRange(myItm.GetArray())
'а сам объект вообще можно засунуть в Tag итема, тогда коллекция
'_Items будет не нужна вообще:
'itm.Tag = myItm
ListView1.Items.Add(itm)
Next

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

но это так, пища для размышления :)

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

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

Ответ # 6 | Автор: Алексей
Добавлено:29.04.2008 / 09:38
Вообще, если пофантазировать, можно сделать функцию у MyItem, которая будет возрвщать готовенький ListViewItem :)

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

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

Ответ # 7 | Автор: Arti
Добавлено:29.04.2008 / 09:42
Вот спасибо, действительно есть над чем поработать, очень интересная реализация с созданием класса!, просто у меня опыта программирования три недели с копейками потому ещё учится, учится и учится.

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

EROS, С Днем Рождения! | Автор: Алексей
Добавлено: 28.04.2008 / 06:22 | ответов: 2 | просмотров: 48

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

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

Ответ # 1 | Автор: EROS
Добавлено:29.04.2008 / 07:55
Спасибо!!! :-)))

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

Ответ # 2 | Автор: Евгений
Добавлено:29.04.2008 / 22:36
Поздравляю!

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

Распечатка формы ориентации Ландшафт в VB5 | Автор: Леонид
Добавлено: 27.04.2008 / 19:36 | ответов: 1 | просмотров: 54

Подскажите пожалуйста кто знает , как распечатать форму(Form) в VB5.0
то есть изменить ориентацию на альбомную , пользуюсь "form1.PrintForm"
Из лотка принтера выходит книжная а надо альбомная -форма обрезается???

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

Ответ # 1 | Автор: Алексей
Добавлено:29.04.2008 / 08:22
001:
002:
003:
004:
005:
Printer.Orientation = 2
Form1.PrintForm

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

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

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

Наверх

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

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

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

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

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

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

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

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

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

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

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

Статьи на Kbyte.Ru

Наверх

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

Как заблокировать кнопку "Закрыть" ([X])
Дата добавления: 31.07.2006 / 12:12 | просмотров: 1360 | платформа: VB

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

Как проверить, подключен компьютер к интернет или нет?
Дата добавления: 24.03.2007 / 12:36 | просмотров: 1748 | платформа: VB .NET

Как получить содержимое каталога?
Дата добавления: 31.07.2006 / 17:31 | просмотров: 1298 | платформа: ASP .NET (VB)

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

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

Как ограничить количество вводимых символов в TextBox?
Дата добавления: 31.07.2006 / 13:59 | просмотров: 2005 | платформа: ASP .NET (VB)

Поиск слов определенной длины
Дата добавления: 24.03.2007 / 11:02 | просмотров: 1302 | платформа: RegEx

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

Как отправить E-Mail?
Дата добавления: 01.08.2006 / 11:52 | просмотров: 2826 | платформа: ASP

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

Наверх

Юмор на Kbyte.Ru

- Как достать черную икру?
- Она переименована в "рыбьи яйца": десяток - рубль тридцать.

Рейтинг: 234
Всего голосов: 374