csvファイルから取得したTextをButtonのTextに反映させた場合の改行コード

Question

VB.NET初心者です。

VB.NETのフォーム上でPowerPointプレゼンテーションを表示するアプリをVisualStudio2015を使い、
Windowsフォームアプリケーションで作っています。

プレゼンテーションの題名を表記したボタンの並んだメニュー画面からボタンを押すとそのタイトルの
プレゼンテーション(.ppsxファイル)が立ち上がり、プレゼンテーションを閲覧できる、というシステム
です。

ボタンは50個作る必要があるので、デザイナーを使わず、実行時に、動的にコントロールを作成して
フォームに配置する方法を取っています。
この時、ButtonのTextはエクセルで作成したcsvファイルから配列で読み込み、各ボタンに割り当てる
ようにしたのですが、長いタイトルを途中改行する方法が分かりません。

・エクセルでCSVファイルを作成時にセル内改行を行って保存→テキストエディタで改行コードを
「LF」「CR」「CRLF」に変換して保存。
・CSVファイル内のテキストにテキストエディタから改行コード 「& Environment.NewLine &」
「& Chr(13) & Chr(10) &」 「\n」等を入れて保存。

以上のやり方を試してみましたがうまくいきませんでした。
良い方法はありませんでしょうか?
よろしくお願いします。

Comments

[Tak1wa]

途中改行は自動で改行したいですか？決められた位置で改行したいですか？

[NobNishihata]

早速レス頂いたのに対応が遅くなり申し訳ありません。自動改行ではなく、任意の位置で改行したいです。
よろしくお願いいたします。

Answer 1

ta-kunさん、前回に引き続きありがとうございました！
ta-kunさんのコードとボタンの縦サイズを若干大きくすることで
たちどころに解決しました。
これからもよろしくお願いします。

Answer 2

[ 方法１ ]
改行コードを、CRLFとしてCSVに記述し、プログラムで置換すればOKです。

csvの例
1,題名CRLF１
2,題名CRLF２
:

strTitleに、題名CRLF１が入力されている場合

strTitle.Replace("CRLF", vbCrLf)

[ 方法２ ]
CSV形式に準拠したデータを正しく作成しておけば、
FileIO.TextFieldParserで、もっと簡単に読み込めます。

csvの例
1,"題名
１"
2,"題名
２"
:
このように、””で囲まれた文字は間に改行があっても、
FileIO.TextFieldParserであれば正しく読み込んでくれます。

以前の質問時の、Test()をベースにしたサンプルです。

    Public Function Test(ByVal fileName As String)
        Dim textLines As New List(Of String())

        Using csvFile As New FileIO.TextFieldParser(fileName, System.Text.Encoding.Default)
            csvFile.TextFieldType = FileIO.FieldType.Delimited
            csvFile.SetDelimiters(",")
            While Not (csvFile.EndOfData)
                Dim cols As String() = csvFile.ReadFields()
                textLines.Add(cols)
            End While
        End Using

        Dim strArr()() As String
        strArr = textLines.ToArray
        Return strArr
    End Function

Comments

[NobNishihata]

前回から引き続きご回答いただき、ありがとうございました。
この方法で解決しました。
ありがとうございました！

Answer 3

こんにちは。

実装を見てみないとなんともですが、
まずは、ButtonはAutoSizeが既定でFalse（サイズどおりになる）なので
内容にあわせてサイズ変更するようにするところからでしょうか。
※CSVから読み込めていることは前提とします。

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Button1.MinimumSize = New Size(100, 100)
    Button1.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowOnly
    Button1.AutoSize = True
    Button1.Text = "あいうえおかきくけこ" + vbCrLf + "さしすせそたちつてと"
End Sub

Comments

[NobNishihata]

Tak1waさん
ご回答いただきありがとうございました。
ButtonのSizeを変更するという部分、大きなヒントを頂きました。
ありがとうございました。
これからもよろしくお願いいたします。