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, перейдите по этой ссылке.
Архив новостей
Будь в теме
Ноутбуки на VBNet.Su
VBNet.Su рекомендуетSamsung X360-AA02
Ультралегкий ноутбук Samsung X360 задаёт совершенно новый стандарт для мобильных компьютеров, предлагая пользователю полноценный набор уникальных особенностей. Несмотря на то, что X360 самый легкий ноутбук в сегменте 13.3" устройств, он объединяет... подробнее..
Цена: 45390 руб. КУПИТЬ
Партнеры
Kbyte.Ru OZON.ru
Счетчики
Рассылка 'Visual Basic .NET - новости, коды, статьи, форум'
Полезная информация
Алексей Немиро
Алексей Немиро
Простой пример использования AJAX
0. Качаем ASPAJAXExtSetup.msi, например отсюда http://vbnet.su/upload/utils/ASPAJAXExtSetup.msi (на сайте microsoft возможно есть более новый реализ). Устанавливаем его.

1. В папку /Bin кидаем System.Web.Extensions.dll и AjaxControlToolkit.dll (можно найти в месте, куда был установлен AJAXExtensions - где-то в папке Program Files). На локальном компе и без этого будет работать, а вот на сервере не всегда.

2. В web.config пишем (добавляем в нужные места):
  1. <configuration>
  2.   <configSections>
  3.     <!--AJAX-->
  4.     <sectionGroup name="system.web.extensions" type="System.Web.Configuration.SystemWebExtensionsSectionGroup, System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35">
  5.       <sectionGroup name="scripting" type="System.Web.Configuration.ScriptingSectionGroup, System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35">
  6.         <section name="scriptResourceHandler" type="System.Web.Configuration.ScriptingScriptResourceHandlerSection, System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" requirePermission="false" allowDefinition="MachineToApplication"/>
  7.         <sectionGroup name="webServices" type="System.Web.Configuration.ScriptingWebServicesSectionGroup, System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35">
  8.           <section name="jsonSerialization" type="System.Web.Configuration.ScriptingJsonSerializationSection, System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" requirePermission="false" allowDefinition="Everywhere"/>
  9.           <section name="profileService" type="System.Web.Configuration.ScriptingProfileServiceSection, System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" requirePermission="false" allowDefinition="MachineToApplication"/>
  10.           <section name="authenticationService" type="System.Web.Configuration.ScriptingAuthenticationServiceSection, System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" requirePermission="false" allowDefinition="MachineToApplication"/>
  11.         </sectionGroup>
  12.       </sectionGroup>
  13.     </sectionGroup>
  14.     <!--//AJAX-->
  15.   </configSections>
  16.   <system.web>
  17.     <compilation debug="true" strict="false" explicit="true">
  18.       <assemblies>
  19.         <!--AJAX-->
  20.         <add assembly="System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"/>
  21.         <!--// AJAX-->
  22.       </assemblies>
  23.     </compilation>
  24.  
  25.     <httpModules>
  26.       <!--AJAX-->
  27.       <add name="ScriptModule" type="System.Web.Handlers.ScriptModule, System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"/>
  28.     </httpModules>
  29.     <httpHandlers>
  30.       <!--AJAX-->
  31.       <remove verb="*" path="*.asmx"/>
  32.       <add verb="*" path="*.asmx" validate="false" type="System.Web.Script.Services.ScriptHandlerFactory, System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"/>
  33.       <add verb="*" path="*_AppService.axd" validate="false" type="System.Web.Script.Services.ScriptHandlerFactory, System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"/>
  34.       <add verb="GET,HEAD" path="ScriptResource.axd" type="System.Web.Handlers.ScriptResourceHandler, System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" validate="false"/>
  35.       <!--// AJAX-->
  36.     </httpHandlers>
  37.   </system.web>
  38.   <!--AJAX-->
  39.   <system.web.extensions>
  40.     <scripting>
  41.       <webServices>
  42.         <!-- Uncomment this line to customize maxJsonLength and add a custom converter -->
  43.         <!--
  44.         <jsonSerialization maxJsonLength="500">
  45.           <converters>
  46.             <add name="ConvertMe" type="Acme.SubAcme.ConvertMeTypeConverter"/>
  47.           </converters>
  48.         </jsonSerialization>
  49.         -->
  50.         <!-- Uncomment this line to enable the authentication service. Include requireSSL="true" if appropriate. -->
  51.         <!--
  52.           <authenticationService enabled="true" requireSSL = "true|false"/>
  53.         -->
  54.         <!-- Uncomment these lines to enable the profile service. To allow profile properties to be retrieved
  55.              and modified in ASP.NET AJAX applications, you need to add each property name to the readAccessProperties and
  56.              writeAccessProperties attributes. -->
  57.         <!--
  58.         <profileService enabled="true"
  59.                         readAccessProperties="propertyname1,propertyname2"
  60.                         writeAccessProperties="propertyname1,propertyname2" />
  61.         -->
  62.       </webServices>
  63.       <!--
  64.         <scriptResourceHandler enableCompression="true" enableCaching="true" />
  65.         -->
  66.     </scripting>
  67.   </system.web.extensions>
  68.   <!--// AJAX-->
  69.   <!--AJAX-->
  70.   <system.webServer>
  71.     <validation validateIntegratedModeConfiguration="false"/>
  72.     <modules>
  73.       <add name="ScriptModule" preCondition="integratedMode" type="System.Web.Handlers.ScriptModule, System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"/>
  74.     </modules>
  75.     <handlers>
  76.       <remove name="WebServiceHandlerFactory-Integrated"/>
  77.       <add name="ScriptHandlerFactory" verb="*" path="*.asmx" preCondition="integratedMode" type="System.Web.Script.Services.ScriptHandlerFactory, System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"/>
  78.       <add name="ScriptHandlerFactoryAppServices" verb="*" path="*_AppService.axd" preCondition="integratedMode" type="System.Web.Script.Services.ScriptHandlerFactory, System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"/>
  79.       <add name="ScriptResource" preCondition="integratedMode" verb="GET,HEAD" path="ScriptResource.axd" type="System.Web.Handlers.ScriptResourceHandler, System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"/>
  80.     </handlers>
  81.   </system.webServer>
  82.   <!--// AJAX-->
  83. </configuration>


