Membuat Letak Title Form Rata Tengah VB6 | DASAR PROGRAMER

Membuat Letak Title Form Rata Tengah VB6

Berikut ini adalah cara membuat letak title form rata tengah di visual basic 6, untuk mempraktekannya siapkan :
1. Buat 1 Project baru dengan 1 Form dan 1 Module.
2. Copy-kan coding berikut ke dalam editor form & module yang bertalian.

          'Coding ini di Module...

          Public Sub CenterC(frm As Form)
              Dim SpcF As Integer 'Jumlah spasi yg dapat muat
              Dim clen As Integer 'Panjang tulisan
              Dim oldc As String 'Tulisan yg lama

              Dim i As Integer
              oldc = frm.Caption
              Do While Left(oldc, 1) = Space(1)
                  DoEvents

                  oldc = Right(oldc, Len(oldc) - 1)
              Loop
              Do While Right(oldc, 1) = Space(1)
                  DoEvents
                  oldc = Left(oldc, Len(oldc) - 1)

              Loop
              clen = Len(oldc)
              If InStr(oldc, "!") <> 0 Then
                  If InStr(oldc, " ") <> 0 Then

                      clen = clen * 1.5
                  Else
                      clen = clen * 1.4
                  End If

              Else
                  If InStr(oldc, " ") <> 0 Then
                      clen = clen * 1.4
                   Else
                      clen = clen * 1.3

                  End If
              End If
              'Periksa berapa karakter dapat muat
              SpcF = frm.Width / 61.2244 'Berapa banyak ruang yg
                                         'tersedia di caption tsb
              SpcF = SpcF - clen
              If SpcF > 1 Then
                  DoEvents 'Mempercepat program

                  frm.Caption = Space(Int(SpcF / 2)) + oldc
              Else 'Jika form terlalu kecil untuk spasi
                  frm.Caption = oldc
              End If
          End Sub

          '--- Akhir coding di Module...

          'Coding ini di Form...
          Dim oldsize As Long
            
          Private Sub Form_Resize()
              If Me.Width = oldsize Then 'Jika lebar form berubah
                 Exit Sub 'tidak perlu mengubah letak captionnya.

              Else
                  CenterC Me
                  oldsize = Me.Width
              End If
          End Sub
           
          Private Sub Form_Load()
              CenterC Me
              oldsize = Me.Width

          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
Jika Anda menyukai Artikel di blog ini, Silahkan klik disini untuk berlangganan gratis via email, dengan begitu Anda akan mendapat kiriman artikel setiap ada artikel yang terbit di dasarprogrammer.blogspot.com

0 komentar:

Posting Komentar