Di bawah ini merupakan contoh menggunakan Microsoft Multimedia Control yang digunakan untuk menjalankan file .mp3 menggunakan VB6.Option ExplicitPrivate Sub Command1_Click() MMC.FileName = OpenFile Me.Caption = MMC.FileName MMC.Command = "open"...
Sunday, April 4, 2010
VB6 Code - Menghapus Spasi Rangkap
Di bawah ini merupakan fungsi VB6 untuk menghapus/menghilangkan spasi yang tidak diperlukan (spasi rangkap).Option ExplicitPrivate Function DelJunkSpace(str As String) As String Do While (InStr(str, " ") > 0) str = Replace(str, " ", "...
VB6 Code - Menjadikan Input Textbox Kapital
Di bawah ini merupakan kode VB6 untuk menjadikan text yang terdapat pada textbox menjadi kapital. Kode yang ditrigger pada saat penekanan tombol.Option Explicit'This one line code makes the contents of text box in capital. As you keep in typing it. Just...
VB6 Code - Memperoleh Jumlah Baris TextBox
Di bawah ini merupakan fungsi VB6 untuk memperoleh/mengetahui jumlah jajaran dalam sebuah textboxt. Fungsi tersebut menggunakan fungsi API SendMessageLong.Option ExplicitPrivate Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal...
Subscribe to:
Posts
(
Atom
)
