VB.NET覚書

VB.NETの覚書
[個人メモ] [仕事メモ] [アイデア] [Ruby]
[TIPS] [対応表] [コメント書き方] [.NET Tips] [VB中学校] [VB.NET の入門サイト] [VB.NET コーディング標準 ] [VBレスキュー] [NonSoft]

2013-11-11

日付を文字列に変換

vb6のformat(now,"yyyy/MM/dd hh:mm:ss")相当

http://homepage1.nifty.com/rucio/main/dotnet/Samples/dnSampleDateToString.htm

MsgBox(Now.ToString("yyyy/MM/dd hh:mm:ss"))

例外処理

        Try
            f = FreeFile()

            linedata = New ArrayList

            FileOpen(f, filename, OpenMode.Input)
            Do Until EOF(f)
                s = LineInput(f)
                linedata.Add(s)
            Loop
            FileClose()

            FileOpen(f, filename, OpenMode.Output)

            For I As Integer = 1 To linedata.Count - 1 '1行減らす
                Print(linedata(I - 1))
            Next

            FileClose()

            Return True
        Catch ex As System.Exception
            MsgBox(ex.Message)
            Return False
        End Try

キー入力検出

    Private Sub TxtSerial_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtSerial.KeyPress
        If e.KeyChar = vbCr Then
            MsgBox("Enterが押されました")
        End If
    End Sub

テキストボックスを全選択にする

' TextBox1 がフォーカスを取得したら、テキストを全選択状態にする
Private Sub TextBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter
    Me.TextBox1.SelectAll()
End Sub

textboxのカーソル位置を最後に移動する

http://dobon.net/vb/dotnet/control/tbscrolltolast.html

'カレット位置を末尾に移動
TextBox1.SelectionStart = TextBox1.Text.Length
'テキストボックスにフォーカスを移動
TextBox1.Focus()
'カレット位置までスクロール
TextBox1.ScrollToCaret()

文字列カンマ区切りで分ける(split)

http://jeanne.wankuma.com/tips/vb.net/string/split.html

    ' 必要な変数を宣言する
    Dim stCsvData As String = "5, Jitta, ABC"

    ' カンマ区切りで分割して配列に格納する
    Dim stArrayData As String() = stCsvData.Split(","c)

    ' データを確認する
    For Each stData As String In stArrayData
        MessageBox.Show(stData)
    Next stData

フォームを閉じる(unload)

http://hanatyan.sakura.ne.jp/dotnet/vb6tonet.htm

 	Closed イベント   Me.Close()
トラックバック - http://sub.g.hatena.ne.jp/garyo/20131111