Benshi

Visual Studio 2019 + C# で、Edge で開かれているタブを閉じるサンプル

元ネタ

• No101896: Edgeで開かれているタブを指定の条件で閉じる
  at 2023/05/11(Thu) 17:10:21
  by 新米SE

メモ

• (.NET Managed ではなく) COM 版の UIAutomationClient を用いたサンプルです。
• error CS1752 が発生する場合は、ソリューション エクスプローラーで [参照]-[UIAutomationClient] を選択し、プロパティ一覧の中から 相互運用型の埋め込み を False にしてコンパイルしてください。

Benshi

• VB6 で、Jpeg ファイルを作成するサンプルです。少し手直しすれば Excel VBA などでも使えるはず。
• 初版は VB初心者友の会 の、今は無き "テーマ掲示板2" に投稿したサンプルです。(2004/10/01)
• 同じものを私の blog にも掲載していたのですが、yaplog! が 2020/01/31 にサービス終了を迎えて置き場が無くなっていたので、今回、GitHub Gist に再掲載してみました。

Benshi

'NuGet で「Microsoft.Windows.SDK.Contracts」を参照しておく
Option Strict On
Imports System.Drawing.Imaging
Imports System.IO
Imports System.Linq
Imports Windows.Data.Pdf

Public Class Form1
    Private Const WICTiffEncoder As String = "0131be10-2001-4c5f-a9b0-cc88fab64ce8"

Benshi

certmgr.msc の「個人」にある証明書を列挙するには X509Certificate2Collection クラス を使う。
さらにそこから、個々の証明書の『目的』を得る実験的サンプル。

「クライアント認証」用の証明書を列挙するため、 X509KeyUsageExtension クラス を得るようにする。

Certificate Extensions は、X509Certificate2 オブジェクトに対して、 cert.Extensions[Oid] で得られる。
標準目的となる "Key Usage" の Oid は "2.5.29.15" で、
"Extended Key Usage" (EKU) の Oid は "2.5.29.37"。

Benshi

' ThisWorkbook モジュール
Option Explicit

Private Const LF_FACESIZE As Long = 32&
Private Const LANG_NEUTRAL As Integer = 0

Private Const NullPtr As LongPtr = 0
Public m_GDIplusToken As LongPtr
Private Type GdiplusStartupInput
    GdiplusVersion As Long

Benshi

• 改元レジストリ：HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Calendars\Japanese\Eras

平成改元は 1989/01/08 (平成元年1月8日)で、
その前日は 1989/01/07 (昭和64年1月7日)

旧暦の 1989/01/07 は昭和63年11月30日で、
旧暦の 1989/02/05 は平成元年1月1日。

では、1989/07/08～1989/12/05 (旧暦では 12月1日～12月29日)は、
旧暦では昭和63年なのか、それとも平成0年なのか?

Benshi

csc.exe によるコンパイル例

No102182 (XP さん) 2023/07/17(Mon) 13:54:23

分類:[C#]

c#をやって見ようかと思いとりあえず インターネット上にあるソースコード をcsc.exeでコンパイルしたのですが、「エントリポイントにMainメソッドが含まれていない」と出ます
投げやりですがまず動作させてみたいのでどこに
何を書けば良いのか教えてください。

パソコン WindowsXP
言語 c#2.0

Benshi

@CD /D %~dp0
@SET CSC=%WINDIR%\Microsoft.NET\Framework\v2.0.50727\csc.exe

@REM --- .NET Fraemwork 2.0 ---
%CSC% /t:winexe /out:FormTimer.exe /m:Sample.FormTimer *.cs

REM --- .NET Compact Fraemwork 2.0 ---
REM IF "%PROCESSOR_ARCHITECTURE%" EQU "x86" (
REM SET FAP="%ProgramFiles%\Microsoft.NET\SDK\CompactFramework\v2.0\WindowsCE"
REM ) ELSE (

Benshi

疑似モーダルダイアログ (VBA)

If MsgBox("OK か Cancel を押すまで、呼び出し元の画面を操作できません。", vbOkCancel) = vbCancel Then
    Exit Sub
End If

上記の記述だと、メッセージボックスを閉じるまで呼び出し元の画面を操作できません。

Benshi

using System;
using System.Diagnostics;
using System.Runtime.InteropServices;
using System.Runtime.InteropServices.ComTypes;
using Word = Microsoft.Office.Interop.Word;
using Excel = Microsoft.Office.Interop.Excel;
using PowerPoint = Microsoft.Office.Interop.PowerPoint;

if (!OperatingSystem.IsWindows()) { throw new PlatformNotSupportedException(); }