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

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



Выпуск # 611


http://www.kbyte.ru/

 

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

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

 

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

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

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

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

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

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

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

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

    Помогите

    Помогите написать антивирус на Delphi!

    Работа с базои данных

    Открытие файла через свою программу

    Таблица в Visual Basic 2005

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

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

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

Наверх

 

 

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

Помогите | Автор: livtaras
Добавлено: 31.01.2010 / 02:09 | ответов: 4 | просмотров: 110

Как сделать так, чтобы если я создал ComboBox в котором можно выбрать число от 1 до 10, а теперь мне нужно сделать так чтобы если я выбираю например 4 тогда на экране
отображается 4 TextBox, если 7 то отображается 7 TextBox. И в таком духе.

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


Ответ # 1 | Автор: EvgeniySergeevich
Добавлено:31.01.2010 / 09:11
Разместите на форме ComboBox, 10 TextBox'ов и пропишите код:
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:
065:
066:
067:
068:
069:
070:
071:
072:
073:
074:
075:
076:
077:
078:
079:
080:
081:
082:
083:
084:
085:
086:
087:
088:
089:
090:
091:
092:
093:
094:
095:
096:
097:
098:
099:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
Private Sub Combo1_Change()
Combo1_Click
End Sub

Private Sub Combo1_Click()
If Combo1.Text = "0" Then
Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
Text4.Visible = False
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "1" Then
Text1.Visible = True
Text2.Visible = False
Text3.Visible = False
Text4.Visible = False
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "2" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = False
Text4.Visible = False
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "3" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = False
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "4" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "5" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "6" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = True
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "7" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = True
Text7.Visible = True
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "8" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = True
Text7.Visible = True
Text8.Visible = True
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "9" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = True
Text7.Visible = True
Text8.Visible = True
Text9.Visible = True
Text10.Visible = False
End If
If Combo1.Text = "10" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = True
Text7.Visible = True
Text8.Visible = True
Text9.Visible = True
Text10.Visible = True
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem "0"
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
Combo1.AddItem "6"
Combo1.AddItem "7"
Combo1.AddItem "8"
Combo1.AddItem "9"
Combo1.AddItem "10"
Combo1_Click
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

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


Ответ # 2 | Автор: livtaras
Добавлено:31.01.2010 / 12:11
Спасибо большое!!!

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


Ответ # 3 | Автор: lyolik
Добавлено:01.02.2010 / 10:52
а через цикл присваивание чего б не сделать

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


Ответ # 4 | Автор: Алексей
Добавлено:01.02.2010 / 11:14
Нужно сделать массив элементов, грубо 10 элементов, в идеале создавать
с нуля.
Если грубо, то просто разместить на форме 10 TextBox с одинаковым
именем и разным свойством Index (при копировании создается
автоматически):
001:
002:
003:
004:
005:
006:
007:
For i = 0 To 9
 Text1(i).Visible = ((i + 1) <= Combo1.Text)
 'i + 1, при условии, что в combo отсчет начинается с 1
Next

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

А если создавать, то там вроде бы методы Load/Unload нужно
использовать, уже не помню как. Кода будет больше.

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

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


Помогите написать антивирус на Delphi! | Автор: EvgeniySergeevich
Добавлено: 25.01.2010 / 13:06 | ответов: 9 | просмотров: 205

Здравствуйте, люди!
Недавно начал изучать язык программирования Delphi.
И вот теперь захотел написать на нём свой антивирус, но незнаю функцию поиска какой-либо строчки кода в тексте! (В Vsisual basic 2008 - Text1.Text.Contains("./.") )!
Помогите, чем можете!

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


Ответ # 1 | Автор: Dragon-zla
Добавлено:25.01.2010 / 13:07
Какая среда?

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

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


Ответ # 2 | Автор: EvgeniySergeevich
Добавлено:25.01.2010 / 13:08
Borland Delphi Second Edition!

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


Ответ # 3 | Автор: Dragon-zla
Добавлено:25.01.2010 / 13:11
в смысле Delphi 2 ?

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

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


Ответ # 4 | Автор: EvgeniySergeevich
Добавлено:25.01.2010 / 13:11
Нет, Delphi 7!

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


Ответ # 5 | Автор: Dragon-zla
Добавлено:25.01.2010 / 13:15
если ищется текст на английском языке, то есть функция, возвращающая
номер первого вхождения в строке. Сейчас поищу у себя на винте, если
найду - напишу

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

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


Ответ # 6 | Автор: EvgeniySergeevich
Добавлено:25.01.2010 / 13:16
ОК, заранее спасибо!

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


Ответ # 7 | Автор: Dragon-zla
Добавлено:25.01.2010 / 13:20
Вот
pos('что ищем'/'где ищем')
'что ищем' - строковый
'где ищем' - строковый

