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

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

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

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

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

← Ноябрь 2007 →
	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): новости, советы, примеры

Выпуск # 211

http://www.kbyte.ru/

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

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

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

Новости Kbyte.Ru

Кодообменник на Kbyte.Ru!

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

Вопрос #000587: Audit

Вопрос #000582: Активизировать_элемент_формы,_в_процедуре_Form_...

Вопрос #000580: Visual_Basic_6.0._Как_можно_поместить_картинку_...

Вопрос #000577: Visual_Basic_6.0._Активизировать_элемент_формы

Вопрос #000570: Взаимодействие PictureBox и Image

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

Однажды, ясным добрым утром, словил я глюк...

XML

Как создать свой тип данных?

Что значит такой запрос - SELECT DISTINCT?

Как проверить существование файла или папки?

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

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

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

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

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

Работаем с MIME

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

Юмор на Kbyte.Ru

Новости Kbyte.Ru

01 ноября 2007 / Кодообменник на Kbyte.Ru!

На сайте открылся новый раздел – Кодообменик.
В кодообменник любой желающий может добавлять исходные коды и/или файлы примеров, а также оставлять объявления на поиск нужного кода.
Подробности читайте в блоге Немиро Алексея.

Администрация сайта

Все новости Kbyte.Ru

Наверх

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

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

Вопрос #000587: Audit

Автор вопроса: -=Andrey=- // 28.10.2007 / 14:57

вопрос: как отследить подключение к MS SQL серверу?(имя пользователя в домене Windows и IP-адрес компа пользователя)
 описание: пользователь запускает клиентское приложение через Citrix, в базе данных master..sysprocesses в данном случае будет отображаться только информация о sql-имени пользователя,запустившего приложение, адреса самого citrix-сервера, с которого запускалось приложение, а об адресе локального
компа и доменном имени юзера ничего нет...
 
 --------------------------------------
 Категория: --- SQL Server

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

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


 Попробуйте вот так:
 001:
002:
003:
004:
005:
CREATE TABLE #tmp ([output] varchar(255) null)
INSERT INTO #tmp exec master..xp_cmdshell 'arp -a'
SELECT count([output])
FROM #t where [output] like '%dynamic%' 
DROP TABLE #tmp
SELECT count(DISTINCT net_address) FROM sysprocesses

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

Вопрос #000582: Активизировать_элемент_формы,_в_процедуре_Form_...

Автор вопроса: Александр Левашов // 24.10.2007 / 20:16

Здравствуйте уважаемые эксперты!
 
 Visual Basic 6.0. Как программно активизировать
конкретный элемент формы Text, в процедуре Form_Load()? То есть сразу после загрузки формы.
 
 Спасибо.
 Александр Левашов. г.Кострома.

Отвечает: Алексей Немиро // 25.10.2007 / 02:54

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

Вопрос #000580: Visual_Basic_6.0._Как_можно_поместить_картинку_...

Автор вопроса: Александр Левашов // 24.10.2007 / 14:04

Здравствуйте
уважаемые эксперты!
 
 Visual Basic 6.0. Как можно поместить картинку на кнопку.
 
 Спасибо.
 Александр Левашов. г.Кострома.

Отвечает: Алексей Немиро // 25.10.2007 / 02:59

Установите свойство Picture, а
также style="1" - Graphical.
 Еще может понадобиться свойство UseMaskColor и MaskColor, которые
 позволяют установить прозрачный цвет картинки.

Вопрос #000577: Visual_Basic_6.0._Активизировать_элемент_формы

Автор вопроса: Александр Левашов // 24.10.2007 / 12:28

Здравствуйте уважаемые эксперты!
 
 Visual Basic 6.0. Как программно активизировать конкретный элемент формы Text, чтоб курсор встал на него.
 
 Спасибо.
 Александр Левашов. г.Кострома.

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

Здравствуйте, Александр.
 
 Разместите два текстовых поля на форме и одну кнопку, и вставьте следующий код:
 001:
002:
003:
Private Sub Command1_Click()
 Text2.SetFocus
End Sub

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

Вопрос #000570: Взаимодействие PictureBox и Image

Автор вопроса: "Darck Dragon" // 23.10.2007 / 05:50

Здравствуйте, уважаемые эксперты.
 Уже несколько часов ломаю голову над такой вот проблемой:
 на форме имеется два графических контролла - PictureBox и Image. Для Image установлено свойство Stretch=true.В обоих элементах одно и тоже изображение, различие - в Image оно целиком видно, правда уменьшено под размеры самого Image, а в PictureBox видна отдельная часть изображения.
 Вопрос вот в чём: при наступлении события Image.MouseMove та часть изображения, что находится под курсором должна отображаться в PictureBox. Т.е. как в играх - миникарта и сама карта. Как это сделать? 
 Заранее огромное спасибо.
 
 --------------------------------------
 Категория: --- Visual Basic 5.0/6.0
 
 

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

