VBNet.Su - Visual Basic .NET. ASP .NET. Framework .NET.
Новости
26.12.2008 Лимитный инвайт для тех, кто хочет присоединиться к VBNet.Su, но не может :)
vbnet-super
С наступающим!
join

18.12.2008 Увеличен размер поля для подписи. Разрешено использовать некоторые теги HTML.
Изменены правила форума, в подписи разрешено использовать партнерские ссылки. Ссылки в подписи могут использовать только те пользователи, которые разместили обратную ссылку на VBNet.Su на одном из сайтов, указанных в профиле. Проверка обратных ссылок производится в автоматическом режиме. Если у Вас возникнут какие-либо вопросы, обращайтесь к администратору.

15.12.2008 Открылась рассылка VBNet.Su!
Рассылка будет выходить автоматически, несколько раз в неделю. В рассылке будут содержаться последние обновления сайта (аналог RSS). Чтобы подписаться на рассылку VBNet.Su, перейдите по этой ссылке.
Архив новостей
Будь в теме
USB Flash Drive
VBNet.Su рекомендуетTranscend JetFlash V20 USB 2.0 Flash Drive 64Gb
Жемчужно-белый с прозрачной зелёной вставкой USB-накопитель Transcend JetFlash V20 совместим с любым компьютером или ноутбуком с USB портом. Transcend JetFlash серии V20 лучшее решение среди USB накопителей начального ... подробнее..
Цена: 4769 руб. КУПИТЬ
Партнеры
Kbyte.Ru OZON.ru
Счетчики
Рассылка 'Visual Basic .NET - новости, коды, статьи, форум'
Полезная информация
Ігор
Ігор
Курсоры вообще можно не трогать. А юзать Icon, например.

  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.     Button1.Cursor = New Cursor(Me.Icon.Handle)
  3. End Sub


Либо изображение с прозрачностью-полупрозрачностью.

Добавь в каталог проекта файл, например, "cursor.png".

Правой кнопкой мышки по значку проекта к примеру "WindowsApplication1" в "Solution Explorer" ... и "Add Existing Item" свой файл "cursor.png".

А в окне свойств "Properties Window" измени свойство "Build Action" этого файла с "Content" на "Embedded Resource".

При таком раскладе символ слеша уже не понадобится. smile

  1. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2.    Dim bm As New Bitmap(Me.GetType(), "cursor.png")
  3.    Me.Cursor = New Cursor(Icon.FromHandle(bm.GetHicon).Handle)
  4. End Sub

http://vbnet.su/forum/single-42.html
Ігор
Ігор
GDI+ не может преобразовывать графическую информацию в форматы 1, 4, 8, 16 бит на никсель (точнее до весии 2.0 немогла преобразовать в формат 16bppRgb565, и по сей день не справилась с форматом 16bppArgb1555). Работать нужно непосредственно с данными.

