Visual Basic

Dave Kreskowiak9-May-08 8:39

9-May-08 8:39

jacko873 wrote:
how do i get it to make the right amount of buttons

Iterate over the returned rows in your datatable. One button for each row.

jacko873 wrote:
put them in the right place

Simple math. All you have to do is calculate an offset from a fixed point multiplied by the count of buttons you've put down already.

A guide to posting questions on CodeProject[^]

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

jacko8739-May-08 9:29

jacko873

9-May-08 9:29

Thank you Got the buttons working the names are right and the positions are great but I do have one last think to ask

How do I create an event for each button?

What I want the buttons to do is when they are clicked and an item to a list box and add the price to a variable for later

Dave Kreskowiak9-May-08 9:57

9-May-08 9:57

I already told you how to wire up the button's Click event.

A guide to posting questions on CodeProject[^]

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

jacko8739-May-08 10:13

jacko873

9-May-08 10:13

I get that I can create event but each button has the same event
I what each event to be different dependant on the text of the button

DanB19839-May-08 10:37

DanB1983

9-May-08 10:37

Like was said before:

AddHandler newButton.Click, AddressOf myButtonClickHandler

but change myButtonClickHandler to the name of the method you want to be called onClick.

Edit:

pseudo code:

if button.text == string1 then
AddHandler newButton.Click, AddressOf myButtonClickHandler1

else if button.text == string2 then
AddHandler newButton.Click, AddressOf myButtonClickHandler2

etc etc

At university studying Software Engineering - if i say this line to girls i find they won't talk to me

Dan

Dave Kreskowiak9-May-08 10:41

VBA Help, probs really simple

9-May-08 10:41

Then you have to cast the Sender object back to a button. You can then use it just like it was dropped on the form in the designer:

Dim b As Button = DirectCast(sender, Button)

A guide to posting questions on CodeProject[^]

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

harveyhanson9-May-08 2:21

harveyhanson

9-May-08 2:21

Hi,
I need some help with a VBA script in Excel 2003, its probably really simple but the macro recorder hasnt been much use and im not sure how to start.

All I want to do is:

Check a worksheet value (i.e. in call A1), for the first value check on another worksheet list
>> If this value is in a row, delete this row and all rows containing this value, if not, do nothing and check the next record
Then move onto the next record (i.e. in cell C2) until there are no records left to check

How would I do this please (or can you give me advise on how to do something similar so I can make a start at finding a solution?).

Many thanks in advance

Re: VBA Help, probs really simple

parth.p9-May-08 2:56

parth.p

9-May-08 2:56

I won't write code for exactly what you need but I have got similar example.

VB.NET

Sub CheckList()

    Sheet1.Cells(1, 1) = "Text1"    'Set text in Sheet1
    Sheet2.Cells(1, 1) = "Text1"    'Set Text in Sheet2
    
    
    Dim sValueFromSheet1 As String
    Dim sValueFromSheet2 As String
    
    sValueFromSheet1 = Sheet1.Cells(1, 1)   'Get Value of Cell A1 on sheet1
    sValueFromSheet2 = Sheet2.Cells(1, 1)   'Get value from list on sheet2
    
    If sValueFromSheet1 = sValueFromSheet2 Then
        Sheet1.Activate
        
        'This will delete 1st Row
        Rows("1:1").Select
        Selection.Delete Shift
        
        Range("A1").Select
        
    End If
    
    ' Now for your question you will have to write your own code
    ' to do what you want to. I can't do everything for you.
    '
    ' Hope this example helps you.
End Sub

- Stop thinking in terms of limitations and start thinking in terms of possibilities -

Select subset of records from .xml

cstrader2329-May-08 1:40

cstrader232

9-May-08 1:40

Is there a way to read a datatable from an .xml file on disk such that the created datatable contains only a subset of the records in the .xml table? Something simlar to the select statement in SQL? Certainly seems like there should be, but I can't seem to find it.

Thanks

Re: Select subset of records from .xml

Dave Kreskowiak9-May-08 3:27

Re: Select subset of records from .xml

9-May-08 3:27

cstrader232 wrote:
Is there a way to read a datatable from an .xml file on disk such that the created datatable contains only a subset of the records in the .xml table? Something simlar to the select statement in SQL? Certainly seems like there should be, but I can't seem to find it.

