Minggu, 14 Agustus 2011

Find Something dengan vb6


Form
Option Explicit
Private
Declare Function GetWindowText Lib “user32″ Alias “GetWindowTextA”
(ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As
Long
Private Sub cmdActivate_Click()    Dim nRet As Long
   Dim Title As String
   nRet =
AppActivatePartial(Trim(txtTitle.Text), _          
Val(frmMethod.Tag), CBool(chkCase.Value))    If nRet Then      
lblResults.Caption =

Tidak ada komentar:

Posting Komentar

Related Posts Plugin for WordPress, Blogger...