frmyellow2.vb

来自「Online Telephone Directory in Visual Bas」· VB 代码 · 共 56 行

Option Strict Off
Option Explicit On
Friend Class Form15
	Inherits System.Windows.Forms.Form
	'UPGRADE_WARNING: Arrays in structure rs may need to be initialized before they can be used. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="814DF224-76BD-4BB4-BFFB-EA359CB9FC48"'
	Dim rs As DAO.Recordset
	
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		rs.MoveFirst()
		disp()
	End Sub
	
	Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
		On Error Resume Next
		rs.MoveNext()
		disp()
	End Sub
	
	Private Sub Command3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command3.Click
		On Error Resume Next
		rs.MovePrevious()
		disp()
	End Sub
	
	Private Sub Command4_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command4.Click
		rs.MoveLast()
		disp()
	End Sub
	
	Private Sub Command5_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command5.Click
		Me.Close()
		Form11.Show()
	End Sub
	
	Private Sub Form15_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		Label1.Text = ca
		dbcon()
		rs = db.OpenRecordset("Select * from Yellow where category = '" & ca & "'")
		
		If rs.RecordCount <> 0 Then
			disp()
		End If
	End Sub
	
	Sub disp()
		Label3.Text = rs.Fields(0).Value
		Label5.Text = rs.Fields(2).Value
		Label7.Text = rs.Fields(3).Value
		
	End Sub
	
	Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
		Image4.Image = System.Drawing.Image.FromFile(My.Application.Info.DirectoryPath & "\yellow\p" & Int(Rnd() * 25) & ".jpg")
		
	End Sub
End Class