Здравствуйте, Darck Dragon.
 
 Я бы не рекомендовал Вам использовать контрол Image для подобных целей. Лучше используйте только PictureBox.
 
 Создайте новый EXE-проект. На форме (Form) разместите два элемента PictureBox. Визуально у обоих элементов установите свойства:
 AutoRedraw = True
 ScaleMode = 3- Pixel
 
 В элемент Picture2 загрузите какую-нибудь картинку. Вставьте следующий код, и запустите
проект:
 
 001:
002:
003:
Private Sub Form_Load()
 Picture1.PaintPicture Picture2.Picture, 2, 2, 32, 32
End Sub

 
 Получить нарисованное изображение можно через свойство Image.
 
 Что касается получения определенной части изображения, то вы можете выделить любой кусок изображения из оригинала, например:
 001:
Picture1.PaintPicture Picture2.Picture, 0, 0, 120, 120, 4, 4, 8, 8

 
 Таким образом, в Picture1 будет нарисован кусок изображения из
 Picture2 начиная с 4-го пикселя по X и 4-го пикселя по Y, и
 заканчивая 12 (4 + 8) пискселем по X и Y, размером 120x120 пискселей.
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

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

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

Наверх

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

Однажды, ясным добрым утром, словил я глюк... | Автор: 5acred Phoenix
Добавлено: 31.10.2007 / 11:54 | ответов: 5 | просмотров: 58

Люди добрыи, памагите, сами мы не местные, абращаемса к вам с праблемай, памагите! :)))

В общем, дело вот в чём. Словил я глюк такой, и где-то прописалось, что хост bash.org.ru — это 127.0.0.1. В C:\Windows\System32\Drivers\etc\hosts ничего такого не прописано. ping bash.org.ru тоже считает, что пинговать надо локалхост. Где и в чём может быть фишка?

Надеюсь на скорую помощь, ибо можете представить, какого это без баша? :))

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

Ответ # 1 | Автор: Алексей
Добавлено:31.10.2007 / 12:04
Ну а что ты хотел, сегодня во всех электронных СМИ так и было
написано, что чукотские хакеры взломали башоргру и сайт пришлось
временно, как минимум на ближайшие 876000 часов, перенести на компутер 5acred Phoenix :)

Радуйся, башоргру стал ближе :))

Ну а если серьезно, то где-то сегодня видел, что башоргу кто-то досит, наверное админы таким хитрым образом обороняются :)

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

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

Ответ # 2 | Автор: SocrAT
Добавлено:31.10.2007 / 12:07
Это не твой глюк.
Баш сейчас висит. уже третьи сутки.
Говорят - распределенная DoS-атака.
Вот в результате и имеем.

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

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

Ответ # 3 | Автор: Алексей
Добавлено:31.10.2007 / 12:10
Только что зашел, нормально работает.

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

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

Ответ # 4 | Автор: 5acred Phoenix
Добавлено:31.10.2007 / 12:11
Алексей, SocrAT, хм, ясно... Просто показалось странным, почему перебрасывает на локалхост, обычно просто сервер недоступен и всё..

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

Ответ # 5 | Автор: Алексей
Добавлено:31.10.2007 / 12:19
Просто показалось странным, почему перебрасывает на локалхост, обычно просто сервер недоступен и всё..

Нормально, самодос получается :))

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

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

XML | Автор: Neco
Добавлено: 30.10.2007 / 22:34 | ответов: 11 | просмотров: 154

Подскажите, пожалуйста, как описать класс, сериализация которого выглядит следующим образом:

001:
002:
003:
004:
005:
<a>
    <b name="1"/>
    <b name="2"/>
    <b name="3"/>
</a>

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

Ответ # 1 | Автор: Алексей
Добавлено:31.10.2007 / 05:15
Мне удалось получить вот такой результат:

001:
002:
003:
004:
005:
006:
007:
008:
<?xml version="1.0" encoding="utf-8"?>
<KbyteDotRu xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <a>
    <b name="1" />
    <b name="2" />
    <b name="3" />
  </a>
</KbyteDotRu>

