Visual Basic

4-Aug-04 3:33

You must copy over and register the MMCONTROL.OCX and, if you have it, the MCI32.OCX file on the target machine. You can't just copy it over and expect it to work. If it is already in the System32 directory on the target machine, unregister and register the control.

C:\WINDOWS\SYSTEM32>regsvr32 /u mmcontrol.ocx
C:\WINDOWS\SYSTEM32>regsvr32 mmcontrol.ocx

Do the same for MCI32.OCX.
If it still does not work, you'll need a fix the license information in the registry.

See this[^] article on MSDN for more information.

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

Re: MMControl Help

Red Sunday4-Aug-04 7:54

Red Sunday

4-Aug-04 7:54

I tried the regsvr32 bit and it didn't work.
First off, the working computer does not have mmcontrol.ocx it only has the MCI32.ocx. We un-registered and re-registered this file and get the same error.
Next, we are using VB 6.0 on BOTH systems. Neither one are using the .NET structures. I appreciate your help...we are soooo stuck. Unsure | :~

Red Sunday

-----------------
http://www.zachcalvert.com

Re: MMControl Help

Dave Kreskowiak4-Aug-04 10:48

4-Aug-04 10:48

In that case, the licesing is screwed up and you have to refere to the Microsoft page I put in my first post. What you need to do is get ahold of MS Support as directed in that page and they'll send you a reg file that will correct the problem.

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

overwrite a mdb file

kornstyle3-Aug-04 12:26

kornstyle

3-Aug-04 12:26

I found some vb script code on the internet that can convert a comma delimited text file into an mdb file. Here is the code.

--------------------------------------------------------------------------
'NBM 04/10/2001

'Declare constants
Const Jet10 = 1
Const Jet11 = 2
Const Jet20 = 3
Const Jet3x = 4
Const Jet4x = 5

'Routine to create MDB file.
Sub createNewMDB(FileName, Format)
Const adInteger = 3
Const adVarWChar = 202
Const adVarChar = 200
Const adCollNullable = 2

Dim Catalog
Set Catalog = CreateObject("ADOX.Catalog")

Catalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Jet OLEDB:Engine Type=" & Format & _
";Data Source=" & FileName

Dim objListTable, objColumn
Set objListTable = CreateObject("ADOX.Table")

objListTable.Name = "List"
objListTable.Columns.Append "TestCount", adVarWChar, 40
objListTable.Columns.Append "TestTime", adVarWChar, 50
objListTable.Columns.Append "TestDate", adVarWChar, 50
objListTable.Columns.Append "SerialNumber", adVarWChar, 50
objListTable.Columns.Append "CylinderSize", adVarWChar, 40
objListTable.Columns.Append "CylinderService", adVarWChar, 30
objListTable.Columns.Append "CylinderManufacturer", adVarWChar, 10
objListTable.Columns.Append "DOTRating", adVarWChar, 35
objListTable.Columns.Append "TestPressure", adVarWChar, 30
objListTable.Columns.Append "ActualPressure", adVarWChar, 20
objListTable.Columns.Append "TestDuration", adVarWChar, 20
objListTable.Columns.Append "TotalExpansion", adVarWChar, 45
objListTable.Columns.Append "PermExpansion", adVarWChar, 45
objListTable.Columns.Append "PercentPermanentExpansion", adVarWChar, 45
objListTable.Columns.Append "ElasticExpansion", adVarWChar, 45
objListTable.Columns.Append "REE", adVarWChar, 45
objListTable.Columns.Append "Disposition", adVarWChar, 45
objListTable.Columns.Append "PlusStar", adVarWChar, 45
objListTable.Columns.Append "Remarks", adVarWChar, 45
objListTable.Columns.Append "CylinderOwner", adVarWChar, 45
objListTable.Columns.Append "NotKnown", adVarWChar, 45
objListTable.Columns.Append "Source", adVarWChar, 45
objListTable.Columns.Append "ManufactureDate", adVarWChar, 45
objListTable.Columns.Append "Unit", adVarWChar, 45

