frmwel.vb

Online Telephone Directory in Visual Basic

Option Strict Off
Option Explicit On
Friend Class Form1
	Inherits System.Windows.Forms.Form
	Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		WebBrowser1.Navigate(New System.URI(My.Application.Info.DirectoryPath & "\main.html"))
		
	End Sub
	
	Private Sub Form1_MouseMove(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
		Dim Button As Short = eventArgs.Button \ &H100000
		Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys \ &H10000
		Dim X As Single = VB6.PixelsToTwipsX(eventArgs.X)
		Dim Y As Single = VB6.PixelsToTwipsY(eventArgs.Y)
		Dim i As Object
		For i = 0 To 8
			Label2(i).ForeColor = System.Drawing.Color.White
			Label2(i).Font = VB6.FontChangeSize(Label2(i).Font, 12)
		Next 
	End Sub
	
	Private Sub Label10_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Label10.Click
		Form2.Show()
	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)
		If Index = 0 Then Me.Close() : Form5.Show()
		If Index = 1 Then Me.Close() : Form6.Show()
		If Index = 2 Then Me.Close() : Form7.Show()
		If Index = 3 Then Me.Close() : Form11.Show()
		If Index = 4 Then Me.Close() : Form8.Show()
		If Index = 5 Then Me.Close() : Form9.Show()
		If Index = 8 Then Me.Close() : Form12.Show()
		If Index = 6 Then Me.Close() : Form13.Show()
		If Index = 7 Then End
		
		
	End Sub
	
	Private Sub Label2_MouseMove(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseMove
		Dim Button As Short = eventArgs.Button \ &H100000
		Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys \ &H10000
		Dim X As Single = VB6.PixelsToTwipsX(eventArgs.X)
		Dim Y As Single = VB6.PixelsToTwipsY(eventArgs.Y)
		Dim Index As Short = Label2.GetIndex(eventSender)
		Label2(Index).ForeColor = System.Drawing.Color.Red
		Label2(Index).Font = VB6.FontChangeSize(Label2(Index).Font, 14)
		
	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 Shape1.Count - 1
			Shape1(i).BackColor = System.Drawing.ColorTranslator.FromOle(RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255))
		Next 
	End Sub
End Class