2019-06-01から1ヶ月間の記事一覧

RichTextBoxへの文字列追加はAppendText

例えば改行を追加する場合×の方だとフォント情報消えますよ。知らずにやりがちかと思われます。 '〇 RichTextBox1.AppendText(vbLf) '× RichTextBox1.Text &= vbLf Before 〇を実行 ×を実行

コンボボックスの中身が全部おさまる最適な幅を取得する

結構需要あるんじゃないかと思われる関数です。DropDownWidthにセットしてね。 ''' <summary> ''' 対象のコンボボックスアイテム内で最長の文字列のWidthを取得する ''' </summary> ''' <returns></returns> ''' <remarks></remarks> Friend Function gfGetCboItemMaxWidth(ByVal avCbo As ComboBox, Optional ByVal av…