Skip to content

Instantly share code, notes, and snippets.

Public Sub ExportTest()
Dim ads As Excel.AddIns
Set ads = Application.AddIns
Dim iAd As Integer
Dim iPrj As Integer
For iAd = 1 To ads.Count
Dim ad As Excel.AddIn
<Canvas x:Name="myCanvas" Cursor="">
<Canvas.Resources>
<ControlTemplate TargetType="Thumb" x:Key="markerTemplate">
<Rectangle x:Name="rect"
Stroke="{TemplateBinding Background}"
Fill="Transparent"
HorizontalAlignment="Stretch"
VerticalAlignment="Stretch"/>
</ControlTemplate>

Wouldn't the behavior you want be achieved by setting the Owner property instead of setting the Topmost property for sub-window?

public partial class MainWindow : Window
{
    public MainWindow()
    {
        //InitializeComponent();
        this.Title = "MainWindow";
@gekka
gekka / CStringExtension.cpp
Last active April 16, 2024 09:47
ユニコードを異字体セレクタとかを考慮した1文字ごとに分割
#include "test.h"
#include <afxwin.h>
#include <icu.h>
#pragma comment(lib, "icu.lib")
typedef struct GraphemeLeft_ {
uint32_t value;
GraphemeLeft_(int i) : value(i) { };
@gekka
gekka / pch.h
Created April 16, 2024 18:30
Unicodeを書記素で切り出せるCStringを試す
// pch.h: プリコンパイル済みヘッダー ファイルです。
// 次のファイルは、その後のビルドのビルド パフォーマンスを向上させるため 1 回だけコンパイルされます。
// コード補完や多くのコード参照機能などの IntelliSense パフォーマンスにも影響します。
// ただし、ここに一覧表示されているファイルは、ビルド間でいずれかが更新されると、すべてが再コンパイルされます。
// 頻繁に更新するファイルをここに追加しないでください。追加すると、パフォーマンス上の利点がなくなります。
#ifndef PCH_H
#define PCH_H
#define CString CStringDef
@gekka
gekka / script.sql
Created May 16, 2024 10:35
SQL Server Management Studio Geometry BUG
USE [Test2]
GO
/****** Object: Table [dbo].[A3814_01_1] Script Date: 2024/05/16 18:12:42 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[A3814_01_1](
[ID] [int] IDENTITY(1,1) NOT NULL,
[A38a_001] [nvarchar](255) NULL,