|
The client area of an MDI form is an ordinary control, although it is not directly exposed by the form. This is a method I have in Class Toolbox:
Public Shared Function GetMdiClient(ByRef MdiForm As Form) As MdiClient
Dim Client As MdiClient = Nothing
For Each C As Control In MdiForm.Controls
Client = TryCast(C, MdiClient)
If Client IsNot Nothing Then Exit For
Next
Return Client
End Function
With that, you can then use this code:
Dim MC As MdiClient = Toolbox.GetMdiClient(MyMainForm)
If MC IsNot Nothing Then
PictureBox1.Top = (MC.ClientRectangle.Height \ 2) - (PictureBox1.Height \ 2)
PictureBox1.Left = (MC.ClientRectangle.Width \ 2) - (PictureBox1.Width \ 2)
End If
Using this technique, you can do things like change the background color of the MDI client area. MdiClient exposes a BackgroundImage property, which might allow you to dispense with the PictureBox entirely.
Edited to fix another bug 
modified on Wednesday, July 30, 2008 3:41 PM
|
|
|
|
|
I already am using a backgroundimage with the backgroundimage property. I just need another image ( a logo ) to overlay the background image and always be in the center of the MDIForm. I am about to attempt to try your method, I appreciate your response and I will let you know if it works or not. Thanks again!
|
|
|
|
|
I tried what you wrote and for some reason it isnt liking this line of code :
Dim MC As MdiClient = clsGetMDI.GetMdiClient()
I get a squiggly under clsGetMDI.GetMdiClient. I changed the name of the class by the way from toolbox to clsGetMDI. It is saying argument not specifyed for the parameter frmMainMDI in the public function getmdiclient etc. frmMainMDI is the name of my MDI Parent form. I have the exact same code you do except I replaced MDIForm with the name of my actual MDI form and I have a different class name where the function is located, that is it. Other than that I am using the exact same code.
Any thoughts????
|
|
|
|
|
You need to pass in the the form. Sorry about that.
|
|
|
|
|
Ok gotcha, it is working fine now. Thank you for your help. You saved me a major headache... Thanks!!!!
|
|
|
|
|
DataGridViewTextBoxCell has a single constructor, which takes no parameters. I would like to extend it to have a constructor with an object parameter, which will set its value in one statement, like this:
DGVRow.Cells.Add(New DataGridViewTextBoxCell(StartingValue)) The extension method should look like this:
Public Module Extensions
<Extension()> _
Public Sub New(ByVal this As DataGridViewTextBoxCell, ByVal Value As Object)
this.Value = Value
End Sub
End ModuleThis produces error squiggles under Public ("Shared 'Sub New' cannot be declared 'Public'") and New ("Shared 'Sub New' cannot have any parameters.") Using any name other than New eliminates the errors.
Can what I want to do be done without subclassing?
|
|
|
|
|
You would have to create a class derived from the DataGridViewTextBoxCell and then add a constructor that would call its base constructor.
Also, since the new constructor is used on a per instance basis you cannot use the shared keyword.
Regards,
Thomas Stockwell
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.
Visit my homepage Oracle Studios
Discounted or Free Software for Students:
DreamSpark - downloads.channel8.msdn.com
MSDN Academic Alliance - www.msdnaa.com
|
|
|
|
|
I'm guessing that the Shared keyword is added implicitly, by virtue of it being in a module. Ah, well.
|
|
|
|
|
Yes, everything in a module is static.
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|
|
I need to develop an windows based application in vb.net 2003. I have access 2003 database where an exisiting data with primary key( for combination of 3 fields).I need to import data from excel 2003 and add to the existing records of access database.Before adding, it should check for any existing records in access databaseWith the help of primary key( only unique records).only new records should get inserted into database.my excel file may contain more than 2000 records with around 15 columns. I’m finding it very difficult to proceeed for writing code for this in vb.net 2003 as I’m a beginner. Pls help me in this regard…any sample codes wil help me a lot…
Thanks all in advance for ur valuable suggestions...
Regards
chandru
|
|
|
|
|
chandrubngit wrote: I’m finding it very difficult to proceeed for writing code for this in vb.net 2003 as I’m a beginner. Pls help me in this regard…
I suggest taking on simpler tasks until you are up to speed with vb.net....
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
I have have 4 batch files that I need to start as a process one after another? How do I make them to wait for the other one to finish before another one starts? I tried google, no luck
|
|
|
|
|
|
hi,
here i want to know, did tcplistener for my server windows form application can listen to only one choosen IP client?
i make my tcplistener in a thread that always listener to the incoming client IP, for example i want to listen to only client ip "192.168.168.2" and ugnore other IP, can i do that?
|
|
|
|
|
Yes, just check to see if the client's IP is one that you accept. Refer the second post here[^] on how to get the client's IP.
|
|
|
|
|
Can I see programmatically whether a given ocx is registered?
Thanks!
|
|
|
|
|
|
OK, I'm going to try it...
Thanks!
|
|
|
|
|
Hi Guyz
I'm doing a project using VB.Net and so i would like to allow users to create reports using a wizard and then be able to store those reports as pdf files.
Help me out
Thank u in advance
Subzical
|
|
|
|
|
What have you done so far?
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
 How do connect my classes to my GUI form...especially graphics & multimedia classes PLZ Help...
|
|
|
|
|
You may ask your question in a different way so we DO understand what you mean...
|
|
|
|
|
Explain it properly what you want no one can understand your question
|
|
|
|
|
I am using following API function to open folder browse window. I want to show only selected drives not all the drives. Can anyone help me to achieve this task as I am not a .net programmer.
Thanks
Public Function BrowseForFolder(ByVal sTitle As String, ByVal sRootPath As String) As String
Const WINDOW_HANDLE As Long = 0
Const NO_OPTIONS As Long = 0
Const BIF_NEWDIALOGSTYLE As Long = 64
Const BIF_EDITBOX As Long = 16
Dim fctResult As String
Dim objShell As New Shell32.Shell()
Dim objFolder As Shell32.Folder
Dim objFolder2 As Shell32.Folder2
Dim objFolderItem As Shell32.FolderItem
fctResult = ""
objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, sTitle, NO_OPTIONS Or BIF_NEWDIALOGSTYLE, sRootPath)
If Not objFolder Is Nothing Then
objFolder2 = CType(objFolder, Shell32.Folder2)
objFolderItem = objFolder2.Self
fctResult = objFolderItem.Path
End If
objFolderItem = Nothing
objFolder2 = Nothing
objFolder = Nothing
objShell = Nothing
Return fctResult
End Function
|
|
|
|
|
I'm not quite sure what you mean by "show only selected drives not all the drives", but you may want to start by changing to .Net's FolderBrowserDialog[^] component. With the FolderBrowserDialog you won't have to fool with the APIs.
If you are wanting to restrict what drives they can choose, you could either show a MsgBox if they pick a disallowed drive and ask that they choose again, or check out the Folder Browser component for .NET[^] article. You can probably edit it to not display drives that you want to be hidden.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
