Visual Basic

1-Jul-05 3:27

He used Google?? OMG | :OMG:

There is hope! Big Grin | :-D

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Re: VB comments to xml

Dave Kreskowiak1-Jul-05 3:28

1-Jul-05 3:28

Yeah, VB.NET 2002 and 2003 don't support doing this. At least without using a third party add-in, like VBCommentor. In 2005, this works just like it does in C#, only using '''.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

VBA call to C++ DLL

john john mackey30-Jun-05 13:34

john john mackey

30-Jun-05 13:34

I have a problem that is confusing to me...

In my VBA code inside an MS Access database, I make a two function calls to external functions in a C++ DLL. Here is how I have it setup in VBA side:

'external LIB functions<br />
Private Declare Function Convert_String_To_Geodetic Lib "C:\Work\MyDLL.dll" (ByVal strMyStr As String, ByRef Lat As Double, ByRef Lon As Double) As Long<br />
Private Declare Function Convert_Geodetic_To_String Lib "C:\Work\MyDLL.dll" (ByVal Lat As Double, ByVal Lon As Double, ByVal Precision As Long, ByVal strMyStr As String) As Long<br />

When I don't absolute path, only the second function returns values as expected - the first Convert_String_To_Geodetic ( ) does NOT. When I do absolute path, BOTH functions seem to behave ok.

Questions:
1) how can I specify a relative path to current working directory - ".\" or no path has side effect of NOT WORKING.

2) WHY does using absolute path work? If I leave path off or ".\", it knows the DLL/function but doesn't return correct value back in Lat Lon variables.

I'm totally confused Confused | :confused:

Thanks,
Johnny

Re: VBA call to C++ DLL

Dave Kreskowiak30-Jun-05 17:27

30-Jun-05 17:27

If you specify just the filename, then the current directory is searched for the .DLL. If it's not found, the system will look in the directory specified by the SystemRoot environment variable, and if still not found, will look in the directories listed in the Path evnironment variable. If this fails, then the call will fail.

Is it possible that you have a .DLL with the same name sitting in the Path somewhere?

As a rule of thumb, it's best to keep an applications .DLL's in its Program Files directory, or a subfolder of that directory. Do NOT use absolute paths, use relative paths only because you can't guarantee that your aplication will be installed on C:.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Help files using Notepad

rswipe30-Jun-05 12:44

rswipe

30-Jun-05 12:44

Hi All,

Using Notepad is a convenient method of displaying a HELP file.
Does anybody know how to control the Notepad properties once it has been invoked?

i.e how can you disable menu items and the text window in VB.NET code?

thanks

Christian Graus30-Jun-05 14:48

30-Jun-05 14:48

Wow - that's a really bad idea. What's so hard about creating your own dialog with a window to display text ? Or live with the fact that Notepad will let them change/save it.

You can control Notepad, but it's more work than you need to do, and it sure can't be done with a language as limited as VB.

Christian Graus - Microsoft MVP - C++

Dave Kreskowiak30-Jun-05 17:17

30-Jun-05 17:17

rswipe wrote:
how can you disable menu items and the text window in VB.NET code?

Since Notepad doesn't expose any kind of automation interface, you'll have great difficulty in pulling this off, in ANY language, Christian! Wink | ;)

.

Christian is correct, though. It's much quicker, and FAR easier, to build a form specifically for displaying your help file in a read-only TextBox.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Christian Graus30-Jun-05 18:35

30-Jun-05 18:35

Dave Kreskowiak wrote:
Since Notepad doesn't expose any kind of automation interface, you'll have great difficulty in pulling this off, in ANY language, Christian!

True, but there are articles here on CP that do it in C++, I believe. Like I said, it's a hell of a lot of work, and a complete waste of time ( the article was proof of concept more than 'here's something useful' ).

Christian Graus - Microsoft MVP - C++

Dave Kreskowiak1-Jul-05 3:22

1-Jul-05 3:22

Christian Graus wrote:
Like I said, it's a hell of a lot of work,

I haven't seen the article, but, I'm going to guess it involves window finding and sending a bunch of messages to tell the controls to disable themselves?

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

rswipe3-Jul-05 9:06

rswipe

3-Jul-05 9:06

OK guys, thanks for the comments. i agree making your own dialog box isn't so difficult although getting the format right is sometimes time consuming depending on how big the help file is.
i'm all for an easy life and if there was a "one-liner" to do what i wanted then all the better.

thanks anyway.

Anonymous6-Jul-05 6:59

6-Jul-05 6:59

I'm not quite sure what you mean by "format". But it is easy enough to place a read-only RichTextBox control on a dialog box you create. Then you can simply load your help file into the RichTextBox with the LoadFile command (RichTextBox1.LoadFile("help.rtf")). It's a "one-liner" and unlike NotePad, you can display a RTF where you can have more than just text! If that fails to please, you could always use the HTML Help Workshop to create a help file Smile | :)

VB.NET Using SendKeys to invoke Find Dialog of AxWebBrowser control

rswipe6-Jul-05 16:49

rswipe

6-Jul-05 16:49

thanks, good idea.

Anonymous30-Jun-05 11:03

Re: VB.NET Using SendKeys to invoke Find Dialog of AxWebBrowser control

30-Jun-05 11:03

Hi,

The subject explains what I would like to do, but here's more detail:

I have a WinForm which contains a TreeView control and a AxWebBrowser control. When a user clicks on a TreeNode a file (placed in TreeNode.Tag) is loaded into the AxWebBrowser control. I have hidden the menus and toolbars of the AxWebBrowser control since they are not meant to be seen by the user and in this particular case, my AxWebBrowser control is used for viewing and searching documents.

