General information
Category:
Windows API functions
>>I am getting Overflow error message while running GetDesktopWindow.
>>
>>Private Declare Function GetDesktopWindow Lib "user32" () As Long
>>
>> Function StartDoc(DocName As String) As Integer
>> Dim Scr_hDC As Integer
>> Scr_hDC = GetDesktopWindow()
>> StartDoc = ShellExecute(20, "Open", DocName, "", "C:\", SW_SHOWNORMAL)
>> End Function
>>
>>It works if I comment it out, but sometimes act strange.
>>Please help!
>
>Wait, shouldn't Scr_hDC be a Long type also?
Thank you , it was dumb!
But now I ran into different problem.
I run all this focuments form ListView.
Private Sub lvFileList_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim sFileName As String
Dim r As Long, msg As String
sFileName = Item.Text
r = StartDoc(sFileName)
If r<=32 Then
'Error
Else
'Ok
End If
End Sub
It opens a document. No problem there. When I come back to the listview file icon so to speak "attached" to my cursor. So when I move a cursor everything is ListView moves. It's very odd. It doesn't happend every time but often, and every time I am running Word or Excell document after Notepad document.
Is anything I need to realease after running the document? Any idea?
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only