Private Sub RichTextBox1_GotFocus() ReDim arrTabStop(0 To Controls.Count - 1) As Boolean For I = 0 To Controls.Count - 1 arrTabStop(I) = Controls(I).TabStop Controls(I).TabStop = False NextEnd SubPrivate Sub RichTextBox1_LostFocus()...
Showing posts with label RichTextBox. Show all posts
Showing posts with label RichTextBox. Show all posts
Sunday, June 17, 2012
Implementasi Pencarian Pada RichTextBox Control
Option ExplicitPrivate Sub Command1_Click() HighlightWords RichTextBox1, "text", vbRedEnd SubPrivate Function HighlightWords(rtb As RichTextBox, sFindString As String, lColor As Long) As Integer Dim lFoundPos As Long Dim lFindLength As Long...
Bagaimana Cara Mem-Print RichTextBox Yang Memiliki Image
Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Const WM_PAINT = &HFPrivate Const WM_PRINT = &H317Private...
Pencarian Secara Recursive Pada RichTextBox
Private Sub Form_Load() RichTextBox1.LoadFile "license.txt"End SubPrivate Sub Command1_Click() Dim strval As String Dim nStrings As Long RichTextBox1.LoadFile "license.txt" strval = " " & InputBox("Enter the string to find.", "Findit",...
Thursday, June 14, 2012
Mengaktifkan Horizontal ScrollBar Pada RichTextBox
Mengenai cara mengaktifkan Horizontal ScrollBar yang terdapat pada objek RichtTextBox VB6 Code - Pada saat kita mengisi text RichTextBox, maka secara otomatis RichTextBox tersebut akan melakukan aksi WordWrap, sekalipun kita telah menyeting properties...
Tuesday, May 29, 2012
Menyembunyikan Caret RichTextBox Menggunakan VB6
Di bawah ini merupakan kode untuk menyembunyikan caret menggunakan cara yang singkat, TIMER! dan satu fungsi API HideCaret.'simpan kode ini pada Form Option Explicit Public Declare Function HideCaret Lib "user32" ByVal hwnd As Long) As Long Private...
Fungsi Format RTF Untuk Pembuatan Kamus Bahasa Inggris
Di bawah ini merupakan contoh format RTF untuk keperluan pembuatan kamus Bahasa Inggris. Fungsi di bawah ini dapat bekerja dengan sangat cepat? mengapa? karena ia tidak memformat tulisan pada objeknya secara langsung akan tetapi, memformat string yang...
Monday, May 28, 2012
Menambah Horizontal ScrollBar Pada RichTextBox
Di bawah ini merupakan kode mengenai cara menambah horizontal scrollbar pada objek richtextbox. Option Explicit Private Sub Form_Load() With RichTextBox1 .Text = "Visual Basic :: Horizontal Scroll Position In A Richtextbox, you must set...
Subscribe to:
Posts
(
Atom
)
