Visual Basic

Dave Kreskowiak28-Jun-04 15:42

28-Jun-04 15:42

I take it your using VB6? This was a know issue that has nothing to to with the component registration. See this[^] Microsoft KB article for the fix.

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

Name Removed28-Jun-04 15:53

28-Jun-04 15:53

Dave Kreskowiak wrote:
I take it your using VB6?

No, I am using VB .Net.

Thanks for the link to the article, but it was for VB6. I am trying to use the version of the library under Windows\System32.

Dave Kreskowiak28-Jun-04 16:20

28-Jun-04 16:20

Same thing applies. The license is for the design-time fix of the control, not VB6...

What are you trying to use the Comm Control for anyway. There's already .NET libraries that can handle serial and parallel I/O without resorting to ActiveX controls, such as this[^] article on CodeProject.

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

Name Removed28-Jun-04 16:45

28-Jun-04 16:45

Thanks. I don't like using other people's code, but I will write my own library using the methods discussed in the article.

Kyle

Dave Kreskowiak28-Jun-04 17:08

28-Jun-04 17:08

What do you call using an .OCX file? It's just somebody else's code, but in this case, it's really old school code.

I have to congratulate you on wanting to write your own class for Serial Comm. It's the best way to learn and to get all the features you want.

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

Currency Validation

Member 117945028-Jun-04 9:32

Member 1179450

28-Jun-04 9:32

I have a simple question. I'm just wanting to validate a text box to make sure it has only numbers and 1 period. Is there a simple expression for this? Thanks!

Re: Currency Validation

Dave Kreskowiak29-Jun-04 3:20

Binary Serialization Issue

29-Jun-04 3:20

You can use a regular expression to validate the input. Also, if you use a regex and the input in invalid, it can return the closest match to the format that is needed. Say the user inputs 123.453.24265. The following regex will return a match with 123.45:

^([0-9]{1,}.[0-9]{0,2}){0,1}

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

tmfish28-Jun-04 9:16

tmfish

28-Jun-04 9:16

I'm having some issues with an attempt to serialize an object to file using a BinaryFormatter. The error I keep getting is:

The type System.Runtime.Remoting.ServerIdentity in Assembly mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 is not marked as serializable.

Problem #1, I have no idea where I am referencing ServerIdentity. This is the method I am running in at the time of error:

Private Shared Sub DumpUnprocessedDeployments()
Try
Dim cntr As Integer = CollInstance.Count

If cntr > 0 Then
logger.WriteLog("Dumping " + cntr.ToString.Trim() + " unprocessed deployments....")
Dim s As Stream = File.Open("bin\webdeploy.dmp", FileMode.OpenOrCreate, FileAccess.ReadWrite)
Dim bf As New BinaryFormatter
Dim dpl As Deployment
Dim al As New ArrayList

For Each dpl In CollInstance
logger.WriteLog(dpl.Project + " " + dpl.State + " " + dpl.Package + " Requester: " + dpl.User, False)
bf.Serialize(s, dpl) ' <=== ERRORS OUT HERE
Next

s.Close()
Else
logger.WriteLog("No Unprocessed Deployments to Dump")
End If
Catch ex As Exception
logger.WriteLog("An ERROR was Encountered while Generating the Dump File....")
logger.WriteLog(ex.Message, False)
End Try
End Sub

Here is the Code for the Serialized Object:
Imports System
Imports CM.WebDeployment.Interfaces

<serializable()> Public Class Deployment
Inherits MarshalByRefObject
Implements IDeployment

Private IsPending As Boolean
Private RunWhen As Date
Private FTPDir As String
Private FTPPwd As String
Private FTPSvr As String
Private FTPUsr As String
Private HPkg As String
Private HPwd As String
Private HProj As String
Private HState As String
Private HUsr As String

#Region " Object Constructor(s) "
Public Sub New()
MyBase.New()
End Sub

