Visual Basic

All I want to do is open a .pdf in Acrobat

31-Jan-06 5:55

Is your .DLL, it's classes, methods and properties, exposed to COM when you compiled it? Does each object have it's own CLSID?

I love this link, specifically for this very question: Exposing .NET Framework Components to COM[^]

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

oakleaf31-Jan-06 4:41

oakleaf

31-Jan-06 4:41

So I tried this:
Dim objWSH As Object : objWSH = CreateObject("WScript.Shell")

Call objWSH.Run("'" & Application.StartupPath & "\help_files\Potato_Traceability_User_Guide.pdf" & "'")
'objWSH = Nothing

Which works fine while in debug mode. But when the install is compiled and then installed to c:\Program Files\asdf

The file cannot be found.
(but other files in the same directory of RTF format can be loaded into a rich text box control?)

So I tried:

Dim objWSH As Object : objWSH = CreateObject("WScript.Shell")
mypath = Application.StartupPath.Replace("\", "\\")
mypath = mypath.Replace(" ", "%20")
Call objWSH.Run("'" & mypath & "\\help_files\\Potato_Traceability_User_Guide.pdf" & "'")
'objWSH = Nothing

and a couple of other variations....

what should have taken 10 minutes, I am now 2 hours on...can someone help or let me know what it is that I am doing wrong?

Onderack31-Jan-06 5:26

Onderack

31-Jan-06 5:26

Try this;

MyPath = Application.StartupPath.ToString
Shell(MyPath + "\Potato_Traceability_User_Guide.pdf")

Dave Kreskowiak31-Jan-06 5:29

31-Jan-06 5:29

Onderack wrote:
Application.StartupPath.ToString

Why are you calling .ToString on something that is already a String???

And path handling is better left up to the Path class. Concantenating strings together can be problematic.

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

Dave Kreskowiak31-Jan-06 5:26

31-Jan-06 5:26

I'm assuming you're using VB.NET, and not VB6. That being said, OMG | :OMG:

Why are you starting an outside app using Windows Scripting Host? The Process class gives you much more control and information. Also, path handling is MUCH easier if you use the Path class.

Imports System.Io
.
.
.
Dim cmdLine As String = Path.Combine(Application.StartupPath, "\help_files\Potato.pdf")
Dim newProcess As New Process()
newProcess.StartInfo.Filename = cmdLine
newProcess.StartInfo.UseShellExecute = True
newProcess.Start()

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

oakleaf31-Jan-06 7:11

oakleaf

31-Jan-06 7:11

I was basically trying anything at that point.

Yes, VB.net 2003...
The code I was using was something that I had jotted down somewhere...sometime ago..

So I used the code you provided with one exception.

Dim newProcess As New Process<br />
newProcess.StartInfo.FileName = Application.StartupPath & "\help_files\Potato_Traceability_User_Guide.pdf"<br />
newProcess.StartInfo.UseShellExecute = True<br />
newProcess.Start()

The Path.Combine(Application.StartupPath, "\help_files\Potato_Traceability_User_Guide.pdf")
did not seem to work. It only sent "\help_files\Potato_Traceability_User_Guide.pdf" ?

Thanks.

Dave Kreskowiak31-Jan-06 7:27

Urgent help in converting C code to VB.Net

31-Jan-06 7:27

Actually, it should be

Dim filePath As String
filePath = Path.Combine(Application.StartupPath, "help_files")
filePath = Path.Combine(filePath, "Potato_Traceability_User_Guide.pdf")

This is, of course, assuming that help_files is a subdirectory of the StartupPath. Use Debug.WriteLine statements to figure out what StartUp path is returning.

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

JUNEYT31-Jan-06 3:19

JUNEYT

31-Jan-06 3:19

Hello!

Would you please give me a push to conver the following C dode to Visual basic. It is realted to WAB entry and thi sis the only sample I have found it so far so good but I do not have enough C programming knowledge. So I am seeking one expert to come over the hassle..

Thank You!

// main.h

#include <windows.h>
#include <crtdbg.h>
#include <iostream.h>

#include <wab.h>

typedef HRESULT (WINAPI *fWABOpen)(LPADRBOOK*,LPWABOBJECT*,LPWAB_PARAM,DWORD);

int main()
{
HRESULT hRes;
LPADRBOOK lpAdrBook;
LPWABOBJECT lpWABObject;
LPWAB_PARAM lpWABParam = NULL;
DWORD Reserved2 = NULL;

HINSTANCE hinstLib;
hinstLib = LoadLibrary("C:\\Program Files\\Common Files\\System\\wab32");
fWABOpen procWABOpen;

if (hinstLib != NULL)
{
procWABOpen = (fWABOpen) GetProcAddress(hinstLib, "WABOpen");

if (procWABOpen != NULL)
{
hRes = (procWABOpen)(&lpAdrBook,&lpWABObject,NULL,Reserved2);
_ASSERTE(hRes == S_OK);
if (hRes != S_OK) exit(1);

//lpWABObject->Find(lpAdrBook,NULL);
ULONG lpcbEntryID;
ENTRYID *lpEntryID;
hRes = lpAdrBook->GetPAB(
&lpcbEntryID,
&lpEntryID
);
_ASSERTE(hRes == S_OK);
if (hRes != S_OK) exit(2);

ULONG ulFlags = MAPI_BEST_ACCESS;
ULONG ulObjType = NULL;
LPUNKNOWN lpUnk = NULL;
hRes = lpAdrBook->OpenEntry(
lpcbEntryID,
lpEntryID,
NULL,
ulFlags,
&ulObjType,
&lpUnk
);

ulFlags = NULL;
//IABTable *lpTable;

if (ulObjType == MAPI_ABCONT)
{
IABContainer *lpContainer = static_cast <iabcontainer *="">(lpUnk);
LPMAPITABLE lpTable = NULL;
hRes = lpContainer->GetContentsTable(
ulFlags,
&lpTable
);
_ASSERT(lpTable);
ULONG ulRows;
hRes = lpTable->GetRowCount(0,&ulRows);
_ASSERTE(hRes == S_OK);
cout << "Rows " << ulRows << endl;
SRowSet *lpRows;

hRes = lpTable->QueryRows(
ulRows, // Get all Rows
0,
&lpRows
);
for(ULONG i=0;i<lprows->cRows;i++)
{
SRow *lpRow = &lpRows->aRow[i];
cout << i << " : " << lpRow->cValues << endl;
for(ULONG j=0;j<lprow->cValues;j++)
{
SPropValue *lpProp = &lpRow->lpProps[j];
cout << "\t" << j << " : " << (void*)lpProp->ulPropTag << " : ";

if (lpProp->ulPropTag == PR_DISPLAY_NAME_A)
cout << "Display Name: " << lpProp->Value.lpszA;
if (lpProp->ulPropTag == PR_EMAIL_ADDRESS_A)
cout << "Email Address: " << lpProp->Value.lpszA;
if (lpProp->ulPropTag == PR_NICKNAME_A)
cout << "Nickname: " << lpProp->Value.lpszA;
if (lpProp->ulPropTag == PR_ADDRTYPE_A)
cout << "Addrtype: " << lpProp->Value.lpszA;
cout << endl;
}
lpWABObject->FreeBuffer(lpRow);
}
lpWABObject->FreeBuffer(lpRows);
}
}
FreeLibrary(hinstLib);
}
return 0;
}

help is a mutual shared reality!

Re: Urgent help in converting C code to VB.Net

progload31-Jan-06 20:38

progload

31-Jan-06 20:38

B Journey,

The code you have posted is only a "snippet" of the work you will
have to do, The mapi32 parts, and other parts of the code, are all missing, I am currently converting the full code in my spare time, the full C source code can be found here:

http://msdn.microsoft.com/archive/default.asp?url=/archive/en-us/samples/internet/messaging/wabtool/default.asp[^]

I'll be more than glad to share the code conversion work with you, but it's taking me awhile to do it, as I can only work on it in my spare time, and a piece at a time. This code as far as I can tell has not been converted by anyone yet, or at least I haven't ever found it, and I've looked everywhere I can think of.(Not to mention Difficult to convert)

If you like, contact me though my email link and I'll try to help with what I can.

Progload

AD login

racebit31-Jan-06 3:03

racebit

31-Jan-06 3:03

Greetings All!

I have a newbie question here that I hope someone can help me with. My best friend google turned up no results for this question with a very simple answer im sure. D'Oh! | :doh:

Currently I have a logon script i'm placing in my Active Directory to log times clocked in and time clocked out based on logins and logouts on the domain. the script I currently have is as follows.

Dim objNet<br />
On Error Resume Next <br />
<br />
Set objNet = CreateObject("WScript.NetWork") <br />
<br />
	<br />
Dim strInfo<br />
strInfo = "User Name is     " & objNet.UserName & vbCRLF & _<br />
          "Computer Name is " & objNet.ComputerName & vbCRLF & _<br />
          "Domain Name is   " & objNet.UserDomain<br />
	  <br />
<br />
<br />
Dim TextFile<br />
Dim FSO <br />
Dim Current<br />
	Set FSO = CreateObject("Scripting.FileSystemObject")<br />
	Set TextFile = FSO.OpenTextFile("C:\Work\blahj.txt", 2, True)<br />
<br />
<br />
TextFile.Writeline strInfo<br />
<br />
Set TextFile = Nothing<br />
Set FSO	= Nothing<br />
<br />
<br />
<br />
<br />
<br />
<br />
Set objNet = Nothing                    'Destroy the Object to free the Memory

It works great, and eventually i will have it write to a sql database. But for now, my question is this
How do I call the date and time? Is there a function to do this?

I just need something that would look like this

dim strTime<br />
strTime = *function that calls time & date*

Anyone got the answer?
thanks!

"A child of five would understand this! Send someone to fetch a child of five!"-Groucho Marx
Hack. -n. "A clever solution to an interesting problem."

Re: AD login

Dave Kreskowiak31-Jan-06 4:40

Urgent - - systray & message

31-Jan-06 4:40

Dim currentTime
currentTime = Now

Visual Basic Scripting Edition - Now Function
[^]

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

Madni Abbasi31-Jan-06 2:27

Madni Abbasi

31-Jan-06 2:27

Hi,

I need to run the application in systemt tray (systray) .I need some guidance in the form of
some example. Also I need to display some messages in the systray. for example when we use
MSN Messenger and if somebody come online we see "Mr.xyz Logged in" .

I need it immediately. any help'll be appreciable.

Thanks

Re: Urgent - - systray & message

jasonpb31-Jan-06 18:16

jasonpb

31-Jan-06 18:16

You would need to use the NotifyIcon to get your app to show in the system tray.

As far as the notification, just use a new form for a popup.

-Jason

Re: Urgent - - systray & message

mAreValo1-Feb-06 11:12

mAreValo

1-Feb-06 11:12

Just try in google for NotifyIconXP written by Hans Blomme.

Mauricio

Menu Item Name?

Rana Muhammad Javed Khan31-Jan-06 1:57

31-Jan-06 1:57

how can i access the Menu Item Name Property through code Confused | :confused:

JUNEYT31-Jan-06 3:14

JUNEYT

31-Jan-06 3:14

If you have added a contextmenu on your form, you should be able to access to each menu item's property eg:

menuitem1.text = "Hello!"

Rana Muhammad Javed Khan31-Jan-06 17:40

31-Jan-06 17:40

I want to access Name Property my code is as:

<br />
      Dim mnuItem As MenuItem <br />
      For Each mnuItem In OfrmMain.mnu_Main.MenuItems<br />
           If mnuItem.Name ="NameofMenu" Then<br />
              'Do some thing<br />
           End If<br />
       Next<br />

Regards

JUNEYT31-Jan-06 22:00

JUNEYT

31-Jan-06 22:00

Hello Javed! you have confused me! Smile | :)

)

Your code is okay there is no error. If your are still not able to get the menu name that means you have to check your contextmenu name to make sure you are tryign to use the right menu collection. mnuItem.Name must return a value as you have defined in your code. If you have more than one menu collection make sure you have pointed to right collection. Otherwise, re-check the menu name which you have tried in seeking its equality to mnuItem.Name..

Take it easy!

Rana Muhammad Javed Khan31-Jan-06 23:48

31-Jan-06 23:48

My Friend

Problem is this that Menu Object dos't expose the "Name" Property....

Regards Sniff | :^)

Dave Kreskowiak1-Feb-06 5:06

1-Feb-06 5:06

Of course. There is no Name property for a MenuItem. If you can't set one, why would you be looking to read it? You can, however read its Text property.

Doing what you're looking at in your sample code is not good practice. Each menuitem should handle its own Click event.

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

Rana Muhammad Javed Khan1-Feb-06 19:53