NewTab: tab control for VB6

[Eduardo-]

OK, please Mojtaba test now in Windows 7, it defaults the X to Marlett font now.

[Mojtaba]

Hello. I checked in an old machine that I have with XP and the MS Mincho font is not installed.

That image that you posted is from Windows 7 or from Windows 10?

Because it is not only if the font is installed, but also if it supports that character. You are using Unicode 2715 that is very high. In older Windows versions, the font may exists but not including the upper characters.

I said based on Microsoft
Products that supply this font
https://learn.microsoft.com/en-us/ty...list/ms-mincho

[Mojtaba]

OK, please Mojtaba test now in Windows 7, it defaults the X to Marlett font now.

successful

[xiaoyao]

Eduardo, I found a solution to the problem
as I said, this problem in Windows 7 is due to the lack of the Segoe MDL2 Assets font.
Well, use another font called MS Mincho. It is installed by default on all systems from XP to 11.
I put the character font X in the picture

Attachment 194022

This is the source code I wrote. Do you have the source code for the font icon selection above? If possible, just merge them together. Find out all the fonts and graphic parts that come with WINDOWS and create a new character mapping table or array.
I want to use some icons that come with the operating system to complete the UI design of simple buttons, tab controls, and toolbars in a minimalist style. If the font can be converted to WMF, EMF vector graphics format allows for direct drawing on any computer, as some systems may lack certain fonts. Of course, the most beautiful ones ultimately belong to SVG color and transparent images, which I am currently researching.

https://www.vbforums.com/showthread....-graphic-fonts

[taishan]

Hi Eduardo
Is there a way to attach a form to the Default (index 0) Tab in TDI Mode?
thanks!

[Eduardo-]

Hi Eduardo
Is there a way to attach a form to the Default (index 0) Tab in TDI Mode?
thanks!

Hi. You could just make not visible the first tab and add the form as any other:

Private Sub Form_Load()
    Form2.Show
    NewTab1.TabVisible(0) = False
End Sub

[Eduardo-]

Updated again, fixed a bug.

In TDI forms: there are two ways of making a tab/form not closable:
1 - Set the ControlBox property of the Form to False.
2 - Set the ShowTabCloseButton parameter in the TDIBeforeNewTab event to False.

The recent fix was for the second option.

[Mojtaba]

This is the source code I wrote. Do you have the source code for the font icon selection above? If possible, just merge them together. Find out all the fonts and graphic parts that come with WINDOWS and create a new character mapping table or array.
I want to use some icons that come with the operating system to complete the UI design of simple buttons, tab controls, and toolbars in a minimalist style. If the font can be converted to WMF, EMF vector graphics format allows for direct drawing on any computer, as some systems may lack certain fonts. Of course, the most beautiful ones ultimately belong to SVG color and transparent images, which I am currently researching.

Of course, I don't think this is related to newtab
It is better to discuss this in your own post
I will answer in your post

[xiaoyao]

Of course, I don't think this is related to newtab
It is better to discuss this in your own post
I will answer in your post

1.5mb, tab control, I hope to use it to achieve vector graphics, which can reduce the size of the occupation.

[taishan]

Hi. You could just make not visible the first tab and add the form as any other:

Private Sub Form_Load()
    Form2.Show
    NewTab1.TabVisible(0) = False
End Sub

Great, that worked perfectly.

Just downloaded the latest version.

The continued improvements in TDI mode are excellent, and I'd venture to say the control is 99% rock solid.

The TDI mode has allowed me to a reduce a monster 170kb main form by moving that (previous) Tab's controls, events, and logic into new separate managable forms --- a great contribution to my sanity, and making the migration to Python that much easier for OSX.

Question: In TDI mode, what is the best way to get/set the (TabData / TabIndex / Other property) so when the user Reorders Tabs, we can update Tab (form) captions for localization at runtime?

Also: What is the best way to set the user preferred tab order at App/Form load?

Thanks!

[Eduardo-]

OK, here is a sample project.

[Mojtaba]

Hello Eduardo
There is a slight problem with exiting the form, when you want to close a form with a user confirmation message
There are two options to exit or stay in the software. If the user confirms that there is no problem to exit, but if he refuses to exit the form
The active tab is replaced, and the content of the form is not displayed
Watch the movie :



I also put the sample project :

[Eduardo-]

Hello Mojtaba, thanks for providing the sample project.
Please test now, the ocx has been updated.

[Mojtaba]

Hello Mojtaba, thanks for providing the sample project.
Please test now, the ocx has been updated.

The relocation of tabs has been fixed. But the form contents still disappear

[Eduardo-]

The relocation of tabs has been fixed. But the form contents still disappear

OK, updated again.

[Mojtaba]

OK, updated again.

Thanks , the problem is solved

[Mojtaba]

I realized that by closing the tabs, we don't completely exit the form and only hide the form
Isn't closing the full form better than hiding it?

[Eduardo-]

I realized that by closing the tabs, we don't completely exit the form and only hide the form
Isn't closing the full form better than hiding it?

Why do you say that? In your example the question to the user "Are you sure you want to exit?" would never appear if the form was not closing.

The form Unload even happens when the form is unloading, not just hiding.

[Mojtaba]

Why do you say that? In your example the question to the user "Are you sure you want to exit?" would never appear if the form was not closing.

The form Unload even happens when the form is unloading, not just hiding.

Sorry, I tested again, the problem was with my code that the complete form could not be closed and empty

[Mojtaba]

Eduardo ,
How can I put the tabs at the bottom right ?
In the Tab orientation

[Eduardo-]

Hello Mojtaba.

Not currently possible. I realize that there are some orientations that are possible but not available now:
TopRight
BottomRight
LeftBottom
RightBottom

The motivation to do that... it usually have been for fun. Not sure when or if I ever will add those tab orientations.

[Mojtaba]

Hello Mojtaba.

Not currently possible. I realize that there are some orientations that are possible but not available now:
TopRight
BottomRight
LeftBottom
RightBottom

The motivation to do that... it usually have been for fun. Not sure when or if I ever will add those tab orientations.

Thanks Eduardo, I'm adding this feature with the help of artificial intelligence.
I don't want to change your source. Would you give me permission for personal use?

[Eduardo-]

Thanks Eduardo, I'm adding this feature with the help of artificial intelligence.
I don't want to change your source. Would you give me permission for personal use?

You can change the source all that you wish, it is open source with MIT license.
If AI bots can do that already... feel free if you want to post the source code here.

[Mojtaba]

You can change the source all that you wish, it is open source with MIT license.
It AI bots can do that already... feel free if you want to post the source code here.

Thank you very much

[Eduardo-]

Hello Mojtaba.

there are some orientations that are possible but not available now:

TopRight
BottomRight
LeftBottom
RightBottom

Update released.
I added these orientations:

    ntTabOrientationTopRight = 6
    ntTabOrientationBottomRight = 7
    ntTabOrientationLeftTop = 8
    ntTabOrientationRightBottom = 9
    ntTabOrientationLeftTopHorizontal = 10
    ntTabOrientationRightBottomHorizontal = 11