Public Sub New(ByVal HarProj As String, ByVal HarState As String, ByVal HarPackage As String, _
ByVal HarUser As String, ByVal HarPassword As String, ByVal FServer As String, _
ByVal FDir As String, ByVal FUser As String, ByVal FPassword As String, _
ByVal RunTime As Date)
MyBase.New()
HProj = HarProj
HState = HarState
HPkg = HarPackage
HUsr = HarUser
HPwd = HarPassword
FTPSvr = FServer
FTPDir = FDir
FTPUsr = FUser
FTPPwd = FPassword
RunWhen = RunTime
End Sub
#End Region

#Region " Implemented Properties From IDeployment "
Public ReadOnly Property FTPDirectory() As String Implements Interfaces.IDeployment.FTPDirectory
Get
Return FTPDir
End Get
End Property

Public ReadOnly Property FTPPassword() As String Implements Interfaces.IDeployment.FTPPassword
Get
Return FTPPwd
End Get
End Property

Public ReadOnly Property FTPServer() As String Implements Interfaces.IDeployment.FTPServer
Get
Return FTPSvr
End Get
End Property

Public ReadOnly Property FTPUser() As String Implements Interfaces.IDeployment.FTPUser
Get
Return FTPUsr
End Get
End Property

Public ReadOnly Property Package() As String Implements Interfaces.IDeployment.Package
Get
Return HPkg
End Get
End Property

Public ReadOnly Property Password() As String Implements Interfaces.IDeployment.Password
Get
Return HPwd
End Get
End Property

Public ReadOnly Property Project() As String Implements Interfaces.IDeployment.Project
Get
Return HProj
End Get
End Property

Public ReadOnly Property RunTime() As Date Implements Interfaces.IDeployment.RunTime
Get
Return RunWhen
End Get
End Property

Public ReadOnly Property State() As String Implements Interfaces.IDeployment.State
Get
Return HState
End Get
End Property

Public ReadOnly Property User() As String Implements Interfaces.IDeployment.User
Get
Return HUsr
End Get
End Property
#End Region

Public Property Pending() As Boolean
Get
Return IsPending
End Get
Set(ByVal Value As Boolean)
IsPending = Value
End Set
End Property
End Class

Problem #2, this was working 3 days ago (no changes made to the Deployment class).

Any help on this would be great.

Setup Project for 2 0r 3 solutions?

mythinky27-Jun-04 18:02

mythinky

27-Jun-04 18:02

Helo, I want to setup an setup project. In my setup project, I want to include two solution, how can i do that? I also want to include sound to my project. How can i add music to the setup project?
Thanks for your idea...

Learning .NET

Re: Setup Project for 2 0r 3 solutions? [EDITED]

Dave Kreskowiak28-Jun-04 0:46

28-Jun-04 0:46

Using the VS Installer project, you can't do either without coding custom actions.

You'll have to add custom actions to the setup project to get it add multiple solutions. You can add multiple PROJECTS, but not solutions. The VS Installer project is just that, a project that is part of a solution, the installation part.

Sound would require you to add code to unpack, then play an .AVI. It is possible to do using Wise Package Studio. I don't know how to do it using the VS Installer project. I also, have no examples...

[EDIT]
I should've woke up first before I posted! The easiest way to add sound is to write your own SETUP.EXE that wraps the .MSI file. Your SETUP would have the forms and stuff to find out what the user wants to install, OK the license agreement, yada, yada, yada, ... Your SETUP would also have to call into the Win32 Multimedia API to play the sound file you include with the SETUP package. Whn you have all of the setup options, you would launch the .MSI installation using the appropriate command line parameters to launch a silent and unattended install.

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

tab command

GaryKoh27-Jun-04 16:46

GaryKoh

27-Jun-04 16:46

hello
if newline (\n) coding is vbclrf
then a tab between word (\t) coding is.......
can i know the answer please
thank you in advance

Gary

Re: tab command

bneacetp27-Jun-04 18:33

bneacetp

27-Jun-04 18:33

For the tab and newline characters, in VB.NET you can use the ControlChar constant:

