Tuesday, March 23, 2010

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

VB6 Code Fungsi CSS Compress Opsi Light

Mengenai Fungsi CSS Compress Opsi Light menggunakan VB6 - Artikel di bawah ini kami beri judul fungsi css compress opsi light. 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 ini pada pemrograman Visual Basic 6.0? bisa Anda lihat kodenya di bawah.

Kode fungsi css compress opsi light
Option Explicit

Public Function CSSCompressLight(sText As String) As String
Dim sTextCSS As String
Dim arrCSS() As String
sTextCSS = sText
sTextCSS = Replace(sTextCSS, " ", "")
arrCSS = Split(sTextCSS, vbCrLf)
sTextCSS = ""
For i = LBound(arrCSS) To UBound(arrCSS)
If arrCSS(i) <> "" Then
sTextCSS = sTextCSS & arrCSS(i) & vbCrLf
End If
Next
CSSCompressLight = sTextCSS
End Function
Cara penggunaan fungsi css compress opsi light
Private Sub  Command1_Click()
Text1.Text = CSSCompress(Text1.Text)
End Sub
Posted by Mesin Posting 1.0 Created by http://khoiriyyah.blogspot.com
READ MORE - VB6 Code Fungsi CSS Compress Opsi Light

Monday, March 22, 2010

Data Link Properties Dialog Box Cara Menampilkannya

'simpan kode di bawah pada modul Option Explicit 

Public Function
getADOConnectionString(Optional ByVal cnStringToEdit As String = "", Optional sPrePromptUserMessage As String = "") As String

Dim
sActivity As String
Dim
dl As Object
Dim
cn As Object

On Error GoTo
ErrGetAdoConnectionString
sActivity = "Creating Datalinks object."

Set
dl = CreateObject("DataLinks")

If Not
"" = cnStringToEdit) Then

If Not
"" = sPrePromptUserMessage) Then
MsgBox sPrePromptUserMessage, vbInformation, "Connecting to Database..."
End If
sActivity = "Creating ADODB.Connection object"
Set cn = CreateObject("ADODB.Connection")

cn.ConnectionString = "Provider=SQLOLEDB.1;Initial Catalog=PUBS"

sActivity = "Prompting user to edit connect string"
dl.PromptEdit cn

Else
sActivity = "Prompting user for new connect string"
Set cn = dl.PromptNew()

End If

If
cn Is Nothing Then
getADOConnectionString = ""
Exit Function
End If

getADOConnectionString = cn.ConnectionString

Set
cn = Nothing

Exit Function

ErrGetAdoConnectionString:

Dim
sMsg As String

Set
cn = Nothing

sMsg = "Error While [" + sActivity + "]. Details are below: " + vbCrLf
sMsg = sMsg + "Description:[" + Err.Description + "]." + vbCrLf
sMsg = sMsg + "Source:[" & Err.Source & "]." + vbCrLf
sMsg = sMsg + "Number:[" & Err.Number & "]." + vbCrLf
sMsg = sMsg + "Help File:[" & Err.HelpFile & "]." + vbCrLf
MsgBox sMsg, vbCritical, "Error Connecting to Database."

End Function
Contoh penggunaan fungsi di atas:
'simpan kode di bawah pada form Option Explicit 

Private Sub
Command1_Click()

On Error GoTo
ErrHandler

Dim
strCon As String
strCon = getADOConnectionString()
If strCon = "" Then Exit Sub
'kode selanjutnya disini
Exit Sub

ErrHandler:

MsgBox Err.Number & vbNewLine & Err.Description, vbExclamation + vbOKOnly, "Connection Error"

End Sub
READ MORE - Data Link Properties Dialog Box Cara Menampilkannya

VB6 Code - Input Textbox Hanya Untuk Numeric

Artikel ini diberi judul input textbox hanya untuk numeric, maksudnya ialah sebuah TextBox hanya dapat diisi dengan angka saja. Kodenya kami buat menjadi sebuah fungsi agar lebih mudah dalam penggunaan serta memiliki sifat dapat digunakan kembali (reusable). Adapun kode yang dimaksud:
Option Explicit

Private Sub OnlyNumeric(KeyAscii As Integer)

Select Case KeyAscii
Case 48 To 57 ' numeric
Case 8 ' backspace
Case Else: KeyAscii = 0
End Select

End Sub
Cara penggunaan Fungsi TextBox hanya untuk numerik
Private Sub Text1_KeyPress(KeyAscii As Integer)
OnlyNumeric KeyAscii
End Sub
Posted by Mesin Posting 1.0 Created by http://khoiriyyah.blogspot.com
READ MORE - VB6 Code - Input Textbox Hanya Untuk Numeric

Tag [pre] Yang Powerfull Untuk Menuliskan Kode Di Postingan

Pernahkah Anda menulis kode dengan menggunakan tag <PRE> di blogspot. Jika belum, mungkin ini saatnya. Mengapa tag <PRE>? bukankah lebih baik menggunakan syntax highlighter?