Возвращает числовое значение

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

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


Ответ # 8 | Автор: EvgeniySergeevich
Добавлено:25.01.2010 / 13:21
Спасибо!

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


Ответ # 9 | Автор: EvgeniySergeevich
Добавлено:25.01.2010 / 16:12
А вы не поскажите, как можно открывать все подрят файлы, находящиеся на компьютере?

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


Работа с базои данных | Автор: maf103
Добавлено: 18.01.2010 / 19:05 | ответов: 8 | просмотров: 292

Здраствуите!
уменя такое заданее, некак немагу сделать.

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

Теперь я хачу сделать так чтоб эта кнопка стерала но переносила
все внесенные данные кудато в отдельную деректорию,а другая кнопка обратно их занасила ,делала иными словами
возврат всех данных которые я вносил до этого и так далее.... а базу данных куда это будет все вносится
чтоб можно было сбросить по окончанию работы.

Буду очень благодарен если поможете!

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


Ответ # 1 | Автор: maf103
Добавлено:20.01.2010 / 22:58
Ребята ну наведите меня хоть на чтонибудь просто незнаю как сделать.
Может есть что попроще, помогите позжалуиста!

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


Ответ # 2 | Автор: Алексей
Добавлено:20.01.2010 / 23:18
Если по окончанию работы нужно сбрасывать, то можно обойтись
переменными. Либо можно сохранять в настройки - My.Settings -
визуально редактировать в параметрах проекта на вкладке Settings.
Либо состряпать классы и XML-сериализовать их.
Ну и в базе можно, например Access, зависит от масштабов задачи :)

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

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


Ответ # 3 | Автор: maf103
Добавлено:21.01.2010 / 17:34
ОК, я объясню свою задачку на примере:

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

теперь мне надо чтоб эти числа которые я внес кпремеру (5, 5, 5) получил ответ, и после я внес (4, 4, 4) получил ответ,ну мне вдруг захотелось знать
что было до етого, какие числа были внесены, чтоб
после 2-го резултата я смог вернутся кпервому т.е. после того как я внес 4,4,4 я смог вернуться к 5,5,5 и наабарот.

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


Ответ # 4 | Автор: Алексей
Добавлено:21.01.2010 / 18:06
Если без сохранения для следующего запуска программы, то можно в
переменную записывать.
Если VS 2008 (Framework 3.5), то примерно так:
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
Private _Mem As New ArrayList()

'запись в память
_Mem.Add(New With{.a = Text1.Text, .b = Text2.Text, .c = Text3.Text})

'чтение из памяти
For Each m As Object In _Mem
 MsgBox(m.a & " - " & m.b & " - " & m.c)
Next

'или определенную запись
_Mem(0).a
_Mem(0).b
'...
_Mem(_Mem.Count - 1).a
'etc

_______________________
Colorized by: Eros.CodeSyntaxColor Engine


зы: ашыбки в тексте уж болно силна глоза мазолят ;-)

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

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


Ответ # 5 | Автор: maf103
Добавлено:21.01.2010 / 21:09
простите еще раз, пишу в транслите.

еще вопрос до скольки возвратов я могу делать? если я вносил 4 раза разные цифры,
то смогу я их так возврощать этим кодом?

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


Ответ # 6 | Автор: Алексей
Добавлено:21.01.2010 / 22:37
еще вопрос до скольки возвратов я могу делать?

Насколько хватит оперативной памяти, именно там будут хранится
данные.
В приведенном мной примере создается коллекция ArrayList, каждый
элемент коллекции содержит анонимный тип со свойствами a, b, c.
Количество и имена свойств могу быть любыми:
New With{.свойство = значение, и тд и тп}

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

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

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


Ответ # 7 | Автор: maf103
Добавлено:29.01.2010 / 15:13

здрасти!
вот код,он не делает обратного возврата
почему? сяжу ковыряюсь и не разберусь что и как!



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim _Mem As New ArrayList()
_Mem.Add(New With {.a = TextBox1.Text})
For Each m As Object In _Mem
MsgBox(m.a)
Next
_Mem(0).a()
_Mem(_Mem.Count - 1).a()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
End Sub

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


Ответ # 8 | Автор: Алексей
Добавлено:29.01.2010 / 15:38
Код лишен всякого смысла :)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Создать новую коллекцию _Mem 'Dim _Mem As New ArrayList()
Добавить в коллекцию _Mem данные анонимного типа '_Mem.Add(New With {.a = TextBox1.Text})
Перебрать все элементы коллекции _Mem 'For Each m As Object In _Mem
Показать в окне значение свойства a текущего элемента коллекции 'MsgBox(m.a)
'Next
А в этой строке ничего не происходит '_Mem(0).a()
И в этой тоже ничего не происходит '_Mem(_Mem.Count - 1).a()
End Sub