You can't find it because it doesn't exist. The DataTable/DataSet objects load the entire XML file. You don't have the option of selecting just the records you want. You'd have to write you own implementation of this, probably based on using an XmlReader, and build the datatable yourself. Implementing a query language would be the hardest part of doing this.

A guide to posting questions on CodeProject[^]

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

cstrader2329-May-08 6:07

cstrader232

9-May-08 6:07

Thank you... I guess I should save these tables in a database.

Would you be willing to look at my question on reflection that i posted on May 7th?

Re: Select subset of records from .xml

Dave Kreskowiak9-May-08 7:40

9-May-08 7:40

cstrader232 wrote:
Would you be willing to look at my question on reflection that i posted on May 7th?

I already am, in what little free time I have.

A guide to posting questions on CodeProject[^]

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

Help with Linq in VB.net

Chinners9-May-08 0:24

Chinners

9-May-08 0:24

Hi,

I know this may not be the place to post this, but it is about syntax in VB, so I thought it would be the best place.

(P.s. This is a VERY simplified example of what I want to do... I wouldnt waste effort with linq on something this simple Smile | :)

)

I have a list of structures in VB, and can easily select an item from the list:

Public Structure UserInfo
   Public ID As Integer
   Public Name As String
End Structure

Dim Users As New List(Of UserInfo)

Users.Add(New UserInfo With {.ID = 1, .Name="Jim"})
Users.Add(New UserInfo With {.ID = 2, .Name="Bob"})
Users.Add(New UserInfo With {.ID = 3, .Name="Sue"})

Now, what I want to do is update user ID 3 (for example) to change the name from Sue to Susan...

At the moment I use this:

Dim User As UserInfo = (From UserInfo In Users Where UserInfo.ID = 3 Select UserInfo).First
Users.Remove(User)
User.Name = "Susan"
Users.Add(User)

This works, but surely there is a better way? I have tried rooting through Google, but I am not sure of what I should be looking for to filter out all the Linq to sql and c# examples Confused | :confused:

Please help!

Guffa9-May-08 2:14

Guffa

9-May-08 2:14

A structure should generally be immutable, and the point of using a structure is mostly defated as you have a reference type inside it. Use a class instead of a structure.

Public Class UserInfo
   Public ID As Integer
   Public Name As String
End Structure

Dim Users As New List(Of UserInfo)

Users.Add(New UserInfo With {.ID = 1, .Name="Jim"})
Users.Add(New UserInfo With {.ID = 2, .Name="Bob"})
Users.Add(New UserInfo With {.ID = 3, .Name="Sue"})

Now you don't have to remove and add the item to update it:

(From UserInfo In Users Where UserInfo.ID = 3 Select UserInfo).First.Name = "Susan"

Despite everything, the person most likely to be fooling you next is yourself.

Chinners9-May-08 6:19

Chinners

9-May-08 6:19

Hi Guffa,

Thanks for the reply - some very useful information in there. I do have one small problem though - I cant find the correct syntax for the update:

(From UserInfo In Users Where UserInfo.ID = 3 Select UserInfo).First.Name = "Susan"

It doesnt work on its own in VB 2k8, and after hours of net searching, I cant find the answer Cry | :((

. Using:

dim b as boolean = (From UserInfo In Users Where UserInfo.ID = 3 Select UserInfo).First.Name = "Susan"

compiles, but obviously doesnt update anything (the expression above supposedly returns a boolean)

If you get chance, and you know the answer, can you post a quick message telling me...

Ta muchly!

Guffa9-May-08 7:16

Guffa

9-May-08 7:16

I thought that the LINQ expression could be used as an expression, but obviusly it can't. If you put the result in a variable, it works:

Dim user As UserInfo = (From u In Users Where u.ID = 3 Select u).First
user.Name = "Susan"

Another way to do this (and more effective as it only looks until it finds the first occurance) is to use a lambda expression:

Users.Find(Function(u) u.ID = 3).Name = "Susan"

Despite everything, the person most likely to be fooling you next is yourself.

Chinners9-May-08 8:23

Chinners

9-May-08 8:23

Hi Guffa,

Thanks for that - you have been a huge help!

I cant believe I didnt try option 1 first though D'Oh! | :doh:

I think I tried everything but!

excel sheet problem

asha_s9-May-08 0:19

asha_s

9-May-08 0:19

in may project i exploit my data to exl sheet but the styel not very will because the size of the sill is smailer than data size

is their is way to make the sill size larger in my code not from the excel?

Re: excel sheet problem

Dave Kreskowiak9-May-08 3:22