aave

Для того чтобы определить, что в системе установлена платформа .NET, можно проверить в системном каталоге C:\Windows\System32\ наличие файла mscoree.dll – основного файла платформы .NET.

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

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP

В этом разделе будут находиться подразделы установленных версий .NET, например: v3.0, v3.5, v4.0 и т.д.

Чтобы динамически изменять коллекцию – источник привязки, можно воспользоваться триггерами данных DataTrigger:

<Style TargetType="ComboBox" x:Key="comboSourceStyle">
  <Style.Triggers>
    <DataTrigger Binding="{Binding Speed}" Value="0">
      <Setter Property="ItemsSource" Value="{StaticResource MyCollection1}" />
    </DataTrigger>
    <DataTrigger Binding="{Binding Speed}" Value="1">
      <Setter Property="ItemsSource" Value="{StaticResource MyCollection2}" />
    </DataTrigger>
  </Style.Triggers>
</Style>

Dim tr As New TraversalRequest(FocusNavigationDirection.Last)
MoveFocus(tr)

Это может помочь в случае, когда, например, нужно обновить поля ввода TextBox при срабатывании кнопки по умолчанию по нажатию Enter на клавиатуре.

Для того чтобы быстро создавать архив с помощью архиватора 7-zip, напишем такой скрипт и сохраним его с расширением *.bat:

''' <summary>' ''' Возвращает визуального родителя заданного типа.' ''' </summary>' ''' <param name="child">Элемент, для которого нужно найти визуального родителя.' ''' <typeparam name="T">Тип искомого родителя.' Public Shared Function FindVisualParent(Of T As DependencyObject)(ByVal child As DependencyObject) As T Dim parentObject As DependencyObject = VisualTreeHelper.GetParent(child) If (parentObject Is Nothing) Then Return CType(Nothing, T) End If Dim parent As T = TryCast(parentObject, T) If (Not parent Is Nothing) Then Return parent End If Return FindVisualParent(Of T)(parentObject) End Function