Visual Basic

13-Oct-06 18:43

Hey,

I was developing a program to edit shell icons and I had a reference list of what all the icons each code was for (i.e. 15 = My Computer). Anyway, I noticed that there were a few codes that's values were unknown, like: 14, 41, 42, 45 and 46. What shell icons are these?

And also, I was thinking of creating my own Dll file that holds pre-made shell icons (just like Windows' Shell32.dll). How do I go about compiling a Dll file to hold icons like that?

Thanks allot!

-- modified at 0:57 Saturday 14th October, 2006

May I know how to do this?

cshong13-Oct-06 17:41

cshong

13-Oct-06 17:41

I'm using Microsoft Visual Basic 6.0.
I'm doing my VB project to be handed in to my lecturer.
I have the following code in my VB project:

Open "D:\data.txt" For Input As #1

I want my program to display a messagebox if the file "D:\data.txt" is not found. How to do it?

UltraCoder13-Oct-06 17:51

13-Oct-06 17:51

This should work:

<br />
     If My.Computer.FileSystem.FileExists("D:\data.txt") = True Then<br />
        MsgBox("File not found")<br />
     End If<br />

Dave Kreskowiak14-Oct-06 4:23

Dave Kreskowiak

14-Oct-06 4:23

This won't work in VB6.

Dave Kreskowiak
Microsoft MVP - Visual Basic

ADY00713-Oct-06 23:31

ADY007

13-Oct-06 23:31

First : imports System.IO

Then do this code:

if File.Exists("D:\data.txt") = False then
MessageBox.show("File not found")
End if

Adrian De Battista: .Net Programmer, Java Programmer and Web Designer.

Kevin McFarlane14-Oct-06 2:07

Kevin McFarlane

14-Oct-06 2:07

He's using VB 6.

Kevin

myfend_liang14-Oct-06 2:20

myfend_liang

14-Oct-06 2:20

If ( Dir("D:\data.txt") = "" ) Then
MsgBox "Not Found"
End If

cshong14-Oct-06 17:36

cshong

14-Oct-06 17:36

This code work for me. Thank you.

e.Keycode for the Enter Key

Dave Kreskowiak14-Oct-06 4:25

Dave Kreskowiak

14-Oct-06 4:25

On Error Resume Next
Open "D:\data.txt" For Input As #1
If Err.Num > 0 Then
    ' Some kind of error occured opening the file...
    Exit Sub
End If
' Continue on with processing the file...

Dave Kreskowiak
Microsoft MVP - Visual Basic

UltraCoder13-Oct-06 17:37

13-Oct-06 17:37

Hey,

I am working on a program that will detect the keys that someone hits and having certain functions be called for those certain keys. I have been having trouble with the "enter" button on both Alphabetical and Numerical sides of the keyboard.

This is the code that I'm using:

 <br />
If e.KeyChar >= ChrW(48) And e.KeyChar <= ChrW(57) Then<br />
            MessageBox.Show(("Form.KeyPress: '" + _<br />
                e.KeyChar.ToString() + "' pressed."))<br />
        End If<br />
        Select Case e.KeyChar<br />
            Case "6" '6 (Right) key pressed<br />
             Function1()<br />
            Case e.Enter '8 (Enter) key pressed<br />
                Function2()<br />
            Case ChrW(49), ChrW(52), ChrW(55)<br />
                MessageBox.Show(("Form.KeyPress: '" + _<br />
                e.KeyChar.ToString() + "' consumed."))<br />
                e.Handled = True<br />
        End Select<br />

The "e.enter" is how the help file showed to do it, but it didn't work. Any ideas on what I'm doing wrong?

Thank you!

Are Jay13-Oct-06 18:48

13-Oct-06 18:48

I'm pritty sure your in the KeyPress Event and you'll need to be in the KeyDown Event.

Select Case e.KeyCode<br />
    Case Keys.Right<br />
        Function1()<br />
    Case Keys.Enter<br />
        Function2()<br />
    Case Else<br />
        e.Handled = False<br />
End Select

And so one....
Hope this helps.

UltraCoder13-Oct-06 18:52

13-Oct-06 18:52

Sorry, but this raises errors.

Thanks anyway though!

Are Jay13-Oct-06 22:17

13-Oct-06 22:17

I'm confused on how this would raise errors? If you don't mind explaining, so I don't make the same mistakes again.

UltraCoder14-Oct-06 10:55

14-Oct-06 10:55

These errors are raised:

KeyCode' is not a member of System.EventArgs
Handled is not a member of System.EventArgs

Are Jay14-Oct-06 11:20

14-Oct-06 11:20

AreJay wrote:
your in the KeyPress Event and you'll need to be in the KeyDown Event

Private Sub _KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

I've used the code before and tried it again today and it still works.

UltraCoder14-Oct-06 11:31

14-Oct-06 11:31

My mistake, it works.

Thank you!

calling .wmv file in vb6

ghelai_cute13-Oct-06 17:35

ghelai_cute

13-Oct-06 17:35

guys another question here... Smile | :)

how can i call the video with extension name of .wmv? what i want here is that, when i input a phrase or a word in the textbox, the video that corresponds it will show. and also, i want the videos to store in a database. how can i store the video in the database? its for thesis guys - thanks Smile | :)

UltraCoder13-Oct-06 17:41

13-Oct-06 17:41

Ok, you asked: < font color="aaaaaa:>what i want here is that, when i input a phrase or a word in the textbox, the video that corresponds it will show.

Are you asking to have a video come up for the path/filename of the video that you type in the textbox?

Please be more clear and I might be able to help.

ghelai_cute13-Oct-06 17:55

ghelai_cute

13-Oct-06 17:55

most probably yah. when i input word or phrase in the text box, the corresponding video of that word or phrase will show.

UltraCoder13-Oct-06 18:01

13-Oct-06 18:01

Well, I don't know how to play the video, but you can look here for the code on how to. But here is an example on how to call the video.

<br />
If PhraseBox.Text = PhraseVarible Then<br />
'(Play Video Function)<br />
End If<br />

Sorry I couldn't be musch help.

Calculating the Progress of a Download

ghelai_cute13-Oct-06 18:06

ghelai_cute

13-Oct-06 18:06

well thanks very much!!! it will help a lot Smile | :)

UltraCoder13-Oct-06 17:31

13-Oct-06 17:31

Hey,

I am designing an app that will download the newest version of my software off my website. But, I want to have a progressbar that will monitor the progress of the download. I have found millions of tutorials but they have all been for VB6, and I'm using VB2005. Does anyone know how I could do this?

Thank you!

Re: Calculating the Progress of a Download

Are Jay13-Oct-06 18:53