Visual Basic

Re: How could you check a node in treeview whenever a child node gets checked?

17-Mar-09 4:46

There's an event that gets fired when the node is checked. Loop back through the .Parent property until you reach the node at the second level, and check it Smile | :)

I are troll Smile | :)

Xmen Real 17-Mar-09 6:29

Xmen Real

17-Mar-09 6:29

use BeforeCheck or AfterCheck event

-----------------------------------------------
128 bit encrypted signature, crack if you can

Word.Application() not defined?

Speedular17-Mar-09 4:00

Speedular

17-Mar-09 4:00

Hello all

I'm trying to include the a Grammer check into my app; one of the approaches that I've come across is using MS.Words' but it seem that I'm facing somedefficulties that I can't figure out;

mports System.Runtime.InteropServices

Public Class Form1
Inherits System.Windows.Forms.Form

' Invokes either the spell or grammar checker.
Private Sub SpellOrGrammarCheck(ByVal blnSpellOnly As Boolean)

Try
' Create Word and temporary document objects.
Dim objWord As Object
Dim objTempDoc As Object
' Declare an IDataObject to hold the data returned from the
' clipboard.
Dim iData As IDataObject

' If there is no data to spell check, then exit sub here.
If TextBox1.Text = "" Then
Exit Sub
End If

objWord = New Word.Application() // My problem is here as it shows that it is not defined
objTempDoc = objWord.Documents.Add
objWord.Visible = False

' Position Word off the screen...this keeps Word invisible
' throughout.
objWord.WindowState = 0
objWord.Top = -3000

' Copy the contents of the textbox to the clipboard
Clipboard.SetDataObject(TextBox1.Text)

' With the temporary document, perform either a spell check or a
' complete
' grammar check, based on user selection.
With objTempDoc
.Content.Paste()
.Activate()
If blnSpellOnly Then
.CheckSpelling()
Else
.CheckGrammar()
End If
' After user has made changes, use the clipboard to
' transfer the contents back to the text box
.Content.Copy()
iData = Clipboard.GetDataObject
If iData.GetDataPresent(DataFormats.Text) Then
TextBox1.Text = CType(iData.GetData(DataFormats.Text), _
String)
End If
.Saved = True
.Close()
End With

objWord.Quit()

MessageBox.Show("The spelling check is complete.", _
"Spell Checker", MessageBoxButtons.OK, _
MessageBoxIcon.Information)

' Microsoft Word must be installed.
Catch COMExcep As COMException
MessageBox.Show( _
"Microsoft Word must be installed for Spell/Grammar Check " _
& "to run.", "Spell Checker")

Catch Excep As Exception
MessageBox.Show("An error has occured.", "Spell Checker")

End Try

End Sub

Private Sub btnSpellCheck_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnSpellCheck.Click
SpellOrGrammarCheck(True)
End Sub

Private Sub btnGrammarCheck_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnGrammarCheck.Click
SpellOrGrammarCheck(False)
End Sub

End Class
>

any help? I've added the reference Microsoft Word 12.0 object but still has the same problem undefined ..!!!?
or if any has another idea; I will highly appreciate it...
cheers

dan!sh 17-Mar-09 5:03

dan!sh

17-Mar-09 5:03

Are you getting any error message?

I guess you need to use fully qualified names.

जय हिंद

Speedular17-Mar-09 5:17

Speedular

17-Mar-09 5:17

Yes it is an error message ...

dan!sh 17-Mar-09 5:21

dan!sh

17-Mar-09 5:21

You need to specify the fully qualified name as I had mentioned before ie use

Microsoft.Office.Interop.Word.Application

जय हिंद

Speedular17-Mar-09 5:47

Speedular

17-Mar-09 5:47

I've done what you have mentioned; I appreciate your help...and now it says on the error message "Error Expected" what does it mean?

How to use Font

Anubhava Dimri17-Mar-09 2:39

Anubhava Dimri

17-Mar-09 2:39

Hi All,

I want to work with some fonts which are created by me. But i don't want to install those in system Font folder.Which are accessed by only my software.

Pls help.How can it Possible.

Thanks

mailto: anubhava.prodata@gmail.com

Re: How to use Font

Dave Kreskowiak17-Mar-09 3:37

Dave Kreskowiak

17-Mar-09 3:37

You're looking for the PrivateFontCollection[^] class.

A guide to posting questions on CodeProject[^]

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

Re: How to use Font

Jon_Boy17-Mar-09 6:06

Jon_Boy

