For Robin Hammond
Hi Robin,
I picked up you reference to the progress bar class module you have developed and downloaded it for review. More interest than for a specific application. From a educational perspective it shows a lot of the challenges of setting up class modules so I was pleased to discover these. In terms of the actual module, in my version of Excel (10 SP-2) the progress form textbox shows a flashing edit cursor, which remains at the left of the text box, whilst a pale grey vertical line progresses through the box (L to R) as the demo runs. Is this correct? It seems to me that no cursor would be better and a more positive progress bar would be a bar extending inside the textbox from L to R. I'm probably missing something. Cheers Nigel ----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- |
For Robin Hammond
Nigel,
thanks for the feedback. Funnily enough I have been meaning to fix that cursor thing for months now but there has always been something more interesting. Simply set the enabled property for the two controls on the form txtProgFore and txtProgBack to false, and it goes away. You can also tweak the values for top and height of txtProgFore to get a slightly more 3d effect, which is I think what you are suggesting. Top at 79 and height of 17 might look slightly better. Guess I better change the published version. Finally, on my machine the progress bar is light blue, matching the inactive title bar colour setting on windows. You can change the txtProgFore Backcolor setting to change this. Yours, Robin Hammond www.enhanceddatasystems.com "Nigel" wrote in message ... Hi Robin, I picked up you reference to the progress bar class module you have developed and downloaded it for review. More interest than for a specific application. From a educational perspective it shows a lot of the challenges of setting up class modules so I was pleased to discover these. In terms of the actual module, in my version of Excel (10 SP-2) the progress form textbox shows a flashing edit cursor, which remains at the left of the text box, whilst a pale grey vertical line progresses through the box (L to R) as the demo runs. Is this correct? It seems to me that no cursor would be better and a more positive progress bar would be a bar extending inside the textbox from L to R. I'm probably missing something. Cheers Nigel ----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- |
For Robin Hammond
Nigel,
there's a newer version up on the site. I even tweaked it so that the colour of the bar starts off red and gets progressively more blue as you move further across to get away from local machine colour settings (unfortunately for the whole bar, but if anyone can tweak this to be red at the start and blue at the end I'd be intrigued). http://www.enhanceddatasystems.com/E...rogressBar.htm Robin Hammond www.enhanceddatasystems.com "Robin Hammond" wrote in message ... Nigel, thanks for the feedback. Funnily enough I have been meaning to fix that cursor thing for months now but there has always been something more interesting. Simply set the enabled property for the two controls on the form txtProgFore and txtProgBack to false, and it goes away. You can also tweak the values for top and height of txtProgFore to get a slightly more 3d effect, which is I think what you are suggesting. Top at 79 and height of 17 might look slightly better. Guess I better change the published version. Finally, on my machine the progress bar is light blue, matching the inactive title bar colour setting on windows. You can change the txtProgFore Backcolor setting to change this. Yours, Robin Hammond www.enhanceddatasystems.com "Nigel" wrote in message ... Hi Robin, I picked up you reference to the progress bar class module you have developed and downloaded it for review. More interest than for a specific application. From a educational perspective it shows a lot of the challenges of setting up class modules so I was pleased to discover these. In terms of the actual module, in my version of Excel (10 SP-2) the progress form textbox shows a flashing edit cursor, which remains at the left of the text box, whilst a pale grey vertical line progresses through the box (L to R) as the demo runs. Is this correct? It seems to me that no cursor would be better and a more positive progress bar would be a bar extending inside the textbox from L to R. I'm probably missing something. Cheers Nigel ----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- |
For Robin Hammond
Thanks for the note, I'll try it.
As for the Red - Blue challenge I'm sure someone will be tweaking code as we speak! Cheers Nigel "Robin Hammond" wrote in message ... Nigel, there's a newer version up on the site. I even tweaked it so that the colour of the bar starts off red and gets progressively more blue as you move further across to get away from local machine colour settings (unfortunately for the whole bar, but if anyone can tweak this to be red at the start and blue at the end I'd be intrigued). http://www.enhanceddatasystems.com/E...rogressBar.htm Robin Hammond www.enhanceddatasystems.com "Robin Hammond" wrote in message ... Nigel, thanks for the feedback. Funnily enough I have been meaning to fix that cursor thing for months now but there has always been something more interesting. Simply set the enabled property for the two controls on the form txtProgFore and txtProgBack to false, and it goes away. You can also tweak the values for top and height of txtProgFore to get a slightly more 3d effect, which is I think what you are suggesting. Top at 79 and height of 17 might look slightly better. Guess I better change the published version. Finally, on my machine the progress bar is light blue, matching the inactive title bar colour setting on windows. You can change the txtProgFore Backcolor setting to change this. Yours, Robin Hammond www.enhanceddatasystems.com "Nigel" wrote in message ... Hi Robin, I picked up you reference to the progress bar class module you have developed and downloaded it for review. More interest than for a specific application. From a educational perspective it shows a lot of the challenges of setting up class modules so I was pleased to discover these. In terms of the actual module, in my version of Excel (10 SP-2) the progress form textbox shows a flashing edit cursor, which remains at the left of the text box, whilst a pale grey vertical line progresses through the box (L to R) as the demo runs. Is this correct? It seems to me that no cursor would be better and a more positive progress bar would be a bar extending inside the textbox from L to R. I'm probably missing something. Cheers Nigel ----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- ----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- |
For Robin Hammond
Your current approach is to have a static white textbox in the
background and a colored textbox in the foreground which progressively increases in width while retaining its Left value. To get the desired effect, create a bitmap (e.g. a picture using Paint) with the dithered colors you want to use. Put the bitmap into an Image control and use this as your static background. Use a completely white Image control as the foreground. To show progress, decrease the white Image's Width property while increasing its Left value i.e. With frmProgress.txtProgFore .Width = 200 - Int(nWidth * 2) .Left = 12 + Int(nWidth * 2) End With This will look as if the background Image is increasing in width. BTW I generated the dithered colors using a VB6 form: Private Sub Form_Activate() Dither Me End Sub Private Sub Dither(vForm As Form) Dim intLoop As Integer vForm.DrawStyle = vbInsideSolid vForm.DrawMode = vbCopyPen vForm.ScaleMode = vbPixels vForm.DrawWidth = 2 vForm.ScaleHeight = 256 For intLoop = 0 To 255 vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), _ RGB(255 - intLoop, 0, 0 + intLoop), B Next intLoop End Sub -- "Robin Hammond" wrote in message ... Nigel, there's a newer version up on the site. I even tweaked it so that the colour of the bar starts off red and gets progressively more blue as you move further across to get away from local machine colour settings (unfortunately for the whole bar, but if anyone can tweak this to be red at the start and blue at the end I'd be intrigued). http://www.enhanceddatasystems.com/E...rogressBar.htm Robin Hammond www.enhanceddatasystems.com |
For Robin Hammond
Jamie,
Nice one. There's a new version up on my site now with the fancy coloured bar. http://www.enhanceddatasystems.com/E...rogressBar.htm Robin Hammond www.enhanceddatasystems.com "onedaywhen" wrote in message om... Your current approach is to have a static white textbox in the background and a colored textbox in the foreground which progressively increases in width while retaining its Left value. To get the desired effect, create a bitmap (e.g. a picture using Paint) with the dithered colors you want to use. Put the bitmap into an Image control and use this as your static background. Use a completely white Image control as the foreground. To show progress, decrease the white Image's Width property while increasing its Left value i.e. With frmProgress.txtProgFore .Width = 200 - Int(nWidth * 2) .Left = 12 + Int(nWidth * 2) End With This will look as if the background Image is increasing in width. BTW I generated the dithered colors using a VB6 form: Private Sub Form_Activate() Dither Me End Sub Private Sub Dither(vForm As Form) Dim intLoop As Integer vForm.DrawStyle = vbInsideSolid vForm.DrawMode = vbCopyPen vForm.ScaleMode = vbPixels vForm.DrawWidth = 2 vForm.ScaleHeight = 256 For intLoop = 0 To 255 vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), _ RGB(255 - intLoop, 0, 0 + intLoop), B Next intLoop End Sub -- "Robin Hammond" wrote in message ... Nigel, there's a newer version up on the site. I even tweaked it so that the colour of the bar starts off red and gets progressively more blue as you move further across to get away from local machine colour settings (unfortunately for the whole bar, but if anyone can tweak this to be red at the start and blue at the end I'd be intrigued). http://www.enhanceddatasystems.com/E...rogressBar.htm Robin Hammond www.enhanceddatasystems.com |
For Robin Hammond
Its looks good ! - I am glad I asked the question.
Cheers Nigel "Robin Hammond" wrote in message ... Jamie, Nice one. There's a new version up on my site now with the fancy coloured bar. http://www.enhanceddatasystems.com/E...rogressBar.htm Robin Hammond www.enhanceddatasystems.com "onedaywhen" wrote in message om... Your current approach is to have a static white textbox in the background and a colored textbox in the foreground which progressively increases in width while retaining its Left value. To get the desired effect, create a bitmap (e.g. a picture using Paint) with the dithered colors you want to use. Put the bitmap into an Image control and use this as your static background. Use a completely white Image control as the foreground. To show progress, decrease the white Image's Width property while increasing its Left value i.e. With frmProgress.txtProgFore .Width = 200 - Int(nWidth * 2) .Left = 12 + Int(nWidth * 2) End With This will look as if the background Image is increasing in width. BTW I generated the dithered colors using a VB6 form: Private Sub Form_Activate() Dither Me End Sub Private Sub Dither(vForm As Form) Dim intLoop As Integer vForm.DrawStyle = vbInsideSolid vForm.DrawMode = vbCopyPen vForm.ScaleMode = vbPixels vForm.DrawWidth = 2 vForm.ScaleHeight = 256 For intLoop = 0 To 255 vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), _ RGB(255 - intLoop, 0, 0 + intLoop), B Next intLoop End Sub -- "Robin Hammond" wrote in message ... Nigel, there's a newer version up on the site. I even tweaked it so that the colour of the bar starts off red and gets progressively more blue as you move further across to get away from local machine colour settings (unfortunately for the whole bar, but if anyone can tweak this to be red at the start and blue at the end I'd be intrigued). http://www.enhanceddatasystems.com/E...rogressBar.htm Robin Hammond www.enhanceddatasystems.com ----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- |
All times are GMT +1. The time now is 07:43 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com