Is there a way to show the Find Dialog via SendKeys (Ctrl-F) from a menu option or toolbar from my Main form? I have tried the following code:

Private Sub mnuEditFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _<br />
     Handles mnuEditFind.Click<br />
        SendKeys.Send("^F")<br />
End Sub

Private Sub mnuEditFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _<br />
     Handles mnuEditFind.Click<br />
        AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_SHOWFIND, _<br />
        SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_PROMPTUSER)<br />
End Sub

Using either code has no effect. I believe the SendKeys method is sending the message only to the active window which is my Main form. Is there a way around this to make it work?

Any help or guidance would be much appreciated. Thanks!

rudy.net1-Jul-05 18:30

rudy.net

1-Jul-05 18:30

Try using command AppActivate before sending keys "^F".

Re: VB.NET Using SendKeys to invoke Find Dialog of AxWebBrowser control

Anonymous2-Jul-05 20:13

Re: VB.NET Using SendKeys to invoke Find Dialog of AxWebBrowser control

2-Jul-05 20:13

Hi, thanks for your reply...

I have tried AppActivate before using send keys, but since the AxWebBrowser control is embedded in the Main form along with other controls, I am having trouble setting focus or locating the process id of the control. For instance if i try something like the following:

    <br />
Private Sub mnuEditFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEditFind.Click<br />
    Dim pi As New Process<br />
    pi = Process.GetProcessById(AxWebBrowser1.HWND)<br />
    AppActivate(pi.Id)<br />
    SendKeys.Send("^F")<br />
End Sub<br />

I recieve an "Unspecified error". I am not having trouble giving focus to the Main form itself. I have tested SendKeys by sending "%{F4}" in code, and as expected, it closed the window.

I need to find a way to activate or set focus to the AxWebBrowser control before using SendKeys. If I click on the AxWebBrowser control when my application is running, I can easily press Ctrl-F on the keyboard and the Find Dialog will popup. But I wish to put this as a menu/toolbar option since the main user's of this application won't be very "computer savvy" D'Oh! | :doh:

Any other suggestions? Is there some way to send a message in code or have the AxWebBrowser control listen to key events?? Confused | :confused:

Thanks!

Anonymous6-Jul-05 7:09

Obtain a handle to a label in a container

6-Jul-05 7:09

Just to let you know, I figure out how to use the SendKeys method! Who would have thought that SendKeys would be case sensitive! D'Oh! | :doh:

All I had to do was replace my "^F" with "^f" and now it works!

Private Sub mnuEditFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles mnuEditFind.Click<br />
    'AxWebBrowser1.Select()<br />
     SendKeys.Send("^f")<br />
End Sub

There is however a bug with this. For some reason, the AxWebBrowser does not activate properly in code (AxWebBrowser.Select()). Therefore, forcing you to click on the control before allowing you to use the menu option! WTF | :WTF:

At times, if you do not click on the AxWebBrowser to activate it...the SendKeys method will hang your application and you won't even be able to move your mouse! I still have not found a way around this. But at least I know that send keys works now Wink | ;)

Also, for anyone interested in an alternative method which I found (and works) but what I was trying to avoid using since it is dependent on Microsoft.mshtml:

HOW TO: Invoke the Find, View Source, and Options Dialog Boxes for the WebBrowser Control from Visual Basic .NET

Abhishek Karnik30-Jun-05 10:44

Abhishek Karnik

30-Jun-05 10:44

Hey there,
I have an application which has a "ThunderRT6UserControlDC". There are various control within this container such as
1. A drop down box
2. Label box
3. Gifs
4. a List View

For some reason 1 and 2 are not visible as having handles when viewed from Spy++.
I need to get the handle to the Label box (2) to retrieve its text. I'm trying to access this from a different program so I have to use handles and cannot use properties withing my application.
Any suggestions!!
Abhishek

using a string variables value

btoyer30-Jun-05 10:31

btoyer

30-Jun-05 10:31

I would like to take this code:
Dim wsrv As New SEOWS.Service1

And substitute the SEOWS with a string variable.

The result I am looking for would be similar to ASP and HTML where the ASP would resolve the string variable to a value and the HTML would use that value in the statement as if it were typed in that way.

Am I being clear? And is this even possible?

Christian Graus30-Jun-05 14:49

30-Jun-05 14:49

btoyer wrote:
And substitute the SEOWS with a string variable.

You mean you want to create a variable of indeterminate type ? So it could be anything, or a subset of things ? How would you use this variable ?

Christian Graus - Microsoft MVP - C++

btoyer1-Jul-05 5:49

btoyer

1-Jul-05 5:49

Example: I would have a variable xString.
I would set the value of xString to SEOWS.

I would then have the code Dim wsrv As New xString.Service1 so that it would make a variable wsrv As New SEOWS.Service1

Is this more clear?

Christian Graus1-Jul-05 20:23

1-Jul-05 20:23

I was not confused as much as incredulous.

I doubt you can do this. I also don't see why you'd want to. Your code, to compile, would have to cast wsrv to a specific object (defeating the point), or only call the methods that exist on object with this class instance. One other option would be a ton of reflection code, but to what end ?

If you could explain why you'd consider doing this, perhaps we can suggest a sensible solution.

Christian Graus - Microsoft MVP - C++

Dave Kreskowiak2-Jul-05 11:25