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.
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
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.
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.
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
Last edited by Mojtaba; Jan 28th, 2025 at 09:25 AM.
Hi. You could just make not visible the first tab and add the form as any other:
Code:
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?
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 :
Last edited by Mojtaba; Mar 1st, 2025 at 05:49 PM.
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.
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?
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.
Last edited by Eduardo-; Mar 8th, 2025 at 06:51 PM.
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.
Hello
I'm using your great component ocx, but in some clients it gets the error "Automation Error". How can i fix it?
Hello, I never experienced that error with this control and it does not use any automation.
Why do you think it is this control that is causing that error? I would guess it is something else that is causing the error, not this control.
In what situation do the users get the error? What code is involved in that moment?
Last edited by Eduardo-; May 30th, 2025 at 02:08 PM.
I have not looked back at earlier posts so forgive me if this has been answered... This control seems to be available as a package in twinBasic - are the changes made in here also made in the twinBasic package version? I ask because I was just about to start using this control in my latest tB project.
I have not looked back at earlier posts so forgive me if this has been answered... This control seems to be available as a package in twinBasic - are the changes made in here also made in the twinBasic package version? I ask because I was just about to start using this control in my latest tB project.
Not for now. It has a version from the beginning of 2025 so it is not too outdated. But for now it is not updated with the VB6 version.
Here I asked Wayne about this subject (you need to have a Discord account to read it):
Now when I fix bugs in the VB6 version, the tB version will be 'set on stone' until some update that I guess won't be frequent?
Wayne's answer:
I'll happily pass the package over to you for any future maintenance once we've got something more stable (and probably quite important to get the property pages support in)
The changes I that made this year won't probably affect most users. They were:
1) Minor visual issues that appeared in some rare configurations: like having more than one row of tabs, with ShowRowsInPerspective set to True (emulation of SSTab) and setting flat themes. They were special situations where I corrected some line position or color. AAnd other things like that.
2) Improvements and also some bug fixes in TDIMode.
3) Added some methods that I needed, like ControlsGetTab (to get the collection of controls that are in a tab).
4) Changed some parameter, from numeric to variant, making available to select the tabs not only by its index by also by its key (keys can be defined for each tab in the Tabs property page or by code).
5) Added some tab orientations like TopRight, BottomRight...
You can see that it is unlikely than in a normal situation something of that will affect you. And you can see if you observe any problem or bug, and report it.
In conclusion: it will be updated in the future, unless someone reports something that needs to be addressed before.
If I open and maximize the form, the status bar ends up being positioned at the top, above newtabctl instead of at the bottom of the form (StatusBar has "Align = vbAlignBottom"). Why?
Last edited by fabel358; Jun 25th, 2025 at 11:46 AM.
In the Form_Resize event I added the following line; no advantage:
Code:
If SB1.Visible Then SB1.Align = vbAlignBottom
SB1 is StatusBar1
That's how Align works in VB6. The last control aligned goes after the previous control aligned to the same position (to bottom, to top, to left, whatever.
Align the Statusbar first, then the NewTab:
Code:
Private Sub Form_Resize()
If SB1.Visible Then SB1.Align = vbAlignBottom
NewTab1.Align = vbAlignNone
NewTab1.Align = vbAlignBottom
End Sub