Check box with Pushlike style in VC

xiaoxiao2021-03-06  67

'Code by 魑 魑 魍魉' Mailto: DemonStudio@hotmail.com

Private Declare Function SetWindowLong Lib "user32" Alias ​​"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function GetWindowLong Lib "user32" Alias ​​"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As long

Private Sub Form_Load () Op.Value = TrueCh.Value = 1SetWindowLong Command1.hwnd, -16, & H50008000SetWindowLong Ch.hwnd, -16, GetWindowLong (Ch.hwnd, -16) & H1000SetWindowLong List1.hwnd, -20, & H105SetWindowLong Text1. HWnd, -20, & h105setwindowlong op.hwnd, -16, getwindowlong (op.hwnd, -16) & h1000setwindowlong op1.hwnd, -16, getwindowlong (op1.hwnd, -16) & H1000END SUB

The effect is as follows:

转载请注明原文地址:https://www.9cbs.com/read-119287.html

New Post(0)