Visual Basic

4-Sep-07 5:27

Are you having fun talking to yourself??

There's a ton of examples on how to do this in VB.NET, but I can't find any VB6 examples to do this anymore.

Why are you using VB6 in the first place? It's not supported by Microsoft anymore. I, myself, haven't used it in over 6 years now...

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Imaginary number

ncjlee4-Sep-07 2:42

ncjlee

4-Sep-07 2:42

any way to program so that visual basic 2005 express can calculate imaginary number
because i am trying to write a program which is to count the root of cubic

for example:
dim a as double
dim b as double
dim c as double
a = sqrt(b+c)

' how if the sum of b and C is not positive.. but i wan it to continue the the calculation

Luc Pattyn4-Sep-07 3:12

Luc Pattyn

4-Sep-07 3:12

You could use a complex number type (class or struct) and teach it the basics.
There are several CP articles on this including this one[^].

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

this weeks tips:
- make Visual display line numbers: Tools/Options/TextEditor/...
- show exceptions with ToString() to see all information
- before you ask a question here, search CodeProject, then Google

ncjlee4-Sep-07 3:26

ncjlee

4-Sep-07 3:26

Thankx

Thomas Stockwell5-Sep-07 8:02

Thomas Stockwell

5-Sep-07 8:02

I did end up creating a program for my calculator that returned a string which contained the imaginary number as well as the correct formula formatting, but I had to hard code the logic behind creating an I (imaginary) and for what reason, etc.

Regards,
Thomas Stockwell

Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.

Visit my homepage Oracle Studios[^]

Semi Transparent Controls

DigiOz Multimedia5-Sep-07 10:11

DigiOz Multimedia

5-Sep-07 10:11

ncjlee wrote:
any way to program so that visual basic 2005 express can calculate imaginary number
because i am trying to write a program which is to count the root of cubic

for example:
dim a as double
dim b as double
dim c as double
a = sqrt(b+c)

You could use the "SCI" library to do this. See bellow:

http://scinet.sourceforge.net/index.php/Home[^]

Pete Soheil
DigiOz Multimedia
http://www.digioz.com

DirectX

plural4-Sep-07 2:26

plural

4-Sep-07 2:26

am using managed directX for a multimedia vb.net player

earlier on ma videos displayed correctly in their picturebox owners but right now they dont anymore, for about two weeks, dont know what to do,

anyway, i use a third party codec to play the avi and mpg videos and i use the directx runtime jun2007..

any help please?

phatkin

Re: DirectX

Christian Graus4-Sep-07 3:38

Christian Graus

4-Sep-07 3:38

What does 'correctly' mean ? What changed on your PC ? Have you tried other videos, such as standard MPG files ? What does the code look like ? What on earth is 'ma', your mother ?

Christian Graus - Microsoft MVP - C++

"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )

errorfunktion4-Sep-07 1:37

4-Sep-07 1:37

Hi,

If you paint on a form using a color with alpha level of less then 255 the form background is partially visible. I was trying to achieve the same effect with controls.

I have a control derived from the control class. I have used this code:

SetStyle(ControlStyles.SupportsTransparentBackColor)
BackColor = Color.Transparent

and the foreground is painted with say: color.fromarg(50,255,0,0)

This works nicely with graphics that I have painted on the form background it is visible through the control. But other controls with a lower Z order should logically be visible through the control as well but they are not.

Any thoughts on how to get it to work?

thanks,

Gary

Dave Kreskowiak4-Sep-07 2:17

4-Sep-07 2:17

errorfunktion wrote:
But other controls with a lower Z order should logically be visible through the control as well but they are not.

That's a good assumption IF transparent was actually "transparent". It's not. When you set the background of a control to Transparent, you're telling it to take on the background settings of it's parent container. It does NOT make the control transparent so you can see other controls behind it!!

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

errorfunktion4-Sep-07 3:21

4-Sep-07 3:21

Hi Dave, thanks for the fast response.
I still don't understand.
If the form has a gray background, on top of it is drawn a green circle.
On top of this is my control. If my control background is gray does that mean that the form in some way paints the green circle on my control?
If what you say is true that would be the only explanation, otherwise
I would not see the circle.

If this is the case can I employ this mechanism somehow to cause other
controls to behave in this manner?

Tom Deketelaere4-Sep-07 3:45

Tom Deketelaere

4-Sep-07 3:45

from what I know of the subject is that when you use a paint (or graphics) to draw a circle onto the background of a form that circle 'becomes a part of the background' (don't really know how else to put it) but when you put a control on the form that control is not a part of the background therefor you can see the circle but not the control

other than taking a printscreen and putting that printscreen cropped on the background of you upper control I wouldn't know how to do it (and I probably would give up the print screen methode since it will be very buggy and maybe even impossible (but I'v never try'd anything like this))

If my help was helpfull let me know, if not let me know why.

The only way we learn is by making mistaks.

errorfunktion4-Sep-07 3:57

4-Sep-07 3:57

This is simply not true. There is one computer screen and hence only
one set of pixels. If the form background is gray and one draws a green circle those pixels become green. The Form Background is still gray. If a control on top of the form obscures the circle and then moved the form paint event repaints the circle. The circle is by no means part of the background.

Also Dave, It's not true that color.transparent simply gives the control the
container background. If I manually give the control the same background as the
form the circle is not visible. Meaning that color.transparent clearly does
something more.

What it does I don't know.

Dave Kreskowiak4-Sep-07 4:29

4-Sep-07 4:29

errorfunktion wrote:
It's not true that color.transparent simply gives the control the
container background.

Wanna bet??

errorfunktion wrote:
If I manually give the control the same background as the
form the circle is not visible.

No kidding. That's exactly what is expected.

If you have a background image on the form, the control with the Transparent background WILL show the background image of the form that contains it. Any controls between the background of the form and the Transparent control will NOT show through. The background of the control will take a snippet of the form's background image and make that snippet the background image of the control.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

errorfunktion4-Sep-07 13:23

4-Sep-07 13:23

Why the sarcasm Dave? After all you agree with me. Smile | :)

