Listboxの時間取得

タグの編集
投稿者 かかやま  (社会人) 投稿日時 2016/9/15 12:01:11
初めまして、ご質問致します。

テキストボックスの文字を、ListBoxで取得し


同時に 取得時間を表示したいのですが


Listbox1にtextboxの文字
Listbox2 にtextboxの文字を取得した時間



Listbox1にまとめて表示

 Listboxにtextbox1の文字は取得できましたが
時間がわかりません


 どうやればいいでしょうか??
 教えてください。
投稿者 shu  (社会人) 投稿日時 2016/9/15 12:22:44
現在の時間は
Date.Now()
で取得出来るので後は表示したい内容に合わせて
フォーマットすればよいです。
投稿者 かかやま  (社会人) 投稿日時 2016/9/15 15:26:50
shu様

ありがとうございます。

 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label1.Text = Date.Now.ToString("HH:mm:ss")

のように時間を表示するだけならわかるんですが


 ListBox1.Items.Insert(0, Textbox1.Text)
で、textをListboxに取得して
そして、取得した時間を表示させたいんですが
同じListboxにか
また別のListboxに 同期?する方法がわかりません。


投稿者 魔界の仮面弁士  (社会人) 投稿日時 2016/9/15 15:56:19
「textboxの文字」と「その取得時間」の 2 つを
表示したいのであれば、ListBox ではなく、
ListView (の Details 指定)を用いた方が良いと思います。
投稿者 かかやま  (社会人) 投稿日時 2016/9/15 18:23:04
 魔界の仮面弁士   様

ListViewを調べて
詳細表示まで、できました

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

   'リストビューのメソッド
        ListView1.Clear()
        ListView1.View = View.Details 'リストビューを詳細表示に設定
        ListView1.Columns.Add("履歴表示", 120)
        ListView1.Columns.Add("時間", 80)

Private Sub TextBox11_TextChanged(sender As Object, e As EventArgs) Handles Textbox11.TextChanged

  ’リストビューにテキスト文字を取得
     ListView1.Items.Insert(0, Textbox11.Text)

  ’リストビューに時間を取得
   ??????

色々試したができません


Data.Now(テキストから同期?)なのか色々試したができません

それかコードの書く場所がわかりません。。。

どうすればいいでしょうか??

投稿者 魔界の仮面弁士  (社会人) 投稿日時 2016/9/15 19:08:48
' 現在時刻は Now で取得できます。 
Dim dt As Date = Now

' ToString メソッド等を使えば、書式指定もできます。 
Dim tm As String = dt.ToString("yyyy/MM/dd HH:mm:ss.fffffff")



ちなみに、日付時刻ではなく、経過時間を扱いたい場合には、
As Date ではなく As TimeSpan を使います。
(今回は使う必要があるかどうかは別として)
投稿者 かかやま  (社会人) 投稿日時 2016/9/15 19:28:50
  魔界の仮面弁士様

一応ListViewには表示できました!!


履歴表示に 文字
時間に    時間

と分け方がわかればできそうです!