For Each objColumn in objListTable.Columns
objColumn.Attributes = adCollNullable
Next

Catalog.Tables.Append objListTable

End Sub

Sub convertCSVtoMDB(AccessFile, CSVFile)

Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = &H0001
Const adOpenDynamic = 2
Const adLockOptimistic = 3

Dim fso, FileCSV
Set fso = CreateObject("Scripting.FileSystemObject")
Set FileCSV = fso.GetFile(CSVFile)

Dim objConn, objRs
Set objConn = CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"Dbq=" & FileCSV.ParentFolder & ";" & _
"Extensions=asc,csv,tab,txt;" & _
"Persist Security Info=False"

Set objRs = CreateObject("ADODB.Recordset")
objRs.Open "Select * From " & FileCSV.Name, objConn, adOpenStatic, adCmdText

Dim objAccessConn, objAccessRs
Set objAccessConn = CreateObject("ADODB.Connection")
objAccessConn.Open "Driver={Microsoft Access Driver (*.mdb)};" &_
"Dbq=" & AccessFile & ";" & _
"Uid=Admin;" &_
"Pwd=;"

Set objAccessRs = CreateObject("ADODB.Recordset")
objAccessRs.Open "List",objAccessConn,adOpenDynamic,adLockOptimistic

Do While Not objRS.EOF

objAccessRs.AddNew

objAccessRs("TestCount") = objRs("TestCount")
objAccessRs("TestTime") = objRs("TestTime")
objAccessRs("TestDate") = objRs("TestDate")
objAccessRs("SerialNumber") = objRs("SerialNumber")
objAccessRs("CylinderSize") = objRs("CylinderSize")
objAccessRs("CylinderService") = objRs("CylinderService")
objAccessRs("CylinderManufacturer") = objRs("CylinderManufacturer")
objAccessRs("DOTRating") = objRs("DOTRating")
objAccessRs("TestPressure") = objRs("TestPressure")
objAccessRs("ActualPressure") = objRs("ActualPressure")
objAccessRs("TestDuration") = objRs("TestDuration")
objAccessRs("TotalExpansion") = objRs("TotalExpansion")
objAccessRs("PermExpansion") = objRs("PermExpansion")
objAccessRs("PercentPermanentExpansion") = objRs("PercentPermanentExpansion")
objAccessRs("ElasticExpansion") = objRs("ElasticExpansion")
objAccessRs("REE") = objRs("REE")
objAccessRs("Disposition") = objRs("Disposition")
objAccessRs("PlusStar") = objRs("PlusStar")
objAccessRs("Remarks") = objRs("Remarks")
objAccessRs("CylinderOwner") = objRs("CylinderOwner")
objAccessRs("NotKnown") = objRs("NotKnown")
objAccessRs("Source") = objRs("Source")
objAccessRs("ManufactureDate") = objRs("ManufactureDate")
objAccessRs("Unit") = objRs("TotalExpansion")

objAccessRs.Update

objRS.MoveNext
Loop

objAccessRs.Close
objAccessConn.Close
objRs.Close
objConn.Close

Set objAccessRs = Nothing
Set objAccessConn = Nothing
Set objConn = Nothing
Set objRs = Nothing

End sub

'Create Access2000 database
createNewMDB "c:\Program Files\csvdata\template.mdb", Jet4x
'Convert the CSV into the newly created MDB file.
convertCSVtoMDB "c:\Program Files\csvdata\template.mdb", "c:\Program Files\csvdata\export.csv"

--------------------------------------------------------------------------

When I run the code the export.csv file is converted into the template.mdb file. If the template.mdb file from the previous time that the code was run has not been deleted an error message "The database already exists". So I have to delete the mdb file everytime that I run the code.

I was wondering if there was a way that someone could explain to me, so that I would not have to delete the mdb file everytime? In other words the code would simply overwrite the mdb file. Is this possible? Could someone help me?

Thanks.

Re: overwrite a mdb file

Dave Kreskowiak4-Aug-04 3:08

Populating dropdown in client side.

4-Aug-04 3:08

