Visual Basic

30-Jun-04 2:39

This doesn't make any sense at all...

Are you asking if it is possible to run an external application and make its windows child windows of your application? Where the windows are actually MDIChildren in your application?

If this is what your asking, then no it's not. The application will put up it's own windows that are not managable from outside that application.

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

data type error

GaryKoh29-Jun-04 16:50

29-Jun-04 16:50

hello
the problem i'm having is that i cant get the value i wanted from a .txt file

value in .txt file
123.445

value after call .readline
123445

the value in the .txt is a double value but when i call it to the application it become integer.
did i type the wrong coding?
the declaration and coding is as below

Dim num1 As Double
Dim sr As IO.StreamReader = IO.File.OpenText("info.txt")
Do While (sr.Peek <> -1)
num1 = CDbl(sr.ReadLine)
Loop

Text1.Text = num1
i even try almost everything i know
but the output is still 123445 and not 123.445
please help me
thank you

Gary the amatuer

Dave Kreskowiak30-Jun-04 0:38

30-Jun-04 0:38

You don't use CDbl for this. Use Double.Parse instead. CDbl is for converting between number types, not string to number:

Imports System.IO
.
.
.
Dim num1 As Double
Dim sr As StreamReader = File.OpenText("info.txt")
Do While (sr <> -1)
    num1 = Double.Parse(sr.ReadLine())
Loop
Text1.Text = num1.ToString()

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

GaryKoh30-Jun-04 1:24

30-Jun-04 1:24

hello dave
im sorry but the result is still the same
im still getting 12345 instead of 123.45
i double check everything and the value in the notepad is 123.45
i try using label instead of textbox but the same thing is shown
i try changing the value in notepad to 345,232.45 and this error comes out

An unhandled exception of type 'System.FormatException' occurred in mscorlib.dll

Additional information: Input string was not in a correct format.

but if i change it to 123.455,67 it just show me 123455,67
is the problem coming from the notepad?
i change most of the coding as you recommended

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim name, display As String
        Dim total, amount, charges As Double
        Dim num1 As Double
        Dim sr As StreamReader = File.OpenText("info.txt")


        Do While (sr.Peek <> -1)
            num1 = Double.Parse(sr.ReadLine())
        Loop
        Text1.Text = num1.ToString()
        Label2.Text = num1.ToString()

i'm so confuse on this problem cause i try reading book and it say that this two method should provide me with the answer i was looking for but it seem like it is not
please help me
thank you and sorry for the trouble

Gary the amatuer

Dave Kreskowiak30-Jun-04 12:04

30-Jun-04 12:04

This problem has nothing to do with Notepad what-so-ever.
These are the possibilities:
1) This is not the code your running.

2) The code is not opening the file you think it is.

3) The info.txt file has more to it than you're telling me.

When I tested this code, the only thing in my text file was a single line, "123.45", without the quotes. This code is GARANTEED to return the correct results:

Dim num1 As Double
Dim sr As StreamReader = File.OpenText("D:\test.txt")
num1 = Double.Parse(sr.ReadLine())
TextBox1.Text = num1.ToString()

They way your code is setup, your reading the ENTIRE file first, then returning the last value that was read. Your code can only work if the only thing on each line is a single decimal number without any punctuation except for one period.

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

GaryKoh30-Jun-04 17:13

30-Jun-04 17:13

thanks dave for your help
i think i know what is causing all this problem that i have been having so far
i took most of my application build on my PC to my friends PC to test and it all work prefectly as i expected.but when i try at my own PC anouynomous error pop out.
i cant even do the coding below while my friends PC can

formatnumber(1234,2)
formatcurrency(1234,0)

i think this happen cause some of the file needed is missing
the solution that you provide me work well in my friends PC after i send my application to him.
the "123.45" value is able to be shown and calculated as i expected
you might think that im pulling your leg but it is really the truth
and im sorry to cause you such trouble
i have to delete my vb.net program and then reinstall it again and this time i hope no problem will occur to my future programs Big Grin | :-D

again thanks for your help

Gary

Dave Kreskowiak1-Jul-04 1:21

1-Jul-04 1:21

GaryKoh wrote:
formatnumber(1234,2)formatcurrency(1234,0)

