Friday December 17 2010

Almost time for Christmas

Here is a variation I did, starting from a tutorial by Michael Halvorson

Public Class buttonClass
Dim buttonScheme As Button
Dim baseForm As Form

Sub New()
buttonScheme = New Button
With buttonScheme
.Size = New Size(200, 30)
.Enabled = True
.visible = True
.forecolor = Color.Blue
End With
End Sub

Sub buttonUp()
buttonScheme.text = "Go Up"
buttonScheme.Location = New System.Drawing.Point(600, 100)
buttonScheme.Name = "buttonUp"
End Sub

Sub add(ByRef form1 As Form)
baseForm = form1
baseForm.Controls.Add(buttonScheme)
End Sub

End Class

Public Class basicAnimation
Dim picturebox As New PictureBox
Dim buttonUp As buttonClass
Dim buttonDown As Object


Private Sub basicAnimation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


With picturebox
.Image = New System.Drawing.Bitmap("C:\Users\Alfred\Documents\VBPractice\maoMao.jpg")
.Location = New System.Drawing.Point(90, 30)
.Visible = True
.Size = New System.Drawing.Size(300, 300)
.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
End With


buttonUp = New buttonClass
buttonUp.buttonUp()
buttonUp.add(Me)



Me.ClientSize = New System.Drawing.Size(1200, 900)
Me.Controls.Add(picturebox)

End Sub

Private Sub buttonUp_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonUp.click



End Sub

End Class