Visual Basic Discussion Boards

Murtuza Husain Miyan Patel2-Aug-04 20:08

2-Aug-04 20:08

Hello,
When I am executing this form load event its giving me overflow error on the line of OwnerhWnd = GetWindow(Me.hWnd, GW_OWNER)
I have declare the apis in one general module as below.

Declare Function ShowWindow Lib "User" (ByVal hWnd As Integer, ByVal nCmdShow As Integer) As Integer
Declare Function GetWindow Lib "User" (ByVal hWnd As Integer, ByVal wCmd As Integer) As Integer

please help me to fix this problem.

Sub Form_Load()
Const SW_HIDE = 0
Const GW_OWNER = 4
Dim OwnerhWnd As String
Dim ret As Integer

' Make sure the form is invisible:
Form1.Visible = False

' Set interval for timer for 5 seconds, and make sure it is enabled:
Timer1.Interval = 5000
Timer1.Enabled = True

' Grab the background or owner window:
OwnerhWnd = GetWindow(Me.hWnd, GW_OWNER)
' Hide from task list:
ret = ShowWindow(OwnerhWnd, SW_HIDE)

End Sub

Thanks
Murtuza patel

Re: Plz Help me to fix overflow error

Dave Kreskowiak3-Aug-04 5:21

Dave Kreskowiak

3-Aug-04 5:21

Dont use Integers when getting Handles from Win32, use IntPtr's instead:

Declare Function ShowWindow Lib "User" (ByVal hWnd As IntPtr, ByVal nCmdShow As Integer) As Integer
Declare Function GetWindow Lib "User" (ByVal hWnd As IntPtr, ByVal wCmd As Integer) As IntPtr

GetWindow will return a Handle to a window or will return IntPtr.Zero for a failed call. If the return is IntPtr.Zero, then use GetLastError to find out why the call failed, if you need to.

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

Re: Plz Help me to fix overflow error

Murtuza Husain Miyan Patel3-Aug-04 20:44

Murtuza Husain Miyan Patel

3-Aug-04 20:44

Dear Dave,

I have tried the program as you mentioned. But now there is new error is comin "user-defined Type not defined"
Plz help me to fix this problem.
actually i used these api function in a module and from there i am using it in form load event. I tried to use these functions in main form also but same error is coming where should i defined these functions and constant.

Thanks
Patel Murtuza

Re: Plz Help me to fix overflow error

Dave Kreskowiak4-Aug-04 2:57

Dave Kreskowiak

4-Aug-04 2:57

patelmurtuza wrote:
new error is comin "user-defined Type not defined"

I have to see your code. This message doesn't give me enough information to see what's wrong. It would appear that something isn't typed correctly, because the same Declare's work for me. I'd have to see your declares and the code where your getting the error.

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

Re: Plz Help me to fix overflow error

Murtuza Husain Miyan Patel16-Aug-04 20:05

Murtuza Husain Miyan Patel

16-Aug-04 20:05

Hello Dave,

Have a Good Day.
Thanks for your help. I am sending you the complete code which I used to hide my app from the task manager. in form load i used the following code.

Sub Form_Load()
Const SW_HIDE = 0
Const GW_OWNER = 4
Dim OwnerhWnd As String
Dim ret As Integer

' Make sure the form is invisible:
Form1.Visible = False

' Set interval for timer for 5 seconds, and make sure it is enabled:
Timer1.Interval = 5000
Timer1.Enabled = True

' Grab the background or owner window:
OwnerhWnd = GetWindow(Me.hWnd, GW_OWNER)
' Hide from task list:
ret = ShowWindow(OwnerhWnd, SW_HIDE)

End Sub

in module I used the following declarations.

Declare Function ShowWindow Lib "User" (ByVal hWnd As Integer, ByVal nCmdShow As Integer) As Integer
Declare Function GetWindow Lib "User" (ByVal hWnd As Integer, ByVal wCmd As Integer) As Integer

