tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: SQLからLabelに
投稿日: 2006/02/04(Sat) 21:01
投稿者しーぽん
[OSのVer]:Windows    [VBのVer]:VB.NET  
返信ありがとうございます。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
        Dim f6 As New Form6
        Dim rows() As DataRow = Me.m_dt.Select("バイク名='" + Me.TextBox1.Text + "'")
        If rows.Length < 1 Then
            Me.Label1.Text = "" '該当するものがない
        Else
            Me.Label1.Text = DirectCast(rows(0)("排気量"), String)
            Me.Hide()
            f6.ShowDialog()
        End If
    End Sub

このあと
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Timer1.Tick
        Me.PictureBox1.Left = Me.PictureBox1.Left - 10
        If Me.PictureBox1.Left < -Me.PictureBox1.Width Then
            Me.PictureBox1.Left = Me.Width
        End If
    End Sub
に移り、無限ループに入ります。

よろしくお願いします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。