?????? What's with the comma's in the place where the decimal point is supposed to go? Is this the format of the numbers in the file? If so, the Parse method will not work unless you go into the Regional and Language Settings control panel and change the Country to the one where this data is coming from. For instance, in Germany, the number 1,000,000.00 (US-English) is represented by 1.000.000,00 The decimals and commas are interchanged.

What I'm trying to get at is the Parse method is locale sensitive. It will parse numbers based on the settings found in the Regional and Language Settings control panel.

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

GaryKoh1-Jul-04 3:29

Don't know where to put this. ACCESS! PLEASE HELP

1-Jul-04 3:29

hahaha
thanks dave
the problem i have is just the Regional and Language Setting in my computer
it is set to my country setting
but now i have set it to US-English everything is working well
and now i understand it perfectly the parse method is always base on each computer regional setting
thanks
you really help me
thank you

Gary

Rip V. Winkle29-Jun-04 15:34

Rip V. Winkle

29-Jun-04 15:34

I'm am working on a database in MS Access 2000. I have imported data from a text file.

Their are now two fields that imported in to a table:
Title and Subtitle

I want to make a macro or query (anything that is automatic) to combine the two values (Title and Subtitle) into one (MyTitle) for all the records (about 2,953). Thank you in advance.

-Peace

Re: Don't know where to put this. ACCESS! PLEASE HELP

KevinMac29-Jun-04 18:27

KevinMac

29-Jun-04 18:27

Not sure if this is what you are looking for but.

UPDATE yourtable SET main.combinedfield = [yourtable]![Title] & " " & [YourTable]![SubTitle];

Re: Don't know where to put this. ACCESS! PLEASE HELP

Rip V. Winkle11-Jul-04 8:25

Rip V. Winkle

11-Jul-04 8:25

Where do I put this code? I am trying to get it to update the field (if it needs to be updated) when the form is open. Or if I can make a macro that would do it.

Re: Don't know where to put this. ACCESS! PLEASE HELP

KevinMac12-Jul-04 16:18

KevinMac

12-Jul-04 16:18

I am not sure of your situation but I would suggest using the Acces macro builder and use the formrun or similar event to fire the import. The code is all VBA or VBscript so you may even find some code on Google that will do it for you. If you are importing this file every time the app opens you may need to work out a different strategy since this could eventually lead to errors. Good luck and I hope it helps.

Running a program from the network

ltnuke29-Jun-04 11:45

ltnuke

29-Jun-04 11:45

I'm new to windows programming so please don't laugh.

I have a visual basic .NET program that i've created. I can install it on PCs and it runs fine.

I want to be able to put it on a server that is on our local network, and I want users to be able to run the exe from through their network neighborhood (over the network). My most desirable option is that the program need not be installed locally to be able to run from the network. (Of course .NET framework would have to be installed locally)

As it is now, if I copy the exe to some place on the network and try to run it from there I recieve a unhandled exception error right away, even if the user has write permissions to that directory.

Where do I need to go next with this program to be able to do this? Remote Services???

Jeremy Falcon29-Jun-04 11:52

Jeremy Falcon

29-Jun-04 11:52

You should be able to copy the executable to a share and run it with no problems as long as the required runtimes are installed on the local machine.

If you're getting an exception on the server, then your best bet would be to either install a dev environment on the server to allow you to step through the code and found it where it craps out.

Although, I'd recommend (it help find out what's causing it instead of possibly just fixing it) using the process of elimination in your code by commented certain parts until it starts working and take it from there.

Jeremy Falcon

Steven Campbell29-Jun-04 11:59

Steven Campbell

29-Jun-04 11:59

Running a .NET program from a shared drive is not the same as running it locally, because of code-access security. Local programs are more "trusted" than remote ones, so depending on what your app is trying to do, it may get a permissions exceptions.

Couple different ways to tackle this:
* modify the .NET policies for your particular application, on each PC (by using the control panel .NET wizards)
* change your app to only do things that it is allowed to in that particular environment. For example, if you are saving files to a local drive, maybe try using isolated storage instead.
* run the app locally

my blog

Colin Angus Mackay29-Jun-04 13:16

Colin Angus Mackay

29-Jun-04 13:16

As you have two different answers, I just thought I'd wade in and add my own opinion. I'd go with Steven Campbell's reply. I'm guessing the exeption you are getting, although you don't say it, is a Security Exception.

