VB Code - Mengisi Seluruh Fonts Ke Dalam Listbox

Di bawah ini merupakan fungsi VB6 untuk mengisi seluruh fonts yang ada dalam komputer Anda ke dalam objek ListBox pada dasarnya Anda dapat menggunakan objek selain ListBox seperti ListView, TreeView, dll.

Public Function LoadAllFonts(lst As Control)
    Dim i As Integer
    For i = 1 To 1000
        If Screen.Fonts(i) = "" Then Exit For
        lst.AddItem Screen.Fonts(i)
    Next i
End Function

Contoh penggunaan fungsi VB6 di atas:

Private Sub Form_Load()
    LoadAllFonts List1
End Sub

READ MORE - VB Code - Mengisi Seluruh Fonts Ke Dalam Listbox

VB6 Code - Fungsi CSS Decompress Untuk Editing

Mengenai fungsi VB6 untuk melakukan decompress - Artikel ini berjudul fungsi css decompress untuk editing. Maksud dari css decompress untuk editing ialah sebuah fungsi (procedure) yang digunakan untuk mengembalikan format css yang telah dicompress. Kita tahu bahwa css yang telah dicompress tentu saja akan menyulitkan pada saat kita ingin mengeditnya kembali. Bagaimana fungsi css decompress ini? Fungsi css decompress untuk editing

Option Explicit

Public Function CSSDecompress(sText As String) As String
    Dim sTextCSS As String
    Dim arrCSS() As String
    Dim i As Integer
    sTextCSS = CSSDelSpace(sText)
    sTextCSS = Replace(sTextCSS, "{", "{" & vbCrLf)
    sTextCSS = Replace(sTextCSS, "}", "}" & vbCrLf & vbCrLf)
    sTextCSS = Replace(sTextCSS, ";", ";" & vbCrLf)
    CSSDecompress = sTextCSS
End Function

Private Function CSSDelSpace(sText As String) As String
    Dim sTextCSS As String
    sTextCSS = sText
    sTextCSS = Replace(sTextCSS, " ",  "")
    sTextCSS = Replace(sTextCSS, vbCrLf, "")
    CSSDelSpace = sTextCSS
End Function

Contoh penggunaan fungsi css decompress untuk editing

Private Sub Command2_Click()
    Text1.Text = CSSDecompress(Text1.Text)
End Sub

READ MORE - VB6 Code - Fungsi CSS Decompress Untuk Editing

VB6 Code - Fungsi CSS Compress Opsi Super Compact

Mengenai fungsi VB6 untuk mengcompress CSS super compact - Artikel di bawah ini kami beri judul fungsi css compress opsi super compact. Apa yang dimaksud dengan css compress ini, bisa Anda lihat pada link disamping ini [css compress]. Nah, sekarang Anda faham mengenai apa tujuan, kegunaan dan mengapa kode css dikompres. Bagaimana implementasi kode css compress ini pada pemrograman Visual Basic 6.0? bisa Anda lihat kodenya di bawah.

Kode fungsi css compress opsi super compact

Option Explicit

Function CSSCompressSuperCompact(sText As String) As String
  Dim sTextCSS As String
  Dim arrCSS() As String
  Dim i As Integer
  sTextCSS = sText
  sTextCSS = Replace(sTextCSS, " ", "")
  sTextCSS = Replace(sTextCSS, vbCrLf, "")
  arrCSS = Split(sTextCSS, vbCrLf)
  sTextCSS = ""
  For i = LBound(arrCSS) To UBound(arrCSS)
      If arrCSS(i) <> "" Then
          sTextCSS = sTextCSS & arrCSS(i) & vbCrLf
      End If
  Next
  CSSCompressSuperCompact =  sTextCSS
End Function

Contoh penggunaan css compress opsi super compact

Private Sub Command1_Click()
  Text1.Text = CSSCompressSuperCompact(Text1.Text)
End Sub

READ MORE - VB6 Code - Fungsi CSS Compress Opsi Super Compact

VB6 Code - Fungsi CSS Compress Opsi Normal

Mengenai fungsi VB6 untuk mengcompress CSS secara normal - Artikel di bawah ini kami beri judul fungsi css compress opsi normal. Apa yang dimaksud dengan css compress ini, bisa Anda lihat pada link disamping ini [css compress]. Nah, sekarang Anda faham mengenai apa tujuan, kegunaan dan mengapa kode css dikompres. Bagaimana implementasi kode css compress ini pada pemrograman Visual Basic 6.0? bisa Anda lihat kodenya di bawah.

Kode fungsi css compress opsi normal

Option Explicit

Function CSSCompressNormal(sText As String) As String
  Dim sTextCSS As String
  Dim arrCSS() As String
  Dim i As Integer
  sTextCSS = sText
  sTextCSS = Replace(sTextCSS, " ", "")
  sTextCSS = Replace(sTextCSS, vbCrLf, "")
  sTextCSS = Replace(sTextCSS, "}", "}" & vbCrLf)
  sTextCSS = Replace(sTextCSS, "*/", "*/" & vbCrLf)
  arrCSS = Split(sTextCSS, vbCrLf)
  sTextCSS = ""
  For i = LBound(arrCSS) To UBound(arrCSS)
      If arrCSS(i) <> "" Then
          sTextCSS =  sTextCSS & arrCSS(i) & vbCrLf
      End If
  Next
  CSSCompressNormal = sTextCSS
End Function

Contoh penggunaan css compress opsi normal

Private Sub Command1_Click()
  Text1.Text = CSSCompressNormal(Text1.Text)
End Sub

Posted by Mesin Posting 1.0 Created by http://khoiriyyah.blogspot.com

READ MORE - VB6 Code - Fungsi CSS Compress Opsi Normal