2021-12-01から1ヶ月間の記事一覧
グラフィックでカーソルなどを独自に描画した時に余分な線などが残ってしまった時にパネル全体を単色で塗りつぶします。 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を更新する時のチラツキが気になる Imports System.Reflection Dim RedrawFlags As BindingFlags = BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.SetProperty ListView1.GetType().InvokeMember("DoubleBuffered", RedrawFlags…
ごはん+玉ねぎ+溶き卵 水(大さじ3) めんつゆ(大さじ2) 砂糖(小さじ2)この配分が非常に美味です。
システムの起動時にSHIFTキーが押下された状態の時に特別な処理をする (フォームのLoad/Shownイベント) If (Control.ModifierKeys And Keys.Shift) = Keys.Shift Then ' SHIFTキーが押下されている場合の処理 End If ControlキーもAltキーも同じように判定…