Saturday, September 4, 2010

VB. Source Code :: Membatasi Gerakan Kursor


-          Source code ini adalah Membatasi gerakan kursor mouse hanya seluas tampilan form. Biasanya Anda sering menemukan seperti ini di warnet yang sudah dilengkapi dengan program/aplikasi billing on-line. Ketika Andadisconnect, maka Anda tidak dapat lagi menggerakkan mouse anda  keluar dari batas program billing tersebut.  Untuk membuat seperti tampilan tersebut, Anda tinggal melengkapi dengan menambahkan fungsi mematikan Ctrl-Alt-Del saja.
-          Langkah-langkah :
1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 2 Commandbutton.
2. Copy-kan kode berikut ke dalam editor Module/Form

//awal kode modul//
Public Type RECT
  left As Integer
  top As Integer
  right As Integer
  bottom As Integer
End Type

Public Type POINT
  x As Long
  y As Long
End Type

Declare Sub ClipCursor Lib "user32" (lpRect As Any)
Declare Sub GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT)
Declare Sub ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINT)
Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long)
//akhir kode module//

//awal kode form//
Private Sub Form_Load()
  Command1.Caption = "Limit Cursor Movement"
  Command2.Caption = "Release Limit"
End Sub

Private Sub Command1_Click()  'Membatasi gerak kursor mouse Anda...
Dim client As RECT
Dim upperleft As POINT
  GetClientRect Me.hWnd, client
  upperleft.x = client.left
  upperleft.y = client.top
  ClientToScreen Me.hWnd, upperleft
  OffsetRect client, upperleft.x, upperleft.y
  ClipCursor client
End Sub

Private Sub Command2_Click() 'Membebaskan gerak kursor kembali...
  ClipCursor ByVal 0&
End Sub

Private Sub Form_Unload(Cancel As Integer)
//akhir kode form//

Friday, September 3, 2010

VB. Source Code :: Melihat Property Files


-   Source Code dibawah ini adalah untuk melihat kotak dialog property suatu file berjenis/ extensi apapun..
-   Langkah-Langkahnya adalah :
1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 1 Commandbutton.
2. Copy-kan coding berikut ke dalam editor Module/Form
//kode ini untuk di module//
 Type SHELLEXECUTEINFO
  cbSize As Long
  fMask As Long
  hwnd As Long
  lpVerb As String
  lpFile As String
  lpParameters As String
  lpDirectory As String
  nShow As Long
  hInstApp As Long
  lpIDList As Long
  lpClass As String
  hkeyClass As Long
  dwHotKey As Long
  hIcon As Long
  hProcess As Long
End Type
 
Public Const SEE_MASK_INVOKEIDLIST = &HC
Public Const SEE_MASK_NOCLOSEPROCESS = &H40
Public Const SEE_MASK_FLAG_NO_UI = &H400
Declare Function ShellExecuteEX Lib "shell32.dll" Alias _
"ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long
     //akhir kode untuk module//
//kode ini untuk di form//
      Public Sub ShowProps(FileName As String, OwnerhWnd As Long)
Dim SEI As SHELLEXECUTEINFO
Dim r As Long
  With SEI
    .cbSize = Len(SEI)
    .fMask = SEE_MASK_NOCLOSEPROCESS Or _
    SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
    .hwnd = OwnerhWnd
    .lpVerb = "properties"
    .lpFile = FileName
    .lpParameters = vbNullChar
    .lpDirectory = vbNullChar
    .nShow = 0
    .hInstApp = 0
    .lpIDList = 0
  End With
  r = ShellExecuteEX(SEI)
End Sub
 
Private Sub Command1_Click()
  'Ganti 'c:\autoexec.bat' dengan nama file yang Anda ingin lihat kotak
  'dialog property-nya...
  Call ShowProps("c:\autoexec.bat", Me.hwnd)
End Sub
//akhir kode untuk form//
luvne.com resepkuekeringku.com desainrumahnya.com yayasanbabysitterku.com

Lalu Lintas

pagerank