В приведенном коде, в _Mem всегда будет один единственный элемент,
т.к. переменная _Mem будет создаваться вновь при нажатии на кнопку.
Если требуется, чтобы в _Mem добавлялись новые данные при нажатии на
кнопку, нужно изменить области видимости/доступности этой переменной,
хотя бы так:
Private _Mem As New ArrayList()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
...
End Sub
Переменная _Mem находится снаружи процедуры, и по идеи внутри класса
(формы) и следовательно может доступна в любом месте этого класса
(формы), и будет жить (сохранять данные) пока жив класс (форма).


For Each m As Object In _Mem
...
Next
Делать перебор всей коллекции, сразу после добавления, не обязательно,
в прошлый раз я лишь показывал, как это можно сделать. Тоже касается и
двух последних строчек кода, которые вообще ничего не делают :)

Полагаю, код должен быть примерно такой, хотя и он отчасти лишен
смысла:
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
Private _Mem As New ArrayList() 'коллекция _Mem
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 _Mem.Add(New With {.a = TextBox1.Text}) ' добавляем новый элемент в коллекцию
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 TextBox1.Text = _Mem(_Mem.Count - 1).a ' вставляем в TextBox последний добавленный элемент в коллекцию _Mem
 'Количество элементов в коллекции _Mem лежит в свойстве Count - _Mem.Count
 'отсчет индекса начинается с нуля, и по индексу можно получить
 'доступ к любому элементу коллекции
 'Например:
 '_Mem(0).a
 '_Mem(1).a
 '_Mem(2).a
 'если будет указан несуществующий индекс, произойдет ошибка
 'Путем проверки свойства Count эти моменты можно избежать
 'Т.е. чтобы вставить в TextBox значение из определенной ячейки
 'памяти, нужно знать индекс. Индекс, можно например в ComboBox
 'записывать или отдельные кнопки сделать. И ограничить количество
 'данных в _Mem, чтоб не засорять память.
End Sub

_______________________
Colorized by: Eros.CodeSyntaxColor Engine


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

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


Открытие файла через свою программу | Автор: LinuxChata
Добавлено: 14.01.2010 / 22:08 | ответов: 6 | просмотров: 305

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

Спасибо :)

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


Ответ # 1 | Автор: Алексей
Добавлено:15.01.2010 / 00:07
http://kbyte.ru/Refbooks/Show.aspx?id=191&lang=ru

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

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


Ответ # 2 | Автор: LinuxChata
Добавлено:15.01.2010 / 22:16
При использование Command почему-то генерируется пустая строка :(

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


Ответ # 3 | Автор: LinuxChata
Добавлено:20.01.2010 / 00:32
больше никаких вариантов нет?? кроме Command?

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


Ответ # 4 | Автор: Алексей
Добавлено:20.01.2010 / 23:23
Возможно параметры не передаются..
Еще можно посмотреть, где-нибудь в событиях Application должны быть
args As String(), при запуске приложения в args параметры запуска
лежат.

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

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


Ответ # 5 | Автор: LinuxChata
Добавлено:28.01.2010 / 20:07
Неправильно была организована ассоциация с файлами, вот правильный вариант ассоциации с помощью инсталятора NSIS

001:
002:
003:
004:
WriteRegExpandStr HKCR ".clg" "" "EkoLabFile"
  WriteRegExpandStr HKCR "EkoLabFile" "" "Протокол"
  WriteRegExpandStr HKCR "EkoLabFile\\DefaultIcon" "" "$INSTDIR\EkoLab.exe"
  WriteRegExpandStr HKCR "EkoLabFile\\Shell\\open\\command" "" "$INSTDIR\EkoLab.exe ''%1''"


Всем большое спасибо за помощь :)

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


Ответ # 6 | Автор: LinuxChata
Добавлено:28.01.2010 / 20:09
Про ассоциацию написано http://www.codeproject.com/KB/vb/VBFileAssociation.aspx

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


Таблица в Visual Basic 2005 | Автор: julius
Добавлено: 11.01.2010 / 00:56 | ответов: 5 | просмотров: 408

Пытаюсь создать таблицу в Visual Basic 2005 при помощи datagridview.

Колонки и строки задал используя коды:

DataGridView1.Columns.Add()
и
DataGridView1.Rows.Add()

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

Может есть какой то код, как например, для текстового блоко textbox.text="..." только для таблицы? Или еще какой то спасоб.

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


