홈 › 6_2008-2009 › Make a Sizeable Control
Advertisement
6_2008-2009 Windows API Call/ Explanation #211428

Make a Sizeable Control

D Lee
★★★★★
4.8 · 다운로드 수: 2,341

This code allows you to make a non-sizeable control in VB 6.0, to a sizeable control.

AI

AI 요약: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

소스 코드
original-source 
Public Sub SetControlResize(X As Control, Y As Form)
  Dim style As Long
 
 'get the current style attributes for the control
  style = GetWindowLong(X.hwnd, GWL_STYLE)
 
 'modify the style to show the sizing frame
  style = style Or WS_THICKFRAME
 
 'set the control to the chosen style
 If style Then
  Call SetWindowLong(X.hwnd, GWL_STYLE, style)
  Call SetWindowPos(X.hwnd, Y.hwnd, 0, 0, 0, 0, SWP_FLAGS)
 End If
End Sub
원본 댓글 (3)
Wayback Machine에서 복구됨