Published in Приложения
Предалагется маленькая утилита, которая выполняет только одну функцию – объединение по XOR массива байтов.
Вводить массив можно в любом формате с любым разделителем, главное чтобы числа были в 16-ном формате.
Скачать утилиту можно по ссылке ниже. Для запуска приложения необходима среда .NET 4.5.1.
Часто в приложении бывает необходимо использовать объёмные ресурсы, например, динамические библиотеки. Их можно включить в ресурсы приложения в сжатом виде. .NET имеет встроенный архиватор GZip. Его можно использовать, например, так:
'''''' Проверяет наличие необходимых DLL в текущей директории и при отсутствии создаёт. ''' Private Sub CheckDlls() Dim dlls As New Dictionary(Of String, Byte()) From { {"myLib1.dll", My.Resources.myLib1}, {"myLib2.dll", My.Resources.myLib2} } For Each dll In dlls If (Not IO.File.Exists(dll.Key)) Then Using compressed As New IO.MemoryStream(dll.Value), gzStm As New IO.Compression.GZipStream(compressed, IO.Compression.CompressionMode.Decompress), decompressed As IO.FileStream = IO.File.Create(dll.Key) gzStm.CopyTo(decompressed) End Using End If Next End Sub
В C# есть оператор, который возвращает размер типа, занимаемый в памяти:
sizeof(float)
Его аналог в VB.NET:
Marshal.SizeOf(GetType(Single))
Чтобы сделать сортируемую наблюдаемую коллекцию в WPF, можно создать методы расширения для типа ObservableCollection:
Imports System.Collections.ObjectModel
Imports System.Runtime.CompilerServices
Module ObservableCollectionExtensions
<Extension>
Public Sub Sort(Of T)(ByRef collection As ObservableCollection(Of T), comparison As Comparison(Of T))
Dim sortableList = New List(Of T)(collection)
sortableList.Sort(comparison)
For i As Integer = 0 To sortableList.Count - 1
collection.Move(collection.IndexOf(sortableList(i)), i)
Next
End Sub
<Extension>
Public Sub Sort(Of T As IComparable)(ByRef collection As ObservableCollection(Of T))
If (collection.Count > 1) Then
Dim sortableList As New List(Of T)(collection)
Dim comp As Comparison(Of T) = Function(a, b) a.CompareTo(b)
sortableList.Sort(comp)
For i As Integer = 0 To sortableList.Count - 1
collection.Move(collection.IndexOf(sortableList(i)), i)
Next
End If
End Sub
End Module
Использование:
MyCollection.Sort(Function(a, b) a.CompareTo(b))
или просто:
MyCollection.Sort()