Option Compare Database
Public Function Doreka(kazu As Integer) As Integer
Doreka = kazu * 3.305785
End Function
をイミディエイトのところで
実行すると
継続 終了 のみしか出てきません
どうやったら、デバックを出すことができますか?
コンボボックス内に日付を「08/06/12(木)」のような形式で表示させたいのですが、うまく行きません。
Dim cnt As Integer
For cnt = 0 To 20
Me.CmbDate.Items.Add(Format(DateAdd("d", cnt, Today), "yy/mm/dd(aaa)"))
Next
と書いてみたんですが、「08/00/12(aaa)」・・・という表示になってしまいます。日付表示の仕方をご存知の方、教えていただけないでしょうか?
リストボックスのITEMプロパティで文字列を追加後、コマンドボタン押下時にリストボックスの値を取得したいのですが、リストボックスの値が取得できません
ソースは下記のようになっています
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(ListBox2.SelectedItem)
End Sub
End Class
アドバイスお願いします