ControlChar.NewLine ' Generates a newline.
ControlChar.Tab     ' Generates a tab.

Hope this helps. Best of luck in your programming efforts! Big Grin | :-D

Happy Programming and God Bless!

"Your coding practices might be buggy, but your code is always right."

Internet::WWW::CodeProject::bneacetp

Re: tab command

GaryKoh28-Jun-04 3:07

GaryKoh

28-Jun-04 3:07

hello
how to use this controlchar.newline & controlchar.tab?
a small example
i wish to print the example like below

Name Age
Gary 18

i wish to print or show this sample of result in textbox
may i know how it could be done?
thank you

Gary

Re: tab command

Dave Kreskowiak28-Jun-04 3:30

Select Expert in CrystalReportViewer?

28-Jun-04 3:30

The TextBox's are not real good at tabs. Your best bet is to change the font of the TextBox you want to show this data in to a fixed width font, like Lucida Console or New Time Roman. This will make every character the exact same width, including tabs and spaces. Then, when you go to output the data:

Dim outText As String
outText = "Name" & ControlChars.Tab & "Age" & ControlChars.NewLine
outText = outText & "Gary" & ControlChars.Tab & "18" & ControlChars.NewLine
TextBox1.Text = outText

This, of course, assumes that you have a TextBox on your form called TextBox1 and that it is setup as a MultiLine textbox.

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

mythinky27-Jun-04 15:31

mythinky

27-Jun-04 15:31

Helo, anyone know how to display the "Select Expert" button in the CrystalReportViewer? The button is come from Crystal Report, but I want it to display on runtime in the Crystal Report Viewer....
How to see what version of the crystal report that come with
Microsoft Visual Studio.NET?
Any idea?
Thanks....

Special thanks to Dave Kreskowiak.
Learning .NET

Re: Select Expert in CrystalReportViewer?

Dave Kreskowiak28-Jun-04 3:17

Re: Select Expert in CrystalReportViewer?

28-Jun-04 3:17

I'm by no means an expert on Crystal Reports, but from what I've seen in the documentation for the version that comes with Visual Studio, I don't think you can show it. I haven't been able to find any method or property in the entire class library that can do what you want, nor have I found any method of hooking the viewer to add the functionality yourself.

The version that comes with Visual Studio is a custom version, based on the release 8.0 of CrystalReports, and was specifically built for bundling with Visual Studio.

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

mythinky28-Jun-04 15:34

mythinky

28-Jun-04 15:34

First of all, I need to thank you for this short period of time. You really help me doing things.
Let's say I adding components "crystl32.ocx" from the latest version to the VS.Net, does it display it?

Learning .NET

Re: Select Expert in CrystalReportViewer?

Dave Kreskowiak28-Jun-04 15:39

Manually disposing objects with API

28-Jun-04 15:39

I have no idea because I don't use Crystal Reports. But I don't think so...
You'll just have to try it to see what what kind of interface elements it exposes to you.

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

Name Removed27-Jun-04 13:45

Re: Manually disposing objects with API

27-Jun-04 13:45

Is there any way to manually dispose of an object using Windows API?

Dave Kreskowiak27-Jun-04 14:31

Re: Manually disposing objects with API

27-Jun-04 14:31

Manually dispose of a managed (.NET Framework) object using the Windows API? No, you can't. This must be done by the CLR Garbage Collector otherwise you'll corrupt the CLR runtime and crash it.

What's wrong with the .Dispose() method?

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

Name Removed27-Jun-04 15:36

Re: Manually disposing objects with API

27-Jun-04 15:36

Thanks.

Dave Kreskowiak wrote:
What's wrong with the .Dispose() method?

I was using a System.Resources.ResourceSet object for a large resource file, and when I called it's .Dispose() or it's .Close() method, it wouldn't free the memory used by it, even after GC.Collect() on then next line. I finally figured out to assign the value Nothing to it, which freed the memory used by it.

Kyle

Dave Kreskowiak27-Jun-04 18:18