Ad:

VB.NET Discussion Thread
Marked Solved
Views: 924

Jun 16th, 2008

Problem Displaying Items

Expand Post »

hello,
I am having a problem getting all of my items to display correctly. I have a form that has a combobox. When this combobox changes I need to display different items on the form. This is the code to do this but for some strange reason not all items are set to visible.

vb.net Syntax (Toggle Plain Text)
Public Function clear() As Boolean
        grpDate.Visible = False
        grpDoct.Visible = False
        grpHide.Visible = False
        grpMain.Visible = False
        grpOptions.Visible = False
        grpPatHasIns.Visible = False
        grpSig.Visible = False
        grpZip.Visible = False
        grpInv.Visible = False
        grpInsurance.Visible = False
        grpDur.Visible = False
    End Function
    Private Sub cboReport_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboReport.SelectedIndexChanged
        Select Case cboReport.SelectedIndex
            Case 0 'Daily Totals
                clear()
                grpHide.Visible = True
                grpDate.Visible = True
            Case 1 'Daily Prescriptions
                clear()
                grpMain.Visible = True
                grpDate.Visible = True
                txtMainZip.Visible = True
                chkMainShowDirect.Visible = True
            Case 2 'Patient Profile
                clear()
                grpMain.Visible = True
                grpDate.Visible = True
            Case 3 'Patient Info
                clear()
                grpZip.Visible = True
                grpPatHasIns.Visible = True
            Case 4 'Doctor Info
                clear()
                Me.grpZip.Visible = True
            Case 5 'Insurance Analysis
                clear()
                grpDate.Visible = True
                grpInsurance.Visible = True
            Case 6 'Drug Inventory
                clear()
                grpInv.Visible = True
            Case 7 'DUR
                clear()
                grpDur.Visible = True
                grpDate.Visible = True
                grpDoct.Visible = True
            Case 8 'SIG Codes
                clear()
                grpSig.Visible = True
            Case 9 'Current Medications (Refills Available)
                clear()
                grpDate.Visible = True
                grpMain.Visible = True
                chkMainShowSig.Visible = True
                chkMainShowVoid.Visible = True
                lblMainFacility.Visible = False
                lblMainZip.Visible = False
                chkMainShowDirect.Visible = False
                chkMainRphSig.Visible = False
                txtMainFacility.Visible = False
                txtMainZip.Visible = False
            Case 10 'Delivery Ticket
                clear()
                grpDate.Visible = True
                grpMain.Visible = True
                chkMainPatSig.Visible = False
                chkMainShowCost.Visible = True
                chkMainShowPrice.Visible = True
                chkMainqty.Visible = True
                lblMainZip.Visible = False
                lblMainFacility.Visible = True
                txtMainFacility.Visible = True
                chkMainRphSig.Visible = False
                chkMainShowDirect.Visible = False
                chkMainShowSig.Visible = False
            Case 11 'Pickup Ticket
                clear()
                grpMain.Visible = True
                grpDate.Visible = True
                chkMainShowSig.Visible = False
                chkMainShowCost.Visible = False
                chkMainShowPrice.Visible = True
                txtMainZip.Visible = False
                lblMainZip.Visible = False
                chkMainShowVoid.Visible = False
            Case 12 'Refill Compliance
                clear()
                grpDoct.Visible = True
                grpDate.Visible = True
                grpMain.Visible = True
                chkMainShowPrice.Visible = False
                chkMainShowCost.Visible = False
                chkMainShowVoid.Visible = False
                chkMainShowDirect.Visible = False
        End Select
    End Sub
