|
Hi Everybody,
I need your help regarding Subclassing in VB.NET. I am developing a project in which I am using Web Browser Control as Winodws Explorer. Means I am providing most of the functionalities of Windows Explorer in my Web Browser control through my application. 
I would like to SubClass the Web Browser Control and want to get the DELETE notification when user clicks on a button provided by interface. Or when user Right Click and chooses the "Delete" option from popup menu provided by Windows. Or, in Windows XP, user clicks the left panel entry "Delete this file" option.
I try to Subclass the Web Browser Control and try to get the DELETE notification. But application is not stable and also I am not able to trap the notification.  While debuging or EXE of the application crashes as soon as I try to enter the mouse in the Web Browser Control. 
Please, could you help me in this context?
I shall be very thankful to you for the same. Waiting for you early reply.
Best regards,
Vilas Shewale
|
|
|
|
|
Subclassing in VB Classic is notoriously unforgiving. One time I had a program with a subclass that brought down the whole computer whenever it was run. 
I've had a lot of experience with subclassing in both VB Classic and C# so I might be able to help you.
Could you post your code? I might be able to spot a bug in it for you.
By the way, subclassing is much more stable when using an already-compiled dll like the SubClassing and Timer Assistant available at vbAccelerator[^].
"Do unto others as you would have them do unto you." - Jesus
"An eye for an eye only makes the whole world blind." - Mahatma Gandhi
|
|
|
|
|
Hi,
Thank for your most earliest reply i ever had.  I shall post the code to your email account. Please do the needful.
And i offer my deepest condolence for the crash of the machine.
Best regards,
Vilas Shewale
|
|
|
|
|
Hi,
Did you get anything regarding my problem? I'm waiting for your reply.
Best regards,
Vilas Shewale
|
|
|
|
|
villly wrote:
Did you get anything regarding my problem? I'm waiting for your reply.
Strange - I sent an email to you both direct and through CP the same night you posted here first. CP had an error, but the direct email wasn't returned, so I thought I had gotten through. Anyway, here it is.
**********EMAIL***************
Your problem probably has to do with the fact that the listview control that shows the files/folders is the one getting the delete message rather than the WebBrowser window which is its parent.
Fix: Get the child window's handle and the enumerate the windows to find a window with the classname "SHELLDLL_DefView". If this window doesn't recieve the delete messages, enumerate its child windows to find a window with the classname "SysListView32" and subclass it. Hefty fix, huh?
"Do unto others as you would have them do unto you." - Jesus
"An eye for an eye only makes the whole world blind." - Mahatma Gandhi
|
|
|
|
|
Hi,
Thank you very much for your help. It's working properly. I subclass "SysListView32" object of Web Browser Control and getting the messages from it throught VB.NET's "System.Windows.Forms.NativeWindow".
Thank you very much for your help.
Best regards,
Vilas Shewale
|
|
|
|
|
Hi,
I am facing the same problem again but in different way now. I subclass "SysListView32" object to get the messages. It's working for other messages like mouse move, mouse over, etc. But I am not able to trap DELETE notofication in the same object.
MSDN help says the WM_DELETEITEM message is sent to the owner of a list box or combo box when the list box or combo box is destroyed or when items are removed by the LB_DELETESTRING, LB_RESETCONTENT, CB_DELETESTRING, or CB_RESETCONTENT message. So I try to trap the same message in my code. I am not able to get the DELETE notification by "SysListView32" object.
Could you help me in the same context? I want a message which will trap the DELETE message as soon as user will click on "Right click\Delete" or "Delete this file" from the left panel of Web Browser control.
Thank you very much for your help. I look forward to hear from you very soon.
Best regards,
Vilas Shewale
|
|
|
|
|
A listbox and a listview are to different things. List view notifications start with LVN_ rather than LB_.
BTW, you might want to try using the folder view's object model to intercept delete messages rather than trying to subclass the control. 
"Do unto others as you would have them do unto you." - Jesus
"An eye for an eye only makes the whole world blind." - Mahatma Gandhi
|
|
|
|
|
Hi,
I didn't get the thing what you are trying to explain to me. Could you please send me some sample how i shall achieve the same? I shall wait for your sample code.
Thank in advance.
Best regards,
Vilas Shewale
|
|
|
|
|
villly wrote:
Could you please send me some sample how i shall achieve the same?
Soon I might be able to do this, but for now, look at the code in the file "folder.htt" in your Windows directory. This code deals with selecting, deleting, etc, of files/folders in the list view in explorer and the folder view.
"Do unto others as you would have them do unto you." - Jesus
"An eye for an eye only makes the whole world blind." - Mahatma Gandhi
|
|
|
|
|
Hi
What are the limitations of Visual Basic as compare to Microsoft Foundation Classes(MFC)?
e.g.
What we can't do in Visual Basic but it can be done using MFC.
Thanks
|
|
|
|
|
Just curious, but why aren't you asking this in the C++ Forum? Don't you think you'd get better answers there?
Notorious SMC
The difference between the almost-right word & the right word is a really large matter - it's the difference between the lightning bug and the Lightning
Mark Twain
Get your facts first, and then you can distort them as much as you please
Mark Twain
|
|
|
|
|
You're also not asking a question that has a direct answer. MFC is a bunch of classes/wrappers that make Win32 programming easier for C++. VB has access to about 90% of the Win32 API.
What are you thinking of doing?
RageInTheMachine9532
|
|
|
|
|
Why only 90%? In my humble experience, there are no WIN32API calls that cannot be made throuhg VB - at the end of the day, the WIN32 API itself is just a collection of C dlls - admittedly, it is necessary to funk about with custom types etc from time to time, but there you go - if you use a screwdriver to hammer a nail, you expect it to be difficult!
Totally open to correction on this one BTW....
"Now I guess I'll sit back and watch people misinterpret what I just said......"
Christian Graus At The Soapbox
|
|
|
|
|
(VB.NET not included!) I was thinking more along the lines of mere mortal abilities. Multithreading, Shell Extensions, drivers, and such, are beyond the capabilities of VB6, or at least capable of being done by mere mortals!  . VB6 and below can only make ActiveX .DLL's. Not, IMHO, the more useful library .DLL's we all love to use.
RageInTheMachine9532
|
|
|
|
|
Actually, Multithreading is possible in VB - have done it before - fairly straightforward in fact (and within the reach of a mere mortal (which is how I'd classify myself lol!) Ditto shell extensions. Drivers - yeah well, good point! Seem to remember that there is actually a way to do a straight .dll in VB, but may be wrong on that one!
"Now I guess I'll sit back and watch people misinterpret what I just said......"
Christian Graus At The Soapbox
|
|
|
|
|
I'm finding problems with transfering Large Files using TCPListener and TCPClient Sockets.
Need help urgently!
|
|
|
|
|
Hi,
Is there a way to compile my VB6 project on a machine that does not contain the VB6 IDE? I've copied all of the files over and thus ported the VB6 environment, but I'm still having hang-ups. Has anyone crossed this bridge before?
Thanks!
|
|
|
|
|
It would be nothing like easy. You would have to have VB compiler and the linker console apps and would have to set all the compiler switches yourself.
"Do unto others as you would have them do unto you." - Jesus
"An eye for an eye only makes the whole world blind." - Mahatma Gandhi
|
|
|
|
|
You also have to port over the environment variables that get set, registry entries, path statement, any controls that your compiling with must be registered, ...
It's alot less time consuming to just install the thing...
RageInTheMachine9532
|
|
|
|
|
If you have VB6 installed yourself anyway, wouldn't it be easier to just build it on your machine and use the resulting images - and in any case, simply copying files from one machine to another will NEVER work for anything more complicated than a standalone .exe - will need to register all sorts of components, ensure that the runtime files are present - big headache!
"Now I guess I'll sit back and watch people misinterpret what I just said......"
Christian Graus At The Soapbox
|
|
|
|
|
Hi folks,
I am kinda new to this .NET world. I am basically trying to inherit datagrid and create a class library with custom events and functions. Everything works fine expect when i make anychanges to the datagrid properties in design mode using the properties window. It comes up saying 'Object not set to an instance'. I am able to manipulate the code programatically, but not able to set any properties to my derived datagrid control in desing mode.
Did anybody had any similar experience??
|
|
|
|
|
The following code are printing the selected row from a fleggrid:
srow = fgrid1.Row
Col = fgrid1.Col
For i = 1 To (fgrid1.Cols - 1)
Printer.Print fgrid1.TextMatrix(0, i) & ": " & fgrid1.TextMatrix(srow, i)
Next
I can't figure out how to print all row from a grid. Please help me
|
|
|
|
|
Try this code
Private Sub Cmdprint_Click()
'grdDetailReport(Name of the grid control)
Dim i As Integer
Dim defaultGridStyle As Integer
Dim defaultFixedGridStyle As Integer
Dim picGrid As StdPicture
Dim defaultFontsize As Single
' Initalize Variables
hl = grdDetailReport.HighLight ' Save current settings.
tr = grdDetailReport.TopRow
lc = grdDetailReport.LeftCol
X = 0
Y = 0
defaultGridStyle = grdDetailReport.GridLines
defaultFixedGridStyle = grdDetailReport.GridLinesFixed
Printer.Orientation = 2
Printer.Font.Size = 18
Printer.Font.Bold = True
'Printer.Print label1.Caption
grdDetailReport.Redraw = False
' Highlight off
grdDetailReport.HighLight = 0
Printer.Font.Size = 10
Printer.Font.Bold = False
Do Until X - grdDetailReport.Rows >= -2
X = X + 45
Y = Y + 1
Printer.Print "Page " & Y
If X > grdDetailReport.Rows - 1 Then
grdDetailReport.Row = X - 44
grdDetailReport.Col = 0
grdDetailReport.RowSel = grdDetailReport.Rows - 1
grdDetailReport.ColSel = grdDetailReport.Cols - 1
Else
grdDetailReport.Row = X - 44
grdDetailReport.Col = 0
grdDetailReport.RowSel = X
grdDetailReport.ColSel = grdDetailReport.Cols - 1
End If
For i = grdDetailReport.FixedRows To grdDetailReport.Rows - 1
If i < grdDetailReport.Row Or i > grdDetailReport.RowSel Then
grdDetailReport.RowData(i) = grdDetailReport.RowHeight(i)
grdDetailReport.RowHeight(i) = 0
End If
Next
For i = grdDetailReport.FixedCols To grdDetailReport.Cols - 1
If i < grdDetailReport.Col Or i > grdDetailReport.ColSel Then
grdDetailReport.ColData(i) = grdDetailReport.ColWidth(i)
grdDetailReport.ColWidth(i) = 0
End If
Next
' Scroll to top left corner.
grdDetailReport.TopRow = grdDetailReport.FixedRows
grdDetailReport.LeftCol = grdDetailReport.FixedCols
' Copy picture.
Clipboard.Clear
On Error Resume Next
grdDetailReport.PictureType = 0 ' Color.
Clipboard.SetData grdDetailReport.Picture
If Err <> 0 Then
grdDetailReport.PictureType = 1 ' Monochrome.
Clipboard.SetData grdDetailReport.Picture
End If
With flxGrid
Set picGrid = Clipboard.GetData(vbCFBitmap)
End With
grdDetailReport.GridLines = defaultGridStyle
grdDetailReport.GridLines = defaultFixedGridStyle
Printer.PaintPicture picGrid, Printer.CurrentX, Printer.CurrentY
Printer.NewPage
' Restore control.
For i = grdDetailReport.FixedRows To grdDetailReport.Rows - 1
If i < grdDetailReport.Row Or i > grdDetailReport.RowSel Then
grdDetailReport.RowHeight(i) = grdDetailReport.RowData(i)
End If
Next
For i = grdDetailReport.FixedCols To grdDetailReport.Cols - 1
If i < grdDetailReport.Col Or i > grdDetailReport.ColSel Then
grdDetailReport.ColWidth(i) = grdDetailReport.ColData(i)
End If
Next
grdDetailReport.TopRow = tr
grdDetailReport.LeftCol = lc
Loop
' Print commands
Printer.EndDoc
' Restore grdDetailReport
grdDetailReport.HighLight = hl
grdDetailReport.Redraw = True
End Sub
|
|
|
|
|
I copyed your code into my program and it working only 50 %.
1. When I select the first row it is printed fine, but when I am trying to print the next selected row it fails(nothing happend).
2. Also it is printing the only visible column what about the invisible columns?
Thanks
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