Ответ # 1 | Автор: Алексей
Добавлено:11.01.2010 / 10:30
DataGridView1.Rows.Add("данные", "еще", "и еще", "по колонкам")

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

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


Ответ # 2 | Автор: julius
Добавлено:11.01.2010 / 21:03
Спасибо за справку, но есть одна загвоздка. Колличество колонок в данной таблице генерируется в зависимости от исходных данных и меняется от 3 до 6. Соответственно я не знаю как предвидить это изменение в операторе DataGridView1.Rows.Add() Можно ли заполнять таблицу не по рядкам, а по колонкам?

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


Ответ # 3 | Автор: Алексей
Добавлено:11.01.2010 / 21:14
Нет, по колонкам нельзя.
В Row.Add можно указать массив данных, их количество будет зависеть от
источника, лишнего там само ничего появиться не сможет :)

Данные также можно через DataSource прикрутить.

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

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


Ответ # 4 | Автор: julius
Добавлено:12.01.2010 / 00:47
Спасиба, попробую через массив

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


Ответ # 5 | Автор: komora
Добавлено:13.01.2010 / 12:47
Dim r_index As Integer = 5 'Номер строки
Dim c_index As Integer = 5 'Номер столбца
Dim strVal As String = "ку-ку"
Dim intVal As Integer = r_index

DataGridView1.Columns(DataGridView1.Columns.GetColumnCount(DataGridViewElementStates.Visible) - 1).AutoSizeMode = _
DataGridViewAutoSizeColumnMode.Fill 'Автоизменение ширины последнего столбца

DataGridView1(c_index - 1, r_index).Value = strVal
DataGridView1(c_index, r_index).Value = intVal

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


Наверх

 

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

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

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

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

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

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

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

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

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

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

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

 

Статьи на Kbyte.Ru

Наверх

 

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

Как программно изменить тему страницы?
Дата добавления: 31.07.2006 / 13:40 | просмотров: 3442 | платформа: ASP .NET (VB)

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

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

Запуск программы
Дата добавления: 21.08.2006 / 20:19 | просмотров: 5677 | платформа: VB

Пример добавления окончания к числу (англ.)
Дата добавления: 24.03.2007 / 12:33 | просмотров: 3248 | платформа: VB .NET

Получение многоразрядного числа2
Дата добавления: 31.07.2006 / 12:33 | просмотров: 2542 | платформа: VB

Проверить существование файла
Дата добавления: 31.07.2006 / 17:34 | просмотров: 2963 | платформа: ASP .NET (VB)

Как создать новую папку (каталог)?
Дата добавления: 31.07.2006 / 12:36 | просмотров: 5465 | платформа: VB

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

Подсчет количества определенных символов в тексте
Дата добавления: 31.07.2006 / 12:30 | просмотров: 3398 | платформа: VB

 

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

Наверх

 

Юмор на Kbyte.Ru

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

 

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

 

- Какие животные живут в тундре?
- Песцы, куропатки и наш папа, который ездит туда в командировку.

 

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

 

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

 

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

 

Идет Илья Муромец по полю. Видит - Змей Горыныч сидит. Ну, тот подкрался к нему и срубил ему голову. У Змея Горыныча две
выросло. Срубил Илья ему две - четыре выросло! Срубил четыре - выросло восемь!!! И так далее... И вот когда Илья Муромец
срубил 65535 голов, Змей Горыныч помер...
Потому что был он 16-ти битным.

 

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

 

В США борьба за равноправие привела к тому, что теперь женщины приравниваются к неграм, голубым и инвалидам.

 

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

 

- Доктор, я наверное смертельно больна?
- ???
- Видете ли, по всем каналам ТВ и от всех фирм-производителей рекламируют прокладки от жидкости синего цвета, а она у меня красная!

 

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

 

Встречает медведь мужика в лесу:
- Ты кто?
- Я турист.
- Это я турист, а ты - завтрак туриста!

 

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

 

На международных соревнованиях американские вооруженные силы совершили больше всех промахов при прицельной стрельбе, а российские - больше всего попаданий при предупредительной.

 

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

 

Биллу Гейтсу пpисвоили звание гpафа - тепеpь он ДеБилл Гейтс!

 

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

 

Звонит клиент (К) в сервис-центр. Трубку снимает инженер (И).
К: - Здравствуйте, у меня проблема!!!
И: - Что случилось?
К: - У меня компьютер не включается!!! А мне работать очень срочно нужно! Прямо сейчас!
И: - Чем я могу помочь?
К: - Приезжайте ко мне и почините!
И: - Нет. Это Вы к нам приезжайте!
К: - Да? Ну тогда я заеду к Вам послезавтра...

 

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

 

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

Наверх


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

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

Copyright (c) Nemiro AS, 2005-2007


В избранное