Module Untuk Memperoleh Nama File, Extension, Path - VB6

Karena bingung memberi judul, akhirnya judulnya seperti di atas. Module ini digunakan untuk memperoleh (return/get) nama dari PathName lengkap, apakah yang akan diambil extensionnya saja, filenamenya saja, path tanpa filename. Adapun kodenya sebagai berikut:

Option Explicit 
 
Public Enum eFilename 
    ExtentionOnly = 0 'contoh .exe, .zip, dll 
    FileNameOnly = 1 'update.exe, notify.exe, file.zip 
    PathNameOnly = 2 'c:\program files\anti virus 
    WithOutExtention = 3 'update, notify (tanpa .exe) 
End Enum 
 
Public Function GetName(Filename As String, str As eFilename) As String 
  Dim vArray As Variant, sDelimiter As String, e As String, v() As String 
  If Filename = "" Then Exit Function 
  Select Case str 
        Case ExtentionOnly 
            sDelimiter = "." 
        Case FileNameOnly 
            sDelimiter = "\" 
        Case PathNameOnly 
            vArray = Split(Filename, "\") 
            GetName = Mid(Filename, 1, Len(Filename) - Len(vArray(UBound(vArray))) - 1) 
            Exit Function 
        Case WithOutExtention 
            vArray = Split(Filename, "\") 
            e = vArray(UBound(vArray)) 
            v() = Split(e, ".") 
            GetName = v(0) 
            Exit Function 
  End Select 
  vArray = Split(Filename, sDelimiter) 
  GetName = vArray(UBound(vArray)) 
End Function 

Contoh penggunaan kode di atas:

Private Sub Command1_Click() 
    msgbox GetName ("C:\Program Files\UI\Update.exe",FileNameOnly) 'jika ingin memperoleh filenamenya saja, dll. 
End Sub

READ MORE - Module Untuk Memperoleh Nama File, Extension, Path - VB6

Mematikan (Disable) Check Spelling TextArea

Setelah selesai membahas mengenai cara membuat TextArea sederhana yang hanya melibatkan beberapa attribute/property yakni rows, cols, align, dan name, sekarang kita akan membahas mengenai cara mematikan atau men-disable-kan fasilitas Check Spelling. Apa yang dimaksud dengan Fasilitas Check Spelling pada TextArea itu?

Mengapa pada kondisi tertentu check spelling ini harus kita disable-kan? Perlu diketahui, Check Spelling adalah fasilitas yang membantu kita mengecek ejaan sehingga terhindar dari kesalahan penulisan. Tetapi bagaimana jika bahasa yang sedang kita tulis tidak didukung oleh fasilitas ini (misalnya menggunakan bahasa daerah)? yang terjadi adalah sebagian atau banyak dari tulisan akan digarisbawahi dengan warna merah. Nah, pada kondisi ini terdapat dua pilihan, menggunakan Check Spelling atau tidak. Manakah yang Anda pilih? hmm.. sepertinya Anda memilih untuk mematikan/men-disable fasilitas Check Spelling ini.

Untuk mendisable check spelling ini, kita hanya perlu menambahkan satu property/attribute yaitu spellchek=false. Property spellcheck ini memiliki data type Boolean, jadi kita hanya dapat mengisi dua nilai saja, antara TRUE dan FALSE.

Catatan: Fasilitas Check Spelling ini hanya ada pada browser tertentu.

READ MORE - Mematikan (Disable) Check Spelling TextArea