以下をフォームのコードに追加 ' CreateParams プロパティをオーバーライドする Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams Get Const CS_NOCLOSE As Integer = &H200 Dim DcreateParams As System.Window…

Form1_Load()で復元処理して、FormClosing()で保存処理する以下はレジストリ使った例 Private Sub FormHoge_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim regkey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUse…

アドイン「Table of Contents Plus」を導入して、 「基本設定」→「以下のコンテンツタイプを自動挿入」のpostとpageのチェックを外し、 目次を表示したいページのどこかに [toc]とショートコードを追加する。 ネタ元 tamoc.com

VACUUMコマンドで、整理整頓してくれるwindowsなら DB Browse for SQLite の SQL実行で VACUUM;と打つだけ ネタ元 www.dbonline.jp

こんな感じ CREATE TABLE テーブル名(カラム名1, カラム名2, ... , UNIQUE(カラム名1, カラム名2, ...)); ネタ元 www.dbonline.jp

Chromeで開発者ツールONしてConsoleで入力して試せるコンソール出力は console.log('hoge'); ネタ元 ja.javascript.info

Function RemoveExtension(aFilename As String) As String '--- 拡張子の位置 ---' Dim posExt As Long posExt = InStrRev(aFilename, ".") '--- 拡張子を除いたパス（ファイル名）を格納する変数 ---' Dim strFileExExt As String If (0 < posExt) Then Re…

・必要なものがExcelForSQLite3としてまとまってるのでありがたくダウンロード。 github.com・zipDLして解凍した中にあるDLLをSqliteを利用するxlsmファイルと同じ場所におく。 32bitExcelならsqlite3.dll/SQLite3_StdCall.dllを 64bitExcelならx64フォルダ…

Dim list As New ArrayList list.Add("A") list.Add("B") String.join（",",list.ToArray()); ネタ元 ameblo.jp

サンプルjson { "14": [ { "328": "1301", "332": "名前" }, { "328": "1305", "332": "名前" } ], "173": "", "174": "0", "175": "2", "176": "2021.08.16-20:50:28.087", "177": "2021.08.16-20:50:28.217", "192": "hogeData" } 分解サンプルnugetから"N…

VS 2015より追加されてる 自前で用意しなくても良くなってたらしいdobon.net

UNICODE Private Function UnicodeBytesToString( ByVal bytes() As Byte) As String Return System.Text.Encoding.Unicode.GetString(bytes) End FunctionシフトJIS(SJIS) Private Function SJISBytesToString(ByVal bytes() As Byte) As String System.Tex…

ASCIIとUnicode以外のエンコーディングがサポートされなくなった。 シフトJISのEncodingを取得するには、「Encoding.GetEncoding("Shift_JIS")」を呼び出す前に、次の1行を追加すればOKC# System.Text.Encoding.RegisterProvider(System.Text.CodePagesEncod…