ちょっとメモ。。。 ちなみにテストに使った動画プレイヤーはMediaPlayerClassic-HomeCinema で。 表示のオプションの中にある、内部フィルタで、『DXVA』を有効/無効にするチェックボックスを使って設定します。□□□□□◇□□□□□◇□□□□□◇□□□□□◇□□□□□◇□□□□□◇□□□□□◇…

ちょーカワイイ http://yaplog.jp/lovecat3jp/ こんな風にネコまみれで暮らすのが夢です。 この子もカワイイ。 http://kotetsuroom.blog70.fc2.com/blog-date-200702.html

Dim FL As New List(Of String) Public Sub ContAdd(ByVal FName As String) '重複のしないようにリストに追加 If FL.Contains(FName) = False Then FL.Add(FName) End If End Sub Public Function ExteJudge(ByVal FN As String) As Boolean '拡張子の種類…

Partial Class Form1 Public FL As New List(Of String) 'リストを作成 Public Sub ContAdd(ByVal FName As String) '重複のしないようにリストに追加 If FL.Contains(FName) = False Then FL.Add(FName) End Sub Public Function ExteJudge(ByVal FN As Str…

Public Function WhatIsGeometricBounds() Dim IllApp As New Illustrator.Application Dim IllDoc As Illustrator.Document Dim pItem As PathItem Dim temObj As Object IllDoc = IllApp.ActiveDocument For Each pItem In IllDoc.Selection Console.Write…

デカくてふわふわなネコちゃんが好きですが、嫁はコワいそうです。

Public Function GetCenter(ByVal pItem As Illustrator.PathItem) Dim CX, CY, Right, Left, Top, Bottom, Width, Height As Single 'GeometricBounds(0) : Left 'GeometricBounds(1) : Top 'GeometricBounds(2) : Right 'GeometricBounds(3) : Bottom 'な…