Sunday, May 27, 2012

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