emoacht

// Add reference to WindowsBase and System.Xaml.
using System;
using System.Diagnostics;
using System.IO;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Media.Imaging;

public class ExifDate

emoacht

using System.Collections.ObjectModel;
using System.Linq;
using System.Reactive.Linq;
using System.Threading.Tasks;
using Reactive.Bindings;
using Reactive.Bindings.Extensions;

public class Operation : BindableBase
{
    public ObservableCollection<ProfileItem> Profiles

emoacht

// http://okazuki.hatenablog.com/entry/2015/03/17/025940

var filtered = source.ToFilteredReadOnlyObservableCollection(x => x.IsRemoved);

ReactiveProperty<bool> IsAnyRemoved = filtered
    .CollectionChangedAsObservable()
    .Select(_ => 0 < filtered.Count)
    .ToReactiveProperty();

emoacht

Public Sub TestResharper1()
    Dim source As String = "0123456789"
    Dim lengths = New Integer() {4}.ToList()

    lengths.ForEach(
        Sub(x)
            source = source.Substring(0, x) 'Resharper warning: Value assigned is not used in any execution path
        End Sub)

    Debug.WriteLine(source) '0123

emoacht

using System;
using System.ComponentModel;
using System.Diagnostics;
using System.IO;
using System.Reflection;
using System.Runtime.CompilerServices;
using System.Runtime.Serialization;
using System.Runtime.Serialization.Json;
using Windows.Foundation.Collections;
using Windows.Storage;

emoacht

using Windows.Foundation;

public class Settings : SettingsBase
{
    private Settings()
    { }

    public static Settings Current
    {
        get { return _current; }

emoacht

Module Program

    Private Sub LocalVariableCase0()
        Dim value As Boolean = False
        Console.WriteLine(value)
        value = True

        'False
    End Sub

emoacht

Private Sub LocalVariableCase0()
    Dim value As Boolean = False
    Console.WriteLine(value)
    value = True

    'False
End Sub

Private Sub LocalVariableCase1()
    Dim value As Boolean

emoacht

Private Sub LocalVariableCase2()
    For i = 0 To 2
        Dim value As Boolean = False
        Console.WriteLine(value)
        value = True
    Next

    'False
    'False
    'False

emoacht

Private Sub LocalVariableCase4A()
    For i = 0 To 2
        LocalVariableCase4B()
    Next

    'False
    'False
    'False
End Sub