Рассылка закрыта
При закрытии подписчики были переданы в рассылку "Интернет начинающим" на которую и рекомендуем вам подписаться.
Вы можете найти рассылки сходной тематики в Каталоге рассылок.
Создание графического файла на основе данных, хранящихся в XML-документе
|
Visual Basic.NET Лучшие статьи с сайта www.p-lib.pp.ru |
| Главная | Новости | Статьи | Каталог | Софт | Регистрация | Поиск |
|
Приглашаем авторов статей к сотрудничеству с сайтом. Для того чтобы разместить на сайте статью надо заполнить форму или связаться с нами по E-Mail Предлагаем владельцам сайтов добавить сабя в каталог на нашем сайте. |
Новые статьи на сайте |
|
1. Элемент
управления FileSystemWatcher и отслеживание изменений файловой системы Элемент управления FileSystemWatcher является экземпляром класса FileSystemWatcher пространства имён System.IO. Он применяется для отслеживания изменений в файловой системе. 2. Создание пользовательского списка В следующей статье описывается пример в котором создаётся список, у которого текст каждого элемента имеет свой цвет, фон элементов имеет цвет AliceBlue, а выбранный элемент выделяется контуром. 3. Прозрачная форма Свойство Opacity управляет прозрачностью формы. Именно об использовании и управлении этим свойством будет рассказываться в статье. 4. Операция Drag and Drop для элементов управления ListView Следующая статья демонстрирует то, как для элементов управления ListView можно программировать операции Drag and Drop. 5. XML и .NET Framework Microsoft .Net Framework использует XML Document Object Model (DOM), чтобы обеспечить доступ к данным в XML-документах и дополнительные классы для чтения, записи и навигации в пределах XML-документа. 6. Загрузка файлов из Интернета Описываются методы класса WebClient. В частности на примере загрузки картинки и текстового файла из Интернета. 7. Как получить текушее время? Описывается метод для получения текущего времени. 8. Как убрать значок выполняемого приложения из строки состояния Windows В статье расказывается как убрать значёк программы из строки состояния Windows. В Visual Basic.NET это очень просто. 9. Алгоритм Кнута-Морриса-Пратта При построении конечного автомата для поиска подстроки в тексте легко построить переходы из начального состояния в конечное принимающее состояние: эти переходы помечены символами подстроки. 10. Задание фонового рисунка его прорисовкой Фоновый рисунок можно создать, выведя его в контекст графического устройства формы, т. е. обработав событие Paint или реализовав метод OnPaintBackground. |
Свежие компьютерные новости |
|
27.12.2005
Gartner: Метаданные в Windows Vista нужно использовать осторожно 27.12.2005 Слух: Microsoft покупает Opera 27.12.2005 Microsoft и Google договорились 27.12.2005 Полнофункциональный ноутбук Aquarius Sensus NE305 27.12.2005 В Рунете появилась социальная сеть для профессионалов 24.12.2005 Продолжится рост рынка ноутбуков 24.12.2005 "Яндекс" будет показывать контекстную рекламу на обычных сайтах 24.12.2005 Евросоюз угрожает Microsoft новыми штрафами |
Создание графического файла на основе данных, хранящихся в XML-документе |
|
Приведенный далее код на основе данных, содержащихся в XML –документе создает графические файлы. Класс XmlDocument применяется для получения доступа к документу, а его метод Load реализует загрузку документа. Класс XmlNodeList образует список всех элементов документа. Свойство GetElementsByTagName этого класса возвращает элемент по его тегу, а свойство InnerText – текст, содержащийся внутри тега. Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Drawing.Drawing2D
Imports System.Xml
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim xmldoc As XmlDocument = New XmlDocument()
xmldoc.Load("pic.xml")
Dim items As XmlNodeList = xmldoc.GetElementsByTagName("picture")
Dim i As Integer
Dim text, font, path As String
Dim width, height As Integer
Dim color1, color2, bcolor As String
For i = 0 To items.Count - 1
text = xmldoc.GetElementsByTagName("Text").Item(i).InnerText
font = xmldoc.GetElementsByTagName("Font").Item(i).InnerText
width = Convert.ToInt32(xmldoc.GetElementsByTagName("Width").Item(i).InnerText)
height = Convert.ToInt32(xmldoc.GetElementsByTagName("Height").Item(i).InnerText)
color1 = xmldoc.GetElementsByTagName("Color1").Item(i).InnerText
color2 = xmldoc.GetElementsByTagName("Color2").Item(i).InnerText
bcolor = xmldoc.GetElementsByTagName("BColor").Item(i).InnerText
path = xmldoc.GetElementsByTagName("Path").Item(i).InnerText
CreateGraphic(text, width, height, font, color1, color2, bcolor, path)
Next
End Sub
Public Shared Sub CreateGraphic(ByVal text As String, _
ByVal width As Integer, _
ByVal height As Integer, _
ByVal font As String, _
ByVal color1 As String, _
ByVal color2 As String, _
ByVal bcolor As String, _
ByVal path As String)
Dim bm As Bitmap = New Bitmap(width, height)
Dim g As Graphics = Graphics.FromImage(bm)
Dim rec As RectangleF = New RectangleF(0, 0, 40, 20)
Dim lgb As LinearGradientBrush = New LinearGradientBrush(rec, _
Color.FromName(color1), _
Color.FromName(color2), _
LinearGradientMode.ForwardDiagonal)
Dim foundfont As Boolean = False
Dim fontsize As Integer = 100
Dim sizeofstring As SizeF
g.Clear(Color.FromName(bcolor))
Do While Not foundfont
Dim fc As Font = New Font(font, fontsize, FontStyle.Bold)
sizeofstring = g.MeasureString(text, fc)
Dim fl As Boolean = (sizeofstring.Width < bm.Width) And (sizeofstring.Height < bm.Height)
If fl Then
foundfont = True
g.DrawString(text, fc, lgb, 1, 1)
Else
fontsize -= 1
End If
Loop
If path.EndsWith("\") Then
path = path.TrimEnd("\")
End If
bm.Save(path + "\" + text + ".jpeg", ImageFormat.Jpeg)
lgb.Dispose()
g.Dispose()
End Sub
Ниже представлено содержание файла pic.xml. <piclist> <picture> <Text>First</Text> <Font>arial</Font> <Width>400</Width> <Height>200</Height> <Color1>red</Color1> <Color2>green</Color2> <BColor>yellow</BColor> <Path>C:\</Path> </picture> <picture> <Text>Second</Text> <Font>verdana</Font> <Width>200</Width> <Height>100</Height> <Color1>blue</Color1> <Color2>yellow</Color2> <BColor>green</BColor> <Path>C:\</Path> </picture> </piclist> Исходник к статье можно скачать здесь |
Книги с Озона |
|
Visual
Basic .NET. Библия пользователя Visual Basic .NET - результат самых решительных изменений, когда-либо сделанных в популярном языке Visual Basic. Эта книга, написанная командой экспертов Visual Basic .NET, поможет вам овладеть всеми нюансами платформы .NЕТ, будь вы ветеран Visual Basic 6 или разработчик на АSР, или даже просто новичок в программировании. Начав с обзора новых объектно-ориентированных свойств, авторы познакомят вас с основами языка Visual Basic, со средой разработки Visual Studio .NET, технологиями АDО.NЕТ и ХМL и объяснят на примерах, как создавать формы Windows, приложения АSР.NЕТ и Web-сервисы. |
|
Microsoft
Visual Basic .NET 2003. Русская версия. Шаг за шагом (+ CD-ROM) Visual Basic .NET 2003 - это профессиональная среда для
разработки приложений, а практическое руководство из серии "Шаг за шагом" -
быстрый путь к ее освоению. |
|
Использование
Microsoft Visual Basic .NET. Специальное издание Мы живем в такое время, которое можно назвать чудесным для программистов на Visual Basic. Что же касается Visual Basic .NET, то он заметно отличается от своих предшественников. И даже если вы годами программировали на Visual Basic, то все равно на вас теперь свалилось слишком много нового. Visual Basic .NET, начиная с полностью обновленного пользовательского интерфейса и заканчивая новыми возможностями языка и изменениями в архитектуре - это шаг вперед в эволюции Visual Basic. Книга будет полезна всем, независимо от уровня квалификации. Если вы еще никогда не использовали Visual Basic, то в первых главах найдете пошаговые инструкции по работе в среде Visual Basic. Что же касается пользователей предыдущих версий Visual Basic, то они (опытные или нет) обязательно оценят, как много и подробно говорится в книге о новых возможностях. Эти пользователи оценят и описание отличий VB.NET от предыдущих версий. Ну а как же читатели, для которых программирование в целом является чем-то новым? Они должны обратить внимание. |
Последнии статьи по Delphi |
Дружественные рассылки |
 |
Замечания и предложения отправляйте на E-Mail указанный ниже. С уважением Ковязин Дмитрий (admin@p-lib.pp.ru). |
| Subscribe.Ru
Поддержка подписчиков Другие рассылки этой тематики Другие рассылки этого автора |
Подписан адрес:
Код этой рассылки: comp.soft.prog.visualbnet Архив рассылки |
Отписаться
Вебом
Почтой
Вспомнить пароль |
| В избранное | ||
