Subaru Discussion Forums

Go Back   ScoobyNet > Off Topic > Computer Related

Computer Related Are you going to build your own computer, or want advice on laptops, notebooks, monitors, processors, motherboard, software, computer games, etc. Discuss all things computer, or seek help from our resident geeks!

Welcome to ScoobyNet.com!
Subaru forum
Welcome to the ScoobyNet.com Subaru forum.

You are currently viewing our forum as a guest, which gives you limited access to view most discussions and access our other features. By joining our community, at no cost, you will have access to post topics, communicate privately with other members (PM), respond to polls, upload content and access many other special features. Registration is free, fast and simple, so please join our community today!

If you have any problems with the registration process or your account login, please contact contact us.

Reply
 
Thread Tools
Old 19 August 2008, 18:28   #1 (permalink)
Supporting Member
 
Trader Score: (0)
Join Date: Apr 2002
Location: Birmingham
Posts: 9,179
Send a message via MSN to SiDHEaD
Default Anyone code in VB.NET?

I've been using VB6 until recently as saw no benefit in attempting to move existing projects over.

However, I am now on a new one and we need to use a supplied .NET component, so I'm now forced into getting used to VB.NET

I have a probably stupid problem (if you know .net) but I have a sub in a form module which references a button. For the sake of arguement let's say the sub is passed "strText", and a button id and it sets this buttons text as strText. So I have:

Code:
Public Sub CreateMapButton(ByVal strText As String, ByVal buttonid As Integer)

Dim theButton As Button