Public Function clear() As Boolean
        grpDate.Visible = False
        grpDoct.Visible = False
        grpHide.Visible = False
        grpMain.Visible = False
        grpOptions.Visible = False
        grpPatHasIns.Visible = False
        grpSig.Visible = False
        grpZip.Visible = False
        grpInv.Visible = False
        grpInsurance.Visible = False
        grpDur.Visible = False
    End Function
    Private Sub cboReport_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboReport.SelectedIndexChanged
        Select Case cboReport.SelectedIndex
            Case 0 'Daily Totals
                clear()
                grpHide.Visible = True
                grpDate.Visible = True
            Case 1 'Daily Prescriptions
                clear()
                grpMain.Visible = True
                grpDate.Visible = True
                txtMainZip.Visible = True
                chkMainShowDirect.Visible = True
            Case 2 'Patient Profile
                clear()
                grpMain.Visible = True
                grpDate.Visible = True
            Case 3 'Patient Info
                clear()
                grpZip.Visible = True
                grpPatHasIns.Visible = True
            Case 4 'Doctor Info
                clear()
                Me.grpZip.Visible = True
            Case 5 'Insurance Analysis
                clear()
                grpDate.Visible = True
                grpInsurance.Visible = True
            Case 6 'Drug Inventory
                clear()
                grpInv.Visible = True
            Case 7 'DUR
                clear()
                grpDur.Visible = True
                grpDate.Visible = True
                grpDoct.Visible = True
            Case 8 'SIG Codes
                clear()
                grpSig.Visible = True
            Case 9 'Current Medications (Refills Available)
                clear()
                grpDate.Visible = True
                grpMain.Visible = True
                chkMainShowSig.Visible = True
                chkMainShowVoid.Visible = True
                lblMainFacility.Visible = False
                lblMainZip.Visible = False
                chkMainShowDirect.Visible = False
                chkMainRphSig.Visible = False
                txtMainFacility.Visible = False
                txtMainZip.Visible = False
            Case 10 'Delivery Ticket
                clear()
                grpDate.Visible = True
                grpMain.Visible = True
                chkMainPatSig.Visible = False
                chkMainShowCost.Visible = True
                chkMainShowPrice.Visible = True
                chkMainqty.Visible = True
                lblMainZip.Visible = False
                lblMainFacility.Visible = True
                txtMainFacility.Visible = True
                chkMainRphSig.Visible = False
                chkMainShowDirect.Visible = False
                chkMainShowSig.Visible = False
            Case 11 'Pickup Ticket
                clear()
                grpMain.Visible = True
                grpDate.Visible = True
                chkMainShowSig.Visible = False
                chkMainShowCost.Visible = False
                chkMainShowPrice.Visible = True
                txtMainZip.Visible = False
                lblMainZip.Visible = False
                chkMainShowVoid.Visible = False
            Case 12 'Refill Compliance
                clear()
                grpDoct.Visible = True
                grpDate.Visible = True
                grpMain.Visible = True
                chkMainShowPrice.Visible = False
                chkMainShowCost.Visible = False
                chkMainShowVoid.Visible = False
                chkMainShowDirect.Visible = False
        End Select
    End Sub

Any ideas and tips are greatly appreciated.

Thanks

Similar Threads

Help with reading and writing from file in C++
Layout manager problems in Java
problem please help im desperate in Networking
problem in VB.NET? in VB.NET
Pagination - not displaying results properly, please help! in PHP

ProfessorPC

Reputation Points: 31

Solved Threads: 29

Posting Whiz in Training

Offline

270 posts
since Dec 2007

Permalink

Jun 17th, 2008

Re: Problem Displaying Items

I would guess these are textboxes or labels. If there is no text in them and no border and the backcolor is the same as the form then you will not see anything. Try using a border around them and see if that doesn't solve you problem.

waynespangler

Reputation Points: 84

Solved Threads: 58

Posting Pro in Training

Offline

461 posts
since Dec 2002

Permalink

Jun 17th, 2008

Re: Problem Displaying Items

Can you tell specifically, when selecting an item which item(control) is not visible.

selvaganapathy

Reputation Points: 44

Solved Threads: 101

Posting Pro

Offline

547 posts
since Feb 2008

Permalink

Jun 17th, 2008

Re: Problem Displaying Items

I have a groupbox grpmain that will not display. Some other objects are not displaying as well but the main one is the grpmain.

ProfessorPC

Reputation Points: 31

Solved Threads: 29

Posting Whiz in Training

Offline

270 posts
since Dec 2007

Permalink

Jun 17th, 2008

Re: Problem Displaying Items

Have you stepped thru the code to see if the visible portion is being executed?

waynespangler

Reputation Points: 84

Solved Threads: 58

Posting Pro in Training

Offline

461 posts
since Dec 2002

Permalink

Jun 17th, 2008

Re: Problem Displaying Items

i have stepped through the code. it hits the code to set visible = true but after continuing and i mouse over the visibility is still set to false. very odd.

ProfessorPC

Reputation Points: 31

Solved Threads: 29

Posting Whiz in Training

Offline

270 posts
since Dec 2007

Permalink

Jun 17th, 2008

Re: Problem Displaying Items

I just ran your code. All the group boxes showed up like they should. I did see that you are hiding some controls in places in your code and not showing them again. Click on "Daily Pescription" and you will see all the controls (textboxes, labels and checkboxes). Now click on "Pickup Ticket" and some of the controls are turned off. Now click on "Daily Pescription" and then ones turned off in "Pickup Ticket" are still turned off. This is inconsistent.
As for the group boxes they do turn on and off as expected.
You might have to reinstall vb.......

waynespangler

Reputation Points: 84

Solved Threads: 58

Posting Pro in Training

Offline

461 posts
since Dec 2002

Permalink

Jun 18th, 2008

Re: Problem Displaying Items

i havent really went as far as displaying everything as its needed. I have ran into this problem of the main grp not displaying correctly. without that group there isnt much else i could really do so i was concentrating on that more then the other items.
i was afraid of the reinstall being the option. thanks for you time in helping with this. I am off to reinstall.

ProfessorPC

Reputation Points: 31

Solved Threads: 29

Posting Whiz in Training

Offline

270 posts
since Dec 2007

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: Filter DataSource before presente data in gridview

Next Thread in VB.NET Forum Timeline: Search for files within certain date range

DaniWeb Message

Cancel Changes

User Name
Password