Sub main()
Form1.Show
End Sub

when i declare the function as intgptr its not coming in refence. Should I have to give some special refence to get the Intgptr type decleration. right now the error is coming like userdefined not defined and if i make it as integer then the error Over Flow coming.

Please help to fix this problem or give me any other way to hide my VB6 app from task manager task list.

Re: Plz Help me to fix overflow error

Dave Kreskowiak18-Aug-04 1:42

Dave Kreskowiak

18-Aug-04 1:42

First, if your using VB6, in your declares, you have to change the Integer references to Long. VB6 doesn't support the IntPtr type. That's VB.NET...

Declare Function ShowWindow Lib "User" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Declare Function GetWindow Lib "User" (ByVal hWnd As Long, ByVal wCmd As Long) As Long

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

Re: Plz Help me to fix overflow error

Murtuza Husain Miyan Patel18-Aug-04 4:12

Murtuza Husain Miyan Patel

18-Aug-04 4:12

Dear Dave,
Thank you very much for your quick response. But I am now getting new error as "File not found :User" at line of below code

OwnerhWnd = GetWindow(Me.hWnd, GW_OWNER)

Please I wanna get rid of this problem. Or else can you give any other way to make my vb application hidden from the task manger task list.

I want to make my application running in startup but I dont want that any one can stop my application while restarting computer before it started by stopping the app from the task manager.

Thanks
Mr. Murtuza Patel.

adding a form to windows service project

Vineet Rajan2-Aug-04 18:31

Vineet Rajan

2-Aug-04 18:31

hi!

can anyone tell me how i can add a form to a windows service project that can make configuration changes to the windows service.
please let me know. thanks

regards

Networked Application

Alejandro K.2-Aug-04 5:05

Alejandro K.

2-Aug-04 5:05

Well i know that this is not exactly VB.Net realted but because my idea is to use VB.Net i'm gonna post it here...
I'm gonna create a POS program for 3 branches of the company i work for... the thing is that they want to have only 1 DB on the Headquarters, and have all the computers get connected and disconnected to it to update Inventory, Sales, Etc, my question is... what will be the best approach to this?? how can i make the application to work disconnected ( in case that internet connection is lost ), there are any articles or examples or anything around the net that can help me to get some more ideas about what will be the best approach???

Thanks.
Alex.

Re: Networked Application

Dave Kreskowiak2-Aug-04 10:58

Dave Kreskowiak

2-Aug-04 10:58

There is really no one way to do it. All I can say is do a bunch of research on ADO.NET, disconnected record sets, design patterns, POS Systems, accounting practices, ...

This is all off-the-shelf standard accounting software that's been done over and over again for years. There is nothing special about your requirements that isn't standard in these applications. Just curious...But why not buy an off-the-shelf solution for your accounting? When you consider that this is going to take you 6+ months to design, write, test and implement even a simple system, wouldn't it be cheaper to pay the vendor than to pay you?

On top of that, any accounting mistakes made by your software can easily put the liability on you. Are you insured?

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

Converting System Time to milliseconds

Simon Kearn2-Aug-04 4:33

Simon Kearn

2-Aug-04 4:33

I am running Visual Basic V6.0, and wish to take the current system time and store it in milliseconds into an 8-byte value for another system to use it. All the information I can find talks about converting into seconds, i.e. UTC, or getting the number of milliseconds since the machine was last booted up.

All I want is something that will give me the time expressed in milliseconds. I suppose I could just get the time in seconds and convert to milliseconds via * 1000, but that would not be exact.

Can anyone help me out on this one.

Thanks,

Simes

Re: Converting System Time to milliseconds

Dave Kreskowiak3-Aug-04 5:45

Dave Kreskowiak

3-Aug-04 5:45

VB6 doesn't return the time using a milliseconds field, so you'll have to call into the Win32 API to get the time.

