Re: VB.NET PROJECT(HELP!!!!!!) - Visual Basic Discussion Boards

Re: Excel 2000 vs 2002

Niels Penneman12-Jan-04 10:35

12-Jan-04 10:35

Have you tried to re-import the libraries you are using? Because interop DLLs probably need to be regenerated to work with another file version...

greetz Wink | ;-)

*Niels Penneman*

Software/Dev Site
Personal Site

VB.NET PROJECT(HELP!!!!!!)

Greg287-Jan-04 19:07

Greg28

7-Jan-04 19:07

Hi, My name is Greg Kelley. I'm a student in college. I'm currently studying Visual Basic.Net. I have a project that I'm working on, and I'm having some problems bringing it all together.I need to create a program that contains the following:

Menu System Required
Merge(2)Files together
Sort the File(First six characters)
Encrypt the file
Decrypt the file
Note: The file must contain 10 records(80 bytes long)

If you could asssist me in this , it would be greatly appreciated. If so, I need to do this in its simpliest form.

Thanks,

Greg Kelley Confused | :confused:

Greg Kelley

Re: VB.NET PROJECT(HELP!!!!!!)

Dave Kreskowiak8-Jan-04 4:01

Dave Kreskowiak

8-Jan-04 4:01

What are you having problems with? Menus, Merge, Sort, Encrypt/Decrypt??

RageInTheMachine9532

Re: VB.NET PROJECT(HELP!!!!!!)

Greg288-Jan-04 4:09

Greg28

8-Jan-04 4:09

Thanks for responding. Well to be honest. I having problems with all of those.

This program doesn't have to be complex. Unfortunately, i had some personal issues that required to be absent for the class when all of the above was covered. I've been trying to contruct this on my own but haven't had much success. Your help would greatly be appreciated!!!!

Thanks
Greg Kelley

Greg Kelley

Re: VB.NET PROJECT(HELP!!!!!!)

Guillermo Rivero8-Jan-04 9:59

Guillermo Rivero

8-Jan-04 9:59

Buddy, we can help you here, but I think that's your homework. Send me the code you've already done, and I'll give you some help with it.

Free your mind...

Re: VB.NET PROJECT(HELP!!!!!!)

Greg288-Jan-04 20:27

Greg28

8-Jan-04 20:27

Here is what i've done so far.

'Greg Kelley
'VB Program
'1-9-04

Module Module1

Sub Main()

'Read the contents of File1 to end of file and close.

Dim File1 As New System.IO.StreamReader("c:\words.txt")
Dim word1 As String = File1.ReadToEnd()
File1.Close()

'Reads the content of File2 to end of file and close.

Dim file2 As New System.IO.StreamReader("c:\test.txt")
Dim word2 As String = file2.ReadToEnd()
file2.Close()

'Merges the contents of file1 and file2 into File3 and closes.

Dim File3 As New System.IO.StreamWriter("c:\main.txt,")
File3.WriteLine(word1 & word2)
File3.Close()

End Sub

' Encrypts/decrypts the passed string using
' a simple ASCII value-swapping algorithm

Public Function SimpleCrypt(ByVal Main As String) As String

Dim X As String, i As Integer

' Encrypt
X = SimpleCrypt(Main)
MessageBox.Show(Main)

' Decrypt
X = SimpleCrypt(Main)
MessageBox.Show(Main)

For i = 1 To Len(Main)
If Asc(Mid$(Main, i, 1)) < 128 Then
File3 = _
CType(Asc(Mid$(Main, i, 1)) + 128, String)
ElseIf Asc(Mid$(Main, i, 1)) > 128 Then
File3 = _
CType(Asc(Mid$(Main, i, 1)) - 128, String)
End If
Mid$(Main, i, 1) = _
Chr(CType(File3, Integer))
Next i
Return Main

End Function

End Module

Greg Kelley

Re: VB.NET PROJECT(HELP!!!!!!)

Guillermo Rivero9-Jan-04 5:06

Guillermo Rivero

9-Jan-04 5:06

Where do you need help ?

Crypting and Decrypting ??

