Cara Termudah Untuk Mengisi Seluruh Fonts Ke dalam ListBox

Di bawah ini merupakan fungsi untuk mengisi seluruh fonts yang ada dalam komputer Anda ke dalam objek ListBox

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 untuk mengisi seluruh fonts ke dalam ListBox

Private Sub Form_Load() 
    LoadAllFonts List1 
End Sub 

READ MORE - Cara Termudah Untuk Mengisi Seluruh Fonts Ke dalam ListBox

Fungsi Compressor CSS Opsi Super Compact | Visual Basic 6.0

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 - Fungsi Compressor CSS Opsi Super Compact | Visual Basic 6.0

Fungsi CSS Decompress Untuk Editing | Visual Basic 6.0

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 - Fungsi CSS Decompress Untuk Editing | Visual Basic 6.0

Fungsi Untuk Compressor CSS Opsi Normal | Visual Basic 6.0

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 

READ MORE - Fungsi Untuk Compressor CSS Opsi Normal | Visual Basic 6.0