Code Menset Isi Text Box Menjadi Sentence Case

Option Explicit
Dim KP As Boolean
Dim SpaceBar As String
Dim strResult, strTemp As String

Private Sub KeyPress(KeyAscii As Integer)
On Error Resume NextIf Len(Text1) = 1 Then
strResult = Text1
strResult = UCase$(Left$(strResult, 1)) & Mid$(strResult, 2)
Text1 = strResult
Text1.SelStart = Len(strResult) + 1
ElseIf SpaceBar = "Y" Then
strTemp = UCase$(Right$(Text1, 1))
Text1 = strResult & strTemp
Text1.SelStart = Len(strResult) + 1
SpaceBar = ""
End If
strResult = Text1

If KeyAscii = 32 Then
KP = True
ElseIf KP = True Then
SpaceBar = "Y"
KP = False
End If
End Sub

Postingan populer dari blog ini

Membuat Split File Zip Dengan 7-Zip

Gambar
Saya kesulitan apabila hendak mengupload file setup dari Aplikasi yang saya buat untuk saya email atau lain sebagainya. Karena layanan Internet yang saya miliki hanya dari kantor, yang mana user Internet-nya dibatasin untuk menDownload maupun mengUpload file. Selama itupula saya tidak dapat mengupload, membagi maupun mengirimkan file dalam jumlah besar. Namun sekarang sudah ada solusinya yaitu dengan mensplit file setup saya yang relatif besar (diatas 10 Mb). Saya menggunakan 7-Zip sebagai mesin pengkompresnya. Mungkin dengan WinRar juga bisa, namun untuk saat ini saya menggunakan 7-Zip. Langkahnya cukup simpel dan cepat, saya hanya melakukan beberapa klik dan klak saja dan File Zip split tercipta. Untuk melakukannya Pilih/ Sorot/ Seleksi File / Foldernya Klik Kanan/ Klak >> Pilih/ Sorot/ Seleksi 7-Zip Add to archieve Setting/Pilih Lokasi/ Folder untuk menyimpan file-nya Pilih Jenis/ Tipe Split pada Dropdown Split to Volume, bytes: Pilih Ok Apabila ingin dipasword maka masukkan/k
Baca selengkapnya

Load Dan Insert Image ke MySQL BLOB dengan VB6

Sumber Dari http://heng-line.com/?p=66 MySQL memiliki fasilitas penyimpanan berupa objek gambar dengan data type BLOB. Berikut adalah contoh untuk mengakses table pada MySQL pada colom dengan data type BLOB dari Visual Basic 6 menggunakan ADODB dan Stored Procedure. uat database MySQL, Contoh: CREATE DATABASE contoh; Buat Tablenya, Contoh: CREATE TABLE pegawai (id_pegawai INT AUTO_INCREMENT, nama VARCHAR(50), foto MEDIUMBLOB); Buat Procedure, Contoh: DELIMITER$$ CREATE PROCEDURE pegawai_p( pchProc CHAR(1), pinIdPegawai INT, pvcNama VARCHAR(50), pmbFoto MEDIUMBLOB ) BEGIN /*Khusus untuk meload data berdasarkan id_pegawai tertentu*/ IF pchProc = ‘R’ THEN SELECT id_pegawai, nama, foto FROM pegawai WHERE id_pegawai = ‘1’; END IF; /*Khusus untuk melakukan insert data ke table pegawai*/ IF pchProc = ‘N’ THEN INSERT pegawai (nama, foto) SELECT pvcNama, pmbFoto; END IF; END$$ DELIMITER; Berikut adalah yang harus kita buat di Visual Basic 6 ‘Tambahkan variable global pada
Baca selengkapnya

Pembuatan Function PowerBuilder

Gambar
Prakata : Tulisan atau artikel ini dimaksudkan bukan untuk mengajarkan kepada Anda yang membacanya, namun Kami sekedar menulis dengan maksud apabila Kami lupa akan cara pembuatan Function pada PowerBuilder, maka Kami dapat ingat kembali dengan melihat dan membaca tulisan Kami ini. Namun alangkah baiknya apabila bermanfaat bagi Anda-anda yang membacanya, tak sedikitpun terbersit niat bahwa “Kami adalah seorang master dalam bidang pemrograman”, Kami hanya mencoba menuangkan sedikit pengetahuan Kami untuk dibagikan kepada rekan-rekan yang mungkin masih awam terhadap pemrograman PowerBuilder. Definisi Function : ialah prosedur yang dapat memberikan suatu hasil balik ke program yang memanggilnya atau tidak meberikan hasil balik sama sekali. Hasil balik ini biasanya berupa suatu nilai yang dibutuhkan oleh bagian program yang memanggilnya. Apa yang membedakan pemrograman PowerBuilder dengan pemrograman lainnya?, hakikat sebuah pemrograman adalah sama, yang membedakan hanyalah bahasa
Baca selengkapnya