GetLocalTime[^] will get the system time in the local timezone.
GetSystemTime[^] will return the system time in UTC.
Both of these functions will require you to pass in a SYSTEMTIME[^] structure (ByRef) to get the time out of the function. The actual return value will tell you if the call failed or not.
The declare for both functions:

Declare Sub GetLocalTime Lib "kernel32" Alias "GetLocalTime" (lpSystemTime As SYSTEMTIME)
Declare Sub GetSystemTime Lib "kernel32" Alias "GetSystemTime" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type

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

Re: Converting System Time to milliseconds

Simon Kearn5-Aug-04 0:05

Simon Kearn

5-Aug-04 0:05

So I presume then that to get the SYSTEMTIME structure into the 8-byte data type, I will have to convert the SYSTEMTIME structure to a FILETIME structure and then convert that into the 8-byte data type that I wish to use. Is that correct?

Re: Converting System Time to milliseconds

Dave Kreskowiak7-Aug-04 6:22

Dave Kreskowiak

7-Aug-04 6:22

That's right. Now all you have to do is make sure that the receiving system gets the bytes in the right order.

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

Data Dictionary

Britnt72-Aug-04 3:07

Britnt7

2-Aug-04 3:07

Can anyone explain to me, What I need to do to create a data dictionary? D'Oh! | :doh:

The following is from the help section of Advantage. I don't know how to implement this into VB.Net code in my ASP.Net project.

Creates a data dictionary.<br />
<br />
Syntax<br />
UNSIGNED32 AdsDDCreate( UNSIGNED8 *pucDictionaryPath,<br />
                        UNSIGNED16 usEncrypt,<br />
                        UNSIGNED8 *pucDescription,<br />
                        ADSHANDLE *phAdminConn );<br />
<br />
Parameters<br />
pucDictonaryPath  (I)	Full file path of the data dictionary to create. <br />
<br />
usEncrypt  (I)	        A non-zero value will cause the data dictionary data<br />
                        file to be encrypted.<br />
<br />
pucDescription  (I)	An optional description of the database in the data <br />
                        dictionary. If NULL, no database description is <br />
                        stored in the data dictionary. The database<br />
                        description can be added or changed later with <br />
                        AdsDDSetDatabaseProperty.<br />
<br />
phAdminConn  (O)	Returns a database administrative connection handle <br />
                        if the data dictionary is created successfully.<br />
<br />
Example:<br />
Create a data dictionary without encrypting the data dictionary data files, and then add a table to the database.<br />
<br />
AdsDDCreate( "n:\\MyData\\myData.ADD", 0, "This is the database of my tables and indexes.", &hDD );<br />
AdsDDAddTable( hDD, "Customer Information", "n:\\MyData\\customer.ADT", ADS_ADT, "customer.adi;customer2.adi",<br />
               "This table contains information on all customers." )

Thanks in advance. Smile | :)

Beginner in VB and ASP.Net

editing XML config file from within executing program

Vineet Rajan2-Aug-04 1:57

Vineet Rajan

2-Aug-04 1:57

hi
i am writing an application which maintains records of several clients. Each client has different settings. This is maintained in a XML file. When the user wants to update the data of a particular client changes have for that client.

this is what my XML document looks like.

<?xml version="1.0" encoding="UTF-8"?>
<config>
<client name="Cadbury">
<mcastg>222.23.342.1</mcastg>

<port>2222</port>

<path>c:\</path>

<repeat>4</repeat>

<spawn>4</spawn>

<ttl />

<profile>Custom</profile>

<custom>
<bw>1200</bw>

<dgsize>1024</dgsize>
</custom>
</client>

<client name="dabur">
<mcastg>222.23.432.23</mcastg>

<port>3333</port>

<path>d:\</path>

<repeat>5</repeat>

<spawn>5</spawn>

<ttl>4</ttl>

<profile>High</profile>

<custom>
<bw />

<dgsize />
</custom>
</client>

