|
-
Aug 1st, 2016, 07:24 AM
#11
Junior Member
Re: CommonControls (Replacement of the MS common controls)
I have played around with the Std-EXE, and I still use your OCX (thank you).
as a user of your OCX, I can say that a lightweight one would not be necessary. It is great the way it is, and you are better of spending your time with the stuff the others have mentioned.
The SStab would also be great, as Elroy says the ms one is a bit (a lot) buggy (I have stopped using it a long time ago). but the idea of not needing a picture box for each tab and the need of moving it around during design time, would be great.
since I see others are using this space for requests I would like to add two of mine:
1) the vb controls have a RightToLeft Property, with your OCX I have to use window API, and on a form with a controls it's a bit messy.
Also the Label Control does not have an hWnd Property.
2) how about a PpropertyList, its not part of the MS Common Controls, but your are BETTER....
this is the code used for RightToLeft
Code:
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const WS_EX_RIGHT = &H1000&
Private Const WS_EX_RTLREADING = &H2000&
Private Const WS_EX_LAYOUTRTL = &H400000
Private Const WS_EX_LEFTSCROLLBAR = &H4000&
Private Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)
Private Const WS_EX_NOINHERITLAYOUT = &H100000
Public Sub SetRTLControl(hwnd As Long)
Dim l As Long
l = GetWindowLong(hwnd, GWL_EXSTYLE)
l = l Or WS_EX_LAYOUTRTL
l = SetWindowLong(hwnd, GWL_EXSTYLE, l)
End Sub
Last edited by ishalom; Aug 1st, 2016 at 07:40 AM.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|