グラフィックでカーソルなどを独自に描画した時に余分な線などが残ってしまった時にパネル全体を単色で塗りつぶします。 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…

ごはん＋玉ねぎ＋溶き卵 水（大さじ３） めんつゆ（大さじ２） 砂糖（小さじ２）この配分が非常に美味です。

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

意外に毎回、やり方を忘れるのでメモしておこう。 With ListView1 .Items.Add("アイテム") .Items(.Items.Count-1).SubItems.Add("サブアイテム1") .Items(.Items.Count-1).SubItems.Add("サブアイテム2") .Items(.Items.Count-1).SubItems.Add("サブアイテ…

シリアルライズしてファイルの読み書きするクラス Public Class clsSerialize ''' <summary> ''' シリアライズされたデータの読み込み ''' </summary> ''' <typeparam name="T">クラス</typeparam> ''' <param name="_fp">ファイルパス</param> ''' <param name="_cls">読み込むオブジェクト</param> ''' <remarks></remarks> Public Shared Sub loadSerialize(Of T)(_fp As String, ByR…

不用意に押されたクリックやキーで次の画面に遷移した時に意図しない動作を抑制したい時 Imports System.Runtime.InteropServices Public Class clsKeyBuff <DllImport("user32.dll", SetLastError:=True)> Private Shared Function PeekMessage( ByRef lpMsg As MSG, ByVal hwnd As Int32, ByVal wMsgFilt</dllimport("user32.dll",>…

iniファイルを読み込む為のクラス Imports System.Runtime.InteropServices Imports System.Text Public Class clsIniFile Public Declare Auto Function GetPrivateProfileString Lib "kernel32" _ Alias "GetPrivateProfileString" ( <MarshalAs(UnmanagedType.LPTStr)> ByVal lpApplication</marshalas(unmanagedtype.lptstr)>…