Free your mind...

Re: VB.NET PROJECT(HELP!!!!!!)

Greg289-Jan-04 9:34

Greg28

9-Jan-04 9:34

Console Application

The program is suppose read in 2 txt files
Then concatenate those two files into a single txt file
Then Display the encrypted contents on screen
Write to another file
Display the decrypted contents on screen
Read the encrypted file

encrypting and then decrpyting .txt file

Greg Kelley

Re: VB.NET PROJECT(HELP!!!!!!)

Guillermo Rivero9-Jan-04 9:43

Guillermo Rivero

9-Jan-04 9:43

I haven't tested the code you sent me.

Does the Crypt-Decrypt algorithm work ?

If not, build the algorithm and I'll help you build the solution.

Free your mind...

Help!!! on getting control over Controls on VB.Net Forms

Het21097-Jan-04 18:35

Het2109

7-Jan-04 18:35

How to get all the controls in the form, like in VB we used to do

for each ctrl in me

if typeof ctrl is Textbox then
ctrl.text = ""
end if

next

How we do this in VB.Net.???

Thanks

Smile | :)

Be Humble in Victory and Strong in Defeat. Smile | :)

-Het

Re: Help!!! on getting control over Controls on VB.Net Forms

Corinna John7-Jan-04 20:59

Corinna John

7-Jan-04 20:59

The controls are in me.Controls.

for each ctl as Control in me.Controls
if TypeOf ctl Is TextBox Then ...
next

Thanks Corrina but,,,

Het21098-Jan-04 0:12

Het2109

8-Jan-04 0:12

was good one controls are in me, but, I tried out the code, i declared ctl as object, and gave the same code but it is giving me "syntax error ." thats what it is saying. so if u can help me out.

Thanks again for ur reply

Smile | :)

Be Humble in Victory and Strong in Defeat. Smile | :)

-Het

Re: Thanks Corrina but,,,

Corinna John8-Jan-04 0:53

Corinna John

8-Jan-04 0:53

ctl should to be Control, not Object. I tried this, without any errors:

For Each ctl As Control In Me.Controls
ctl.Text = "hier"
Next

Re: Thanks Corrina but,,,

Ian Darling8-Jan-04 0:59

Ian Darling

8-Jan-04 0:59

Het2109 wrote:
giving me "syntax error

I tested that code myself in VB.NET 2003 and it seems fine, but if you're using 2002 the "For Each [x] As [type]" syntax won't work

try:

Dim c As Control
For Each c In Me.Controls
    If TypeOf c Is TextBox Then

    End If
Next

--
Ian Darling
"The moral of the story is that with a contrived example, you can prove anything." - Joel Spolsky

But about groupbox...

Het21098-Jan-04 2:55

Het2109

8-Jan-04 2:55

ya, but suppose i have a group box and my textbox/combo box is placed on the group box, then how to access it. thru this code i get groupbox, but not the controls that are placed inside the groupbox.

Smile | :)

Be Humble in Victory and Strong in Defeat. Smile | :)

-Het

Re: But about groupbox...

Ian Darling8-Jan-04 3:07

Ian Darling

8-Jan-04 3:07

Het2109 wrote:
ya, but suppose i have a group box and my textbox/combo box is placed on the group box, then how to access it. thru this code i get groupbox, but not the controls that are placed inside the groupbox.

Then handle that case in the loop, either by having a secondary loop, or better, set up the loop as a function that takes a controls collection as a parameter. eg:

Public Sub RecurseControls(ByVal ctls As ControlCollection)

    Dim c As Control
    For Each c In ctls
        If TypeOf c Is TextBox Then
            Debug.WriteLine(c.Text)
        ElseIf TypeOf c Is GroupBox Then
            RecurseControls(c.Controls)
        End If
    Next

End Sub

You call this function, passing in Me.Controls to start with.

--
Ian Darling
"The moral of the story is that with a contrived example, you can prove anything." - Joel Spolsky

ActiveX Dll project in Visual Basic.net

iluha7-Jan-04 10:21

iluha

7-Jan-04 10:21

