.NET environment variables - Visual Basic Discussion Boards

Dave Kreskowiak17-Jul-04 7:12

17-Jul-04 7:12

There are samples of this all over. Especially on MSDN, like this[^] example.

Here's a condensed version. This accepts any text object, including URL links dragged from IE, dropped on a Textbox on your form.

    Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
        Try
            If e.Data.GetDataPresent(DataFormats.Text, True) Then
                e.Effect = DragDropEffects.Link
                TextBox1.Text = e.Data.GetData(DataFormats.Text, True)
            Else
                e.Effect = DragDropEffects.None
            End If
        Catch ex As Exception
            e.Effect = DragDropEffects.None
            Debug.WriteLine(ex.ToString)
        End Try
    End Sub
 
    Private Sub TextBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter
        Try
            If e.Data.GetDataPresent(DataFormats.Text, True) Then
                e.Effect = DragDropEffects.Link
            Else
                e.Effect = DragDropEffects.None
            End If
        Catch ex As Exception
            Debug.WriteLine(ex.ToString)
        End Try
    End Sub

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

Re: Get URL from hyperlink text

Vyyk Drago17-Jul-04 8:57

Vyyk Drago

17-Jul-04 8:57

My everlasting thanks - of all the samples out there, this was the best and most concise...thanks again Smile | :)

I REALLY appreciate this.

Best regards
Vyyk

Re: Get URL from hyperlink text

Dave Kreskowiak17-Jul-04 9:24

Dave Kreskowiak

17-Jul-04 9:24

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

picturebox and imagelist

monkeyjoe15-Jul-04 2:56

monkeyjoe

15-Jul-04 2:56

I'm confused....when I create a picturebox and have multiple pics to display in it, I create an imagelist, correct? and from that imagelist, how do I make the images displayed conditional to the output?

pseudocode:
if TechnicianNumber is 89
then display image1
else if TechnicianNumber is 88
then display image2....

and so on.
Is this possible?

Re: picturebox and imagelist

Dave Kreskowiak17-Jul-04 6:26

Dave Kreskowiak

17-Jul-04 6:26

You don't have to use an Imagelist. You could also just keep a list of filenames in an array or just create your own collection of Bitmap objects. Any colleciton of images will, of course, be much more resource intensive that keeping an array of filenames.

To show the image, you could just set the Image property of the Picturebox to the Bitmap object or you could just give the PictureBox the filename you have stored. It really depends on how many images you have.

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

Converting X-Y Co-ordinates of Mouse to Twips

15-Jul-04 2:20

Hello Everybody
Requirement of application is, when we click a button, new form should be display near it. I got X-Y coordinated using GetCursorPos function/procedure
But I want to convert into control/forms co-ordinates. I donot know conversion method. Please help me.
Your suggestions are valueable for me & highly regreated
Thank You

Re: Converting X-Y Co-ordinates of Mouse to Twips

Syed Abdul Khader16-Jul-04 5:14

Syed Abdul Khader

16-Jul-04 5:14

Use Control Class MousePosition Property and PointToScreen and PointToClient methods.

.NET environment variables

madfiddlerchris14-Jul-04 23:42

madfiddlerchris

14-Jul-04 23:42

I hope someone can help me with this!

I am trying to set some environment variables from my VB.NET application.

I am using System.Environment.GetEnvironmentVariable to return the values and to set them I am using the following function....

Private Declare Function SetEnvironmentVariableA Lib "kernel32.dll" _
(ByVal lpName As String, _
ByVal lpValue As String) As Integer

When I set a variable and then check that it has been set from within the application it appears fine. However, if I open a command prompt window and use SET I cannot see the variable at all. This seems to indicate to me that each .NET applicaiton runs in its own "shell".

The problem I have is that I am kicking of a sub-process that runs in a JVM and this needs various environment variables to be set.

So how can I set variables from VB.NET into the master Windows environment so these can be picked up on by the sub-process?

Re: .NET environment variables

Dave Kreskowiak16-Jul-04 1:05

Dave Kreskowiak

16-Jul-04 1:05

You're right, every app that runs launches with its own copy of the environment variables. This happens even to apps that your app spawns, they get a copy of your app's environment.

The solution is a little surprising. See this[^] article on MSDN.

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

Re: .NET environment variables

madfiddlerchris21-Jul-04 1:04

madfiddlerchris

21-Jul-04 1:04

Well for some reason my sub-process is not inheriting the variables set ni my .NEt applicaiton.

I finally found the MSDN article Dave pointed to before I came back here and read his reply! I found MSDN very unhelpful in terms of explaining how to implement this in VB.NET particulrly because of the LPARAM argument to the SendMessageTimeout function

