|
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()
|
|
|
|
|
how to search for a specific record in a database using a Button on vb.net?
|
|
|
|
|
The button does nothing for the database, it raises an event. Your code which catches the event is free to do whatever it likes, including connecting to the database, runing some SQL ( which may well return a search result ), and then doing what ever it likes with the result ( which could include displaying it to the user )
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
|
Hi.
I want to change a file name:
filename.jpg.lnk
to read:
filename_t.jpg
I know that I can shave off the .lnk with:
file.Name.Replace(".lnk", "")
But how can I also add the "_t" to the final file name?
Thanks
Brad
|
|
|
|
|
You could split the filename up into substrings using the .Split() method. Then just modify the individual substring however you want, then paste them back together again:
Dim myFile As New FileInfo("filename.jpg.lnk")
Dim filenameParts As String() = myFile.Name.Split(".")
Dim newFilename As String = filenameParts(0) & "_t." & filenameParts(1)
It's up to you to add an error checking code you want and conditional statements to make sure that it is, indeed, OK to modify the supplied filename the way you want.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