Do you want to delete the database file automatically so you don't have to do it by hand?

Or do you want to add the new data to the existing database?

The code you posted creates the database .MDB), then creates the table the data does into, the creates all the columns in the table. Do you want this database recreated every time you want the data imported from .CSV or do you want to append the new data to the existing database?

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

Re: overwrite a mdb file

kornstyle4-Aug-04 3:54

kornstyle

4-Aug-04 3:54

Actually I was wondering if instead of deleting or appending(adding to) to the database file, I could overwrite(replace) whatever data was in the database?

mittalpa3-Aug-04 11:07

mittalpa

3-Aug-04 11:07

Hi

I have two dropdowns in one .aspx page. First is all the states in US and another is for Cities in respective state (initally it is disabled). The data for States and Cities is coming from database and I am binding that in codebehind.

Cities dropdown gets enabled after state selection. For populating cities based on state selection, I want to do a client side operation, not the server side.

Using VB.NET, Javascript.

Please suggest any code example to acheive this. Thanks

PJ

Follow your goals, Means will follow you ---Gandhi---

Re: Populating dropdown in client side.

Dave Kreskowiak4-Aug-04 3:00

Highlight a cell in DataGrid

4-Aug-04 3:00

Your question would be better handled in the ASP.NET Forum.

Your solution lies entirely in JavaScript. ASP.NET is only used for generating HTML for a browser. If you were to do this entirely in VB.NET, selecting the state would require a round trip to the server.

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

screen shot and Remoting

tommy_tanaka3-Aug-04 8:17

tommy_tanaka

3-Aug-04 8:17

well - i have a problem with screenshotting and remoting.

what i do:

my server-application has an hashtable where it stores the client-objects and a pictureBox.

the client-object owns the function _captureScreen:
Public Function _captureScreen() As Image Implements IClient._captureScreen
Dim getScreenShot As ScreenShot
'myParent is the mainForm from which the client-object was created
myParent.status.Text = "Screenshot called"
myParent.Screen.Image = CType(getScreenShot.CaptureScreen(),System.Drawing.Bitmap)
Return CType(getScreenShot.CaptureScreen(),System.Drawing.Bitmap)
End Function

The class ScreenShot simply catch a bitmap of the actual screen. i got the code from the net:

Public Class ScreenShot

Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal
lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As
String, ByVal lpInitData As String) As Integer

Private Declare Function CreateCompatibleDC Lib "GDI32" (ByVal hDC As
Integer) As Integer

