タイトル | : Re^2: SQLからLabelに |
記事No | : 3050 |
投稿日 | : 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 に移り、無限ループに入ります。
よろしくお願いします。
|