Fungsi Personal Editor HTML Ordering List [OL]

Ini merupakan fungsi yang digunakan untuk membuat personal editor. Tag yang akan kita modifikasi adalah tag OL (Ordering List).

Option Explicit 
 
Function OL(strText As String) As String 
    Dim sText As String 
    Dim aText() As String 
    Dim i As Integer 
    sText = strText 
    aText = Split(sText, vbCrLf) 
    For i = LBound(aText) To UBound(aText) 
        Select Case i 
        Case LBound(aText) 
            sText = "<ol>" &   "<li>" & aText(i) & "</li>" & vbCrLf 
        Case UBound(aText) 
            sText = sText & "<li>" & aText(i) & "</li>" & "</ol>" 
        Case Else 
            sText = sText & "<li>" & aText(i) & "</li>" & vbCrLf 
        End Select 
    Next 
    OL = sText 
End Function 

Cara penggunaan Fungsi Personal Editor HTML Ordering List <OL>

Private Sub Command1_Click() 
    Text1.SelText =   OL(Text1.SelText) 
End Sub 

READ MORE - Fungsi Personal Editor HTML Ordering List [OL]

Fungsi Personal Editor HTML Unordering List [UL]

Ini merupakan fungsi yang digunakan untuk membuat personal editor. Tag yang akan kita modifikasi adalah tag UL (Unordering List).

Option Explicit 
 
Function UL(strText As String) As String 
    Dim sText As String 
    Dim aText() As String 
    Dim i As Integer 
    sText = strText 
    aText = Split(sText, vbCrLf) 
    For i = LBound(aText) To UBound(aText) 
        Select Case i 
        Case LBound(aText) 
            sText = "<ul>" &   "<li>" & aText(i) & "</li>" & vbCrLf 
        Case UBound(aText) 
            sText = sText & "<li>" & aText(i) & "</li>" & "</ul>" 
        Case Else 
            sText = sText & "<li>" & aText(i) & "</li>" & vbCrLf 
        End Select 
    Next 
    UL = sText 
End Function 

Cara penggunaan Fungsi Personal Editor HTML Unordering List <UL>

Private Sub Command1_Click() 
    Text1.SelText =   UL(Text1.SelText) 
End Sub 
 

READ MORE - Fungsi Personal Editor HTML Unordering List [UL]

Menghapus Spasi Yang Tidak Diperlukan (Spasi Rangkap)

Option Explicit 
 
Private Function DelJunkSpace(str As String) As String 
    Do While (InStr(str, "  ") > 0) 
        str = Replace(str, "  ", " ") 
    Loop 
    DelJunkSpace = str 
End Function 

Private Sub Form_Load() 
    Dim str As String 
    str = "Asep         Hibban        http://4basic-vb.blogspot.com" 
    'return = "Asep Hibban http://4basic-vb.blogspot.com" 
    Text1.Text = str 
End Sub 

READ MORE - Menghapus Spasi Yang Tidak Diperlukan (Spasi Rangkap)

VB6 Code - Meng-copy Array Secara Cepat

Private Declare Sub CopyMemory Lib "kernel32" _ 
Alias "RtlMoveMemory" (Dest As Any, _ 
Source As Any, ByVal Length As Long) 
 
Private Sub CopyArray() 
    Dim lngbytes As Long 
    Dim lngSrc(1 To 600000) As Long 
    Dim lngDest(1 To 600000) As Long 
    ' 
    ' Number of bytes equals number of array 
    ' elements times the element length. 
    ' 
    lngbytes = (UBound(lngSrc) - LBound(lngSrc) + 1) * Len(lngSrc(1)) 
    ' 
    ' Copy the array passing the address of the start to 
    ' the destination and source arrays and the length 
    ' of the arrays. 
    ' 
    Call CopyMemory(lngDest(LBound(lngDest)), lngSrc(LBound(lngSrc)), lngbytes) 
End Sub 

READ MORE - VB6 Code - Meng-copy Array Secara Cepat