<client name="Vineet Inc">
<mcastg>222.23.43.4323</mcastg>

<port>5555</port>

<path>e:\</path>

<repeat>10</repeat>

<spawn>1</spawn>

<ttl>4</ttl>

<profile>Low</profile>

<custom>
<bw />

<dgsize />
</custom>
</client>

<client name="ICICI">
<mcastg>223.533.456.234</mcastg>

<port>54334</port>

<path>e:\hello</path>

<repeat>10</repeat>

<spawn>45</spawn>

<ttl>4</ttl>

<profile>Low</profile>

<custom>
<bw />

<dgsize />
</custom>
</client>

<client name="Vikram">
<mcastg>223.533.456.234</mcastg>

<port>5433</port>

<path>d:\vineet</path>

<repeat>10</repeat>

<spawn>45</spawn>

<ttl>4</ttl>

<profile>High</profile>

<custom>
<bw />

<dgsize />
</custom>
</client>
</config>

say i want to edit the settings for ICICI, how do i do from within the executing program. please give proper code.

Thanks

Re: editing XML config file from within executing program

Member 9041222-Aug-04 2:48

Member 904122

2-Aug-04 2:48

Dim ds As New DataSet

Private Sub btnGetData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetData.Click
ds = New DataSet
ds.ReadXml("c:\test.xml")
DataGrid1.DataSource = ds
End Sub

Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
ds.WriteXml("c:\test.xml")
End Sub

Re: editing XML config file from within executing program

Vineet Rajan2-Aug-04 3:09

Vineet Rajan

2-Aug-04 3:09

thanks this worked for me

but only one thing, can i do this without the DataGrid. i know it is a bit more complicated but that would be really better

Datagrid row color

benjj1-Aug-04 7:40

benjj

1-Aug-04 7:40

Re: Datagrid row color

Jay Shankar2-Aug-04 16:31

Jay Shankar

2-Aug-04 16:31

Please refer to the article in CP
Changing the background color of cells in a DataGrid
[^]Though the code is in C#. I hope this will give you some direction.
To be very frank, I do not know VB.net, I just happed to browse and saw your question.
Regards,

Jay

Re: Datagrid row color

partt3-Aug-04 11:50

partt

3-Aug-04 11:50

Try putting this in there. It's pretty flexible. The Cells index is zero based.

Private Sub MyDataGrid_ItemDataBound(ByVal sender As Object, ByVal e As DataGridItemEventArgs) Handles MyDataGrid.ItemDataBound
If e.Item.Cells(4).Text.ToString.Trim = "John Henry" Then
e.Item.Cells(4).BackColor = Color.Yellow
e.Item.Cells(4).ForeColor = Color.Blue
End If
End Sub

Excel Report Created in VB.Net

lxhan1-Aug-04 5:00

lxhan

1-Aug-04 5:00

Hello,

Does anyone know how to format a particular column in Excel to an accounting style?

Here's my situation, I created a Excel accounting report in a VB.Net application, but I'm not sure how to format certain columns to the different styles for example, accounting or currency. How is this done in the VB code?

Thanks!

How to Hide Application from Task Manager

Murtuza Husain Miyan Patel1-Aug-04 4:37

Murtuza Husain Miyan Patel

1-Aug-04 4:37

Hello Sir,

I wanna hide my vb application from the task manager. My application is in startup so when I restart the machine anybody can close it from task list before the OS is started. so it could not come on desk top any more.

Best regards
M Smile | :)

urtuza Patel

Re: How to Hide Application from Task Manager

Dave Kreskowiak1-Aug-04 17:04

Dave Kreskowiak

1-Aug-04 17:04

Simple. You can't. Even the system processes show up in the TM...

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

Re: How to Hide Application from Task Manager

s1ihome1-Aug-04 20:21

s1ihome

1-Aug-04 20:21

I think no way to do that

I Believe I Can fly!~~~

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