OK so this is how you propagate environment variables to the system with VB.NET

First of all you need the following Win32 API function declarations...

Private Declare Function SendMessageTimeoutA Lib "user32" _<br />
                                 (ByVal hwnd As Integer, _<br />
                                  ByVal MSG As Integer, _<br />
                                  ByVal wParam As Integer, _<br />
                                  ByVal lParam As Byte(), _<br />
                                  ByVal fuFlags As Integer, _<br />
                                  ByVal uTimeout As Integer, _<br />
                                  ByRef lpdwResult As Integer) As Integer<br />
<br />
Private Declare Function SetEnvironmentVariableA Lib "kernel32.dll" _<br />
                                 (ByVal lpName As String, _<br />
                                  ByVal lpValue As String) As Integer

To set a variable I then defined my function as follows...

<br />
    Sub SetEnvironmentVariable(ByVal strVariableName As String, ByVal strValue As String)<br />
<br />
        Const WM_SETTINGCHANGE = &H1A<br />
        Const HWND_BROADCAST = &HFFFF<br />
        Const SMTO_NORMAL = 2<br />
        Const SMTO_ABORTIFHUNG = &H2<br />
<br />
        Dim regKey As RegistryKey<br />
        Dim lpdwResult, result As Integer<br />
<br />
        ' declare the system environment variable for the current user by inserting it <br />
        ' into the registry<br />
        regKey = Registry.CurrentUser.OpenSubKey("Environment", True)<br />
        regKey.SetValue(strVariableName, strValue)<br />
<br />
        ' now propagate the system with the variable...<br />
        result = SendMessageTimeoutA(HWND_BROADCAST, _<br />
                                     WM_SETTINGCHANGE, _<br />
                                     0, <br />
                                     Encoding.GetEncoding(1252).GetBytes("Environment"), _<br />
                                     SMTO_ABORTIFHUNG, _<br />
                                     5000, _<br />
                                     lpdwResult)<br />
<br />
        ' even though the variable is now available to the windows system<br />
        ' it is not seen in the current "shell" by the application<br />
        ' to ensure it is seen we need to set it agauin but his time using<br />
        ' Win32 API SetEnvironmentVariableA function of kernel32.dll<br />
        result = SetEnvironmentVariableA(strVariableName, strValue)<br />
<br />
    End Sub<br />

....to delete an environment variable, is then pretty simple. Use code as above but replace regKey.SetValue with...

regKey.DeleteValue(strVariableName, False)

and remove strValue from the subroutine declaration and relpace it in the code with an empty string ""

Note that the LPARAM argument is passed to SetMessageTimeout as an array of bytes that represent the string "Environment" and that in my example I am using code page 1252 (ANSI Latin I) - you may wish to change this code page to suit your system. I'm not sure whether this would work if your system uses a multi-byte or double-byte character set....

hope that helps other people!

cheers
mf

Re: .NET environment variables

Dave Kreskowiak21-Jul-04 14:43

Dave Kreskowiak

21-Jul-04 14:43

Welcome to the world of P/Invoking the Win32 API. You'll run into lots of it because Windows is not a .NET native environment. That being said, you'll find that you'll have to translate MANY examples of code, be it on MSDN or on the web in general, into VB.NET code on your own. Congratulations on your first attempt!

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

Inheriting DataGridColumnStyle

beowulfagate14-Jul-04 20:57

beowulfagate

14-Jul-04 20:57

How do I inherit DataGridColumnStyle?

Re: Inheriting DataGridColumnStyle

Syed Abdul Khader15-Jul-04 0:04

Syed Abdul Khader

15-Jul-04 0:04

Visit the following msdn link.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfsystemwindowsformsdatagridcolumnstyleclasstopic.asp[^]

Re: Inheriting DataGridColumnStyle

beowulfagate15-Jul-04 18:16

beowulfagate

15-Jul-04 18:16

Thanks! Just what I needed. A concrete example.

Binding picture box?

mythinky14-Jul-04 15:31

mythinky

14-Jul-04 15:31

I am binding a picture box. I have format the picture box to ensure it's not bind to an empty path or invalid path or invalid file. But problem raise, after formating the binding picture, the form doesn't load correctly. After &qt form1.Show() &qt executed, it doesn't call form1_load. But if i am not formating the binding picture, it will execute the f0rm1_load after it execute the &qt form1.Show() &qt. Is there any other code I need to put to the form1? Or what actually the problem?
Thanks. Please help me!!!

Learning .NET

VB.Net forms on the Web