Color.Transparent also tells the control to get its background image from
it's container, and hence it does more than simply set it's own background to the same color. Semantics. Never mind.

Meanwhile I've made some progress. I've created a derived button class called MyButton. I also have a regular old button, I've written this code in it's event handler:

Dim img as New Bitmap(TransparentControl.Width,TransparentControl.Height)
Dim GraphicsObject as Graphics=Graphics.FromImage(img)
'I now use a translation transform to account for the diffrence in position
'of the transparent control and the MyButton object:
GraphicsObject.TranslateTransform( _
MyButton1.Location.X-TransparentControl.Location.X, _
MyButton1.Location.Y-TransparentControl.Location.Y)

'I now call the derived Button's OnPaint Event using the Graphics object I
Just created.

MyButton1.OnPaint(New PaintEventArgs( _
GraphicsObject,TransparentControl.DisplayRectangle))

'And Finally I set the Transparent control background image to this image.

TransparentControl.BackgroundImage=img

The derived buttons shape (It's white body) is properly located and visible
on the back of my control. But the buttons text caption is not translated for some reason.
Is the the caption not drawn in the OnPaint Event or something?

Dave Kreskowiak4-Sep-07 15:46

Semi Transparent Controls, Works!

4-Sep-07 15:46

errorfunktion wrote:
Why the sarcasm Dave? After all you agree with me.

That's not how it sounded to me...

errorfunktion wrote:
I've created a derived button class called MyButton. I also have a regular old button, I've written this code in it's event handler:

Which event??

errorfunktion wrote:
Dim img as New Bitmap(TransparentControl.Width,TransparentControl.Height)
Dim GraphicsObject as Graphics=Graphics.FromImage(img)
'I now use a translation transform to account for the diffrence in position
'of the transparent control and the MyButton object:
GraphicsObject.TranslateTransform( _
MyButton1.Location.X-TransparentControl.Location.X, _
MyButton1.Location.Y-TransparentControl.Location.Y)

'I now call the derived Button's OnPaint Event using the Graphics object I
Just created.

MyButton1.OnPaint(New PaintEventArgs( _
GraphicsObject,TransparentControl.DisplayRectangle))

You're going to have to explain this a bit better. Where is this code?? Does your button class derive from Button, or from UserControl??

errorfunktion wrote:
'And Finally I set the Transparent control background image to this image.

TransparentControl.BackgroundImage=img

What TransparentControl? Where did this come from??

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

errorfunktion5-Sep-07 0:28

Re: Semi Transparent Controls, Works!

5-Sep-07 0:28

Well I got it working. Here's a couple of screenshots:

http://rapidshare.com/files/53533392/tccontrol1.bmp.html
http://rapidshare.com/files/53531028/tcontrol2.bmp.html

In the forms paint event I have drawn a circle in the upper left corner.
I have also placed a button in the upper left corner.
The arrow shaped thingy is my control.

All You need is a derived control in my case:

Public Class TransparentControl
Inherits Control
'Set These Options:
Public Sub New()
SetStyle(ControlStyles.SupportsTransparentBackColor, True)
BackColor = Color.Transparent 'It might be necessary to override the base 'backcolor property

'Add some code to the paint event to draw the control and use a color with alpha level less then 255.

'As you can see in the first screen capture the form background is visible, but the control is obscured.
' To make the button also visible through the control you can use the button's draw to bitmap method and set that bitmap as
' the controls background image.
' Right now this code is in the button's paint event handler and it makes things a bit twitchy.
There's probably a better position for it.

Private Sub Button1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Button1.Paint
Dim control_rect As New Rectangle(Me.TransparentControl1.Location, Me.TransparentControl1.Size)

Dim button_rect As New Rectangle(Me.Button1.Location, Me.Button1.Size)
'Checks If the control area's recangle interesects with the button's
If control_rect.IntersectsWith(button_rect) Then
'Find the area of the intersection
control_rect.Intersect(button_rect)
'Offset the area of intersection to account for the different positions
control_rect.Offset(-Me.TransparentControl1.Location.X, -Me.TransparentControl1.Location.Y)
Dim im As New Bitmap(Me.TransparentControl1.Width, Me.TransparentControl1.Height)
Me.Button1.DrawToBitmap(im, control_rect)
Me.TransparentControl1.BackgroundImage = im
End If

End Sub

That's It.

Thanks for the help Dave

Gary

Dave Kreskowiak5-Sep-07 2:09