NewTab: tab control for VB6

[smileyoufu]

Hello Eduardo!
I've been using the "NewTab" control you developed lately, it's very powerful, thank you for your efforts.
Now there are some questions I would like to ask you how to solve:
1. How to set the "NewTab" control property, in order to imagine the "SSTabEx" control, in the design mode, you can directly draw the required Lable, TextBox, ComboBox and other controls directly into different tabs, so as to facilitate the adjustment of the typography or set the properties of the controls in each tab, (instead of using "Move the controls to another tab" or "Move a control to this tab.") "Method);
2. Can I add the property "Public Property TabKey(ByVal Index As Integer) As String" or "Public Property TabName(ByVal Index As Integer) As String". Tabs that are used to distinguish between different (unique names). "Index" or "TabCaption" cannot completely distinguish unique tabs, and "order" cannot be changed synchronously with the "TabCaption" value after the order is changed. In addition, you can set the value corresponding to "TabKey" or "TabName" in the property page. (Application scenario: When the software title is displayed in multiple Chinese languages, you need to assign different language characters to the "TabCaption attribute" according to the unique value "TabKey" value)
3. If you can't add the "TabName" or "TabKey" attribute. Is it possible to add the "TabTag" and attributes to the "Property Page" so that the "Key" or "Name" value can be manually filled in to the "TabTag" at design time.
4. In "TDI" mode, after the form is loaded, if you reset the value of "Caption" of the form, the form will be "detached" from the tab and will become a non-"TDI" form. (Application scenario: When the software title is displayed in multiple Chinese languages, the form title will be reset)
Please help, thank you very much!



TDIForms test_SetNewCaption.zip

[Mojtaba]

Hello Eduardo!
I've been using the "NewTab" control you developed lately, it's very powerful, thank you for your efforts.

You can use this

Private Sub btnSetNewCaption_Click()
Unload Me
Me.Caption = "New Caption"
Me.Show
End Sub

Surely Eduardo has a better way

[smileyoufu]

You can use this

Private Sub btnSetNewCaption_Click()
Unload Me
Me.Caption = "New Caption"
Me.Show
End Sub

Surely Eduardo has a better way

Hello Mojtaba!
Thank you so much for helping me!

[Eduardo-]

Update released.

2024-04-22 Improved in TDI mode forms when the form's caption is changed.
2024-04-22 Added TDIGetTabByFormHwnd function.