Visual Basic

Display questions from a table and then capture responses

8-Mar-07 2:50

Tell your startup form to Close. If the application's message pump is shutdown, all the windows opened under it shutdown and close with it.

Dave Kreskowiak
Microsoft MVP - Visual Basic

nforeha7-Mar-07 13:46

nforeha

7-Mar-07 13:46

I am totally frustrated - I am trying to display questions from a question table (I don't know how many there will be) and then provide the users a place to type in thier responses. Then capture those responses in another table along with the question ID's.

I am new to VB.NET and so I am sure there is a simple way to do it, but it eludes me. I have tried the data grid which displays the questions nicely, but I do not know how to tie in the responses. My collegue suggested using the Repeater, but I cannot get my head around how that will help.

Any direction would be appreciated. Thanks.

Nancy

Re: Display questions from a table and then capture responses

kubben7-Mar-07 14:22

kubben

7-Mar-07 14:22

You can do it with a datagrid. I would:
Add a new bound column change it to a template column. Set the label to be bound to the question id. Mark the label as hidden. (visible = 'false'
Next add a new bound column change it to a template column.
Edit the template and remove the label and put in something like a textbox.
Add a submit type button to the form. In the code behind do a for each row in data grid type foreach loop. On each row do a FindControl once for the label that has the question id, once for the textbox that has the answer. Save the data to your answer table.

The only thing I would worry about is paging. If you leave paging off and have 100 questions your web page gets pretty long. If you need to turn paging on things get a bit more complicated.

Hope that helps.
Ben

Re: Display questions from a table and then capture responses

nforeha7-Mar-07 14:31

nforeha

7-Mar-07 14:31

Thank you so much - I'll give it a try! Smile | :)

Nancy

Dialog Extension

Anybloodyid7-Mar-07 11:36

7-Mar-07 11:36

Here is the code used for a SaveAs dialog.

SFD.Filter = "Rich Text Files|*.rtf|Text Files|*.txt|WORD Files|*.doc|HTML Files|*.html|All Files|*.*"

How do I get just the extension that is chosen so that strExt reflects the choice made?

currentFile = SFD.FileName
     strExt = SFD.Filter.ToUpper()
  End If

     Select Case strExt
         Case ".RTF"

TwoFaced7-Mar-07 12:19

7-Mar-07 12:19

You just need to get the extension from the filename. You could parse it yourself or just use system.io.Path.GetExtension(currentFile).ToUpper.

Anybloodyid7-Mar-07 22:08

7-Mar-07 22:08

Hi TF,
That's what I thought and what I had, but if you save a Document with the name
Testing.Text then no matter what is in the Filter Index of the dialog box the Document is saved as a Text File.
Where as you should be able to save it as Testing.Text.Extension from SaveAs Dialog.

TwoFaced7-Mar-07 23:08

7-Mar-07 23:08

Your right I checked it out. It seems if you have included an extension in the file name it won't append the selected extension. Typically when I save a document the extension will be appended unless I enclose the filename in quotes. I would expect that same behavior from the SaveFileDialog but I guess not. If there is a way to enforce that type of behavior I can't figure it out. However, there is a FilterIndex property. You could use that to figure out which extension was selected. You could just use the number it returns for your select case. Or you could split the filtered string and pick out the selected extension.

Dim exts As String() = SaveFileDialog1.Filter.Split("|")

The above will create an array with the extensions in every odd index. To pick out the right one just use

exts(SaveFileDialog1.FilterIndex * 2 - 1)

This will of course return the extension in your filter string which looks like *.txt so you'll have to take that into account.

Anybloodyid8-Mar-07 0:05

8-Mar-07 0:05

Thanks TF
I knew it was interesting, there must be a way as you can do it in Word.
I will give what you have suggested a try and let you know how I get on.

Graham

Dave Kreskowiak8-Mar-07 2:49

Re: Dialog Extension [modified]

8-Mar-07 2:49

Yeah it won't create the new filename for you. Your code actually has to check for a valid file extension and if it's not there, get the selected extension from the SaveFileDialog and append it yourself.

Dave Kreskowiak
Microsoft MVP - Visual Basic

Anybloodyid8-Mar-07 8:26

8-Mar-07 8:26

Now this is interesting, below is the code.
If I enter a SaveAs name 'Test' with a filter ext of txt.
Then I get a Test.Text Document (Correct)
but if I use the file name Test.Text with a filter ext of txt.
I get a Test.TEXT File, why?

 #Region "Save File"
    Private Sub SaveFile(ByVal SaveAs As Boolean)
        Dim strExt As String
        'If the currentFile already has an ext get it and change it to UpperCase
        strExt = System.IO.Path.GetExtension(currentFile).ToUpper()

        'Place it in the SFD.Filter
        Select Case strExt
            Case ".RTF"
                SFD.FilterIndex = 1
            Case ".TXT"
                SFD.FilterIndex = 2
            Case ".DOC"
                SFD.FilterIndex = 3
            Case ".HTML"
                SFD.FilterIndex = 4
            Case Else
                SFD.FilterIndex = 5
        End Select

        If SaveAs Then
            SFD.Title = "QuickWord - SaveAs File"
            SFD.DefaultExt = "rtf"
            SFD.Filter = "Rich Text Files|*.rtf|Text Files|*.txt|WORD Files|*.doc|HTML Files|*.html|All Files|*.*"
            SFD.FileName = currentFile
            If SFD.ShowDialog() = Windows.Forms.DialogResult.Cancel Then Exit Sub
            If SFD.FileName = "" Then Exit Sub
            currentFile = SFD.FileName
            Dim exts As String() = SFD.Filter.Split("|")
            strExt = exts(SFD.FilterIndex * 2 - 1)
            Dim charsToTrim As Char() = {"*"}
            Dim trimmedPath As String = strExt.TrimStart(charsToTrim)
            strExt = trimmedPath
            strExt = strExt.ToUpper()
        End If

        Select Case strExt
            Case ".RTF"
                rtbText.SaveFile(currentFile, RichTextBoxStreamType.RichText)
            Case ".DOC"
                ' Copy the contents of the Richtextbox to the clipboard and keep it's formating
                Clipboard.SetText(rtbText.Rtf, TextDataFormat.Rtf)
                objWord = CreateObject("Word.Application")
                objTempDoc = objWord.Documents.Add
                With objTempDoc
                    .Content.Paste()
                    .SaveAs(currentFile)
                End With
                objTempDoc.close()
                objWord.Quit()
            Case Else
                Dim txtWriter As System.IO.StreamWriter
                txtWriter = New System.IO.StreamWriter(currentFile)
                txtWriter.Write(rtbText.Text)
                txtWriter.Close()
                txtWriter = Nothing
                rtbText.SelectionStart = 0
                rtbText.SelectionLength = 0
        End Select
        rtbText.Modified = False
        Me.Text = "QuickWord: " & currentFile.ToString()
    End Sub

#End Region

-- modified at 16:01 Thursday 8th March, 2007

TwoFaced8-Mar-07 9:56

8-Mar-07 9:56

I can't tell from the code given. I suspect when you set currentFile something is happening but that code isn't here. Is the value of currentFile coming straight from SFD.FileName or are you doing something to that value before setting currentFile?

Anybloodyid8-Mar-07 10:03

8-Mar-07 10:03

TF I've modified my last post to save space on the forum, it now contains the complete SaveAs code.

Cheers
Graham

TwoFaced8-Mar-07 10:24

8-Mar-07 10:24

Hmmm...I just don't see anything there that would cause that to happen. Just for clarification it was the capitalization of TEXT that you had a problem with, right? My only suggestion is step through your code line by line when it saves. Also as your doing that determine if the capitalization is occuring from the dialog itself of it that happens after. Sorry, I just can't see it, but just so you know when I tried it with a savefiledialog I couldn't recreate that problem.

Anybloodyid8-Mar-07 10:40

8-Mar-07 10:40

Thanks TF at least you had a look.

Polygon GDI+

dslamb7-Mar-07 10:20

dslamb

7-Mar-07 10:20

I'm starting the process of learning/exploring the GDI+, and I have a question about polygons. Is it possible to render/create a multipart polygon. Say for example an outer edge polygon with a hole/island in the middle of it (e.g. a dough nut). Just curious.

Thanks in advance,
David

Re: Polygon GDI+

Dave Kreskowiak15-Mar-07 2:40

Image for a button [modified]

15-Mar-07 2:40

Sure. You have to calculate and/or supply all the points, then create the drawing code to "connect the dots".

Dave Kreskowiak
Microsoft MVP - Visual Basic

One more time

cstrader2327-Mar-07 8:31

cstrader232

7-Mar-07 8:31

There is an issue that I am still struggling with.

What is the correct technique for calling back to classes in the main .exe from an assembly that is discovered only through reflection, dynamically, at runtime?

I created a sub in the assembly .dll:

Public shared me.host as object
sub initializeassembly(byval host as object)
me.host = host
end sub

and called that sub from the main.

the I called the (public) class in the main from the .dll:

host.subinmain()

However, I find that the class in the main is sometimes disposed of before it is called.

Is it proper to use this technique? What is the alternative? It was suggested to me that I could use an interface, but but I don't see how that really helps, because the name of the class in the main still has to be passed somehow to the .dll

Thanks as always for your time..

harveyhanson7-Mar-07 6:02

harveyhanson

7-Mar-07 6:02

In VB.NET 2005.

I have a button that i want to put an image on (normal bitmap), so i have done via the properties menu, and the image is stored in the resources.

It shows up as being fine in the design view, but when i try to run it, it aint showing up.

Any ideas, i have never used this feature before so i am not sure if i need to do something else??

Cheers all

Re: Image for a button

CPallini7-Mar-07 8:34

CPallini

7-Mar-07 8:34

HAve you set the Image property?

If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler.
-- Alfonso the Wise, 13th Century King of Castile.

DataBound Controls

Cmania7-Mar-07 5:59

Cmania

7-Mar-07 5:59

1.Can I connect DataBound Controls to Data Control or ADODC at runtime?
2.Can  connect DataBound Controls to Database Objects?

Spread wat u Know!

Dave Kreskowiak7-Mar-07 8:00

7-Mar-07 8:00

Are you using VB.NET or VB6? What do you mean by "Database Objects"? Which classes are you talking about?

Dave Kreskowiak
Microsoft MVP - Visual Basic

Cmania11-Mar-07 23:36

Cmania

11-Mar-07 23:36

Well Im using VB6.
By Database Objects I mean using objects of the classes imported after adding the reference Microsoft DAO 3.6 object library.

Spread wat u Know!

Dave Kreskowiak12-Mar-07 3:07

12-Mar-07 3:07

Cmania wrote:
Microsoft DAO 3.6 object library.

Why? That was the last version of DAO Microsoft put out, about 7 years ago (I think!) You might want to move up to something a little more modern and, more importantly, still supported, like ADO.

Better yet, move from VB6 to VB.NET.

Dave Kreskowiak
Microsoft MVP - Visual Basic