Perbaikan
Sedang Dalam Perbaikan dan Update Document
Categories: Uncategorized
Source Code VB
- Limit Mouse December 8, 2009Option Explicit Private Type RECT left As Integer top As Integer right As Integer bottom As Integer End Type Private Type POINT x As Long y As Long End Type Private Declare Sub ClipCursor Lib “user32″ (lpRect As Any) Private Declare Sub GetClientRe […]programmervb
- Re-Join File November 17, 2009Option Explicit Private Const GENERIC_WRITE = &H40000000 Private Const GENERIC_READ = &H80000000 Private Const FILE_ATTRIBUTE_NORMAL = &H80 Private Const CREATE_ALWAYS = 2 Private Const OPEN_ALWAYS = 4 Private Const INVALID_HANDLE_VALUE = -1 Private Declare Function ReadFile Lib “kernel32″ _ (ByVal hFile As Long, lpBuffer As Any, _ By […]programmervb
- cd tray open November 17, 2009Set oWMP = CreateObject(“WMPlayer.OCX.7″) Set colCDROMs = oWMP.cdromCollection If colCDROMs.Count >= 1 Then For i = 0 To colCDROMs.Count – 1 colCDROMs.Item(i).Eject Next End If ‘ ‘The next code opens only the CD-rw: Set oWMP = CreateObject(“WMPlayer.OCX.7″) Set colCDROMs = oWMP.cdromCollection If colCDROMs.Count […]programmervb
- 3D Text October 20, 2009‘Code Static Sub FormLabelCaptionEmbossed(L1 As Label, L2 As Label, L3 As Label, _ label_text As String, label_effect As Integer, label_forecolor As Long, _ label_depth As Integer) Dim lt As String Dim savesm As Integer Dim f As Form Set f = L1.Parent L1.Visible = False L2.Visible = False L3.Visible = False savesm = f.ScaleMode f.ScaleMode = 3 If label […]programmervb
- Perbaikan October 8, 2009Sedang Dalam Perbaikan dan Update Document Posted in Uncategorizedprogrammervb
Affiliate
SEO Monitor
Comments