вот код:

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:
'Aleksey S Nemiro, http://aleksey.nemiro.ru
'Special for Kbyte.Ru http://kbyte.ru
'31.10.2007
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim kbyte As New KbyteDotRu
kbyte.ZdesLuboiTextMojetBut = New b() {New b("1"), New b("2"), New b("3")}
Dim mySerializer As New Xml.Serialization.XmlSerializer(GetType(KbyteDotRu))
Dim myStream As New IO.MemoryStream()
Dim myWriter As New IO.StreamWriter(myStream)
mySerializer.Serialize(myWriter, kbyte)
myWriter.Close()

TextBox1.Text = System.Text.Encoding.UTF8.GetString(myStream.ToArray())
End Sub

Public Class KbyteDotRu
<XmlArrayItem("b")> _
<XmlArray("a")> _
Public ZdesLuboiTextMojetBut() As b
End Class

Public Class b
<XmlAttribute("name")> _
Public OiAPochemuTutTakNapisano As String
Public Sub New()

End Sub
Public Sub New(ByVal s As String)
  OiAPochemuTutTakNapisano = s
End Sub
End Class

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

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

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

Ответ # 2 | Автор: Neco
Добавлено:31.10.2007 / 07:01
интересно...

млин, я несколько упростил вопрос
фактически у ММ в их файле ситуация выглядит сложнее:

001:
002:
003:
004:
005:
006:
007:
008:
<a>
    <some_element1 />
    <some_element2 />
    <some_element3 />
    <b name="1"/>
    <b name="2"/>
    <b name="3"/>
</a>

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

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

Ответ # 3 | Автор: 5acred Phoenix
Добавлено:31.10.2007 / 08:25
Код, генерирующий XML как у тебя в последнем посте:

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:
Imports System
Imports System.Windows.Forms
Imports System.Xml.Serialization

Public Class Form1

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
   Dim inst As New a
   ReDim inst.SomeItems(2)
   inst.SomeItems(0) = New b("1")
   inst.SomeItems(1) = New b("2")
   inst.SomeItems(2) = New b("3")

   Dim xs As New XmlSerializer(GetType(a))
   Dim fs As New IO.FileStream("C:\test.xml", IO.FileMode.OpenOrCreate, IO.FileAccess.Write)
   xs.Serialize(fs, inst)
   fs.Flush()
   fs.Close()
End Sub

End Class

Public Class a
<XmlElement("b")> _
Public SomeItems As b()

<XmlElement("some_element1")> _
Public c1 As String = String.Empty
<XmlElement("some_element2")> _
Public c2 As String = String.Empty
<XmlElement("some_element3")> _
Public c3 As String = String.Empty
End Class

Public Class b
<XmlAttribute()> _
Public name As String

Public Sub New()
End Sub

Public Sub New(ByVal name As String)
   Me.name = name
End Sub
End Class

Colorized by: Eros.CodeSyntaxColor Engine
Получаем:

001:
002:
003:
004:
005:
006:
007:
008:
009:
<?xml version="1.0"?>
<a xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <b name="1" />
  <b name="2" />
  <b name="3" />
  <some_element1 />
  <some_element2 />
  <some_element3 />
</a>

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

Ответ # 4 | Автор: Edlin
Добавлено:31.10.2007 / 09:19
Рекомендую почитать следующую статью:

http://www.gotdotnet.ru/LearnDotNet/NETFramework/392772.aspx

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

Ответ # 5 | Автор: Алексей
Добавлено:31.10.2007 / 10:50
Только что заметил Вопрос в категории Си шарп лежит.
Здесь явно что-то не так ?

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

Ответ # 6 | Автор: 5acred Phoenix
Добавлено:31.10.2007 / 11:16
Только что заметил. Вопрос в категории Си шарп лежит.
Здесь явно что-то не так ?

жжоте :)) помнится, уже был разговор о «заметности» подфорума :)

Ну что, аффтор сам переведёт на си? :)

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

Ответ # 7 | Автор: Алексей
Добавлено:31.10.2007 / 11:49
жжоте :)) помнится, уже был разговор о «заметности» подфорума

Разговор был, я спрашивал на сколько он заметен, но мне так толком никто ничего не ответил :)

Хотя я не понимаю, как в Web (на сайте) он может быть на
заметен, ведь все сначала смотрят на список тем, и под каждой темой
написано в каком форуме и подфоруме находится топик. А вот при
просмотре самой темы и в FMC действительно можно с первого раза не заметить :)

Ну что, аффтор сам переведёт на си? :)

Учитывая, что предыдущие темы автора были по VB .NET, то это наверное не понадобится :)
В любом случае, топик благополучно перенесен в подфорум Visual Basic .NET.

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

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

Ответ # 8 | Автор: 5acred Phoenix
Добавлено:31.10.2007 / 12:03
Разговор был, я спрашивал на сколько он заметен, но мне так толком никто ничего не ответил :)