monkeyjoe14-Jul-04 14:50

monkeyjoe

14-Jul-04 14:50

Hello all. I'm working on a school project and it would be mad cool if I could get my VB forms to run in a browser and query a MySQL database thats on a web server. Do I embed the code as I would Perl or PHP into the HTML code or do I embed the executable file into the HTML coding? Any and all assistance would be appreciated.

Dare

Re: VB.Net forms on the Web

Dave Kreskowiak14-Jul-04 18:16

Dave Kreskowiak

14-Jul-04 18:16

Mad Cool??? Hmmm | :|

You can't embed the form in an HTML page. You'd have to rewrite your app as an ASP.NET application. The only thing you could do with the .EXE you have now is to include a link in your web page. Clicking that link would download the .EXE just like any other file. You'll get the Save dialog box, ...

The user's machine would have to have the same version of the .NET Framework installed in order for that .EXE to download and work.

If you rewrite your app as an ASP.NET application, the user will only need a web browser to get to your new ASP.NET version.

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

Re: VB.Net forms on the Web

monkeyjoe15-Jul-04 2:06

monkeyjoe

15-Jul-04 2:06

damn. thats not very mad cool Poke tongue | ;-P

(hey man, it was 2 in the morning!)

I will take your advice and try to code it in ASP. I only have a couple of days to do, but I think it'll be worth the shot. Thanks

Re: VB.Net forms on the Web

The Man from U.N.C.L.E.19-Jul-04 6:56

The Man from U.N.C.L.E.

19-Jul-04 6:56

You could create a UserControl and use that in a web page as you would an activeX control, however, the client would need the .Net run time.

Crystal Report and navigate

Saktya14-Jul-04 14:49

Saktya

14-Jul-04 14:49

I have a problem when displaying a report that have more than 1 page.
When I click on "next page" button in crystal report toolbar, the page cannot be shown.

Pleaaseee help meeeeee Confused | :confused:

Re: Crystal Report and navigate

Anonymous15-Jul-04 17:11

Anonymous

15-Jul-04 17:11

Need more information. For example does the viewer show a + sign next to the page number to indicate multiple pages. Maybe there are no pages because this is the end of the displayed data and you are filtering off the last remaining expected records.

PsSetLoadImageNotifyRoutine

James Gohl14-Jul-04 7:45

James Gohl

14-Jul-04 7:45

HELP! Could anyone please help me, I am trying to us the PsSetLoadImageNotifyRoutine process structure routine in Visual Basic 6 and I would like to be able to intercept process images and stop them from opening. Does anyone have a clue how to do this? and is it possible in Visual Basic? Confused | :confused:

Re: PsSetLoadImageNotifyRoutine

Dave Kreskowiak14-Jul-04 8:59

Dave Kreskowiak

14-Jul-04 8:59

I seriously doubt anyone has used that in VB6, or any VB for that matter. Why would you want to stop executable code from loading? You do realize that when your callback is called, the image is already loaded but has not started execution yet. You can't use the callback to stop an image from being loaded or executed. It's just used to notify your code that an executable image was loaded and is about to start.

What, exactly, are you looking at stopping?

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

Re: PsSetLoadImageNotifyRoutine

James Gohl14-Jul-04 21:34

James Gohl

14-Jul-04 21:34

Is there any way to intercept an image and be able to stop it. I am writing a security application and I am using the registry to stop applications running. By adding a gate in the HKCR\exefile\shell\run\command key I have successfully been able to block applications but the main problem is when an application is not loaded using the ShellExecute API i.e. it is loaded using the Shell("") command in VB instead. Do you have any ideas? Or are you going to tell me it can't be done based from your own knowledge?

TTFN! Big Grin | :-D

VB.NET and Outlook's "BeforeItemPaste" Event signature

joseph_rich_tx14-Jul-04 2:55

joseph_rich_tx

14-Jul-04 2:55

I am trying to respond to Outlook's "BeforeItemPaste" event. However, I am being notified by visual studio that the calling signature is wrong.

I think this is because the event's signature includes the param "clipboardcontent as Variant". Obviously VB.NET no longer supports a Variant data type. I have tried Object and VariantType, to no avail. How do I work around this? Thanks for the help.

.................
Dim WithEvents olExplorer As Outlook.Explorer

Private Sub olExplorer_BeforeItemPaste(ByVal ClipboardContent As VariantType, ByVal Target As Outlook.MAPIFolder, ByVal Cancel As Boolean) Handles olExplorer.BeforeItemPaste

MsgBox("got it! ")
Cancel = True

End Sub

JRich

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.