3. На странице ASPX размещаем код:
  1. <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="ajaxToolkit" %>
  2. 1-ая строчка, чтоб использовать ajax-контролы.
  3.  
  4. <asp:ScriptManager ID="ScriptManager1" runat="server" EnablePartialRendering="true" EnableScriptGlobalization="true" EnableScriptLocalization="true" LoadScriptsBeforeUI="true" />
  5.  
  6.   <asp:UpdatePanel ID="UpdatePanel1" runat="server">
  7.     <ContentTemplate>
  8.        здесь можно размещать обычные серверные контролы, все серверные события будут обрабатываться асинхронно.
  9.     </ContentTemplate>
  10.   </asp:UpdatePanel>


Это один из примеров. С контролами AjaxControlToolkit, думаю сам разберешься, там ничего сложного нет, размещать на странице: <ajaxToolkit:Имя контрола />.

Примеры использования AjaxControlToolkit лежат тут: http://vbnet.su/upload/utils/AjaxControlToolkit.zip

Если возникнут проблемы, пиши, поможем, чем сможем smile
http://vbnet.su/forum/single-150.html
Алексей Немиро
Алексей Немиро
Еще можно вот так проиграть wav-ы в VS 2005/2008:
  1. Imports System.IO
  2. Imports System.Media
  3.  
  4. '-----------------------------------------
  5. 'Проиграть wav-файл с диска
  6. Dim objPlayer As New SoundPlayer
  7. objPlayer.SoundLocation = "C:\Alert.wav"
  8. objPlayer.Play()
  9.  
  10. '-----------------------------------------
  11. 'Проиграть wav-файл из ресурсов
  12. Dim objPlayer As New SoundPlayer
  13. objPlayer.Stream = My.Resources.Alert ' Alert - имя ресурса
  14. objPlayer.Play()