Tag <PRE> dalam kode HTML digunakan khusus untuk menuliskan kode. Dengan menggunakan tag <PRE> maka sebuah postingan akan memelihara indent dari kode tersebut, ini sangatlah penting.

Penggunaan tag <PRE>:
<PRE> code HTML, VB, C++, CSS, dll </PRE>

Contoh kode CSS yang menggunakan tag <pre>:
<b:includable id='feedLinks'>
<b:if cond='data:blog.pageType != &quot;item&quot;'> <!-- Blog feed links -->
<b:if cond='data:feedLinks'>
<div class='blog-feeds'>
<b:include data='feedLinks' name='feedLinksBody'/>
</div>
</b:if>

<b:else/> <!--Post feed links -->
<div class='post-feeds'>
<b:loop values='data:posts' var='post'>
<b:if cond='data:post.allowComments'>
<b:if cond='data:post.feedLinks'>
<b:include data='post.feedLinks' name='feedLinksBody'/>
</b:if>
</b:if>
</b:loop>
</div>
</b:if>
</b:includable>

Bandingkan dengan kode di bawah:

<b:includable id='feedLinks'>
<b:if cond='data:blog.pageType != &quot;item&quot;'> <!-- Blog feed links -->
<b:if cond='data:feedLinks'>
<div class='blog-feeds'>
<b:include data='feedLinks' name='feedLinksBody'/>
</div>
</b:if>

<b:else/> <!--Post feed links -->
<div class='post-feeds'>
<b:loop values='data:posts' var='post'>
<b:if cond='data:post.allowComments'>
<b:if cond='data:post.feedLinks'>
<b:include data='post.feedLinks' name='feedLinksBody'/>
</b:if>
</b:if>
</b:loop>
</div>
</b:if>
</b:includable>

