peace2048

Imports System.Data
Imports System.Runtime.CompilerServices
Imports Common.Logging

Public Class DbLoggingWrapper

    Private Shared _logger As ILog
    Public Shared Property Logger As ILog
        Get
            If _logger Is Nothing Then

peace2048

#include "stdafx.h"
#include <Windows.h>

int _tmain(int argc, _TCHAR* argv[])
{
	TCHAR commandLine[MAX_PATH] = { 0 };
	HDESK hOldDesk, hInputDesk, hNewDesk;
	STARTUPINFO si;
	PROCESS_INFORMATION pi;
	BOOL success;

peace2048

using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Reactive;
using System.Reactive.Disposables;
using System.Reactive.Linq;
using System.Reactive.Subjects;
using System.Text;
using System.Threading.Tasks;

peace2048

using System;
using System.Collections.Concurrent;
using System.Collections.Generic;
using System.Linq;
using System.Runtime.InteropServices;
using System.Text;
using System.Threading.Tasks;

namespace ConsoleApplication1
{

peace2048

Module Module1

    Sub Main()

        ' 1000,2500,5000 の最大公約数を求める
        Dim n = {1000, 2500, 5000}.Aggregate(AddressOf GDC)
        Console.WriteLine(n)
        Console.ReadLine()

    End Sub

peace2048

using System;
using System.Linq;

namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            if (args.Select(_ => _.ToUpper()).Any(_ => _ == "C"))

peace2048

using System;
using System.Collections.Generic;
using System.Drawing;
using System.Drawing.Printing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace Printer.Sample
{

peace2048

Enum PropertyChainMode
    CopyOnly
    RaiseOnly
    CopyAndRaise
End Enum


Class PropertyChain(Of TSource As {Class, INotifyPropertyChanged}, TTarget)
    Private WithEvents _source As TSource
    Private _target As TTarget

peace2048

Module EnumerableExBuffer

    <Extension>
    Public Function Buffer(Of T)(
            ByVal source As IEnumerable(Of T),
            ByVal count As Integer
            ) As IEnumerable(Of T())

        If source Is Nothing Then Throw New ArgumentNullException("source")

peace2048

'例えば、30秒間隔で状態監視を実行する場合とか

Dim ループ = New CancellationTokenSource()
Dim 状態監視間隔の待機 As CancellationTokenSource

Dim 状態監視タスク = Task.Factory.StartNew(
  Sub()
    While True
      ' 状態を監視する処理を実行