Text Contrast VB 6.0 [RESOLVED]

[stilekid007]

Hello,

I have a HScroller that I need to attach to the text1 message contrast.

Can anyone help me with this?

Also I have this shell command that I am using like this

Private Sub Command2_Click()
    Shell "notepad.exe", vbNormalFocus

End Sub

How can I get this to open up a .txt file from C:\mytxtfile.txt? (In a notepad.exe window?

Thanks bunches!
Stilekid007

[Mc Brain]

Hello,

I have a HScroller that I need to attach to the text1 message contrast.

Can anyone help me with this?

Also I have this shell command that I am using like this

Private Sub Command2_Click()
    Shell "notepad.exe", vbNormalFocus

End Sub

How can I get this to open up a .txt file from C:\mytxtfile.txt? (In a notepad.exe window?

Thanks bunches!
Stilekid007

I don't understand your contrast question... but the one for notepad:

Shell "notepad.exe ""C:\mytxtfile.txt""", vbNormalFocus

[Hack]

Private Sub Command1_Click()
Shell "notepad.exe c:\myfile.txt", vbNormalFocus
End Sub

[dglienna]

This will work

Shell "notepad.exe c:\myfile.txt", vbNormalFocus

[Mc Brain]

Private Sub Command1_Click()
Shell "notepad.exe c:\myfile.txt", vbNormalFocus
End Sub

This will work

Shell "notepad.exe c:\myfile.txt", vbNormalFocus

Beat ya' both!

I would go with the quoted filename (just in case the filename has any space in it.)

[Hack]

Beat ya' both!

We need an icon that sticks out its tongue at you.

Actually, Mc Brain has a good point about the possible spaces in the file name. It would be wise to go with his suggestion.

[Mc Brain]

Another hint for stilekid007: When I say FileName I refer to the whole path and file's name itself. So, if your file has no spaces, but it's located in C:\Documents and Settings\MyProfile\My Documents\ ... you would need to surround the name with quotes. Otherwise, it won't work.

[Mc Brain]

We need an icon that sticks out its tongue at you.

Actually, Mc Brain has a good point about the possible spaces in the file name. It would be wise to go with his suggestion.

The icon you're looking for is (or at least, that's what its tooltip says)

[stilekid007]

Hello to everyone! And thank you! MrBrain's code worked very well!

So thank you for that!
______________________
Shell "notepad.exe ""C:\mytxtfile.txt""", vbNormalFocus
______________________

Ok, well with the Message contrast.. I got mixed up.. I ment message Transparency! Sorry about that! I need Text1 to have a HScroller to slide to the right to make the message transparancy lighter and to the left to make it more visible..

Is that explained enough? If not just ask!

Thank you again to all of you!

Stilekid007

[dglienna]

You should search for transparency. As long as you're not using Windows 98, you should be set. Here, I found one for you!

http://www.vbforums.com/showthread.p...t=transparency

[stilekid007]

Hello,

Thank you for searching for the transparency forums! However I also searched and nothing came up for my specific problem.

See I have a hscroller1 that slides left and right. When this slider is to the left the transparency would be low and when it is to the right it would be visible..

Is there any way to do this?

Thank you and have a great day!
Stilekid007

[dglienna]

I think I have the same example. I can't get it running, although I'm using XP and this says its for W2K. I used to have something with a slider that controlled opacity, but can't find it again. I even compiled it think that might be it.

[penagate]

When this slider is to the left the transparency would be low and when it is to the right it would be visible..

I used to have something with a slider that controlled opacity

I thought it was only possible to set the alpha level of a form, not controls. I tried doing it to pictureboxes but couldn't get it to work.

[dglienna]

well, the form wasn't transparent, but the slider disappeared entirely, and wouldn't come back. a flag said that it was back, but it wasn't. i saved the project anyways, maybe someone wants it?

[penagate]

Yeah, post it.

Does it change the opacity of the form or the control?

[dglienna]

Not sure what it's supposed to do, as I couldn't get anything working.

Let me know if you do. It recognizes that the OS is sufficient.
Command1 makes the slider disappear, I think Command2 is supposed to bring it back, but it doesn't. Command3 seems to say whether the slider is visible or not, but says true when it isn't visible. Kind of a mess.

Post back if you figure it out. I need a good sample.

[penagate]

Dunno what was wrong with that one. There seemed to be a lot of redundant code.

Anyway, here is a quick example that I just knocked up. Should be sufficient to demonstrate both getting the OS version and setting the window opacity.

[dglienna]

Very cool. That's the way that it's supposed to work. Half the code, also.
I guess I won't mention where I found it. It wasn't here.

Thanks.

[penagate]

I can't seem to get it to work with anything except forms. I'll keep trying though

[stilekid007]

Hello guys! That looks like a very sweet opacity slider... That is what I am looking for except a slider that makes the text in the forms transparent... Don't bother if its too much.. Its not really the most immportant thing in my prog. I just thought I would see if anyone had any ideas... I should probably not even have it in my program but it would be more for entertainment... Its a very nice example though penagate! Thank you! I might add that code exept have it as a command button to completly hide the form (Without a slider) So thanks!

And thank you dglienna for your helpfull posts!

So yea thats what I will do.. Put that code to a command button instead of a slider and it will be perfect!

Thank you to all! and have a great day!
Stilekid007

[Max_aka_NOBODY]

Maybe it would make sense to simulate transparency by changing the text color. If that's the case, use something like this:

Private Sub sldOpacity_Change
 
'Min=0
'Max=255
'This is to be used on a white form.
'Otherwise you'll need to customize the colors.
 
label1.ForeColor=RGB(sldOpacity.Value, sldOpacity.Value, sldOpacity.Value)
 
End Sub

[stilekid007]

Hello,

Max_aka_NOBODY... That is a very simple solution that I think might work! See you could have it set to the same color as the background form if you wanted it to be invisible... Thanks for your suggestions!

Stilekid007