Jejak kecil

dari link  http://geeks.netindonesia.net/blogs/irwansyah/archive/2009/02/17/tantangan-pemrograman-1.aspx

mau mencoba iseng2.

review: ternyata agak sulit control button dihilangkan key arrownya.. gimana ya?

terpakas pake controlpanel

source ada disini

menu yg geser2

Ternyata.. emang kurang.. jadi bikin iconnya runtime..

mm karena lagi gak ada kerjaan .. coba cari cara dengan matrix

ini coding ada disini, membuat matrix yg isinya object visual sehingga bisa melakuakn assign leftobj dan rightobj

Dim aMatrix(,) As myButton
Dim aButton As myButton
If txtJmlIcon.Text = 0 Or txtCol.Text = 0 Then
MsgBox(“Isian tidak boleh 0″)
Exit Sub
End If

Dim x, y, ajmlobj, ajml, aidx, aidy As Integer
Panel2.Controls.Clear()
ajmlobj = txtJmlIcon.Text
y = txtCol.Text
x = System.Math.Ceiling(ajmlobj / y)
ReDim aMatrix(x, y)
ajml = 0
For aidx = 1 To x
For aidy = 1 To y
ajml += 1
If ajml > ajmlobj Then
Continue For
End If
aButton = New myButton
aMatrix(aidx, aidy) = aButton
AddHandler aButton.GotFocus, AddressOf MyButton1_GotFocus
Next
Next

For aidx = 1 To x

For aidy = 1 To y
If aMatrix(aidx, aidy) Is Nothing Then Continue For
Select Case aidy
Case 1
aMatrix(aidx, aidy).RigthObj = aMatrix(aidx, aidy + 1)
Case y
aMatrix(aidx, aidy).LeftObj = aMatrix(aidx, aidy – 1)
Case Else
aMatrix(aidx, aidy).RigthObj = aMatrix(aidx, aidy + 1)
aMatrix(aidx, aidy).LeftObj = aMatrix(aidx, aidy – 1)
End Select
Select Case aidx
Case 1
aMatrix(aidx, aidy).DownObj = aMatrix(aidx + 1, aidy)
Case x
aMatrix(aidx, aidy).TopObj = aMatrix(aidx – 1, aidy)
Case Else
aMatrix(aidx, aidy).DownObj = aMatrix(aidx + 1, aidy)
aMatrix(aidx, aidy).TopObj = aMatrix(aidx – 1, aidy)
End Select

aMatrix(aidx, aidy).Width = 40
aMatrix(aidx, aidy).Height = 40
aMatrix(aidx, aidy).Top = (aidx * 45) – 35
aMatrix(aidx, aidy).Left = (aidy * 45) – 35
aMatrix(aidx, aidy).BackColor = Color.White
aMatrix(aidx, aidy).Text = aidx & ” , ” & aidy
Panel2.Controls.Add(aMatrix(aidx, aidy))
Next
Next

Berikut tampilan yg ada

menu yg geser runtime 9 obj

menu yg geser runtime 10 obj