Articles & Source Code

Donation Info

BeGo Resources

Download Products

Sites Info

List Of Category

New Category, Add-Ins/Plugins, Database & Reporting, Snippet Function, Network & Internet, Compilation Code, Security Focus, Tutorial & Articles, Tool & Utilities, Top Category

Search Source

SKIN II VB

NO*IA CDMA SMS SENDER

Simple Image Browser

Smada Lock Folder

Tiny Typing Tutor 0.1a

---

Ubah

The REAL Programming Selalu pake Code saat me-nyetting properties yang sifatnya not READ-ONLY. dengan ini mungkin akan lebih membantu dan membuat anda menjadi lebih PROF-VB.

Code: Select all

Option Explicit

Private Const GWL_STYLE As Long = (-16&)
Private Const GWL_EXSTYLE As Long = (-20&)
Private Const WS_THICKFRAME As Long = &H40000
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000

Private Declare Function GetWindowLong& Lib "user32" _
Alias "GetWindowLongA" (ByVal hWnd&, ByVal nIndex&)
Private Declare Function SetWindowLong& Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd&, ByVal nIndex&, _
ByVal dwNewLong&)

Private Type POINTAPI
x As Long
y As Long
End Type

Private Declare Function GetCursorPos& Lib "user32" _
(lpPoint As POINTAPI)
Private Declare Function SetCursorPos& Lib "user32" _
(ByVal x&, ByVal y&)

Private Declare Function ClientToScreen& Lib "user32" _
(ByVal hWnd&, lpPoint As POINTAPI)

Private Declare Function GetSystemMenu& Lib "user32" _
(ByVal hWnd&, ByVal bRevert&)

Private Sub Command1_Click()
Call SetWindowLong(hWnd, GWL_STYLE, _
GetWindowLong(hWnd, GWL_STYLE) Xor _
(WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX))

Call GetSystemMenu(hWnd, 1&)
Select Case Command1.Caption
Case "Make My Border Fixed"
Command1.Caption = "Make My Border Sizeable"
Case Else
Command1.Caption = "Make My Border Fixed"
End Select

Move Left, Top, Width - 50, Height - 50
Move Left, Top, Width + 50, Height + 50

Dim tagSavePoint As POINTAPI, tagMovePoint As POINTAPI

Call GetCursorPos(tagSavePoint)

With tagMovePoint
.x = (-1)
.y = 10
End With

Call ClientToScreen(hWnd, tagMovePoint)
Call SetCursorPos(tagMovePoint.x, tagMovePoint.y)
Call SetCursorPos(tagSavePoint.x, tagSavePoint.y)

End Sub

Comment: 0 | Read: 2133 | Date: 10/07/2005 | Publisher: Shady - BEGO

Back | To Top

---

Aplikasi Inventory . Remote Desktop Connection . ListBox Directory . TextBox Validation . Auto Resource Extractor 2004 . rand0m Installer . Winamp Lyrics . Power Remover 1.4 . Sistem Informasi Persediaan Obat . Monitoring Perubahan Waktu System . APLIKASI CEK FISIK . Membongkar Password MyOB Accounting . Skin IE Changer . Koneksi Database Ms Acces dengan aman . Membuat Shorcut Tanpa API . Aplikasi Akuntansi Sederhana . DolpherPlayer . Auto Register extention . Skin Form . Mematikan Monitor Dengan Fungsi SendMessage .