Private Declare Function CreateCompatibleBitmap Lib "GDI32" (ByVal hDC As
Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer

Private Declare Function GetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps"
(ByVal hdc As Integer, ByVal nIndex As Integer) As Integer

Private Declare Function SelectObject Lib "GDI32" (ByVal hDC As Integer,
ByVal hObject As Integer) As Integer

Private Declare Function BitBlt Lib "GDI32" (ByVal srchDC As Integer, ByVal
srcX As Integer, ByVal srcY As Integer, ByVal srcW As Integer, ByVal srcH As
Integer, ByVal desthDC As Integer, ByVal destX As Integer, ByVal destY As
Integer, ByVal op As Integer) As Integer

Private Declare Function DeleteDC Lib "GDI32" (ByVal hDC As Integer) As
Integer

Private Declare Function DeleteObject Lib "GDI32" (ByVal hObj As Integer) As
Integer

Const SRCCOPY As Integer = &HCC0020

Private oBackground As Bitmap

Private FW, FH As Integer

Public Function CaptureScreen() As Image

Dim hSDC, hMDC As Integer

Dim hBMP, hBMPOld As Integer

Dim r As Integer

hSDC = CreateDC("DISPLAY", "", "", "")

hMDC = CreateCompatibleDC(hSDC)

FW = GetDeviceCaps(hSDC, 8)

FH = GetDeviceCaps(hSDC, 10)

hBMP = CreateCompatibleBitmap(hSDC, FW, FH)

hBMPOld = SelectObject(hMDC, hBMP)

r = BitBlt(hMDC, 0, 0, FW, FH, hSDC, 0, 0, 13369376)

hBMP = SelectObject(hMDC, hBMPOld)

r = DeleteDC(hSDC)

r = DeleteDC(hMDC)

oBackground = Image.FromHbitmap(New IntPtr(hBMP))

Return CType(oBackground, Image)

End Function

End Class

now, as soon as i call the client-function "_captureScreen" in my server-object:

Public Function _getClientScreenShort() As Image Implements
IServer._getClientScreenShot

Dim user As IClient

Dim capturedScreen As Image

'_clients is the hashtable
For Each user In _clients.Values

Try

capturedScreen = user._captureScreen

Catch e As Exception

Me._schoolMain.Info.Text = "Exception in Screenshot: " & e.ToString

End Try

Next

Return capturedScreen

End Function

now the following happens:

at client-site the status-text "screenshot called" is printed.
but after this, nothing happens. the picturebox of the client application stays empty.

the server-application even hangs up. (is a thread needed here???)

could someone help me out of my mess?

i hope i explained it understandable.

if not, just ask for more code or explaination.

thanks to all who took the time to read my thread.

greetings-

tom

Richard Jones3-Aug-04 8:00

Richard Jones

3-Aug-04 8:00

Using VB.Net, I am able to set the CurrentCell in DataGrid.

I don't know if it is the CF or the control, but it will not hightlight the cell.

Any ideas?

Canada has 6 zones, none of which are erogenous.

communication port

x_no3-Aug-04 0:07

x_no

3-Aug-04 0:07

can anybody show me how to use the MScomm ???

"_____ ______"

|
-_ _-
-______-

Re: communication port

Dave Kreskowiak3-Aug-04 5:17

adding a new node to XML config file

3-Aug-04 5:17

I haven't found any tutorials using MSCOMM, but with the VB.NET Resource Kit, downloadable here[^], there comes a free .NET comm library from Sax, complete with docs and samples.

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

Vineet Rajan2-Aug-04 20:57

Vineet Rajan

2-Aug-04 20:57

hi!

i am creating an XML document which keeps the record
of each client information. my XML document looks like this.

How can i add a new client? i am able to make updates to existing ones.

please give code.
thanks

vineet

<?xml version="1.0" standalone="yes"?>
<config>
<client name="Cadbury">
<mcastg>223.223.223.223</mcastg>
<port>4000</port>
<path>D:\</path>
<repeat>
</repeat>
<spawn>
</spawn>
<ttl>2</ttl>
<profile>Custom</profile>
<custom>
<bw>23</bw>
<dgsize>512</dgsize>
</custom>
</client>
<client name="dabur">
<mcastg>222.23.23.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.43</mcastg>
<port>5555</port>
<path>e:\</path>
<repeat>
</repeat>
<spawn>
</spawn>
<ttl>
</ttl>
<profile>Custom</profile>
<custom>
<bw>213</bw>
<dgsize>384</dgsize>
</custom>
</client>
<client name="ICICI">
<mcastg>244.244.224.2</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.33.56.234</mcastg>
<port>5433</port>
<path>d:\vineet</path>
<repeat>
</repeat>
<spawn>
</spawn>
<ttl>
</ttl>
<profile>Custom</profile>
<custom>
<bw />
<dgsize />
</custom>
</client>
<client name="SBI">
<mcastg>234.45.56.23</mcastg>
<port>4000</port>
<path>c:\</path>
<repeat>3</repeat>
<spawn>4</spawn>
<ttl>4</ttl>
<profile>Custom</profile>
<custom>
<bw />
<dgsize />
</custom>
</client>
</config>

Plz Help me to fix overflow error

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

Dave Kreskowiak3-Aug-04 5:21

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

Murtuza Husain Miyan Patel3-Aug-04 20:44

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

Dave Kreskowiak4-Aug-04 2:57

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

Murtuza Husain Miyan Patel16-Aug-04 20:05

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.

Dave Kreskowiak18-Aug-04 1:42

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

Murtuza Husain Miyan Patel18-Aug-04 4:12

adding a form to windows service project

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.

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