XP look on buttons etc

[Aussie Rules]

Hi,

For some reason my App has stopped displaying buttons and other such
controls with the XP style.

They have all reverted back to the standard style button.

I have the buttons.flatsty le set to = system, but they are the same as
standard.

I have the Windows XP Style set in my display properties (properties of the
desktop), and the color scheme set to silver, and all the buttons in other
applications look as they should.

How do I get my buttons back to the XP style.

Thanks

[Herfried K. Wagner [MVP]]

"Aussie Rules" <so*****@somewh ere.com> schrieb:

For some reason my App has stopped displaying buttons and other such
controls with the XP style.

They have all reverted back to the standard style button.

I have the buttons.flatsty le set to = system, but they are the same as
standard.

I have the Windows XP Style set in my display properties (properties of
the desktop), and the color scheme set to silver, and all the buttons in
other applications look as they should.

Enabling Windows XP Visual Styles for Windows Forms applications
<URL:http://dotnet.mvps.org/dotnet/faqs/?id=xpvisualsty les&lang=en>

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Aussie Rules]

Hi,

Thanks for this.

I have created a manifest file as described. I hope i did this correct as
all i did was add a text file, rename it to the projectname.man ifest, and
changed the details within the xml I pasted from the site into the manifest
file

The bit that is confusing is that last bit that makes reference to adding in
the details to the referneces:

"
1.. Add the manifest to your application's resource file as follows:
CREATEPROCESS_M ANIFEST_RESOURC E_ID RT_MANIFEST "YourApp.exe.ma nifest"

"
I have no idea what this means or how to do it. I tried to add a reference
to my project to the manifest file, but it didn't like that very much.

Thanks

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..

"Aussie Rules" <so*****@somewh ere.com> schrieb:

For some reason my App has stopped displaying buttons and other such
controls with the XP style.

They have all reverted back to the standard style button.

I have the buttons.flatsty le set to = system, but they are the same as
standard.

I have the Windows XP Style set in my display properties (properties of
the desktop), and the color scheme set to silver, and all the buttons in
other applications look as they should.

Enabling Windows XP Visual Styles for Windows Forms applications
<URL:http://dotnet.mvps.org/dotnet/faqs/?id=xpvisualsty les&lang=en>

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Herfried K. Wagner [MVP]]

"Aussie Rules" <so*****@somewh ere.com> schrieb:

I have created a manifest file as described. I hope i did this correct as
all i did was add a text file, rename it to the projectname.man ifest, and
changed the details within the xml I pasted from the site into the
manifest file

Am I right that you are using .NET 1.0?

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Aussie Rules]

No,

VS.net 03 with .net 1.1
"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:OD******** ******@TK2MSFTN GP14.phx.gbl...

"Aussie Rules" <so*****@somewh ere.com> schrieb:

I have created a manifest file as described. I hope i did this correct as
all i did was add a text file, rename it to the projectname.man ifest, and
changed the details within the xml I pasted from the site into the
manifest file

Am I right that you are using .NET 1.0?

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Herfried K. Wagner [MVP]]

"Aussie Rules" <so*****@somewh ere.com> schrieb:

VS.net 03 with .net 1.1

Then you don't need the manifest stuff. Instead, add the following code to
a code file:

\\\
Public Module Program
Public Sub Main()
Application.Ena bleVisualStyles ()
Application.DoE vents()
Application.Run (New MainForm())
End Sub
End Module
///

In the project properties, select 'Sub Main' as startup object.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Aussie Rules]

Hi,

Thanks for you help, I added that in, but i still don't have the XP look on
all my buttons on all my forms

Any other tricks to try?

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:%2******** ********@TK2MSF TNGP12.phx.gbl. ..

"Aussie Rules" <so*****@somewh ere.com> schrieb:

VS.net 03 with .net 1.1

Then you don't need the manifest stuff. Instead, add the following code
to a code file:

\\\
Public Module Program
Public Sub Main()
Application.Ena bleVisualStyles ()
Application.DoE vents()
Application.Run (New MainForm())
End Sub
End Module
///

In the project properties, select 'Sub Main' as startup object.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Herfried K. Wagner [MVP]]

"Aussie Rules" <so*****@somewh ere.com> schrieb:

Thanks for you help, I added that in, but i still don't have the XP look
on all my buttons on all my forms

Create a Windows Forms project from scratch, add the code I posted, add a
button to the form and set its 'FlatStyle' to 'System'. Then run the
application. Is it shown with Visual Styles applied?

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Aussie Rules]

and all the button .style is set to system, so it should pick up the style

do i have to do something within each form in my project ?

"Aussie Rules" <so*****@somewh ere.com> wrote in message
news:Oe******** ******@TK2MSFTN GP10.phx.gbl...

Hi,

Thanks for you help, I added that in, but i still don't have the XP look
on all my buttons on all my forms

Any other tricks to try?

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:%2******** ********@TK2MSF TNGP12.phx.gbl. ..

"Aussie Rules" <so*****@somewh ere.com> schrieb:

VS.net 03 with .net 1.1

Then you don't need the manifest stuff. Instead, add the following code
to a code file:

\\\
Public Module Program
Public Sub Main()
Application.Ena bleVisualStyles ()
Application.DoE vents()
Application.Run (New MainForm())
End Sub
End Module
///

In the project properties, select 'Sub Main' as startup object.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Aussie Rules]

Yes that works fine.

So I have gone back to my project and rechecked everything, and it seems
fine.

I have added a empty form to the proper project, and tested it. It works
fine, as long as none of my other code is with the code you posted.

It doesn't seem to make sense.

My propery project has a global.vb file, and the project startup property is
set to that(sub main).

I have attached the sub main below, where you can i see how i have put the
code in.

Something here is stopping it from working, but i can not see what it could
be.

Thanks

---------------
Public Sub Main()

Application.Ena bleVisualStyles ()

Application.DoE vents()

Dim aKey As RegistryKey

Dim bgConnection As String

aKey = Registry.Curren tUser.OpenSubKe y("software\XXX X")

Dim frmSPlash As New frmSplash

Dim ObjLoginDetails As New clsLogin

Try

frmSPlash.txtSe rver.Text = "windows200 3e"

ObjLoginDetails .strLoginServer = frmSPlash.txtSe rver.Text

ObjLoginDetails .strLoginUserID = frmSPlash.txtUs erID.Text

ObjLoginDetails .strLoginUserPW D = frmSPlash.txtPw d.Text

ObjLoginDetails .ConnectToDB()

frmSPlash.ShowD ialog()

If SetUpUserSecuri ty(ObjLoginDeta ils.strLoginUse rID,
ObjLoginDetails .strLoginUserPW D) Then

End If

Catch

MsgBox(Err.Desc ription)

End

End Try

Try

intSiteID = aKey.GetValue(" SiteID")

strAgentName = aKey.GetValue(" LastGoodID")

If intSiteID <> "0" Then

strConnection = aKey.GetValue(" BackgroundConn" )

Else

MsgBox("no Site ID")

End If

Catch

End Try

If SqlConnection.S tate.Closed Then

MsgBox("No SQL Connection")

End

End If

Try

SetUpconstDatas ets()

Application.Run (New frmMain)

Catch ex As Exception

MsgBox(Err.Desc ription)

End Try

End Sub