Mengatur Alignment (Perataan) Tulisan (Caption) Di CommandButton VB6

Berikut ini adalah cara mengatur alignment (perataan) tulisan (caption) di commandbutton. Anda dapat mengatur agar tulisan di tombol kelihatan rata kiri, rata kanan, rapat ke atas, atau rapat ke bawah di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form, 1 Module, 4 Commandbutton,
2. Copy-kan coding berikut ke dalam editor form & module yang bertalian.

'--- Coding ini di Module...
          'Konstanta untuk property Alignment
          Public Const A_CENTER = &H300&

          Public Const A_TOP = &H400&
          Public Const A_TOPLEFT = &H500&
          Public Const A_TOPRIGHT = &H600&
          Public Const A_BOTTOM = &H800&
          Public Const A_BOTTOMLEFT = &H900&

          Public Const A_BOTTOMRIGHT = &HA00&
          Public Const A_LEFT = &H100&
          Public Const A_RIGHT = &H200&
          Public Const GWL_STYLE& = (-16)

          Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" _
             (ByVal hwnd As Long, ByVal nIndex As Long)
          Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" _
             (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)

          '--- Akhir coding di Module...

          '--- Coding ini di Form...
          Private Sub Command1_Click()
            Dim tmpValue&

            Dim Align&
            Dim ret&
            'Contoh berikut akan membuat tulisan di Command1 menjadi rapat ke atas
            'ketika Anda mengklik tombol tersebut.

            fAlignment& = A_TOP
            tmpValue& = GetWindowLong&(Command1.hwnd, GWL_STYLE) And Not BS_RIGHT
            ret& = SetWindowLong&(Command1.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)
            Command1.Refresh

          End Sub

          Private Sub Command2_Click()
            Dim tmpValue&
            Dim Align&

            Dim ret&
            'Contoh berikut akan membuat tulisan di Command2 menjadi rapat ke bawah
            'ketika Anda mengklik tombol tersebut.
            fAlignment& = A_BOTTOM

            tmpValue& = GetWindowLong&(Command2.hwnd, GWL_STYLE) And Not BS_RIGHT
            ret& = SetWindowLong&(Command2.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)
            Command2.Refresh
          End Sub


          Private Sub Command3_Click()
            Dim tmpValue&
            Dim Align&
            Dim ret&

            'Contoh berikut akan membuat tulisan di Command3 menjadi rapat ke kiri
            'ketika Anda mengklik tombol tersebut.
            fAlignment& = A_LEFT
            tmpValue& = GetWindowLong&(Command3.hwnd, GWL_STYLE) And Not BS_RIGHT

            ret& = SetWindowLong&(Command3.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)
            Command3.Refresh
          End Sub


          Private Sub Command4_Click()
          Dim tmpValue&
          Dim Align&
          Dim ret&
            'Contoh berikut akan membuat tulisan di Command4 menjadi rapat ke kanan

            'ketika Anda mengklik tombol tersebut.
            fAlignment& = A_RIGHT
            tmpValue& = GetWindowLong&(Command4.hwnd, GWL_STYLE) And Not BS_RIGHT
            ret& = SetWindowLong&(Command4.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)

            Command4.Refresh
          End Sub
          '--- Akhir coding di Form...

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module