2021-08-01から1ヶ月間の記事一覧

vb.net フォーム右上の閉じるボタンを無効にする

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

C# VB.net フォームの位置とサイズを記憶させる

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…

wordpressで目次を指定ページだけに表示させる

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

sqlite DBファイルを整理&圧縮するには VACUUM

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

sqlite 複数のカラムの組み合わせにUNIQUE制約を設定

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

Chromeでのjavascriptテスト

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

ExcelVBA 拡張子を除く

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

Excel VBAでSqlite操作

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

VB.net Listに格納されている文字列をカンマ区切りで連結

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

vb.netでJSONを分解 Json.NET Newtonsoft.Json

サンプル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…

Visual Studioでアプリケーションの設定を保存する

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

VB.NET Byte配列を文字列に変換する

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…

.NETでシフトJISのEncoding取ろうとしてエラーになるのは Coreだから

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