http://vbnet.su/forum/single-60.html
Ігор
Ігор
  1. Imports System.Security.Cryptography
  2. Imports System.IO
  3.  
  4. Public Module Encryptorrr
  5.  
  6. Private encv() As Byte = {64, 122, 10, 56, 20, _
  7.  74, 121, 39, 19, 91, 145, 78, 189, 211, 133, 162}
  8.  
  9. Public Function Encrypt(ByRef data() As Byte, ByVal key() As Byte) As Boolean
  10.     If (data Is Nothing) OrElse (data.Length <= 0) Then Return False
  11.     If (key Is Nothing) OrElse (key.Length <= 0) Then Return False
  12.     Dim key2() As Byte = key.Clone(), data2() As Byte = data.Clone()
  13.     If key2.Length > 32 Then ReDim Preserve key2(31)
  14.     Dim n As Int64
  15.     For n = 0 To 31
  16.         If n > key2.GetUpperBound(0) Then
  17.            ReDim Preserve key2(key2.Length)
  18.            key2(key2.GetUpperBound(0)) = CByte(n)
  19.         End If
  20.     Next
  21.     Dim arr() As Byte = {CByte(Asc("i")), CByte(Asc("g")), CByte(Asc("o")), CByte(Asc("r"))}
  22.     Dim res As Boolean = True
  23.     Dim ms As MemoryStream = Nothing
  24.     Dim cs As CryptoStream = Nothing
  25.     Dim rm As RijndaelManaged = Nothing
  26.     Dim bw As BinaryWriter = Nothing
  27.     Try
  28.         ReDim Preserve data2(data2.GetUpperBound(0) + 4)
  29.         Call Array.Copy(arr, 0, data2, data.Length, 4)
  30.         rm = New RijndaelManaged
  31.         ms = New MemoryStream()
  32.         cs = New CryptoStream(ms, rm.CreateEncryptor(key2, encv), CryptoStreamMode.Write)
  33.         cs.Write(data2, 0, data2.Length)
  34.         Call cs.FlushFinalBlock()
  35.         bw = New BinaryWriter(ms)
  36.         Call bw.Seek(0, SeekOrigin.End)
  37.         Dim bs() As Byte = BitConverter.GetBytes(CType((data.GetLongLength(0) + 4), Int64))
  38.         bw.Write(bs) : bw.Flush() : Erase bs   
  39.         data = ms.ToArray()
  40.     Catch
  41.         res = False
  42.     Finally
  43.        Try
  44.           If Not IsNothing(rm) Then rm.Clear()
  45.           If Not IsNothing(cs) Then cs.Close()
  46.        Catch
  47.        Finally
  48.           If Not IsNothing(ms) Then ms.Close()
  49.           If Not IsNothing(bw) Then bw.Close()
  50.           Erase arr : Erase data2 : Erase key2
  51.        End Try
  52.     End Try
  53.     Return res
  54. End Function
  55.  
  56. Public Function Decrypt(ByRef data() As Byte, ByVal key() As Byte) As Boolean
  57.    If IsNothing(data) OrElse (data.Length <= 8) Then Return False
  58.    If (key Is Nothing) OrElse (key.Length <= 0) Then Return False
  59.    Dim key2() As Byte = key.Clone(), data2() As Byte = data.Clone()
  60.    Dim l As Int64, res As Boolean = True
  61.    Try
  62.       l = BitConverter.ToInt64(data2, data2.GetLongLength(0) - 8)
  63.       ReDim Preserve data2(data2.GetLongLength(0) - 9)
  64.    Catch
  65.       Return False
  66.    End Try
  67.    If key2.Length > 32 Then ReDim Preserve key2(31)
  68.    Dim n As Int64
  69.    For n = 0 To 31
  70.        If n > key2.GetUpperBound(0) Then
  71.           ReDim Preserve key2(key2.Length)
  72.           key2(key2.GetUpperBound(0)) = CByte(n)
  73.        End If
  74.    Next
  75.    Dim decripted() As Byte = Nothing
  76.    Dim rm As RijndaelManaged = Nothing
  77.    Dim ms As MemoryStream = Nothing
  78.    Dim cs As CryptoStream = Nothing
  79.    Try
  80.        ReDim decripted(data2.Length - 1)
  81.        ms = New MemoryStream(data2)
  82.        rm = New RijndaelManaged
  83.        cs = New CryptoStream(ms, rm.CreateDecryptor(key2, encv), CryptoStreamMode.Read)
  84.        cs.Read(decripted, 0, decripted.Length)
  85.        ReDim Preserve decripted(l - 1)
  86.        If (decripted(decripted.GetUpperBound(0) - 3) = Asc("i")) AndAlso _
  87.           (decripted(decripted.GetUpperBound(0) - 2) = Asc("g")) AndAlso _
  88.           (decripted(decripted.GetUpperBound(0) - 1) = Asc("o")) AndAlso _
  89.           (decripted(decripted.GetUpperBound(0)) = Asc("r")) Then
  90.           ReDim Preserve decripted(decripted.GetUpperBound(0) - 4)
  91.           data = decripted
  92.        Else
  93.           Erase decripted
  94.           res = False
  95.        End If
  96.    Catch
  97.        res = False
  98.    Finally
  99.        Try
  100.           If Not IsNothing(rm) Then rm.Clear()
  101.           If Not IsNothing(cs) Then cs.Close()
  102.        Catch
  103.        Finally
  104.           If Not IsNothing(ms) Then ms.Close()
  105.           Erase data2 : Erase key2
  106.        End Try
  107.    End Try
  108.    Return res
  109. End Function
  110.  
  111. End Module
  112.  

