|
hi all
I could Run word by VB6...for example user open an exiting file and make some changes on content of that .doc file
when user close word u know this message appear : do u want to change to "file name.doc" ? yes/No ...now my problem:i want to control this user selected option (yes or no)in my program..i want to control that user click on yes or no? how can I take this control?
|
|
|
|
|
Hi, forum
My application uses MS word 2000 in it, it is used to read the wordfiles and get its content, while reading if the word file is corrupt, the objects throws and error
i am using a error handler to do this, and each time the routine gets stuck in the error i get the
switch to retry message box where in a new instance of word is initiated
and here exactly lies the problem, if i click 20 time on switch 20 instances
of word application are created and i can see 20 winword.exe in the task manager this is some thing annoying to me.
please tell me how do i eliminate this chaos.
If err.Number = -2147023170 Then
Set m_WordServer = Nothing
Set m_WordServer = New Word.Application
ElseIf err.Number = 462 Or err.Number = 429 Then
Set m_WordServer = Nothing
Set m_WordServer = New Word.Application
ElseIf err.Number = -2147417851 Then
Set m_WordServer = Nothing
Set m_WordServer = New Word.Application
ElseIf err.Number = -2147418111 Then
Set m_WordServer = Nothing
Set m_WordServer = New Word.Application
Else
Set m_WordServer = Nothing
Set m_WordServer = New Word.Application
End If
err.Clear
|
|
|
|
|
Automation can be a pig if it starts to go wrong because your app will not know the error, it just knows there is an error and needs to know what to do with it. At the same time word wants you to deal with the error that its generated. If your word application instance is not visible the problems are multiplied because you cannot do anything with it.
You could try the following on any error in the routine that handles word
m_Wordserver.active
m_Wordserver.quit
set m_Wordserver=nothing
It may help
jon
|
|
|
|
|
Need a little guidance here..
Lets say I make a new project with two forms in it, namely Form1 and Form2.
Form1 is the main form and when I run my program, this is the form that comes up. In it, I make a button and upon pressing a button, it calls up form2. Here is the Command I use.
Dim frmCall as New Form2
frmCall.show()
when I go to form2, I create a button to close this form2 and goes back to form1. And the command in it I use is
Me.Dispose()
My problem is, what command do I put into this button in Form2 to call Form1 Back out.. Any help offered will be greatly appreciated.
|
|
|
|
|
Oops, sorry, I put in this command in the button in Form1.
Dim frmCall as New Form2
Me.Hide() ' To hide Form1 from View
frmCall.show()
So basically, what the button in form2 should do is, close Form2 and bring Form1 back to focus... Any help offered will be greatly appreciated.
|
|
|
|
|
If Form1 is just hidden ( that is, if you make it not visible instead of closing it ), then you need to just show it again after the call to ShowDialog, your code in Form1 will not execute until ShowDialog ends ( that is, when Form2 is closed ).
If you dispose of Form1, then it is gone, and you need to make a new one, which will not remember anything about what state your first one was left in.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Well, I did attempt to close Form2 but putting in a button and adding the command 'Me.Dispose()' into it. The only thing it does is close my form2 but does not bring my Form1 back out as it is still hidden somewhere. So basically my problem is how to bring the Form1 back out...
|
|
|
|
|
Like I said, back out from *where* ? Did you hide Form1 ? Did you close it ? Oh - do Form1 and Form2 both define the Accept and Close behaviours for buttons ? If so, a 'feature' ( I regard it as a bug ) in .NET is that if you click abutton for Form2, and Form1 defines a button to return the same DialogResult that the button you clicked has, .NET will push Form1's button, too. So turn those properties to 'None' and always set the DialogResult yourself.
However, the Show method makes a modeless dialog, doesn't it ? So you must have code further down that hides Form1. If you want to hide Form1, you're better using ShowDialog to create a modal dialog, and then you have the entry point to reshow Form1, just after ShowDialog is called.
It might be best if you showed us the entire function where Form2 is created, so we know what's going on.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Hmm... Dialogresult huh? I'll take a look at it... IN the mean time, I'll send u the vb.net solution to let you see and make me feel like a idiot... hahaha... I am somewhat of a beginner u see... So take a look and tell me where I went wrong... thanz...
|
|
|
|
|
Oops, can you let me have your yahoo mail or hotmail or whatever u are using so I can send it to you... thanz...
|
|
|
|
|
Just paste the function where you create Form2 into this window, and I'll look at it.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Ahhh, I think I got it. I think this is my problem. All the while I have been trying to think of the right command to put into the button on form2 to call form1 back out... Obviously you dun have to, I think.. My original Command in the button for form1 is like this.
Private Sub btnDataEntry_Click(ByVal sender As Object,_ ByVal e As System.EventArgs) Handles btnDataEntry.Click
Dim frmDataEntry As New DataEntry
Me.Hide()
frmDataEntry.Show()
End Sub
Taking a deep look to what you mean. I did this changes and everything works like I want it to..
Private Sub btnDataEntry_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDataEntry.Click
Dim frmDataEntry As New DataEntry
Me.Hide()
frmDataEntry.ShowDialog()
Me.Show()
End Sub
Alrite, now I can go ahead with my crazy project.. hehe, Thanz a lot for helping, dude... Really appreciate it lots... Until I hit another dead-end, see you around dude...
|
|
|
|
|
No worries - glad to help. That's exactly what I thought your code must look like, and exactly what I was suggesting as a fix.
ShowDialog returns an enum called 'DialogResult', that's what you'd use if you wanted to do something based on what button a user clicked to close a child dialog, for example, you'd check if it was DialogResult.OK before doing any processing, the other option being that they pressed cancel and you wanted to do nothing.
It's not usual for a form to hide itself while a child form is visible - do you have a good reason to do this, in this case ? It's just not what the average user would expect, based on the behaviour of other applications.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Small problem here. When using .ShowDialog(), it's a good idea to dispose the form when your done with it. The form holds open unmanaged resources that should be released when your done with them and not rely on the GC to do it for you whenever it gets around to it.
Private Sub btnDataEntry_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDataEntry.Click
Dim frmDataEntry As New DataEntry
Me.Hide()
frmDataEntry.ShowDialog()
frmDataEntry.Dispose()
Me.Show()
End Sub
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I would put a property in form2 such as
<br />
public property CalledFrom(frm as Form)<br />
Get<br />
return m_Frm1 <br />
End Get<br />
<br />
Set(value as Form)<br />
m_Frm1 = value<br />
<br />
End Set<br />
Then in form1 do something such as:
dim f as New Form2<br />
f.CalledFrom = me<br />
f.Show
Then in form2 call the form from the variable.
m_frm.show 'or m_frm.Visible = True may work<br />
me.dispose
|
|
|
|
|
The main reason that this is a bad idea, is that Form2 should not be responsible for if Form1 is visible or not. It's bad OO.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Hmm, well, I am not trying to make Form2 reponsible for anything. All I wanted to do is just hide Form1 for a while while I am working on form2 and when I am done with form2 and closes it, form1 will just pop back out..
|
|
|
|
|
But have to agree with Christian though, it does seem rather abnormal that someone would try to do something weird like that. And BTW, Lespaul, thanz for that little bit of code u suggested but sadly, I dun dig it at all... Like I mentioned, I am a new born baby VB.net programmer... Still sucking on milk, so to speak... hehehe
|
|
|
|
|
What you've done above is good. What this other guy suggested is bad, he wants Form2 to contain the code to show Form1.
But like I said above, I don't think it's a good idea to hide Form1 necessarily, as I don't know of any other apps that do this. When you call ShowDialog, Form1 will stay visible if you let it, but it won't respond to input.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
ohh.. i see... no point in saying what he did is good or not though, since I dun see how his code runs.. 
BTW, you guys have any idea how to implement crystal reports..?
|
|
|
|
|
I have no idea, and he won't have got an email notification. Your best bet is to google first, then if you need more info, ask a new question so people who know Crystal Reports see it and can answer it.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
|
I have had a few times when it was necessary to hide form1 and then make it visible again when form2 closed. I found that it didn't always become visible again. Probably a focus issue and I have not had to deal with that very much in vb.net.
While I agree that it is a dirty way of doing it, it worked.
|
|
|
|
|
I want to change the back color of a column in a listview control. I thought I was on the right track by capturing the backgrounderase message and then using this routine
Try<br />
If Not Me.mcolSelectedCol.Equals(Nothing) And Not e.Header.Equals(Nothing) And Me.View = View.Details Then<br />
If Me.clv1.HeaderHandle.ToInt32 <> 0 Then<br />
'Dim int As Integer = SendMessage(Me.clv1.HeaderHandle, Win32.WindowsMessages.HDM_GETITEMCOUNT, 0, 0)<br />
Dim rec As Win32.RECT = Me.arrRects(mintCurColumn)<br />
Dim sz As New Size(rec.right - rec.left, rec.bottom - rec.top)<br />
Dim g As Graphics = Graphics.FromHdc(e.Msg.WParam)<br />
g.FillRectangle(New SolidBrush(Color.Red), rec.left, Top, rec.right - rec.left, Height)<br />
End If<br />
<br />
End If<br />
Catch ex As Exception<br />
<br />
End Try
But no luck as of yet. I have some c# code, but I can't seem to get through all the extra stuff to just pull this code. Any help would be great.
TIA
|
|
|
|
|
Found how to do it.
Friend Const LVM_SETSELECTEDCOLUMN As Integer = (LVM_FIRST + 140)
SendMessage(lstView.Handle, Win32.WindowsMessages.LVM_SETSELECTEDCOLUMN, ColumnIndex, 0)
lstview.invalidate()
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