17-Mar-09 6:06

Very cool, didn't know that existed.

Any suggestions, ideas, or 'constructive criticism' are always welcome.

"There's no such thing as a stupid question, only stupid people." - Mr. Garrison

Listbox

hendrikbez17-Mar-09 1:11

hendrikbez

17-Mar-09 1:11

When I start my program, it gives me error on this line.

.SubItems.Add(MyDataReader("A2".ToString))

"Overload resolution failed because no Public "add" can be called with these arguments"

Don't know what hte problem is........

Here are the code

Public Function FillListBox(ByVal Sqlstring As String)

ListBox1.Items.Clear()
ListView1.Items.Clear()

Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
OleDbConn.Open()
Dim MyDataReader As OleDbDataReader
Dim MyOleDbCommand As OleDbCommand = New OleDbCommand()

Dim MyDataSet As DataSet = New DataSet()

Dim MyOleDataAdapter As OleDbDataAdapter = New OleDbDataAdapter()

MyOleDataAdapter.SelectCommand = New OleDbCommand(Sqlstring, OleDbConn)

MyOleDataAdapter.Fill(MyDataSet)

MyOleDbCommand.Connection = (OleDbConn)

MyOleDbCommand.CommandText = Sqlstring

MyDataReader = MyOleDbCommand.ExecuteReader

Do While MyDataReader.Read

ListBox1.Items.Add(MyDataReader("Luidraad"))

Dim MyItem = ListView1.Items.Add(MyDataReader("luidraad".ToString))

With MyItem
.SubItems.Add(MyDataReader("A1".ToString))
.SubItems.Add(MyDataReader("A2".ToString))
.SubItems.Add(MyDataReader("A2".ToString))
.SubItems.Add(MyDataReader("A3".ToString))
.SubItems.Add(MyDataReader("A4".ToString))
.SubItems.Add(MyDataReader("A5".ToString))
.SubItems.Add(MyDataReader("A6".ToString))
.SubItems.Add(MyDataReader("A7".ToString))
.SubItems.Add(MyDataReader("A8".ToString))
.SubItems.Add(MyDataReader("A9".ToString))
.SubItems.Add(MyDataReader("A10".ToString))
End With

Loop

MyDataReader.Close()

OleDbConn.Close()
OleDbConn.Dispose()

Eddy Vluggen17-Mar-09 1:43

17-Mar-09 1:43

.SubItems.Add(MyDataReader("A2".ToString()) Smile | :)

BTW, "A2" is already a string?

I are troll Smile | :)

Luc Pattyn17-Mar-09 2:26

Luc Pattyn

17-Mar-09 2:26

Eddy Vluggen wrote:
"A2" is already a string?

it is a short string.

Smile | :)

Luc Pattyn [Forum Guidelines] [My Articles]

- before you ask a question here, search CodeProject, then Google
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get
- use the code block button (PRE tags) to preserve formatting when showing multi-line code snippets

Eddy Vluggen17-Mar-09 3:17

17-Mar-09 3:17

I had hoped never to be reminded of the shortstring again, along with the existence of the AnsiString, the PChar, the.. Cry | :((

I are troll Smile | :)

Chinners17-Mar-09 2:43

Chinners

17-Mar-09 2:43

Perhaps:

.SubItems.Add(MyDataReader("A2").ToString)

?

*Developer Day Scotland - Free community conference Delegate Registration Open

hendrikbez17-Mar-09 18:43

hendrikbez

17-Mar-09 18:43

Thank you it works Smile | :)

Pause application

Jay Royall17-Mar-09 0:16

Jay Royall

17-Mar-09 0:16

Hi,

In my application I am trying to export a Crystal Report to a PDF and then use that PDF. But the problem I have is that the export doesn't complete quick enough for my application to use it. Any ideas on the best way to pause my application unitl the export is complete?

Thanks Smile | :)

Re: Pause application

Colin Angus Mackay17-Mar-09 1:02

Colin Angus Mackay

17-Mar-09 1:02

Liqz wrote:
Any ideas on the best way to pause my application unitl the export is complete?

I take it you are trying to open the PDF but failing because it is still being written to?

What you could do is loop around attempting to open the file. When you manage to open the file you know it is ready. Until then you just loop around again.

Also, be aware that this could potentially introduce an infinite loop in your application if the file handle is never released by Crystal Reports so you will want to build in a time out mechanism so that after attempting for a period of time you give up.

Re: Pause application

Eddy Vluggen17-Mar-09 1:06