frmyellow.vb

Online Telephone Directory in Visual Basic

Option Strict Off
Option Explicit On
Friend Class Form11
	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 db As DAO.Database
	Dim rs As DAO.Recordset
	
	Private Sub Command10_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command10.Click
		Me.Close()
		Form1.Show()
	End Sub
	
	'UPGRADE_WARNING: Form event Form11.Activate has a new behavior. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6BA9B8D2-2A32-4B6E-8D36-44949974A5B4"'
	Private Sub Form11_Activated(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Activated
		Dim i As Short
		rs = db.OpenRecordset("Select Distinct(Category) from Yellow")
		rs.MoveFirst()
		For i = 0 To rs.RecordCount - 1
			Label2(i).Text = rs.Fields(0).Value
			Label2.Load(i + 1)
			Label2(i + 1).Visible = True
			Label2(i + 1).Top = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(Label2(i).Top) + VB6.PixelsToTwipsY(Label2(i).Height))
			Label2(i + 1).Left = Label2(i).Left
			rs.MoveNext()
		Next i
		
		Label2(i).Visible = False
		
	End Sub
	
	Private Sub Form11_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		db = DAODBEngine_definst.OpenDatabase(My.Application.Info.DirectoryPath & "\Database\DirDb.mdb")
		
	End Sub
	
	Private Sub Label2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Label2.Click
		Dim Index As Short = Label2.GetIndex(eventSender)
		
		ca = Label2(Index).Text
		Me.Close()
		Form15.Show()
	End Sub
	
	Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
		Dim i As Object
		For i = 0 To Label2.Count - 1
			Label2(i).BackColor = System.Drawing.ColorTranslator.FromOle(RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255))
		Next 
	End Sub
End Class