|
hello every one
i m having '11' tabpages in tabcontrol now in each page there are 11 combobox
i named them starting from '0' like cmb0 which is in 1st tabpage,cmb1 which is in second tabpage and like wise...
now all 11 comboboxes have same items in it and i want to insert all of them using loop
for that i had code is like
dim i as integer
cmbstr as combobox
For i = 0 To 11
cmbstr = cmbstr & i
cmbstr.Items.add("a")
cmbstr.Items.add("b")
cmbstr.Items.add("c")
cmbstr.Items.add("d")
Next
i = i + 1
but this shows some error
please help..
please suggest if some another alternative is possible..
|
|
|
|
|
nazimghori wrote: but this shows some error
And that error would be ....... ??? Do you really think that there's only a single error possible when dealing with a combobox??
|
|
|
|
|
Let me do a mind meld with the computer (just seen the new Star Trek move) uhm, uhm, oh bugger that's the monitor you idiot now you've got indentations on the flat screen!
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
hi
error is like
operator '&' is not not defined for type 'system.windows.form.comboox' and integer
seems to be syntax error but please suggest how to solve it...
thank you in advance...
|
|
|
|
|
Of course not. You're trying to build the name of a ComboBox in a string and then treating that string as if it was the combobox. That's not going to work.
Luc has the best two solutions for you.
modified on Sunday, May 10, 2009 9:46 PM
|
|
|
|
|
There are several approaches possible:
1.
create a ComboBox array or collection (a generic list), copy a reference to each of the comboboxes in the list once (say in your form load handler), then do a foreach over that array every time you need to.
2.
assuming there is only the one combobox on every tab page, execute the following pseudocode:
foreach tabpage in tabcontrol
foreach control in tabpage
if control is combobox (skipping the other controls, e.g. buttons)
do what needs to be done
Luc Pattyn [Forum Guidelines] [My Articles]
The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Show formatted code inside PRE tags, and give clear symptoms when describing a problem.
modified on Sunday, May 10, 2009 8:03 AM
|
|
|
|
|
hello
i knew this approach but there are more than one combobox on each tabpage...
so please suggest some other approach...
|
|
|
|
|
I gave you two solutions, the first works no matter what.
the second can be modified to cope with multiple comboboxes per tabpage: give the ones you want a special characteristic (e.g. through their Name, their Location or their Tag) and test inside the "foreach control" loop.
Luc Pattyn [Forum Guidelines] [My Articles]
The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Show formatted code inside PRE tags, and give clear symptoms when describing a problem.
|
|
|
|
|
hello
i tried the second approach i gave the tag values of each combobox in tabpage to '0' at design time..
Sub fill(ByVal tbcon As TabControl)
Dim cnt As Control
For Each cnt In tbcon.Controls
If TypeOf cnt Is ComboBox Then
Select Case Tag
Case 0
cnt.Items.Add("NP")
cnt.Items.Add("ND")
cnt.Items.Add("FP")
cnt.Items.Add("FD")
End Select
End If
Next
End Sub
but this shows the syntax error like
'item is no the member of 'system.windows.forms.controls'
please help....
|
|
|
|
|
Of course your code does not compile: cnt is declared a Control, and Control does not have an Items property. You need to cast it to a ComboBox, something like Dim combo as ComboBox=DirectCast(cnt, ComboBox)
Luc Pattyn [Forum Guidelines] [My Articles]
The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Show formatted code inside PRE tags, and give clear symptoms when describing a problem.
|
|
|
|
|
..it should read somthiing like:
Sub fill(ByVal tbcon As TabControl)
Dim cnt As Control
For Each cnt In tbcon.Controls
If TypeOf cnt Is ComboBox Then
Select Case CType(cnt, ComboBox).Tag
Case 0
cnt.Items.Add("NP")
cnt.Items.Add("ND")
cnt.Items.Add("FP")
cnt.Items.Add("FD")
End Select
End If
Next
End Sub
Otherways the compiler doesn't know 'Tag'
Regards: Didi
|
|
|
|
|
hello
i tried another alternative like
dim cmbcntrl as combobox
Dim combos() As String = New String() {"NP", "ND", "FP", "FD"}
dim i as string
For i = 0 To 11
cmbcntrl = cmbcntrl.Items.AddRange(combos)
next
there are 11 comboxes and 11 tabpage each tabpage having 1 combobox now i name these comboboxes like combobox0,combobox1,combobox3.....and also there are other comboboxes in tabpages but they are with different name..
and tried above loop
but still theres an error like:- 'expression doesnot produce a value..'
so please suggest what shall i do..
thank you....
|
|
|
|
|
hello
i tried other approach like
Dim combos() As String = New String() {"NP", "ND", "FP", "FD"}
Dim i As Integer
dim cmbcntrl as combobox
For i = 0 To 11
cmbcntrl = cmbcntrl.Items.AddRange(combos)
i am having 11 comboboxes and 11 tabpages each having one combobox now i name these comboboxes like :combobox0,combobox1,combobox3....upto '11' and also there are other comboboxes in some tabpages but they are with different name....
now i tried above loop
but it still states the syntax error like 'expression doesnot produces a value...'
so please suggest what shall i do to solve it..
thank you....
|
|
|
|
|
Dim arr() As String = {"NP","ND","FP","FD",...}
For Each tabPage In TabControl1
For Each control In TabPage
If control Is ComboBox Then
control.Items.AddRange(arr)
End If
Next
Next
Surely this works
I don't speak Idiot - please talk slowly and clearly
I don't know what all the fuss is about with America getting it's first black president. Zimbabwe's had one for years and he's sh*t. - Percy Drake , Shrewsbury
Driven to the arms of Heineken by the wife
|
|
|
|
|
hello
the code suggested had an syntax error like
'tabpage is a type and cannot be used as an expression'
so please suggest what shall i do to solve it....
|
|
|
|
|
I need to know how to do some simple things with arrays please help with any!
1.Find largest of smallest value
2.Count how many times a given value is in the array
3.Count the number of even or odd integers in the array
4.Add up the sum and compute the mean
5.Create another array of the same size containing the same values in reverse order
Thanks!
|
|
|
|
|
VB help ? Here in the VB forums ? Really ?
Sounds like homework to me. The obvious thing to do is use foreach to step over an array and calculate these things.
Christian Graus
Driven to the arms of OSX by Vista.
"I am new to programming world. I have been learning c# for about past four weeks. I am quite acquainted with the fundamentals of c#. Now I have to work on a project which converts given flat files to XML using the XML serialization method" - SK64 ( but the forums have stuff like this posted every day )
|
|
|
|
|
This is homework from your class. If we do it for you then you won't learn anything. You MUST try it yourself first. If you get stuck post the code and what you were trying to do and then someone will help you through it. Until then please make an effort.
Man who stand on hill with mouth open wait long time for roast duck to drop in
|
|
|
|
|
He's stuck at starting. I'm convinced these people don't know how to open Visual Studio or, if they get that far, start a new project.
|
|
|
|
|
Hi if anyone could help I would appreciate it. I have a database with a
Movies Table, Casting Table, and Actor Table.
Movie Table has MovieID
Casting Table has MovieID , and ActorID
Actor Table has ActorID
This code deletes a row from the movies table(using a datagrid in vb.net), I need all the rows in the Casting table with the same MovieID to also be deleted.
Any help would be appreciated!!
Dim result As String
Dim i As Integer
i = MovieDataGridView.CurrentRow.Index
result = MsgBox("Are you sure you want to delete this movie?", MsgBoxStyle.OkCancel)
If result = vbOK Then
If MovieDataGridView.Rows.Count = 1 Then
MsgBox("You must leave one movie in database!!")
Else
Me.MovieDataGridView.Rows.Remove(Me.MovieDataGridV iew.SelectedRows(0))
End If
Else
End If
Me.Validate()
Me.MovieBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.MovieProjectDa taSet)
|
|
|
|
|
I will leave answering your question to those with more knowledge than I.
However, If after waiting a few hours (remember this is the weekend) you have not received an answer, I would suggest this would be better asked in the General Database forum.
Also, it seems strange to insist that there be at least one movie in the table. Care to share the reason for this?
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
Yeah it is strange to have to keep one movie in the table. It is because I have another problem that I will have to deal with later. This program is for a school project
See here when I add a new movie it counts the rows -1 and if there are no rows I get a no nulls allowed in movieID error. So for now I took that problem away by cheating with the msgbox!!
Dim rowcount As Integer = Form1.MovieDataGridView.Rows.Count
'Get the value of the last movie ID
x = Form1.MovieDataGridView.Item(0, rowcount - 1).Value
'Add 1 to the value of the last movie ID
x += 1
'Add new row to the datagridview's datasource
Form1.MovieDataGridView.DataSource.addnew()
'Set the value of column 1 on the new row
Form1.MovieDataGridView.Rows(rowcount).Cells(0).Value = x
'Set the value of column 2 on the new row to the data in the Title textbox
Form1.MovieDataGridView.Rows(rowcount).Cells(1).Value = txtTitle.Text
|
|
|
|
|
Hmm.. Small Reaction. As i understand, you are actually handeling your "MovieID" in code. You should let your database handle this and just request what id it gave to the last record you inserted in the database ( syntax might depend on the database you are uding)
About deleting the cast records related to the movie: you actually do the right thing  I don't see any other way then to simple delete all records in that table related to the movie you have deleted.
Do Or Don't, there is no "try catch ex as exception end try"
|
|
|
|
|
I got it to work like this, I added a new query called GetDatabyDcast to my casting datatable that says
DELETE FROM Casting WHERE MovieID =@MovieID
then I added that into the delete button. This probably isnt the best way to do it but it got the job done. If you know a better way, then let me know please. Thanks
Dim result As String
Dim i As Integer
i = MovieDataGridView.CurrentRow.Index
result = MsgBox("Are you sure you want to delete this movie?", MsgBoxStyle.OkCancel)
If result = vbOK Then
If MovieDataGridView.Rows.Count = 1 Then
MsgBox("You must leave one movie in database!!")
Else
Dim s As Integer
s = Me.MovieDataGridView.CurrentRow.Index
Dim a As String = Me.MovieDataGridView.Item(0, s).Value.ToString
a = a
Dim ta As New MovieProjectDataSetTableAdapters.CastingTableAdapter
Dim tbl As MovieProjectDataSet.CastingDataTable
tbl = ta.GetDataByDcast(a)
Form3.CastingTableAdapter.Fill(Me.MovieProjectDataSet.Casting)
Form3.Validate()
Form3.CastingDataGridView.EndEdit()
Form3.TableAdapterManager.UpdateAll(Me.MovieProjectDataSet)
Me.MovieDataGridView.Rows.Remove(Me.MovieDataGridView.SelectedRows(0))
End If
|
|
|
|
|
The code to create thread at the service start event.
Dim SerialPort1 As New SerialPort
Dim returnstr As String = ""
Dim thread1 As New Thread(AddressOf RecieveSerialData)
If thread1.IsAlive = False Then
thread1.Start()
thread1.Priority = ThreadPriority.Highest
End If
If thread1.IsBackground = False Then 'I am getting an exception in this statement stating the thread is dead.
thread1.IsBackground = True
End If
Public Sub RecieveSerialData()
Try
Using SerialPort1 As IO.Ports.SerialPort= My.Computer.Ports.OpenSerialPort(b)
MessageBox.Show("The " & b & " port is now opened.")
Do
Dim incomming As String = SerialPort1.ReadLine(b)
If incomming Then
MessageBox.Show(Now.ToString)
End If
Loop
End Using
Catch ex As Exception
MessageBox.Show(ex.ToString, "Error",MessageBoxButtons.OK,
MessageBoxIcon.Error)
End Try
End Sub
The code stop the service and thread :
If thread1.IsAlive = True Then
thread1.Abort()
End If
If SerialPort1.IsOpen = True Then
SerialPort1.Close()
Else
MessageBox.Show("The service is already stoped.", "Serial Service", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
Here I am getting various exception like
(1) The process cannot access COM3 port because it is being used by another process. This exception occurs when the first time service is activated. In the first attempt the stop service procedure executes properly.
(2) After the first execution the IsBackground statement gives an exception stating the thread id dead.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