http://vbnet.su/forum/single-224.html
Больше полезной информации
Новые коды (обновлено: 25 мая 2009 / 01:42)
Visual Basic .NET (Framework x.x) HTML-код цвета без ColorTranslator
Автор: Ігор | добавлено: 25 мая 2009 / 01:42 | просмотров: 4453 (+3821)
Visual Basic .NET (Framework x.x) Позднее связывание
Автор: Ігор | добавлено: 10 мая 2009 / 03:26 | просмотров: 5375 (+4854)
Visual Basic .NET (Framework x.x) Пример контрола
Автор: Kolyasik | добавлено: 04 мая 2009 / 12:38 | просмотров: 5383 (+4873)
Visual Basic .NET (Framework x.x) Преобразование цвета в целое 32-битовое число и наоборот
Автор: Ігор | добавлено: 24 января 2009 / 04:39 | просмотров: 5544 (+4930)
Visual Basic .NET 2008 (Framework 3.0/3.5) Реализация пользовательского CheckBox
Автор: Karl Shifflett | добавлено: 26 декабря 2008 / 09:50 | просмотров: 6769 (+5804)
Visual Basic .NET 2008 (Framework 3.0/3.5) Реализация интерфейса WPF
Автор: Karl Shifflett | добавлено: 26 декабря 2008 / 09:45 | просмотров: 6047 (+4871)
Visual Basic .NET 2008 (Framework 3.0/3.5) Сортировка данных в ComboBox
Автор: Karl Shifflett | добавлено: 26 декабря 2008 / 09:40 | просмотров: 6276 (+5418)
Visual Basic .NET 2008 (Framework 3.0/3.5) ErrorProvider с использованием WPF
Автор: Rahul Singla | добавлено: 26 декабря 2008 / 09:33 | просмотров: 4796 (+4129)
Visual Basic .NET 2008 (Framework 3.0/3.5) ProgressBar как в IE 7
Автор: jebarson | добавлено: 26 декабря 2008 / 09:26 | просмотров: 6611 (+5355)
Visual Basic .NET 2008 (Framework 3.0/3.5) Использование WPF-контролов в Office 2007
Автор: Alessandro Del Sole | добавлено: 26 декабря 2008 / 09:20 | просмотров: 4565 (+3873)
Все коды
У нас есть
Мозолистые пальцы
Всего:1180
С ногами:2360
Красные глаза
Всего:236
Левых:118
Правых:118
Горячие мозги
Всего:118
Левых:1
Правых:27
Еще какие-то:90
Сегодня сказали
Сегодня еще никто ничего не говорил :-(
Архив сказанного ранее
Букварь всему голова
Книги на VBNet.SuMicrosoft Visual Basic .NET: рецепты программирования
В книге описаны наиболее эффективные методики, недокументированные секреты и вообще все, что необходимо для решения конкретных задач программирования для .NET на Microsoft Visual Basic.NET. Целью данной книги является устранение пробелов в знаниях ... подробнее..
Автор: Мэтью Макдональд
Цена: 422 руб. КУПИТЬ
Все книги на 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+
Все пользователи


Реклама: