creating many instance of a label - Visual Basic Discussion Boards

nlarson1123-Jan-07 8:06

23-Jan-07 8:06

each one of those are a property which you can access in either code or the property window.

windowstate - minmize/normal/maximize
minimizebox - whether the form can be minimized
maximizebox - whehter the form cna be maximized

alter table via sql - problem

Smithers-Jones23-Jan-07 5:19

Smithers-Jones

23-Jan-07 5:19

vb.net
i posted this one already some time ago, but with no success.

when altering a table i use the sql-string

<br />
ALTER TABLE MyTable ADD columnname FLOAT<br />

but my columnname consists of two words ( firstname, familyname).

so i use this command:

<br />
Cmd1.CommandText="ALTER TABLE MyTable ADD 'max powers' FLOAT"<br />

but now the name appears like this in the new column header: 'max powers'
how can i create the new column without '-character?

Re: alter table via sql - problem

Dave Kreskowiak23-Jan-07 5:29

Dave Kreskowiak

23-Jan-07 5:29

Although supported, you shouldn't be giving columns names with spaces in them. If you want the name to show up in the header change the header text in your UI, not in the SQL table.

Dave Kreskowiak
Microsoft MVP - Visual Basic

Re: alter table via sql - problem

Guffa23-Jan-07 5:51

Guffa

23-Jan-07 5:51

Apostrophes are not used to specify a name in a query. You use something like brackets [] or grave accents ``, depending on what database you are using.

You failed to mention what database you are using...

---
Year happy = new Year(2007);

Re: alter table via sql - problem

Smithers-Jones24-Jan-07 5:37

Smithers-Jones

24-Jan-07 5:37

sorry, i am trying to insert a new column to an excel table. i know, that i shouldn't use names with space in them, but in this case it is necessary. i need to insert firstname and family name to the table, cause i want to export results of a workink time analysis to this table to allow the user to do further processing with those dates. i also tried to use automation to export data to excel, but with no success.

Re: alter table via sql - problem

Guffa24-Jan-07 14:30

Guffa

24-Jan-07 14:30

Access uses brackets to specify a name, so my guess is that Excel does to. Try this:

ALTER TABLE MyTable ADD [max powers] FLOAT

---
Year happy = new Year(2007);

Re: alter table via sql - problem

Smithers-Jones24-Jan-07 21:57

Smithers-Jones

24-Jan-07 21:57

ok, thanks very much, i will try.

creating many instance of a label

charchabil0323-Jan-07 4:04

charchabil03

23-Jan-07 4:04

having a map
i want to point locations on that map when clicking on it
so i thought of creating a label and setting the location of that label same as the location of the mouse click event
so far so good,
but the prob is that : i want to point to more then 1 location
so any hint of how can i create as many labels as i clicked on the map?with location of the labels as location of the mouse clicked?
this is what i used till now

Private Sub Form2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick<br />
<br />
        Me.Label1.Location = New System.Drawing.Point(e.Location.X, e.Location.Y)<br />
        Me.Label1.Visible = True<br />
end sub

if there is any other hint let me know plz
thx

Regards
Ramy

Re: creating many instance of a label

mr_lasseter23-Jan-07 4:33

mr_lasseter

23-Jan-07 4:33

You need to dynamically create the label in the function. Somthing along the lines of:

<br />
        Dim lbl As New Label<br />
<br />
        lbl.Location = New System.Drawing.Point(100, 100)<br />
        lbl.Text = "This is a test"<br />
        lbl.Visible = True<br />
        Me.Controls.Add(lbl)<br />

Mike Lasseter

Re: creating many instance of a label

charchabil0323-Jan-07 4:54

charchabil03

23-Jan-07 4:54

thx it worked
i forgot to add : Me.Controls.Add(lbl)
-----
i want to ask another thing ,after adding these labels...how can i click on each lables ?
i mean when i click on label do action ... ex : msgbox("hello")

Regards
Ramy

Re: creating many instance of a label

mr_lasseter23-Jan-07 5:11

mr_lasseter

23-Jan-07 5:11

<br />
Public Sub AddLabel()<br />
Dim lbl As New Label<br />
<br />
lbl.Location = New System.Drawing.Point(100, 100)<br />
lbl.Text = "This is a test"<br />
lbl.Visible = True<br />
Me.Controls.Add(lbl)<br />
AddHandler lbl.Click, AddressOf Label_Click<br />
End Sub<br />
<br />
   Private Sub Label_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) <br />
        MessageBox.Show("this is a test")<br />
<br />
       'You can remove the handler like so if necessary<br />
        Dim lbl As Label = DirectCast(sender, Label)<br />
        RemoveHandler lbl.Click, AddressOf Label_Click<br />
    End Sub<br />

I noticed that you are using suggesting using msgbox. You really should avoid using this since it is in the Microsoft.VisualBasic namespace which allows the legacy commands to work. You should use the .Net commands when possible.

Mike Lasseter

Re: creating many instance of a label

charchabil0323-Jan-07 5:42

charchabil03

23-Jan-07 5:42

so far so good... thx
before i thought about the ideas of adding labels
i thought of doing the following :
FillEllipse(m_brush, 0, 0, m_width, m_height)
and everything went good.
but i couldnt click on each added ellipse any hint for that (like the idea of the labels)
AddHandler lbl.Click, AddressOf Label_Click
is there a way like : AddHandler ellipse.click ??

Regards
Ramy

Re: creating many instance of a label

mr_lasseter23-Jan-07 5:51

mr_lasseter

23-Jan-07 5:51

Since the ellispe is not a control it will not support events. The only way I can think of with an ellipse is to keep track of the ellipses you have created and the area they cover. Then in your click event you can see if the mouse click was in the area of the ellispe. Then you will perform what ever action you want.

Other than that you could create your own user control. There are plenty of examples for this if you use google.

Mike Lasseter

Re: creating many instance of a label

charchabil0323-Jan-07 6:06

charchabil03

23-Jan-07 6:06

lets get back to the idea of creating labels.
lets suppose 1 i created 10labels,how can each lable perform different action ?

Regards
Ramy

Re: creating many instance of a label

mr_lasseter23-Jan-07 6:32

mr_lasseter

23-Jan-07 6:32

You can store what type of label it is in the tag property. Then in your click event handler you can do cast the sender (the sender will be the label that was clicked) as a label then access its tag property. Based on its tag property you can perform your desired actions.

Mike Lasseter

Re: creating many instance of a label

charchabil0323-Jan-07 9:50

charchabil03

23-Jan-07 9:50

kindly,
can u help me with this issue ?

mr_lasseter wrote:
You can store what type of label it is in the tag property

because i m new with this Tag thing..Thank you

Regards
Ramy

Re: creating many instance of a label

mr_lasseter23-Jan-07 10:12

mr_lasseter

23-Jan-07 10:12

Public Sub AddLabel()
Dim lbl As New Label

lbl.Location = New System.Drawing.Point(100, 100)
lbl.Text = "This is a test"
lbl.Visible = True

'isCity & isState are made up values
if isCity then
lbl.Tag = 1
elseif isState then
lbl.Tag = 2
end if

Me.Controls.Add(lbl)
AddHandler lbl.Click, AddressOf Label_Click
End Sub

Private Sub Label_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim lbl as Label = DirectCast(sender, Label)
if lbl.Tag = 1 then
messagebox.show("You clicked a city")
elseif lbl.Tag = 2 then
messagebox.show("You clicked a state")
end if

End Sub

Mike Lasseter

List box loop?

China-Gary23-Jan-07 2:36

China-Gary

23-Jan-07 2:36

How would i code a loop to go through a listbox and take each value out of it to insert the values into textboxes?

Would i use a loop?

Dim strLan As String
strLan = lstX.SelectedIndex() = 0
txtX.Text = strLan

This code isnt working for me, somthing pretty damn basic i know!

Re: List box loop?

MatrixCoder23-Jan-07 3:28

MatrixCoder

23-Jan-07 3:28

Yes, you would use a loop like this:

For Each strLan As String In lstX.Items
txtX.Text += strLan
Next

Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.

Re: List box loop?

nlarson1123-Jan-07 3:31

nlarson11

23-Jan-07 3:31

Ex: puts all the values into 1 textbox.

For i As Int16 = 0 To ListBox1.Items.Count - 1
TextBox1.Text += ListBox1.Items(i).ToString
Next

not sure how you plan on managing the number of textboxes on the form because depending on the number of items in the listbox, it could get out of hand...

Re: List box loop?

China-Gary23-Jan-07 4:37

China-Gary

23-Jan-07 4:37

Thanks for the help!

Thing is, i have up to 8 in the list box, and each element in that listbox is to go to a different textbox.

Sorry, but i just cant figure it out!

Thanks!

Re: List box loop?

nlarson1123-Jan-07 6:22

nlarson11

23-Jan-07 6:22

let's step back and see what you really want to do...

1) how does the listbox get fed? (what dictates 'up to 8')
2) are you creating the textboxes on the fly or are all 8 on the form all the time?

Re: List box loop?

China-Gary23-Jan-07 8:47

China-Gary

23-Jan-07 8:47

Sorry for the delay!

Basically i have a list box populated with items from another listbox, drag and drop basically.

Within a different groupbox, i have 8 different textboxes.

How do i take the first element from the listbox and put it into the first textbox, second to second etc... They are all on the form at the same time.

Can a loop easily do this?

Thanks

Re: List box loop?

nlarson1123-Jan-07 9:04

nlarson11

23-Jan-07 9:04

I see 2 "simple" options...(there are more complex but I dont' have time to show you how to do these)

1) manually check the index of the for next loop assign it to each associated textbox
ex:
for i as int16 = 0 to listbox1.items.count-1
select case i
case 0: textbox1.text = listbox1.items(i).tostring
case 1: textbox2.text = listbox1.items(i).tostring
.
.
end select
next

2) put the index in the tag property of each textbox
ex:

textbox1.tag = "0"
textbox2.tag = "1"
etc.

for i as int16 = 0 to listbox1.items.count-1
for each oCtrl as control in me.controls
if typeof(octrl) is textbox then
with ctype(octrl,textbox)
if .tag = i.tostring then
.text = listbox1.items(i).tostring
exit for
end if
end with
end if
next
next

Re: List box loop?

China-Gary23-Jan-07 9:08

China-Gary

23-Jan-07 9:08

thanks, ill give it a go!

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.