タイトル : 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 に移り、無限ループに入ります。 よろしくお願いします。 |