Эх, надо бы размер шрифта с надписью подфорума увеличить, где-то эдак на 60pt :))

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

Ответ # 9 | Автор: Алексей
Добавлено:31.10.2007 / 12:07
Эх, надо бы размер шрифта с надписью подфорума увеличить, где-то эдак на 60pt :)

ага, и еще сделать его красным и жирным, а для больше надежности подчеркнуть тройной линией :)

Если есть реальные предложения, что можно с этим сделать, предлагайте ;-)

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

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

Ответ # 10 | Автор: Neco
Добавлено:31.10.2007 / 15:33
Парни! Да мне по фигу на каком языке! :)

мне это

<XmlElement("b")> _
Public SomeItems As b()

было важно!

Большое спасибо!

P.S. по поводу форума - воткнул сюда просто потому что мой код был на си-шарпе. а вопрос был в специфике объявления класса (хотя и не важно на каком из дотнет языков)
если что не так - извиняйте
из предложений - перестать обращать внимание на конкретный язык.
хотя есть конечно вопросы, которые связаны именно с некими конструкциями, типа "в VB есть With, а как это будет в C#?"
поэтому может сделать структуру форума древовидной? причём чтобы вначале шли понятия более широкие (и если хочу просто дотнет, то выбираю ноду "дотнет" и не иду ниже по дереву), а вглубь - конкретные реализации.
либо же можно при посте вопроса указывать не просто категорию форума, а как-то классифицировать по нескольким параметрам. К примеру, три комбика - Среда, Технология, Язык - и в них соот-но значения (ВинФормы, Веб, БД), (Дотнет, Вин32, ASP.Net, Asp, XML), (С++, Васик, СиШарп, Дельфи, php, cgi, html) и причём в каждом из комбиков можно было бы указать "Не имеет значения".
Тогда указав эти параметры, можно было бы умалчивать кое о чём в вопросе, тем самым читающий был бы вынужден обратить внимание на три комбика.

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

Ответ # 11 | Автор: Алексей
Добавлено:31.10.2007 / 16:10
из предложений - перестать обращать внимание на конкретный язык

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

"в VB есть With, а как это будет в C#?"

никак :)

поэтому может сделать структуру форума древовидной?

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

и если хочу просто дотнет, то выбираю ноду "дотнет" и не иду ниже по дереву

Отдельная группа DotNet для "полиглотов" действительно не помешает :) Сделал.

К примеру, три комбика

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

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

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

Как создать свой тип данных? | Автор: SEO-Master
Добавлено: 30.10.2007 / 10:51 | ответов: 5 | просмотров: 95

Еще раз, Здравствуйте!
Подскажите, желательно примером, как можно создать свой тип данных.
Как я понял, надо использовать структуры, но что-то я не могу понять как это сделать.
Я хочу сделать тип данных, который бы мог принимать числовые, либо строковые значения, но при этом, всегда возвращал определенное значение из перечисления. Например:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
Enum NamesList
 Vasia
 Ivan
 Petr
 Nikolay
 Masha
 Sasha
End Enum

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

Так вот, я сделал структуру Names:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
Public
Structure Names
 Public Enum NamesList
  Vasia
  Ivan
  Petr
  Nikolay
  Masha
  Sasha
 End Enum

 Public NameType As NamesList

 Public Shared Operator =(ByVal x As Names, ByVal y As NamesList) As Boolean
  Return x.NameType = y
 End Operator

 Public Shared Operator <>(ByVal x As Names, ByVal y As NamesList) As Boolean
  Return x.NameType = y
 End Operator
End Structure

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

А как сделать, чтобы я мог присвоить либо число, либо строку своей переменной:

001:
002:
003:
004:
005:
Dim a As Names
a = 2

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

а затем в структуре обработать присвоенное значение?

