UC知道请VB高手帮忙我是新来的只有20分了
来源：百度知道 编辑：UC知道 时间：2024/06/14 21:10:58
Private Sub Command1_Click()
For i = 0 To Data1.Recordset.Fields.Count
If Text1.Text = Text3.Text And Text2.Text = Text4.Text Then
form2.Show
Unload Form1
Else
Data1.Recordset.MoveNext
End If
Next i
Data1.Refresh
Exit Sub
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Data1.DatabaseName = "数据.mdb"
End Sub
Private Sub Text2_Change()
Command1.SetFocus
End Sub
Private Sub Timer1_Timer()
If Label4.Left + Label4.Width = Form1.Width Then a = 1
If Label4.Left = 0 Then a = 0
If a = 0 Then Label4.Left = Label4.Left + 10
If a = 1 Then Label4.Left = Label4.Left - 10
End Sub
Private Sub Timer2_Timer()
If Timer1.Tag = 1 Then
Label4.ForeColor = RGB(255, 0, 0)
Timer1.Tag = 0
Else
Label4.ForeColor = RGB(0, 0, 255)
Timer1.Tag = 1
End If
End Sub
For i = 0
For i = 0 To Data1.Recordset.Fields.Count
If Text1.Text = Text3.Text And Text2.Text = Text4.Text Then
form2.Show
Unload Form1
Else
Data1.Recordset.MoveNext
End If
Next i
Data1.Refresh
Exit Sub
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Data1.DatabaseName = "数据.mdb"
End Sub
Private Sub Text2_Change()
Command1.SetFocus
End Sub
Private Sub Timer1_Timer()
If Label4.Left + Label4.Width = Form1.Width Then a = 1
If Label4.Left = 0 Then a = 0
If a = 0 Then Label4.Left = Label4.Left + 10
If a = 1 Then Label4.Left = Label4.Left - 10
End Sub
Private Sub Timer2_Timer()
If Timer1.Tag = 1 Then
Label4.ForeColor = RGB(255, 0, 0)
Timer1.Tag = 0
Else
Label4.ForeColor = RGB(0, 0, 255)
Timer1.Tag = 1
End If
End Sub
For i = 0
不好意思我的是日文系统的.
错误424描述为"ｵﾌﾞｼﾞｪｸﾄが必要です"意思大概是"需要工程".
Form2.Show 这里弹出的424,难道你的Form2没有?或者说窗体的名字已经被改掉了.仔细检查下.
什么错误？
你也没说有什么错误啊？
实时错误424是要求对象。
你的光标停留在FORM2.SHOW上
也就是说你的窗体中没有FORM2这个窗体。
你核 对一下窗体中的名字就可以了。
大哥，你也不把问题描述下。
我的VB二级虽然过了，但那是5年前的事，忘了！
VB这种要被淘汰的语言 不知道怎么还有人去学。。
一堆代码，第一个里有两个
END SUB