И выбора, чесно говоря особого net в сети. Смастерил свою библиотеку. Желающие могут взять на моем сайте вместе с исходным кодом на vb2008 (http://igorr.110mb.com/dll_colorquantizer.html). Однако поскольку я украиноязычный, откомментирован код на украинском. Ну, я думаю при желании можна справиться. smile

Либо кто нибудь уже сталкивался с этим делом и сам может поделиться накопленым опытом?
http://vbnet.su/forum/single-233.html
Ігор
Ігор
Как воспроизвести mp3 из данных в памяти точно так, как и обычные wav-файлы? Знает кто нибудь?

Кратко опишу процесс работы с wave-файлами, добавленными ресурсами в приложение.

Добавляем в каталог проекта файл, например, "sound.png".

Кликаем правой кнопкой мышки по значку проекта к примеру "WindowsApplication1" в "Solution Explorer" ... и добавляем в проект при помощи комманды "Add Existing Item".

А в окне свойств "Properties Window" изменяем свойство "Build Action" этого файла с "Content" на "Embedded Resource".

В vs2005-8 нечто подобное можно проделать при помощи редактора ресурсов.

В vb2002-3 воспроизвести звук встроенного wave-ресурса можно лишь пользуясь WIN32API функцией sndPlaySound

[c]<Flags()> Private Enum PlaySoundFlags
Sync = &H0 ' Синхронное воспроизведение (управление не передается до завершения)
NoDefault = &H2 ' Воспроизведение нестандартного звука
Memory = &H4 ' Воспроизведение звука в памяти
[Loop] = &H8 ' Зацикленное воспроизведение (до следующего вызова функции)
NoStop = &H10 ' Не останавливать звук, если уже воспроизводится
End Enum

' Фукция воспроизведения wave-файлов
Private Declare Auto Function sndPlaySound Lib "winmm.dll" _
(ByVal lpszSoundName As String, ByVal UFlags As Int32) As Int32

Private sound As String ' звук

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim stm As IO.Stream = Me.GetType().Assembly.GetManifestResourceStream(Me.GetType(), "sound.wav")
Dim stmreader As New IO.StreamReader(stm, System.Text.Encoding.Unicode)
sound = stmreader.ReadToEnd()
Call stmreader.Close()
Call sndPlaySound(sound, PlaySoundFlags.NoDefault Or PlaySoundFlags.Sync Or PlaySoundFlags.Memory)
End Sub[/c]

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

В vs2005-2008 звук в памяти можно также воспроизвести при помощи My.Computer.Audio.Play, при этом предусмотрено асинхронное воспроизведение звука в памяти. Однако воспроизводится не строка а байтовый массив.

  1. Private sound() As Byte ' звук
  2.  
  3. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4.    Dim stm As IO.Stream = Me.GetType().Assembly.GetManifestResourceStream(Me.GetType(), "sound.wav")
  5.    ReDim sound(stm.Length - 1)
  6.    Call stm.Read(sound, 0, sound.Length)
  7.    Call stm.Close()
  8.    Call My.Computer.Audio.Play(sound, AudioPlayMode.Background)
  9. End Sub


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

Может знает кнто нибудь, как вот примерно таким способом воспроизвести mp3.
http://vbnet.su/forum/single-57.html
Больше полезной информации
Новые коды (обновлено: 25 мая 2009 / 01:42)
Visual Basic .NET (Framework x.x) HTML-код цвета без ColorTranslator
Автор: Ігор | добавлено: 25 мая 2009 / 01:42 | просмотров: 5269 (+4637)
Visual Basic .NET (Framework x.x) Позднее связывание
Автор: Ігор | добавлено: 10 мая 2009 / 03:26 | просмотров: 6099 (+5578)
Visual Basic .NET (Framework x.x) Пример контрола
Автор: Kolyasik | добавлено: 04 мая 2009 / 12:38 | просмотров: 6139 (+5629)
Visual Basic .NET (Framework x.x) Преобразование цвета в целое 32-битовое число и наоборот
Автор: Ігор | добавлено: 24 января 2009 / 04:39 | просмотров: 6269 (+5655)
Visual Basic .NET 2008 (Framework 3.0/3.5) Реализация пользовательского CheckBox
Автор: Karl Shifflett | добавлено: 26 декабря 2008 / 09:50 | просмотров: 7636 (+6671)
Visual Basic .NET 2008 (Framework 3.0/3.5) Реализация интерфейса WPF
Автор: Karl Shifflett | добавлено: 26 декабря 2008 / 09:45 | просмотров: 7055 (+5879)
Visual Basic .NET 2008 (Framework 3.0/3.5) Сортировка данных в ComboBox
Автор: Karl Shifflett | добавлено: 26 декабря 2008 / 09:40 | просмотров: 7253 (+6395)
Visual Basic .NET 2008 (Framework 3.0/3.5) ErrorProvider с использованием WPF
Автор: Rahul Singla | добавлено: 26 декабря 2008 / 09:33 | просмотров: 5414 (+4747)
Visual Basic .NET 2008 (Framework 3.0/3.5) ProgressBar как в IE 7
Автор: jebarson | добавлено: 26 декабря 2008 / 09:26 | просмотров: 7384 (+6128)
Visual Basic .NET 2008 (Framework 3.0/3.5) Использование WPF-контролов в Office 2007
Автор: Alessandro Del Sole | добавлено: 26 декабря 2008 / 09:20 | просмотров: 5129 (+4437)
Все коды
У нас есть
Мозолистые пальцы
Всего:1260
С ногами:2520
Красные глаза
Всего:252
Левых:126
Правых:126
Горячие мозги
Всего:126
Левых:3
Правых:27
Еще какие-то:96
Сегодня сказали
Сегодня еще никто ничего не говорил :-(
Архив сказанного ранее
Букварь всему голова
Книги на VBNet.SuVisual Basic. Освой на примерах (+ CD-ROM)
Рассмотрены примеры на языке Visual Basic - от простейших до приложений работы с графикой, мультимедиа и базами данных - которые демонстрируют назначение компонентов и раскрывают тонкости процесса программирования.

Справочник содержит описания ... подробнее..
Автор: Никита Культин
Цена: 149 руб. КУПИТЬ
Все книги на VBNet.Su
TOP 10 пользователей
Алексей Немиро65.2275660625+
Ігор47.181654625+
kibernetics16.0390645+
Kolyasik5.9658263125+
rublenko3.734375+
Arseny3.6845703125+
Skywalker2.904296875+
ostgals2.857421875+
5acredphoenix2.708994375+
andrey_z5z2.3857511875+
Все пользователи


Реклама:
viagra canada pharmacy