Form dengan Efek OuterBevel & InnerBevel

Membuat form tanpa border dapat dilakukan dengan mengubah properti pada form menjadi None. Form akan nampak datar. Dari form tanpa border ini, kita bisa memodifi kasi agar punya efek OuterBevel atau InnerBevel sehingga form nampak seperti button.

Langkah – langkahnya ;

  1. Buat  ping. formbaru seperti gambar di sam- Pastikan bahwa properti border untuk form adalah None.
  2. Subrutin untuk menambahkan efek Outerbevel dan InnerBevel,menggunakan sebuah subrutin untuk menggambar garis di sisi-sisi form: Sub FormBevelLines(FormFrame As Form, side, wid, color)

Dim X1, Y1, X2, Y2 As Integer

Dim rightX, bottomY

Dim dx1, dx2, dy1, dy2 As Integer

Dim i

rightX = FormFrame.ScaleWidth – 1

bottomY = FormFrame.ScaleHeight – 1

Select Case side

Case 0                    ‘Left side

X1 = 0: dx1 = 1

X2 = 0: dx2 = 1

Y1 = 0: dy1 = 1

Y2 = bottomY + 1: dy2 = -1

Case 1                    ‘Right side

X1 = rightX: dx1 = -1

X2 = X1: dx2 = dx1

Y1 = 0: dy1 = 1

Y2 = bottomY + 1: dy2 = -1

Case 2                    ‘Top side

X1 = 0: dx1 = 1

X2 = rightX: dx2 = -1

Y1 = 0: dy1 = 1

Y2 = 0: dy2 = 1

Case 3                    ‘Bottom side

X1 = 1: dx1 = 1

X2 = rightX + 1: dx2 = -1

Y1 = bottomY: dy1 = -1

Y2 = Y1: dy2 = dy1

End Select

For i = 1 To wid

FormFrame.Line (X1, Y1)-(X2, Y2), color

X1 = X1 + dx1

X2 = X2 + dx2

Y1 = Y1 + dy1

Y2 = Y2 + dy2

Next i

End Sub

  1. Untuk sub OuterBevel dan InnerBevelnya adalah:

Sub FormOuterBevel(FormFrame As Form, BevelWidth As Integer)

FormFrame.ScaleMode = 3 ‘ Pixels

FormBevelLines FormFrame, 0, BevelWidth,         QBColor(15)

‘White

FormBevelLines FormFrame, 1, BevelWidth, QBColor(8)

‘D.Gray

FormBevelLines FormFrame, 2, BevelWidth, QBColor(15)

‘White

FormBevelLines FormFrame, 3, BevelWidth, QBColor(8)

‘D.Gray

End Sub

  1. Event yang perlu dicegat adalah eventForm_Paint():

Private Sub Form_Paint()

FormOuterBevel Form1, 3

End Sub

  1. Selesai lalu jalankan progam

~ oleh wahyututorial pada 8 April 2010.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

 
%d blogger menyukai ini: