猫がプログラムを組む

猫は直ぐに忘れるのでメモを取ります

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

Panelコントロールを単色で塗りつぶす

グラフィックでカーソルなどを独自に描画した時に余分な線などが残ってしまった時にパネル全体を単色で塗りつぶします。 Dim g As Graphics = Panel1.CreateGraphics g.FillRectangle(Brushes.Gray, 0, 0, Panel1.Width, Panel1.Height) これでPanelは綺麗に…

ファイル名に使用できない文字の置き換え

ファイル名に使用できない文字を置き換えるメソッド Imports System.IO Public Function ReplaceInvalidChar(ByVal _str As String, Optional ByVal chrReplace As Char = "_"c) As String Dim invalidChars() As Char = Path.GetInvalidFileNameChars() For…

ListView 更新のチラツキを抑制する

ListViewを更新する時のチラツキが気になる Imports System.Reflection Dim RedrawFlags As BindingFlags = BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.SetProperty ListView1.GetType().InvokeMember("DoubleBuffered", RedrawFlags…

テレワークのお昼に玉子丼を作ります

ごはん+玉ねぎ+溶き卵 水(大さじ3) めんつゆ(大さじ2) 砂糖(小さじ2)この配分が非常に美味です。

システムの起動時にSHIFTキーを判定する

システムの起動時にSHIFTキーが押下された状態の時に特別な処理をする (フォームのLoad/Shownイベント) If (Control.ModifierKeys And Keys.Shift) = Keys.Shift Then ' SHIFTキーが押下されている場合の処理 End If ControlキーもAltキーも同じように判定…