Kode VB6.0 di bawah ini menggunakan tag <PRE>:
'Automatic select listbox when mouse over
Option Explicit

Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function LBItemFromPt Lib "COMCTL32.DLL" (ByVal hLB As Long, ByVal ptX As Long, ByVal ptY As Long, ByVal bAutoScroll As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Private Const LB_SETCURSEL = &H186
Private Const LB_GETCURSEL = &H188

Private Type POINTAPI
X As Long
Y As Long
End Type

Private Sub HightLightListBox(ByVal hwndLB As Long, ByVal X As Single, ByVal Y As Single)

Dim IndexItem As Long
Dim Point As POINTAPI

Point.X = X \ Screen.TwipsPerPixelX
Point.Y = Y \ Screen.TwipsPerPixelY

Call ClientToScreen(hwndLB, Point)

IndexItem = LBItemFromPt(hwndLB, Point.X, Point.Y, False)

If IndexItem <> SendMessage(hwndLB, LB_GETCURSEL, 0, 0) Then
Call SendMessage(hwndLB, LB_SETCURSEL, IndexItem, 0)
End If

End Sub

Private Sub Form_Load()
Dim i As Long
For i = 0 To 100
List1.AddItem 1234567 + i
Next
End Sub

Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
HightLightListBox List1.hwnd, X, Y
End Sub
Bandingkan dengan yang di bawah:

'Automatic select listbox when mouse over
Option Explicit

Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function LBItemFromPt Lib "COMCTL32.DLL" (ByVal hLB As Long, ByVal ptX As Long, ByVal ptY As Long, ByVal bAutoScroll As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Private Const LB_SETCURSEL = &H186
Private Const LB_GETCURSEL = &H188

Private Type POINTAPI
X As Long
Y As Long
End Type

Private Sub HightLightListBox(ByVal hwndLB As Long, ByVal X As Single, ByVal Y As Single)

Dim IndexItem As Long
Dim Point As POINTAPI

Point.X = X \ Screen.TwipsPerPixelX
Point.Y = Y \ Screen.TwipsPerPixelY

Call ClientToScreen(hwndLB, Point)

IndexItem = LBItemFromPt(hwndLB, Point.X, Point.Y, False)

If IndexItem <> SendMessage(hwndLB, LB_GETCURSEL, 0, 0) Then
Call SendMessage(hwndLB, LB_SETCURSEL, IndexItem, 0)
End If

End Sub

Private Sub Form_Load()
Dim i As Long
For i = 0 To 100
List1.AddItem 1234567 + i
Next
End Sub

Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
HightLightListBox List1.hwnd, X, Y
End Sub

Manakah yang menurut Anda lebih baik?
READ MORE - Tag [pre] Yang Powerfull Untuk Menuliskan Kode Di Postingan

VB6 Code - Fungsi Untuk Mengganti Extension Sebuah File

Mengenai fungsi VB6 untuk mengganti extension sebuah file. adapun fungsi VB6 untuk mengganti extention sebuah file adalah sebagai berikut:
Public Function ChangeFileExt(ByVal FileName As String, ByVal Extention As String)
Dim str() As String, NewFile As String
If InStr(1, FileName, ".") Then
str = Split(FileName, ".")
NewFile = Replace(FileName, str(UBound(str)), Extention)
Name FileName As NewFile
Else
Name FileName As FileName & "." & Extention
End If
End Function
Cara penggunaan fungsi untuk mengganti extension sebuah file:
Private Sub Form_Load()
Call ChangeFileExt("C:\bo.ot.tmp", "exe")
End Sub
READ MORE - VB6 Code - Fungsi Untuk Mengganti Extension Sebuah File

Cara Menampilkan Dialog Credits Visual Basic 6.0

Pernahkah Anda melihat dialog credits Visual Basic 6.0? Siapakah sebenarnya orang-orang yang bekerja (tim [termasuk programmernya]) dibalik pembuatan bahasa pemrograman Visual Basic 6.0? pertanyaan dan seterusnya? Jika belum pernah dan penasaran, lakukan hal berikut ini:

Gantilah Sub Menu About Microsoft Visual Basic... dengan Show VB Credits (sub menu tersebut berada pada menu Help).

Cara mengganti Sub Menu About Microsoft Visual Basic:
  1. Klik kanan menu Help selanjutnya klik kiri menu customize
  2. Klik kiri menu Help
  3. Arahkan pointer mouse pada Sub Menu About Microsoft Visual Basic...
  4. Klik kanan Sub Menu About Microsoft Visual Basic...
  5. Gantilah dengan Sub Menu tersebut dengan Show VB Credits
  6. Close Kotak Dialog Customize
  7. Klik sub menu Show VB Credits
Nah, jika prosedurnya benar maka akan muncul kotak dialog credits Visual Basic 6.0 disertai dengan scrolling Text dan Music MIDI.
Posted by Mesin Posting 1.0 Created by http://khoiriyyah.blogspot.com
READ MORE - Cara Menampilkan Dialog Credits Visual Basic 6.0

VB6 Code - Mengkonversi Tag HTML Dalam Postingan

Di bawah ini merupakan fungsi VB6 untuk mengkonversi tag HTML dalam postingan. Seperti yang kita ketahui kode-kode HTML yang diperuntukan untuk postingan tidak bisa langsung kita tulis, akan tetapi harus dikonversi terlebih dahulu, jika tidak maka kode-kode HTML tersebut akan ditampilkan tidak sesuai dengan apa yang diharapkan. Ada banyak cara mengkonversi kode HTML yang diperuntukan untuk postingan, diantaranya:
  1. Mengunjungi situs yang menyediakan untuk keperluan ini.
  2. Mengganti secara manual dengan menggunakan editor (notepad, notepad++, dll) dengan menggunakan Find and Replace.
  3. Membuat fungsi sendiri (ini yang sedang kita bahas).
  4. dan lain-lain.
Fungsi Untuk Mengkonversi tag HTML dalam Postingan
Public Function ConvertTag4Posting(ByVal sText As String)
sText = Replace(sText, "&", "&amp;")
sText = Replace(sText, "<", "&lt;")
sText = Replace(sText, ">", "&gt;")
sText = Replace(sText, Chr(34), "&quot;")
sText = Replace(sText, "±", "&plusmn;")
' sText = Replace(sText, " ", "&nbsp;")
ConvertTag4Posting = sText
End Function

Contoh penggunaan fungsi untuk mengkonversi tag HTML dalam postingan

Private Sub Command1_Click()
Dim sText As String
sText = Text1.Text
sText = ConvertTag4Posting(sText)
Text1.Text = sText
End Sub
Tentu saja fungsi di atas dapat kita modifikasi disesuaikan dengan kebutuhan.
Posted by Mesin Posting 1.0 Created by http://khoiriyyah.blogspot.com
READ MORE - VB6 Code - Mengkonversi Tag HTML Dalam Postingan

VB6 Code - Mengganti Label Volume Sebuah Drive

Di bawah ini merupakan kode VB6 untuk mengganti label volume sebuah drive . Bagaimanakah implementasinya dalam pengkodean:
Option Explicit

Private Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long

Private Function SetLabel(RootName As String, NewLabel As String)
If RootName = "" Then
Exit Function
End If
Call SetVolumeLabel(RootName, NewLabel)
End Function
Contoh menggunakan fungsi mengganti label volume sebuah drive:
Private Sub Command1_Click()
Call SetLabel("D:\", "Drive D")
End Sub
READ MORE - VB6 Code - Mengganti Label Volume Sebuah Drive

VB6 Code - Menampilkan Dialog Open With

Di bawah ini merupakan kode VB6 untuk menampilkan Dialog Open With. Bagaimanakah caranya:
Option Explicit

Private Sub ShowOpenWith(Filename As String)
Dim x As Long
x = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " & Filename)
End Sub
Contoh penggunaan menampilkan dialog open with:
Private Sub Command1_Click()
ShowOpenWith "C:\boot.ini"
End Sub
READ MORE - VB6 Code - Menampilkan Dialog Open With