.NET code won't run over a network unless you set the policy to trust it. You can either set up each machine to trust .NET code in a specific directory/share on the network, or you can sign all your dot net code and set the security policy to trust code that has a trusted signature.

If you have a lot of .NET code that is going to be places in lots of different places on the network then I suggest that you sign it all as it will be easier administer the security policies for .NET

I hope this helps.

"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

The Second EuroCPian Event will be in Brussels on the 4th of September

Can't manage to P/Invoke that Win32 API in .NET? Why not do interop the wiki way!

My Blog

ltnuke30-Jun-04 2:13

ltnuke

30-Jun-04 2:13

Thanks for the help.

How do I sign my .NET code?

Colin Angus Mackay30-Jun-04 4:55

Colin Angus Mackay

30-Jun-04 4:55

A quick google turned up this: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpguide/html/cpconassembliessecurityconsiderations.asp[^]

Hooking application Open file calls

mtone2-Jul-04 9:22

mtone

2-Jul-04 9:22

You should create a key/pair file with the .NET tool sn.exe found somewhere like here ..\msvisualstudio.net\FrameworkSDK\bin\sn.exe. run this from the command line with -? to show usage. I think to create a snk (Strong name key) file you use -k. look it up in help also, type Sn.exe in the index of help.

After you have the SOMEHTING.snk file you need to add it to your project Obj folder(I think) and to the Assembly.info add this line

<Assembly: AssemblyKeyFile("..\SOMEHTING.snk")>

After you have built the exe you can increase the assembly trust on the users computer using the NET Framework 1.1 Configuration tool

Programs>Administrative tools>...

Configure Code Access Security Policy > Increase Assembly Trust

Browse to the Exe on the network. follow the instructions but you will find a radio button that says something like All assemblies with same assembly public key.

selecting this will prevent you from having to do this everytime you create a new app, provided you build each app with the same SOMEHTING.snk file.

you could also do this config stuff in an MSI file but that you would have to figure out cause I do not know it.

Hope that helped

WESHILL29-Jun-04 10:32

WESHILL

29-Jun-04 10:32

Hi,

I have the following Keyboard hook module and would like to convert it so that it can hook application File Open call instead. Could someone help me with this.

...........................................
Module TestHook

Public Const WH_KEYBOARD = 2
Public Const VK_SHIFT = &H10
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Integer, ByVal ncode As Integer, ByVal wParam As Integer, ByVal lParam As KBDLLHOOKSTRUCT) As Integer
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Integer) As Integer
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Integer, ByVal lpfn As Integer, ByVal hmod As Integer, ByVal dwThreadId As Integer) As Integer
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Integer) As Integer
Public hHook As Integer
Public Function KeyboardProc(ByVal idHook As Integer, ByVal wParam As Integer, ByVal lParam As KBDLLHOOKSTRUCT) As Integer
'if idHook is less than zero, no further processing is required
If idHook < 0 Then
'call the next hook
KeyboardProc = CallNextHookEx(hHook, idHook, wParam, lParam)
Else
'check if SHIFT-S is pressed
If (GetKeyState(VK_SHIFT) And &HF0000000) And wParam = Asc("S") Then
'show the result
MsgBox("Shift-S pressed ...")
End If
'call the next hook
KeyboardProc = CallNextHookEx(hHook, idHook, wParam, lParam)
End If
End Function

End Module

Private Sub Form_Load()
hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)
End Sub

Private Sub Form_Unload(Cancel As Integer)
'remove the windows-hook
UnhookWindowsHookEx hHook
End Sub
...........................................

Thanks,

Dave Kreskowiak29-Jun-04 15:49

29-Jun-04 15:49

You can't convert this to catch a File Open. There is no hook for that. What, exactly, do you want to accomplish by hooking the File System?

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

WESHILL29-Jun-04 17:57

WESHILL

29-Jun-04 17:57

I would like to intercept open calls by any applications that try to open files with the *.txt, for example. I would like to perform some routine before the application proceeds with the open.

Dave Kreskowiak30-Jun-04 0:34

30-Jun-04 0:34

You would have to write what is essentially a device driver. The driver would attach to the NTFS file system and report back with the details your looking for. You can't do it entirely in VB.NET. The .NET languages, except for C++, are too high-level for work like this. You could write your app that does the actual reporting in VB.NET, but the driver work is best done in C++.

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