Visual Basic

10-May-09 17:35

You're welcome.

Smile | :)

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.

graphics

TheMrProgrammer10-May-09 2:08

TheMrProgrammer

10-May-09 2:08

i am developing an app in which i have used graphics object to create and fill
a rectangle with some color.
now i want to know when the user clicks inside the rectangle
but i am getting some problems

currently i am doing this with if-elseif conditions

wouldn't a much better way to do this is by associating
the click event to the rectangle

i can't figure out how to associate events with the rectangle

is it possible?

if yes then
please help
else
tell if there any other way of doing it
other than using a label or a picture box
end if

thanx

TheMrProgrammer

Re: graphics

Luc Pattyn10-May-09 2:37

problem with combobox in tabcontrol

10-May-09 2:37

Hi,

The only UI objects that support events are Controls. Most of them are rectangular, so you are in luck. You could use say a Panel and set its background color.

OTOH a Rectangle has a Contains() method which takes a Point, and a MouseEventArg gives you a Point, so you don't have to switch to Controls (which wouldn't make things easy when non-rectangular anyway).

Smile | :)

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.

Re: graphics

TheMrProgrammer11-May-09 4:24

TheMrProgrammer

11-May-09 4:24

thanks

but whats OTOH

TheMrProgrammer

Re: graphics

Henry Minute11-May-09 4:27

Henry Minute

11-May-09 4:27

Google for unknown acronyms.

OTOH means 'On The Other Hand'

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.”

nazimghori9-May-09 17:29

9-May-09 17:29

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..
Smile | :)

Dave Kreskowiak9-May-09 19:26

Dave Kreskowiak

9-May-09 19:26

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??

A guide to posting questions on CodeProject[^]

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

Mycroft Holmes9-May-09 21:26

Mycroft Holmes

9-May-09 21:26

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

nazimghori9-May-09 21:33

Re: problem with combobox in tabcontrol [modified]

9-May-09 21:33

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...
Smile | :)

Dave Kreskowiak10-May-09 6:10

Dave Kreskowiak

10-May-09 6:10

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.

A guide to posting questions on CodeProject[^]

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

modified on Sunday, May 10, 2009 9:46 PM

Re: problem with combobox in tabcontrol [modified]

Luc Pattyn10-May-09 0:28

10-May-09 0:28

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

nazimghori10-May-09 1:43

10-May-09 1:43

hello

i knew this approach but there are more than one combobox on each tabpage...

so please suggest some other approach...

Smile | :)

Luc Pattyn10-May-09 2:05

10-May-09 2:05

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.

Smile | :)

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.

nazimghori10-May-09 17:38

10-May-09 17:38

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....

Luc Pattyn11-May-09 1:11

11-May-09 1:11

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)

Smile | :)

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.

DidiKunz12-May-09 22:22

DidiKunz

12-May-09 22:22

..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

nazimghori10-May-09 19:33

10-May-09 19:33

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....
Smile | :)

nazimghori10-May-09 19:39

10-May-09 19:39

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....
Smile | :)

Andy_L_J10-May-09 22:13

Andy_L_J

10-May-09 22:13

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

nazimghori10-May-09 22:21