Сейчас я кроме переменной такого же типа вобще ничего не могу присвоить :(

спсб.

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

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

Ответ # 1 | Автор: Neco
Добавлено:30.10.2007 / 13:50
а запись
a.Value = 2
a.Value = "Gigant"
где Value as Object
тебя почему не устраивает?

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

Ответ # 2 | Автор: SEO-Master
Добавлено:31.10.2007 / 06:56
Не устраивает!
Я хочу чтобы было так:

a = 1
a = "Вася"

Как это сделать?

Ведь, например, Integer может принимать любое значение, как строку,
так и число:

Dim i As Integer
i = "10"
i = 10

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

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

Ответ # 3 | Автор: 5acred Phoenix
Добавлено:31.10.2007 / 08:07
Ведь, например, Integer может принимать любое значение, как строку,
так и число:

Dim i As Integer
i = "10"
i = 10

Это только потому что Option Strict Off (кстати советую включить) и в строке находится число. А ты попробуй в эту переменную вогнать другую строку:

i = "Вася"

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

Ответ # 4 | Автор: Edlin
Добавлено:31.10.2007 / 09:09
Код, реализующий данную возможность, собственно такой:

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:
Public Structure Names
Public Enum NamesList
Vasia
Ivan
Petr
Nikolay
Masha
Sasha
End Enum

Public NameType As NamesList

Public Shared Widening Operator CType(ByVal num As Integer) As Names
Dim newObj As New Names
newObj.NameType = CType(num, NamesList)
Return newObj
End Operator

Public Shared Widening Operator CType(ByVal str As String) As Names
Dim newObj As New Names
newObj.NameType = CType([Enum].Parse(GetType(NamesList), str), NamesList)
Return newObj
End Operator
End Structure

Colorized by: Eros.CodeSyntaxColor Engine

Ключевым моментом здесь является использование переопределения операторов CType совместно со словом Widening.

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

001:
002:
003:
004:
005:
006:
007:
008:
Dim nms As Names
nms = 1
Console.WriteLine([Enum].GetName(GetType(Names.NamesList), nms.NameType))
nms = "Petr"
Console.WriteLine([Enum].GetName(GetType(Names.NamesList), nms.NameType))
Console.ReadLine()

Colorized by: Eros.CodeSyntaxColor Engine

Вывод данной программы:

Ivan
Petr

Я все сказал, честь имею.

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

Ответ # 5 | Автор: SEO-Master
Добавлено:31.10.2007 / 10:38
Edlin, то что надо! Респект! Респект! Респект!

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

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

Что значит такой запрос - SELECT DISTINCT? | Автор: SEO-Master
Добавлено: 30.10.2007 / 05:54 | ответов: 1 | просмотров: 39

Здравствуйте!
Подскажите, что делает такой запрос:
SELECT DISTINCT Name WHERE AddressBook?

Т.е., для чего тут команда DISTINCT?

спсб.

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

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

Ответ # 1 | Автор: Edlin
Добавлено:30.10.2007 / 09:12
Модификатор DISTINCT заставляет запрос вернуть только различные значения из поля Name. К примеру, пусть таблица AddressBook имеет следующие записи:

Name SurName Address
Иван Иванов Москва, ул. Стахановцев, 2, 34
Иван Степанов С.Петербург, Невский пр-кт, 4, 61
Петр Петров Волгоград, ул. Строителей, 1, 1

Тогда предложенный тобой запрос вернет:

Name
Иван
Петр

Тот же запрос без DISTINCT вернет:

Name
Иван
Иван
Петр

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

Как проверить существование файла или папки? | Автор: SEO-Master
Добавлено: 30.10.2007 / 05:50 | ответов: 2 | просмотров: 59

Подскажите, желательно примером, как в Visual Basic .NET 2005 проверить существование какого-либо файла и папки?

спсб.

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

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

Ответ # 1 | Автор: Edlin
Добавлено:30.10.2007 / 09:05
Для этого служат методы File.Exists( filePath ) и Directory.Exists( directoryPath )

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

Ответ # 2 | Автор: 5acred Phoenix
Добавлено:30.10.2007 / 09:33
Дополню, что оба класса File и Directory лежат в пространстве имён System.IO.

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

Наверх

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

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

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

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

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

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

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

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

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

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

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

Статьи на Kbyte.Ru

Наверх

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

Как удалить картинку с элемента (Form, PictureBox, Image etc.)?
Дата добавления: 16.08.2006 / 20:02 | просмотров: 697 | платформа: VB

Форма поверх всех окон
Дата добавления: 31.07.2006 / 12:14 | просмотров: 899 | платформа: VB

Как преобразовать десятичное число в шестнадцатеричное?
Дата добавления: 16.08.2006 / 20:25 | просмотров: 1182 | платформа: VB

Как изменить размер панели SplitContainer?
Дата добавления: 23.08.2006 / 19:07 | просмотров: 928 | платформа: VB .NET

Как узнать IP-адрес посетителя?
Дата добавления: 01.09.2006 / 12:23 | просмотров: 1689 | платформа: ASP .NET (VB)

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

Как сделать, чтобы графика не стиралась?
Дата добавления: 24.03.2007 / 10:18 | просмотров: 527 | платформа: VB .NET

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

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

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

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

Наверх

Юмор на Kbyte.Ru

Драйверы вашего сиди-ром привода находятся на прилагемом компакт диске ...

Рейтинг: 119
Всего голосов: 188