Diagnostics.Debug.Print("Creating button """ & strText & """ (buttonid=" & buttonid & ")

If buttonid = 1 Then
  theButton = butMap1
elseif. buttonid......


End If

theButton.Text = strText
theButton.Visible = True
Diagnostics.Debug.Print("Finished creating button")

End Sub
if I call this from another button in the form:

Code:
CreateMapButton("Test button", 1)
Then sure enough the text is set on the first button and the debug printout is as expected.

Now I have a function in another module which loads up a list of texts for said buttons from the database and then calls the sub above for each one. This prints the debug out as expected, but the button caption never changes.

This would work fine in vb6 (although yes I know the if - then - blahh to set the button control is a bit rubbish, this is only a lightweight in-house app).

Why is .NET being an arse and not changing the button properties when the sub is called from a proceedure which is external to the form?

TIA,

Andy

Last edited by SiDHEaD; 21 August 2008 at 14:19.
SiDHEaD is offline   Reply With Quote
Old 19 August 2008, 21:45   #2 (permalink)
Scooby Regular
 
Trader Score: (0)
Join Date: Nov 2001
Location: Leeds - It was 562.4bhp@28psi on Optimax, How much closer to 600 with race fuel and a bigger turbo?
Posts: 15,239
Send a message via MSN to David_Wallis
Default

have you tried specifying formname.buttonname?

or email me an example project and Ill take a look.

David
David_Wallis is offline   Reply With Quote
Old 20 August 2008, 00:51   #3 (permalink)
Supporting Member
 
Trader Score: (0)
Join Date: Apr 2002
Location: Birmingham
Posts: 9,179
Send a message via MSN to SiDHEaD
Default

Yes i tried that, didnt work either.

I'll pack it up and send it over in the morning.

Cheers!
SiDHEaD is offline   Reply With Quote
Old 20 August 2008, 01:04   #4 (permalink)
Scooby Regular
 
Trader Score: (0)
Join Date: Jun 2005
Posts: 675
Default

Crikey I didn't realise people still use VB6................dot Net has been around like at least half a decade..........
Fabioso is offline   Reply With Quote
Old 20 August 2008, 10:45   #5 (permalink)
Scooby Regular
 
Trader Score: (0)
Join Date: Sep 2001
Location: A powerslide near you
Posts: 10,264
Default

We still use VB, however our apps are being re-written in .NET (mainly C# rather than VB.net though).

Anyway, for many software houses, it simply may not be cost effective to port to .NET without serious financing. If it ain't broke, don't fix it etc. Bit like running an old car, plenty do it.
Dracoro is offline   Reply With Quote
Old 20 August 2008, 15:34   #6 (permalink)
Scooby Regular
 
Trader Score: (0)
Join Date: Mar 2004
Posts: 740
Default

When you say another module, I take it you mean another class, if so,
reference the called class in the calling class to expose the function, create an instance of the class if it's not static and you should be good to go.

Coming from a VB 5.0/6.0 and Delphi background myself, i can well assure you, 6 years into .NET, it rocks.

If this is not helpful, please send me your code and I'll have a look. I'm off to Prague tomorrow so i may not check it till weekend.

Good luck
AllenJ is offline   Reply With Quote
Old 21 August 2008, 14:23   #7 (permalink)
Supporting Member
 
Trader Score: (0)
Join Date: Apr 2002
Location: Birmingham
Posts: 9,179
Send a message via MSN to SiDHEaD
Default

Just making a quick little test app to send and i notice 2 warnings which will hopefully make more sense to someone who knows what they are doing. Such a pain, VB6 was great for just knocking up apps for at work!!
SiDHEaD is offline   Reply With Quote
Old 21 August 2008, 14:26   #8 (permalink)
Supporting Member
 
Trader Score: (0)
Join Date: Apr 2002
Location: Birmingham
Posts: 9,179
Send a message via MSN to SiDHEaD
Default

Here is a cut down example (the proper one does more stuff to the button, theres more buttons, and its database driven).

http://www.sidtech.co.uk/andy/TempTest.zip
SiDHEaD is offline   Reply With Quote
Old 26 August 2008, 01:48   #9 (permalink)
Scooby Regular
 
Trader Score: (0)
Join Date: Mar 2004
Posts: 740
Default

I'll have a look in the morning
AllenJ is offline   Reply With Quote
Old 26 August 2008, 02:02   #10 (permalink)
Supporting Member
 
Trader Score: (0)
Join Date: Apr 2002
Location: Birmingham
Posts: 9,179
Send a message via MSN to SiDHEaD
Default

Thanks! I'm at a bit of a loss, it just behaves so differently to VB6 in some respects (such as this hehe).

Much appreciated!
SiDHEaD is offline   Reply With Quote
Old 26 August 2008, 02:37   #11 (permalink)
Scooby Regular
 
Trader Score: (0)
Join Date: Mar 2004
Posts: 740
Default

I've loaded the code in .NET and currently checking it out. Are button names built dynamically or is the difference the incremental value ?
AllenJ is offline   Reply With Quote
Old 26 August 2008, 02:44   #12 (permalink)
Scooby Regular
 
Trader Score: (0)
Join Date: Mar 2004
Posts: 740
Default

With a little tweak in your code, i got th efollowing messages

Creating button "Test button 1" (buttonid=1)
Finished creating button
Creating button "Test button 2" (buttonid=2)
Finished creating button
Creating button "Test button 3" (buttonid=3)
Finished creating button

Is that what you are after ?
AllenJ is offline   Reply With Quote
Old 26 August 2008, 10:06   #13 (permalink)
Supporting Member
 
Trader Score: (0)
Join Date: Apr 2002
Location: Birmingham
Posts: 9,179
Send a message via MSN to SiDHEaD
Default

It should change the text on the button itself. The fact the debug prints out fine is what i dont understand, everything is running through as it should. The button text just never gets changed!! LOL
SiDHEaD is offline   Reply With Quote
Old 26 August 2008, 10:07   #14 (permalink)
Supporting Member
 
Trader Score: (0)
Join Date: Apr 2002
Location: Birmingham
Posts: 9,179
Send a message via MSN to SiDHEaD
Default

The buttons are not dynamically named, mainly as I didnt know that was possible.
SiDHEaD is offline   Reply With Quote
Old 26 August 2008, 11:48   #15 (permalink)
Scooby Regular
 
Trader Score: (0)
Join Date: Mar 2004
Posts: 740
Default

Hi SidHead,

The text will not change until an event has been raised for that control.
If you add the text change command within the butMap1 click event, it will be actioned, to do so from Loadmap event, I think you'll need to raise the event through the use of 'delegate'.

If this has not been resolved by lunch time, let me know and I'll have another play around.

try this link
Event driven programming with Visual Basic .NET « –==PC==–

Another link on raising events

Using Class Events in VB.Net

Hopefully this will help.

Last edited by AllenJ; 26 August 2008 at 11:55.
AllenJ is offline   Reply With Quote
Old 27 August 2008, 09:44   #16 (permalink)
Supporting Member
 
Trader Score: (0)
Join Date: Apr 2002
Location: Birmingham
Posts: 9,179
Send a message via MSN to SiDHEaD
Default

I'm having problems. I see where the articles are coming from but I'm struggling to understand how to relate that to my simple bit of code that works in VB 6 - it shouldnt need events raising its just one sub calling another.
SiDHEaD is offline   Reply With Quote
Old 27 August 2008, 09:54   #17 (permalink)
Supporting Member
 
Trader Score: (0)
Join Date: Apr 2002
Location: Birmingham
Posts: 9,179
Send a message via MSN to SiDHEaD
Default

it's ok I've now narrowed it down to being the "Dim frm As New WindowsApplication1.Form1" in the module function. This can be removed fine in my sample one. But remove it in the real one and you cant find the CreateMapButton grrrrrrrr

I think it might be related to me changing the name on the form. I'll have a play.

Thanks
SiDHEaD is offline   Reply With Quote
Reply


Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off



All times are GMT +1. The time now is 15:09.


Important - Opinions expressed are not necessarily the opinions of ScoobyNet or any individuals directly or indirectly involved in this website or the companies and individuals associated with it. No responsibility is taken or assumed for any comments or statements made on this or any associated or relating bulletin board. Your personal information will be kept private except to comply with applicable laws or valid legal reasons.

LinkBacks Enabled by vBSEO 3.2.0 © 2008, Crawlability, Inc.