約 4,152,393 件
https://w.atwiki.jp/kojimakk/pages/30.html
AppDelete MacOSXのアプリケーションをアンインストールするソフト。 無料でhttp //reggie.ashworth.googlepages.com/appdeleteから入手できる。 2008/10/28時点でのファイル名は、 AppDelete2.1.dmg ダブルクリックして出来たディスクイメージAppDelete内のAppDeleteファイルをアプリケーションにドラッグ ドロップするとインストール完了。 継続使用には$5の寄付が必要なようです。 Citations
https://w.atwiki.jp/toolstorage/pages/42.html
仮_TOOLBOX ソース Option Compare Database Option Explicit Public Sub MessageBox(ByVal iMessage As String) MsgBox (iMessage) End Sub トップ
https://w.atwiki.jp/dollabo/pages/248.html
プレイヤー名 Krypton、IronKK ブログの記事に載せて良いか ◯ 質問要綱 ①こんにちは!まずはあなたのデュエルオブレジェンドで使っているHN(ハンドルネーム)を教えてください。 初めまして、Kryptonと申します ②やっぱり由来とかあるんですか? 化学の授業で36番元素を答えられなかったため、そのままあだ名がKryptonになりました(;´д`)トホホ… それ以来様々なゲームで使ってます。 ③そういえばDOLはどれくらいやっているんですか わかりません まだ3週間経ってないくらいだと思います(2021/3/21時点) ④どういう経緯でDOLと出会いましたか? sdinユーザーで、以前からたまにDOLを1日限定でやっていたのですが、今回本格的に始めてみることにしました ⑤ではDOLの面白いところをぜひ宣伝してください。 これを出したら100%勝てるっていうカードが無い 完全無料でできる 神カードなどのやりこみ要素もある ⑥ありがとうございます。次にお気に入りのデッキを教えてください。 ファフニール砲チュドーン です 相方の援護にいい感じです(嘘) 107090d0h1h1k3l5J6l6p6B6N6T6W7e7y7D7R8K8N ⑦デッキコードまで下さるなんてかたじけない! ではDOLで好きなカードを教えてください。 ユニットは美の神ラクシュミーです マジックだと生命吸収と復活の蓮華門ですね ⑧そのカードにはどのような魅力が・・・!? ラクシュミーは実質MP200でAP1600が出せる点です((それとおっぱry マジック2枚の方は連撃に使えるだけでなく、未完避けからの再出撃につなげたりできるので多用しています ⑨こんなカードがあれば面白い! みたいなカードはありますか? 死者の呪い ランダムなプレイヤーのLPを全ての墓地のユニット数×100削る みたいな感じのあったらちょっと楽しそうですね ⑩尊敬するDOLプレイヤーの方などはいますか? まだ対人戦経験が少ないのでわからんです ⑪その方の素晴らしいところをぜひお教えください! ⑫あなたはDOLについてどのような野望を持っていますか? Vtuberとかに配信で遊んでもらえたら、5桁くらいプレイヤー増えるんじゃなぁい? ⑬自分を一言で表すなら、こんな人物! 友人達曰く、この世の終わりを体現するかのようなド変態。 ⑭かっこいいですね! ではDOLのカードに例えるなら・・・? 心削りの杭 精神攻撃だーオラー! (ノ`A")ノ ⌒丁 ⑮DOLプレイヤーでありブロガーであるアンドリューに一言! youtube見てます 土曜の夜8時から配信してるらしいですが2週連続でお目見えすることができません、、 この回答に関してのコメントは以下のテキストボックスから 名前 コメント アンドリューの質問コーナー
https://w.atwiki.jp/toolstorage/pages/31.html
TOOL_テキストファイル情報収集_初回準備 ソース Option Compare Database Option Explicit 初回起動準備用 このモジュールはTOOL作成時、フォーム・テーブル・クエリを作成します。 作成後はアクセスことはありません。 初回起動時準備 ツールの設計上必要なパーツを作成します。 引数:なし Public Sub 初回起動時準備() フォーム作成 テーブル作成 クエリ作成 クエリ作成_削除 End Sub フォーム作成 引数:なし 戻り値:なし Private Function フォーム作成() Dim mForm As Form Dim AdjustSize As Long AdjustSize = 567 567twip = 1cm 1.フォームの動的生成 Set mForm = CreateForm 2.フォームの設定 フォームの種類 mForm.DefaultView = 0 フォームの縦横のサイズ 単位 twip mForm.Section(0).Height = 12 * AdjustSize mForm.Width = 8 * AdjustSize 標題 mForm.Caption = "ファイル情報取得フォーム" レコードセレクタ mForm.RecordSelectors = False 表示設定 mForm.Visible = True mForm.OnLoad = "=FormFormat()" 3.パーツ付与 Call パーツ設定(mForm, AdjustSize) 4.フォームのサイズを戻す DoCmd.Restore 5.フォームを開く DoCmd.OpenForm mForm.Name, acDesign 6.フォームのウィンドウ位置とサイズを修正 DoCmd.MoveSize 0, 0, 9 * AdjustSize, 12 * AdjustSize 7.フォームを保存 DoCmd.Save , "ファイル情報取得フォーム" 8.フォームを閉じる DoCmd.Close , , acSaveNo End Function パーツ作成 フォーム上に存在するすべてのパーツを作成・配置します 引数:あり iForm : Form 配置するフォーム iAS ; Long 配置位置の座標を設定する際に使用する単位変換値 戻り値:なし Private Function パーツ設定(ByVal iForm As Form, ByVal iAS As Long) Dim LabelTitleObj As Control Dim LabelEssentialObj As Control Dim LabelFolderPathObj As Control Dim TextFolderPathObj As Control Dim OptionGroupFilePatternObj As Control Dim LabelFilePatternObj As Control Dim RadioFilePatternTxtObj As Control Dim LabelFilePatternTxtObj As Control Dim RadioFilePatternCsvObj As Control Dim LabelFilePatternCsvObj As Control Dim LabelOptionObj As Control Dim LabelOptionCountObj As Control Dim ChkboxHasHeaderLineObj As Control Dim LabelHasHeaderLineObj As Control Dim ChkboxHasUselessLineObj As Control Dim LabelHasUselessLineObj As Control Dim BtnListResetObj As Control Dim ChkboxIsListResetObj As Control Dim LabelIsListResetObj As Control Dim BtnGetFileInfosObj As Control 1.タイトルラベルの設定 Set LabelTitleObj = CreateControl(iForm.Name, acLabel, , , , 0.25 * iAS, 0.5 * iAS) LabelTitleObj.Name = "フォームタイトル" LabelTitleObj.Width = 6 * iAS LabelTitleObj.Height = 1 * iAS LabelTitleObj.Caption = "指定フォルダ内のテキストファイル情報を取得・リスト化します" LabelTitleObj.FontSize = 10 2.初期化実行ボタン Set BtnListResetObj = CreateControl(iForm.Name, acCommandButton, , , , 2.5 * iAS, 1.7 * iAS) BtnListResetObj.Name = "初期化実行" BtnListResetObj.Width = 3 * iAS BtnListResetObj.Height = 0.5 * iAS BtnListResetObj.Caption = "初期化実行" BtnListResetObj.FontSize = 10 BtnListResetObj.OnClick = "=ResetTableRecord()" 3.必須項目のタイトルラベルの設定 Set LabelEssentialObj = CreateControl(iForm.Name, acLabel, , , , 0.25 * iAS, 3 * iAS) LabelEssentialObj.Name = "必須入力タイトル" LabelEssentialObj.Width = 6 * iAS LabelEssentialObj.Height = 0.5 * iAS LabelEssentialObj.Caption = "【必須入力設定】" LabelEssentialObj.FontSize = 10 LabelEssentialObj.FontBold = True LabelEssentialObj.ForeColor = RGB(0, 0, 255) 4.フォルダパス項目のラベル Set LabelFolderPathObj = CreateControl(iForm.Name, acLabel, , "フォルダパス項目", , 0.25 * iAS, 3.8 * iAS) LabelFolderPathObj.Name = "フォルダパスラベル" LabelFolderPathObj.Width = 6 * iAS LabelFolderPathObj.Height = 0.5 * iAS LabelFolderPathObj.Caption = "・フォルダパス" LabelFolderPathObj.FontSize = 10 5.フォルダパス項目 Set TextFolderPathObj = CreateControl(iForm.Name, acTextBox, , , , 0.5 * iAS, 4.3 * iAS, , 0.5 * iAS) TextFolderPathObj.Name = "フォルダパス項目" TextFolderPathObj.Width = 6 * iAS TextFolderPathObj.Height = 0.5 * iAS TextFolderPathObj.FontSize = 10 6.検索ファイル Set OptionGroupFilePatternObj = CreateControl(iForm.Name, acOptionGroup, , , , 0.25 * iAS, 5 * iAS) OptionGroupFilePatternObj.Name = "検索ファイル" OptionGroupFilePatternObj.Width = 7 * iAS OptionGroupFilePatternObj.Height = 2 * iAS OptionGroupFilePatternObj.BorderStyle = 0 OptionGroupFilePatternObj.SpecialEffect = 0 7.検索ファイルのラベル Set LabelFilePatternObj = CreateControl(iForm.Name, acLabel, , , , 0.25 * iAS, 5 * iAS) LabelFilePatternObj.Name = "検索ファイルラベル" LabelFilePatternObj.Width = 6 * iAS LabelFilePatternObj.Height = 0.5 * iAS LabelFilePatternObj.Caption = "・検索ファイル" 8.検索ファイル(TXT) Set RadioFilePatternTxtObj = CreateControl(iForm.Name, acOptionButton, , OptionGroupFilePatternObj.Name, , 0.5 * iAS, 5.5 * iAS) RadioFilePatternTxtObj.Name = "検索ファイル_TXT" RadioFilePatternTxtObj.OptionValue = 1 9.検索ファイル(TXT)のラベル Set LabelFilePatternTxtObj = CreateControl(iForm.Name, acLabel, , , , 1.2 * iAS, 5.5 * iAS) LabelFilePatternTxtObj.Name = "検索ファイル_TXTラベル" LabelFilePatternTxtObj.Width = 4 * iAS LabelFilePatternTxtObj.Height = 0.5 * iAS LabelFilePatternTxtObj.Caption = "*.txt" 10.検索ファイル(CSV) Set RadioFilePatternCsvObj = CreateControl(iForm.Name, acOptionButton, , OptionGroupFilePatternObj.Name, , 0.5 * iAS, 6 * iAS) RadioFilePatternCsvObj.Name = "検索ファイル_CSV" RadioFilePatternCsvObj.OptionValue = 2 11.検索ファイル(CSV)のラベル Set LabelFilePatternCsvObj = CreateControl(iForm.Name, acLabel, , , , 1.2 * iAS, 6 * iAS) LabelFilePatternCsvObj.Name = "検索ファイル_CSVラベル" LabelFilePatternCsvObj.Width = 4 * iAS LabelFilePatternCsvObj.Height = 0.5 * iAS LabelFilePatternCsvObj.Caption = "*.csv" 12.オプション項目のタイトルラベルの設定 Set LabelOptionObj = CreateControl(iForm.Name, acLabel, , , , 0.25 * iAS, 7 * iAS) LabelOptionObj.Name = "オプションタイトル" LabelOptionObj.Width = 6 * iAS LabelOptionObj.Height = 0.7 * iAS LabelOptionObj.Caption = "【オプション設定】" LabelOptionObj.FontSize = 10 LabelOptionObj.FontBold = True LabelOptionObj.ForeColor = RGB(0, 0, 255) 13.行数カウントオプションのラベル Set LabelOptionCountObj = CreateControl(iForm.Name, acLabel, , , , 0.25 * iAS, 7.7 * iAS) LabelOptionCountObj.Name = "行数カウントオプション" LabelOptionCountObj.Width = 6 * iAS LabelOptionCountObj.Height = 0.5 * iAS LabelOptionCountObj.Caption = "・行数カウントオプション" LabelOptionCountObj.FontSize = 10 14.ヘッダー行の有無 Set ChkboxHasHeaderLineObj = CreateControl(iForm.Name, acCheckBox, , , , 0.5 * iAS, 8.2 * iAS) ChkboxHasHeaderLineObj.Name = "チェック_ヘッダー行有無" 15.ヘッダー行の有無のラベル Set LabelHasHeaderLineObj = CreateControl(iForm.Name, acLabel, , , , 1.2 * iAS, 8.2 * iAS) LabelHasHeaderLineObj.Name = "チェック_ヘッダー行有無ラベル" LabelHasHeaderLineObj.Width = 6 * iAS LabelHasHeaderLineObj.Height = 0.5 * iAS LabelHasHeaderLineObj.Caption = "ヘッダー行あり" LabelHasHeaderLineObj.FontSize = 10 16.実行ボタンの設定 Set BtnGetFileInfosObj = CreateControl(iForm.Name, acCommandButton, , , "実行ボタン", 2.5 * iAS, 9.5 * iAS, 2 * iAS) BtnGetFileInfosObj.Caption = "実行" BtnGetFileInfosObj.OnClick = "=GetFileInfos()" BtnGetFileInfosObj.FontSize = 10 BtnGetFileInfosObj.Width = 3 * iAS End Function テーブル作成 引数:なし 戻り値:なし Private Function テーブル作成() Dim ACC_CheckAFObj As ACC_CheckAccessFile Dim dbObj As DAO.Database Dim dbTblDef As DAO.TableDef Dim tableName As String 1.DB・チェッククラスの初期化 Set ACC_CheckAFObj = New ACC_CheckAccessFile Set dbObj = CurrentDb 2.作成するテーブル名の設定 tableName = "FileInfosList" 3.テーブルが既に存在する場合削除 If ACC_CheckAFObj.HasSelectedTable(dbObj, tableName) False Then dbObj.TableDefs.Delete tableName End If 4.新規テーブルの定義を作成 Set dbTblDef = dbObj.CreateTableDef(tableName) 5.定義したテーブルに項目を追加する dbTblDef.Fields.Append dbTblDef.CreateField("FolderPath", dbText) dbTblDef.Fields.Append dbTblDef.CreateField("FileName", dbText) dbTblDef.Fields.Append dbTblDef.CreateField("FileSize", dbLong) dbTblDef.Fields.Append dbTblDef.CreateField("RecordCout", dbLong) dbTblDef.Fields.Append dbTblDef.CreateField("CreateDate", dbDate) dbTblDef.Fields.Append dbTblDef.CreateField("LastUpdateDate", dbDate) dbTblDef.Fields.Append dbTblDef.CreateField("CheckDate", dbDate) 6.新規テーブルの作成 dbObj.TableDefs.Append dbTblDef 7.項目の表示形式の設定 dbTblDef.Fields("CreateDate").Properties.Append dbTblDef.Fields("CreateDate").CreateProperty("Format", dbText, "yyyy/MM/dd hh nn ss") dbTblDef.Fields("LastUpdateDate").Properties.Append dbTblDef.Fields("LastUpdateDate").CreateProperty("Format", dbText, "yyyy/MM/dd hh nn ss") dbTblDef.Fields("CheckDate").Properties.Append dbTblDef.Fields("CheckDate").CreateProperty("Format", dbText, "yyyy/MM/dd hh nn ss") End Function クエリ作成 引数:なし 戻り値:なし Private Function クエリ作成() Dim ACC_CheckAFObj As ACC_CheckAccessFile Dim dbObj As DAO.Database Dim dbQueryDef As DAO.QueryDef Dim tableName As String Dim queryName As String Dim strSQL As String 1.DB・チェッククラスの初期化 Set ACC_CheckAFObj = New ACC_CheckAccessFile Set dbObj = CurrentDb 2.作成するクエリ名の設定 queryName = "ファイル情報リスト_JP" 3.作成クエリの処理先テーブル名を設定 tableName = "FileInfosList" 4.クエリが既に存在する場合削除 If ACC_CheckAFObj.HasSelectedQuery(dbObj, queryName) False Then dbObj.QueryDefs.Delete queryName End If 5.SQL文の作成 strSQL = "SELECT " _ "FolderPath AS フォルダ, " _ "FileName AS ファイル名, " _ "FileSize AS ファイルサイズ, " _ "RecordCout AS 行数, " _ "CreateDate AS 作成日, " _ "LastUpdateDate AS 更新日, " _ "CheckDate AS 確認日 " _ "FROM " tableName ";" 6.新規クエリの定義作成 Set dbQueryDef = dbObj.CreateQueryDef(queryName, strSQL) 7.不要オブジェクトの解放 Set dbQueryDef = Nothing Set dbObj = Nothing End Function Private Function クエリ作成_削除() Dim ACC_CheckAFObj As ACC_CheckAccessFile Dim dbObj As DAO.Database Dim dbQueryDef As DAO.QueryDef Dim tableName As String Dim queryName As String Dim strSQL As String 1.DB・チェッククラスの初期化 Set ACC_CheckAFObj = New ACC_CheckAccessFile Set dbObj = CurrentDb 2.作成するクエリ名の設定 queryName = "ファイル情報リスト_初期化" 3.作成クエリの処理先テーブル名を設定 tableName = "FileInfosList" 4.クエリが既に存在する場合削除 If ACC_CheckAFObj.HasSelectedQuery(dbObj, queryName) False Then dbObj.QueryDefs.Delete queryName End If 5.SQL文の作成 strSQL = "Delete * From " tableName 6.新規クエリの定義作成 Set dbQueryDef = dbObj.CreateQueryDef(queryName, strSQL) 7.不要オブジェクトの解放 Set dbQueryDef = Nothing Set dbObj = Nothing End Function 2013/05/14 修正 2013/05/15 全面改訂 TOOL_テキストファイル情報収集 トップ
https://w.atwiki.jp/mvtool2/pages/15.html
MVTools2とは(概要) まずこのwikiにたどり着いた方で何をするためのツールなのか知らない方はいないと思われますが、MVTools2とは動画のモーション補間を行うAviSynth用のツール,プラグインです。 簡単に説明するとアニメなどの30fpsの動画のフレームを補間し、60fps化して動きを滑らかにしたりすることに使います。 導入方法 導入方法は現在記事作成検討中か編集検討中ですので、今はAviSynth解説サイトや60fps化の手順説明を行っている方のブログなどを参考にしてください。(リンクも検討中です) 公式サイト解説 MVToolsとは(以下引用翻訳) MVTools2はモーションの動きから補間フレームを作成したり動きのベクトルを利用する関数のために動き推定サーバー関数MAnalyse()を持っています。 このプラグインはMPEG2やMPEG4に使用されているようなblock-matching method of motion estimation(ブロックマッチング動き補間とでもいうのでしょうか)を使用しています。まず動きを分析する段階ではフレームを小さなブロックに分割し現在のフレームともうひとつのフレーム(前後のフレーム)で似ているブロックを見つけようとします。もし似ているブロックで座標がシフトしているブロックは「動き(モーションベクトル)」として認識されます。このときブロックの類似性を計るために比較した2つのブロックのすべてのピクセルの絶対差(Sum of Absolute Difference=SAD)の合計を計算しています。このSADはモーション推定がどれだけうまくできているかの数値的な値でもあります。 MAnalyse()関数の出力は特殊なフォーマットでモーションベクトルを付加したクリップになります。 次に補間する段階ではプラグインのクライアント関数がモーションベクトルを読み取り、全体的な動きもしくは部分的な動きに対してブロックを補間するのにふさわしい場所に配置します。(完全に)動きを補間したすべてのオブジェクト(ブロック)は現在のフレームにおけるこのオブジェクトと同じ場所に置かれます。[1] そう、例えば私たちは出てきた邪魔なノイズやゴースト(完全にオブジェクト同士が重なり合うときに端がとがる現象)を出すことなく、激しい動きに瞬間的に強いノイズ除去を掛けることもできてしまいす。プラグインでは毎フレームごとに隣接した補間フレームを形成することができ、内部関数でノイズ除去できます。また、補間されたフレームとオリジナルのフレームの間に挟むフレームのクリップを作成したり、一時的な外部フィルターによってノイズ除去したり、綺麗なオリジナルのフレームを中央出力に選択することができます。(使用例があります※編集中) もちろん動き推定と補間は正確ではなく理想的なものではありません。複雑なモーション(フェージングや超速的な動きや周期的な構造のもの)においては完全に間違うかもしれませし、補間されたフレームはずんぐりしていたりあるいは醜かったりするでしょう。複雑さはオブジェクトによるので実際に動かしてみないと分かりません。多くの動き補償機能を備えた複雑なAvisynthスクリプトは巨大な量のメモリを食べて、非常に遅い処理に帰着するかもしれません。しかしそれはプラグインを発展させる最たるものです。それを適切なケースにのみ用いパラメーターの調整にトライしてみてください。 「at doom9 Avisynth forum」にてモーション補間についてのいろいろな議論があります。特に「old MVTools thread」「true motion thread」「new MVTools thread」などは見てみるといいでしょう。この記事についての書き込みやりサポート要求はそこで行ってください。もし本当にモーション推定や補間に興味が湧いたのでしたらいろんな科学の出版物がたくさんありますのでぜひネット検索してみてください。 追記:このプラグインは開発途中で現在のバージョンの使用期限は限られてます。YV12,YUY2(色情報のフォーマット)の二つのみが開発が進んでいます。カラーフォーマットを変換してインターレースビデオに「bob-deinterlace」を試してみてください(SeparateFieldsはSelectEven/SelectOddなしに動かせるかもしれません)。いくつかの複雑なスクリプト(MVBOB, MCBOB, TempGaussMC)はdeinterlaceのモーション補間で使えました。さらにmg262のモーションプラグインも試してみてください。 MVTools2とは MVToll2は内部的にも外部的にも主力の更新版です。バージョン2の主な完成要求は明瞭性と安定性(とくにマルチコアCPUでのマルチスレッドにおける)そしてパフォーマンスとメモリ使用量の改善です。達成への足がかりは(多人数によって)ごちゃごちゃになったインデックス、そして内部の不思議な現象(MVToolのインデックスを見ずにスレッドを見る)の内部バッファーを解消することでした。パフォーマンスを分解せずにこれを実行するに私たちはAvisynthのキャッシュを使ったり準備段階(MAnalyse()関数によるモーション推定の前に)を導入したりといったことをしました。この段階では新しい関数MSuper()がソースクリップを習得したり多層(階層スケールの)フレームによる特別な"super"クリップを準備します(以前のバージョン0,1においてもこの階層スケールのデータは用意されており、これらの"superframe"の擬似的なインデックス「idx」として内部にキャッシュ保存されていました)。このsuperなclipはMAnalyse()関数とクライアントモーションを補間する関数両方に用いられます。 この影響で文法が変わったものとしてMAnalyse()関数のパラメータ(pel, sharp)はMSuper()関数に移行されました。 他の外部の変更要素としては命名されていたクリップパラメーターはAvisynthの暗黙の「最後の」クリップの正常な仕事のために名前をつけない(引用の際ダブルクォーテーション無しを義務づける)ようになりました。 また同じくYUY2のためのより早い平面処理をバージョン2.0では施行しました。 バージョン2.2からMVTools.dllはMVTools2.dllに名称変更、2.3からすべての関数がMVxxxからMxxxに変更(MVAnalyzeからMAnalyzeに変更されたため)されたので、古いスクリプトで古いMVtools 1.xを引き続き利用でき、dllファイルの読み込みを変更することなくMVTools2のスクリプトに「/」を使えます。 同じくMVDenoiseやMVFlowFps2といった時代遅れの(使わない)機能を削除する意図もあります。 すべての変更点は「修正」の項目にリストアップしています。 一般的に、新しいMVTools2.0はバージョン1.11.4の出力と同じ結果になります。アルゴリズムの改善要項はバージョン2.1以降に計画されています。 追記:バージョン2は現在α版(β?)です(処理は安定していますがいくつか文法が変わっています)。可能なバグ報告と議題展示(将来的な要求)は歓迎しています。 最終追記:MVTools バージョン1.xは開発中止されこれ以上サポートされません(by Fizick)。 *1完全に意訳なので読解力のあるかた訂正あったらお願いします。 名前 コメント すべてのコメントを見る
https://w.atwiki.jp/mortal-kombat11/pages/52.html
KRYPT コメント 名前
https://w.atwiki.jp/toolstorage/pages/38.html
TOOL_ACCESSデータベース解析_初回準備 ソース ※追加編集あります Option Compare Database Option Explicit Public Sub 初回起動時準備() テーブル作成_テーブル定義 テーブル作成_クエリ一覧 End Sub Private Function テーブル作成_テーブル定義() Dim ACC_CheckAFObj As ACC_CheckAccessFile Dim dbObj As DAO.Database Dim dbTblDef As DAO.TableDef Dim tableName As String DB・チェッククラスの初期化 Set ACC_CheckAFObj = New ACC_CheckAccessFile Set dbObj = CurrentDb 作成するテーブル名 tableName = "TableAndFieldList" 1.テーブルが既に存在する場合削除 If ACC_CheckAFObj.HasSelectedTable(dbObj, tableName) False Then dbObj.TableDefs.Delete tableName End If 2.新規テーブルの定義作成 Set dbTblDef = dbObj.CreateTableDef(tableName) dbTblDef.Fields.Append dbTblDef.CreateField("TableName", dbText) dbTblDef.Fields.Append dbTblDef.CreateField("FieldName", dbText) dbTblDef.Fields.Append dbTblDef.CreateField("FieldType", dbText) dbTblDef.Fields.Append dbTblDef.CreateField("FieldSize", dbInteger) 3.新規テーブルの作成 dbObj.TableDefs.Append dbTblDef End Function Private Function テーブル作成_クエリ一覧() Dim ACC_CheckAFObj As ACC_CheckAccessFile Dim dbObj As DAO.Database Dim dbTblDef As DAO.TableDef Dim tableName As String DB・チェッククラスの初期化 Set ACC_CheckAFObj = New ACC_CheckAccessFile Set dbObj = CurrentDb 作成するテーブル名 tableName = "QueryList" 1.テーブルが既に存在する場合削除 If ACC_CheckAFObj.HasSelectedTable(dbObj, tableName) False Then dbObj.TableDefs.Delete tableName End If 2.新規テーブルの定義作成 Set dbTblDef = dbObj.CreateTableDef(tableName) dbTblDef.Fields.Append dbTblDef.CreateField("QueryName", dbText) dbTblDef.Fields.Append dbTblDef.CreateField("SQL", dbMemo) dbTblDef.Fields.Append dbTblDef.CreateField("QueryType", dbInteger) dbTblDef.Fields.Append dbTblDef.CreateField("QueryTypeText", dbText) 3.新規テーブルの作成 dbObj.TableDefs.Append dbTblDef End Function Private Function テーブル作成_クエリ操作項目() Dim ACC_CheckAFObj As ACC_CheckAccessFile Dim dbObj As DAO.Database Dim dbTblDef As DAO.TableDef Dim tableName As String DB・チェッククラスの初期化 Set ACC_CheckAFObj = New ACC_CheckAccessFile Set dbObj = CurrentDb 作成するテーブル名 tableName = "QueryFieldList" 1.テーブルが既に存在する場合削除 If ACC_CheckAFObj.HasSelectedTable(dbObj, tableName) False Then dbObj.TableDefs.Delete tableName End If 2.新規テーブルの定義作成 Set dbTblDef = dbObj.CreateTableDef(tableName) dbTblDef.Fields.Append dbTblDef.CreateField("QueryName", dbText) dbTblDef.Fields.Append dbTblDef.CreateField("QueryType", dbInteger) dbTblDef.Fields.Append dbTblDef.CreateField("QueryTypeText", dbText) dbTblDef.Fields.Append dbTblDef.CreateField("FieldName", dbText) dbTblDef.Fields.Append dbTblDef.CreateField("SourceTable", dbText) dbTblDef.Fields.Append dbTblDef.CreateField("SourceFieldName", dbText) 3.新規テーブルの作成 dbObj.TableDefs.Append dbTblDef End Function Private Function フォーム作成() Dim mForm As Form Dim AdjustSize As Long AdjustSize = 567 567twip = 1cm 1.フォームの動的生成 Set mForm = CreateForm 2.フォームの設定 フォームの種類 mForm.DefaultView = 0 フォームの縦横のサイズ 単位 twip mForm.Section(0).Height = 12 * AdjustSize mForm.Width = 8 * AdjustSize 標題 mForm.Caption = "MDB解析フォーム" レコードセレクタ mForm.RecordSelectors = False 表示設定 mForm.Visible = True mForm.OnLoad = "=FormFormat()" 3.パーツ付与 Call パーツ設定(mForm, AdjustSize) 4.フォームのサイズを戻す DoCmd.Restore 5.フォームを開く DoCmd.OpenForm mForm.Name, acDesign 6.フォームのウィンドウ位置とサイズを修正 DoCmd.MoveSize 0, 0, 9 * AdjustSize, 12 * AdjustSize 7.フォームを保存 DoCmd.Save , "ファイル情報取得フォーム" 8.フォームを閉じる DoCmd.Close , , acSaveNo End Function Private Function パーツ設定(ByVal iForm As Form, ByVal iAS As Long) Dim LabelTitleObj As Control Dim BtnCreateQueryListObj As Control Dim BtnCreateQueryFieldListObj As Control 1.タイトルラベルの設定 Set LabelTitleObj = CreateControl(iForm.Name, acLabel, , , , 0.25 * iAS, 0.5 * iAS) LabelTitleObj.Name = "フォームタイトル" LabelTitleObj.Width = 6 * iAS LabelTitleObj.Height = 1 * iAS LabelTitleObj.Caption = "指定Accessファイルのテーブル・クエリ情報を取得・リスト化します" LabelTitleObj.FontSize = 10 2.クエリ一覧作成ボタンの設定 Set BtnCreateQueryListObj = CreateControl(iForm.Name, acCommandButton, , , "クエリ一覧作成ボタン", 2 * iAS, 1.5 * iAS, 4 * iAS) BtnCreateQueryListObj.Caption = "クエリ一覧作成" BtnCreateQueryListObj.Height = 1 * iAS BtnCreateQueryListObj.OnClick = "=CreateQueryList()" 3.クエリ元項目ボタンの設定 Set BtnCreateQueryFieldListObj = CreateControl(iForm.Name, acCommandButton, , , "クエリ元項目一覧ボタン", 2 * iAS, 3.5 * iAS, 4 * iAS) BtnCreateQueryFieldListObj.Caption = "クエリ元項目一覧作成" BtnCreateQueryFieldListObj.Height = 1 * iAS BtnCreateQueryFieldListObj.OnClick = "=CreateQueryFieldList()" End Function TOOL_ACCESSデータベース解析 トップ
https://w.atwiki.jp/yamiden_us/pages/365.html
MilethCrypt SSにドクロ落ち画像を使ってみました (^-^ -- vZANv
https://w.atwiki.jp/inuchin/pages/12.html
MODTOOL(XSI6ベース)に関する覚書を列挙します。 レンダラーはOpenGLかDirectXのどちらか(ハードウェアレンダラーのみ) Ultimapperが使える ポリゴンリダクションが使える XSIとのファイルのやり取りが難しい
https://w.atwiki.jp/thecockrockshockpop/pages/2377.html
( pre-JUNKYARD ) drums Pat Muzin bass Todd Muscat MusicFalling - The Best Of Music Falling - The Best Of 2020/3/27 [ Cleopatra ] 1. Resurrection 2. Strapped in 3. Sorority Girls 4. Warlords 5. Falling 6. Raven 7. Suburban Death Camp 8. Breakdown 9. Frontier of Evil / Charred Remains 10. S.D.H.N.C 11. My Bloody Dream 12. American Way 13. Subject to Change 14. Asylum 15. Making the Grade 16. Sonic Reducer 【 S.A. Music 】