Hello everybody!

I'm new to the Visual basic.net and I'm trying to create a ActiveX dll project to use on server side in my asp pages.

I have created several of similar projects in vb6 and never had a problem.

I created a new Class library project. Added ComClass tag with ClassID, InterfaceId and EventsID. I checked the "Register for COM Interop" in project properties.

I created test asp page that calls Server.CreateObject("appname.classname") and this is when I get the error "object reference not set to an instance of an object"

Does any one know why this happens?

Confused | :confused:

Thank you for any help!
iluha

Re: ActiveX Dll project in Visual Basic.net

iluha7-Jan-04 12:17

iluha

7-Jan-04 12:17

I found the problem!

Public Sub New()
MyBase.New()
g_dbConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
End Sub

as soon as i commented the "g_dbConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""" line it started to work.

Can some one tell me, can i have extra code in the sub new ?
besides the MyBase.New()?
Confused | :confused:

I Need Help Copying Files

BrianReeve7-Jan-04 8:49

BrianReeve

7-Jan-04 8:49

I've been assigned the task of creating a batch file to copy a set of files from one directory to another every night. It needs to be over a windows network.

My source files are organized like this:

\\server\clients\smith\network_diagram\diagram.htm
\\server\clients\brown\network_diagram\diagram.htm
\\server\clients\johnson\network_diagram\diagram.htm
\\server\clients\doe\network_diagram\diagram.htm

Destination needs to be like this:

\\server\network_diagram\smith\diagram.htm
\\server\network_diagram\brown\diagram.htm
\\server\network_diagram\johnson\diagram.htm
\\server\network_diagram\doe\diagram.htm

I need to avoid hard coding each directory in the batch file in case we gain new clients. My problem is creating a loop in a Windows Command Batch file so I'm thinking a small VB app is the way to go. I'm not too experienced in VB at all so I would appreciate help doing a loop like the following:

For all client folders in "\\server\clients\" copy "\\server\clients\client name\diagram.htm" to "\\server\network_diagram\client name\diagram.htm"

Re: I Need Help Copying Files

iluha7-Jan-04 9:40

iluha

7-Jan-04 9:40

Here is some code that will go through the directory copy you files.

Option Explicit

Private Const MAX_PATH = 260
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const INVALID_HANDLE_VALUE = -1

Private Type FileTime
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FileTime
ftLastAccessTime As FileTime
ftLastWriteTime As FileTime
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long

Private Sub Form_Load()
On Error Resume Next
Dim hSearch&, FileData As WIN32_FIND_DATA, aFolderName$
hSearch& = FindFirstFile("\\server\clients\*.*", FileData)
If hSearch& <> INVALID_HANDLE_VALUE Then
Do
If FileData.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY Then
aFolderName$ = Mid$(FileData.cFileName, 1, InStr(1, FileData.cFileName, vbNullChar) - 1)
Select Case aFolderName$
Case ".", ".." 'skip
Case Else
CopyFile "\\server\clients\" & aFolderName$ & "\diagram.htm", "\\server\network_diagram\" & aFolderName$ & "\diagram.htm", True
End Select
End If
FileData.cFileName = ""
Loop While FindNextFile(hSearch&, FileData)
FindClose (hSearch&)
End If
End Sub

Sleepy | :zzz:

iluha

Re: I Need Help Copying Files

BrianReeve7-Jan-04 10:06

BrianReeve

7-Jan-04 10:06

Thank you. It looks much more than I expected. I need to get VS.NET on here then I can try it out.

Shell Or Other command to open a file.

jlizardo7-Jan-04 3:55

jlizardo

7-Jan-04 3:55

Hi
I want to open any document without the .exe file to open it. Example.

If I using shell("c:\program files\microsoft office\office\winword.exe c:\temp\mydoc.doc")

I dont't wanna that.

How i can only put Shell("c:\temp\mydoc.doc") or other command to open it.

Johnny Lizardo

Re: Shell Or Other command to open a file.

jlizardo7-Jan-04 4:04

jlizardo

7-Jan-04 4:04