well i just started learning VB the other day and im starting on little projects and im on a cd player thing im making using a guideline kinda of and i need you guys to help me get it to work

code:

---

Private Sub Combo1_Change()
' to determine file type

If ListIndex = 0 Then
File1.Pattern = ("*.wma")
ElseIf ListIndex = 1 Then
File1.Pattern = ("*.mp3")
Else
Fiel1.Pattern = ("*.*")
End If

End Sub


Private Sub Dir1_Change()

'To change directories and subdirectories(or folders and subfolders)


File1.Path = Dir1.Path
If Combo1.ListIndex = 0 Then
File1.Pattern = ("*.wma")
ElseIf Combo1.ListIndex = 1 Then
File1.Pattern = ("*.mp3")
Else
File1.Pattern = ("*.*")
End If
End Sub

Private Sub Drive1_Change()

'To change drives

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()
If Combo1.ListIndex = 0 Then
File1.Pattern = ("*.wma")
ElseIf Combo1.ListIndex = 1 Then
File1.Pattern = ("*.mp3")
Else
File1.Pattern = ("*.*")
End If

If Right(File1.Path, 1) <> "\" Then
filenam = File1.Path + "\" + File1.FileName
Else
filenam = File1.Path + File1.FileName
End If
Text1.Text = filenam

End Sub


Private Sub Form_Load()

'To center the Audioplayer startup page


Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2
Combo1.Text = "*.wav"
Combo1.AddItem "*.wma"
Combo1.AddItem "*.mp3"
Combo1.AddItem "All files"

End Sub

Private Sub AudioPlayer_Click()

End Sub


Private Sub Command1_Click()

'To play Windows Media Player file or MPEG layer 3 Audio


If Combo1.ListIndex = 0 Then
AudioPlayer.DeviceType = ".wma"
ElseIf Combo1.ListIndex = 1 Then
AudioPlayer.DeviceType = ".mp3"
End If
AudioPlayer.FileName = Text1.Text
AudioPlayer.Command = "Open"
AudioPlayer.Command = "Play"

End Sub


Private Sub Command2_Click()
If AudioPlayer.Mode = 524 Then Exit Sub
If AudioPlayer.Mode <> 525 Then
AudioPlayer.Wait = True
AudioPlayer.Command = "Stop"
End If
AudioPlayer.Wait = True
AudioPlayer.Command = "Close"
End Sub

Private Sub Command3_Click()
End
End Sub

---

File1.Pattern = "*.wma"

etc

thats what i have?

without brackets I think Seggeh means

now it when i start my .mp3 files it says theres and error with

code:

---

AudioPlayer.DeviceType = (".mp3")

---

remove the brackets too

quote:

---

AudioPlayer.DeviceType = ".mp3"

---

now i removed the bbrackets and it says theres an error with the code

code:

---

AudioPlayer.Command = "Open"

---

hmm, just wondering, are you using media player control?

also, i suggest u put variations in the file pattern thing

because it wont find .MP3 or .WMA files otherwise, some songs have upper case extensions

example

File1.Pattern = "*.mp3;*.MP3"

etc...

what error is it giving you wivout the brackets?

runtime error '424':
Object required

and the code that has teh error is

code:

---

AudioPlayer.DeviceType = ".mp3"

---

hmm, i'm sorry, i can't help you with that, i always use the media player control


www.pscode.com might have something useful

where can i get this "media player control"?

in an open VB window, press ctrl + t (project - components)

and click browse, and goto your system folder and select msdxm.ocx

ok...im not worrying about that anymore but now i need to know if theres a quick code to make it enter
e.g
Dim message As Interger

message= "Hello World!"
print (pagedont/enter here)message

and it would normally just print
" Hello World"
but i want it to print
"(pagedown/enter in affect here!!!)
Hello World"

and yeah i was wondering what i could put to make it like that?

i don't get what you mean

like where it would normally say
"Hello World"
it leaves a blank line before it says it like this:
"
Hello World"

just like you press enter in the box where u reply to me it goes down a line but i need this in vb

print vbnewline & message

ok...ahah...ONE LAST THING!!...ok se heres my code

code:

---

Private Sub Command1_Click()
Dim intMsg As String
Dim Message As String

Open "C:\Documents and Settings\!~DyLaN~!\Desktop\VB\sample.txt" For Output As #1
intMsg = MsgBox("File sample.txt opened")
Message = InputBox("Enter Message")
Print #1, vbNewLine; Message
intMsg = MsgBox("Writin " & StudentName & " to sample.txt ")

Close #1

End Sub


Private Sub Form_Load()
MsgBox "Hello"

End Sub

---

Open "C:\Documents and Settings\!~DyLaN~!\Desktop\VB\sample.txt" For Append As #1

path not found, lol

this isn't going to work, unless we r on your pc

you should learn some winsock, make a server, listenin for messages, and make a client which sends the messages

dylan!, I suggest you first try some basic VB samples and coding, what you're asking for is more then you can handle (atm), even the media player is much more difficult then you think.

Grab some beginners book for VB, or at least learn to use the help files which come with VB (Press F1 very regulary and almost with each command you type, property you use, etc. to know exactly what it means and does). Online tutorials are also good to learn. But stick with the basics, and until you master that try some more difficult things gradually.

Btw, the send message stuff you wanted to do is very advanced and shouldn't be attempted until you are very experienced in VB; it is of nu use that we answer all your single questions, as that would make this thread 6541641 pages long because you will encounter error after error and problem after problem

This is not to put you down or something, but you don't run when you can't walk... You need to start at the beginning, not somewhere in the middle or even beyond that


To illustrate:

code:

---

Private Sub Form_Load()
  Left = (Screen.Width - Width) \ 2
  Top = (Screen.Height - Height) \ 2
End Sub

---

code:

---

File1.Pattern = ("*.wma")

---

code:

---

Private Sub Command2_Click()
  If AudioPlayer.Mode = 524 Then Exit Sub
  If AudioPlayer.Mode <> 525 Then
  AudioPlayer.Wait = True
  AudioPlayer.Command = "Stop"
  End If
  AudioPlayer.Wait = True
  AudioPlayer.Command = "Close"
  End Sub

---

quote:

---

Originally posted by CookieRevised
    coderivate Sub Form_Load()
      Left = (Screen.Width - Width) \ 2
      Top = (Screen.Height - Height) \ 2
    End Sub

1) Why do you use the properties like "Left", "Width" and not "Form.Left", "Form.Width", etc?
2) Why do you use "\" and not "/"?

---

Visual basic knows 2 different divisions.
One is for integers, one is for floating points.

"/" is the floating point devision. If you use that, then all variables used in the expression are first converted to floating points, then they are devided and the result will be again a floating point.

"\" is the integer devision sign. Before the expression is calculated, all the variables will be rounded down to the nearest integer (Byte, Integer, or Long) first. The result will again be an integer (and thus rounded down also).

eg:
5% / 2% = 5! / 2! = 2.5!
5! \ 2% = 5% \ 2% = 2%
89 \ 9 = 9 (and not 10; aka it is rounded down to the nearest integer, the .5 rule doesn't apply here as fractions can't exist in integers)

"%" is the marker for an 'integer'-type, "!" for a 'single'-type (aka small floating point number)

The integer devision is extremely faster than the floating point devision.

You can find this also under the topic "Arithmetic Operators" in your VB help files.

Too know exactly what integers, singles, longs, etc are look at the "Data Type Summary" topic in the help files.

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

Knowing the above, doesn't completely answer the question though.

The .Left, .Right, .Width, etc. properties of a form are always expressed in Twips*. Twips are always whole numbers, so you can't have something like 654.31 twips (unlike inches or centimeters which can be fractions)... Thus when you calculate the middle of the screen by deviding by 2, the solution must always be rounded to the nearest full unit anyways. So you better use integer devision for faster calculation (unless you want to use the .5 rule).

Left = (Screen.Width - Width) / 2
could have been used also of course. In that way VB will do actually the same, but the calculation would have been taken longer because VB needed to convert all the variables to floating points first and then calculate with floating point to end with dismissing the fraction in the end anyways.




* a twip is a screen-independent, absolute unit of measurement. A twip is a unit of length equal to 1/20 of a printer's point, and a printer's point is 1/72 of an inch. There are approximately 1440 twips to a logical inch or 567 twips to a logical centimeter (the length of a screen item measuring one inch or one centimeter when printed). Other means of measurement include characters (not to be confused with the term "a character"), pixels (the smallest possible unit) and himetrics (unless you do very advanced stuff in VB you would never encounter or use himetrics though).

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

All this info is also available in the VB help files

ok ive study lots in the last couple of days and if learnt wuite a bit and i think ive read over 50 pages of tutorials on it on the internet and i was just wondering one small and simple question
ok I want to create a folder and file on the click of a button but i was wondering what i would put to create it?????
e.g
Create "C:\Program Files\Program\Info.txt"
but i know create isnt a valid command and i was wondering what i could put to create it

I sure hope you understand this
Checks if a folder exists on the drive

code:

---

Private Sub Form_Load()
    DoesFolderExist "C:\My Test Folder", True
End Sub

Public Function DoesFolderExist(strPath As String, Optional blnCreateFolder As Boolean = False) As Boolean
On Error GoTo e:
    ChDir strPath
    DoesFolderExist = True
    Exit Function
e:
    If blnCreateFolder = True Then
        MkDir strPath
    End If
    DoesFolderExist = False
End Function

---

code:

---

Private Sub Form_Load()
    DoesFileExist "C:\My Test Folder\test.txt", True
End Sub

Public Function DoesFileExist(strFile As String, Optional blnCreateFile As Boolean = False) As Boolean
On Error GoTo e:
    FileLen (strFile)
    DoesFileExist = True
    Exit Function
e:
    If blnCreateFile = True Then
        Open strFile For Append As #1
        Close #1
    End If
    DoesFileExist = False
End Function

---

I feel bad about this.... but.... Matty, use the Dir() function to check if a folder or file exists so you don't need to use error checking* or changing your application path

* it still isn't totally 100% fail proof of course, but you know what I mean

code:

---

Public Function DoesFolderExist(strPath As String, Optional blnCreateFolder As Boolean = False) As Boolean
    Dim AnyFolder As Long
    AnyFolder = vbDirectory Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive Or vbNormal
 
    If Dir(strPath, AnyFolder) <> "" Then
        DoesFolderExist = True
    Else
        If blnCreateFolder Then
            MkDir strPath
        End If
        DoesFolderExist = False
    End If
End Function


Public Function DoesFileExist(strFile As String, Optional blnCreateFile As Boolean = False) As Boolean
    Dim AnyFile As Long
    AnyFile = vbReadOnly Or vbHidden Or vbSystem Or vbArchive Or vbNormal
 
    If Dir(strFile, AnyFile) <> "" Then
        DoesFileExist = True
    Else
        If blnCreateFile Then
            Open strFile For Output As #1
            Close #1
        End If
        DoesFileExist = False
    End If
End Function

---

quote:

---

Originally posted by dylan!
ok ive study lots in the last couple of days and if learnt wuite a bit and i think ive read over 50 pages of tutorials on it on the internet and i was just wondering one small and simple question
ok I want to create a folder and file on the click of a button but i was wondering what i would put to create it?????
e.g
Create "C:\Program Files\Program\Info.txt"
but i know create isnt a valid command and i was wondering what i could put to create it

---

code:

---

Open "C:\Program Files\Program\Info.txt" For Output As #1
    Print #1, "some line"
    Print #1, "some other line"
    Print #1, "more lines"
Close #1

---

thanks cookie again but when i click F1 it says it couldnt find and mds library or something

quote:

---

Originally posted by dylan!
thanks cookie again but when i click F1 it says it couldnt find and mds library or something

---

no i wouldnt be using an illegal version....anyways ive done a couple little things already...calculators and stuff but im stuck...i need to take text from a .txt file and put it into a msgbox

code:

---

Private Sub Command2_Click()
Open "C:\Program Files\Multi-app\password.txt" For Output As #1
Pass = "C:\Program Files\Multi-app\password.txt"
MsgBox (#1 & " is your Password.")
Close #1
End Sub

---

code:

---

Private Sub Command2_Click()
Open "C:\Program Files\Multi-app\password.txt" For Input As #1
line input #1, pass
MsgBox (pass & " is your Password.")
Close #1
End Sub

---

still doesnt work heres my complete code

code:

---

Dim intMsg, Message As String
Private Sub Command2_Click()
Open "C:\Program Files\Multi-app\password.txt" For Input As #1
Line Input #1, Pass
MsgBox (Pass & " is your Password.")
Close #1
End Sub
Private Sub Command3_Click()
Open "C:\Program Files\Multi-app\password.txt" For Append As #1
intMsg = MsgBox("Password Rememberer opened.")
Message = InputBox("Enter Password")
Print #1, intMsg; Message

Close #1
End Sub

Private Sub Command1_Click()
Dim Pass As Integer
Open App.Path & "C:\Program Files\Multi-app\password.txt" For Input As #1
Pass = InputBox("Enter Password.")
MsgBox (Pass & " remembered.")

End Sub

Public Function DoesFolderExist(strPath As String, Optional blnCreateFolder As Boolean = False) As Boolean
    Dim AnyFolder As Long
    AnyFolder = vbDirectory Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive Or vbNormal
 
    If Dir(strPath, AnyFolder) <> "" Then
        DoesFolderExist = True
    Else
        If blnCreateFolder Then
            MkDir strPath
        End If
        DoesFolderExist = False
    End If
End Function


Public Function DoesFileExist(strFile As String, Optional blnCreateFile As Boolean = False) As Boolean
    Dim AnyFile As Long
    AnyFile = vbReadOnly Or vbHidden Or vbSystem Or vbArchive Or vbNormal
 
    If Dir(strFile, AnyFile) <> "" Then
        DoesFileExist = True
    Else
        If blnCreateFile Then
            Open strFile For Output As #1
            Close #1
        End If
        DoesFileExist = False
    End If
End Function

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If MsgBox("Are you sure you want to shut down?", vbYesNoCancel) <> vbYes Then
    Cancel = True
  End If
End Sub



Private Sub mnuHelp_Click(Index As Integer)
MsgBox "Please email me at lucky_number_15s@hotmail.com for any help or SUGGESTIONS!"
End Sub

---

code:

---

Open App.Path & "C:\Program Files\Multi-app\password.txt" For Input As #1

---

quote:

---

Originally posted by dylan!
Open App.Path & "C:\Program Files\Multi-app\password.txt"

---

hmm this is all very interesting. im starting vb soon so i hope you will be able to help me with my coursework im making a roman numerals calculator (sounds easy) but i will probably need your help. i currently dont know any so it will be a steep learing curve

quote:

---

Originally posted by mad_onion
hmm this is all very interesting. im starting vb soon so i hope you will be able to help me with my coursework im making a roman numerals calculator (sounds easy) but i will probably need your help. i currently dont know any so it will be a steep learing curve

---

quote:

---

Originally posted by mad_onion
hmm this is all very interesting. im starting vb soon so i hope you will be able to help me with my coursework im making a roman numerals calculator (sounds easy) but i will probably need your help. i currently dont know any so it will be a steep learing curve

---

lol yeah im doing ocr which is cambridge i cant believe they dont change the tasks lol
what did you get in the end and did you do it to A2 level?

quote:

---

Originally posted by dylan!
still doesnt work heres my complete code

---

code:

---

Dim intMsg, Message As String

---

code:

---

Dim intMsg as Integer, Message as String

---

code:

---

Dim intMsg as Integer
Dim Message as String

---

code:

---

Private Sub Command2_Click()
Dim Pass As String
Open "C:\Program Files\Multi-app\password.txt" For Input As #1
Line Input #1, Pass

---

code:

---

MsgBox (Pass & " is your Password.")

---

code:

---

MsgBox Pass & " is your Password."

---

code:

---

Call Msgbox(Pass & " is your Password.")

---

code:

---

Private Sub Command3_Click()
Open "C:\Program Files\Multi-app\password.txt" For Append As #1

---

code:

---

Private Sub Command3_Click()
Open "C:\Program Files\Multi-app\password.txt" For Output As #1

---

code:

---

intMsg = MsgBox("Password Rememberer opened.")
Message = InputBox("Enter Password")
Print #1, intMsg; Message

---

code:

---

MsgBox "Password Rememberer opened."
Message = InputBox("Enter Password")
Print #1, Message

---

code:

---

Private Sub Command1_Click()
Dim Pass As Integer

---

code:

---

Private Sub Command1_Click()
Dim Pass As String

---

code:

---

Open App.Path & "C:\Program Files\Multi-app\password.txt" For Input As #1

---

code:

---

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If MsgBox("Are you sure you want to shut down?", vbYesNoCancel) <> vbYes Then
    Cancel = True
  End If
End Sub

---

code:

---

Private Sub mnuHelp_Click(Index As Integer)

---

code:

---

Option Explicit

Private Sub Command2_Click()
  Dim Pass As String
  Open "C:\Program Files\Multi-app\password.txt" For Input As #1
    Line Input #1, Pass
  Close #1
  MsgBox Pass & " is your Password."
End Sub

Private Sub Command3_Click()
  Dim Pass As String
  Pass = InputBox("Enter Password:")
  Open "C:\Program Files\Multi-app\password.txt" For Output As #1
    Print #1, Pass
  Close #1
  MsgBox "Password saved."
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If MsgBox("Sure?", vbYesNoCancel) <> vbYes Then
    Cancel = True
  End If
End Sub

Private Sub mnuHelp_Click(Index As Integer)
  MsgBox "Mail me at here@blah.com"
End Sub

Public Function DoesFolderExist(ByVal strPath As String) As Boolean
  DoesFolderExist = False
  If Right$(strPath, 1) = "\" Then strPath = Left$(strPath, Len(strPath) - 1)
  If Dir(strPath & "\nul", vbDirectory) = "nul" Then
    DoesFolderExist = GetAttr(strPath) And vbDirectory
  End If
End Function

Public Function DoesFileExist(strFile As String) As Boolean
  If Dir(strFile & "\nul") = "nul" Then
    DoesFileExist = (GetAttr(strFile) And (vbDirectory Or vbVolume)) = 0
  End If
End Function

---

hokay...i need some help...i have a thinger...and i have a filelist box thinger and i was wondering if when you clicked on a file in the filelist box thinger could it chnage the OLE to the selected file? and how?  and even more so if when you click on files on the OLE if it was a movie file or media file if it could play in a little wmp thinger? and how?OR even more so...when you click on a file in the filelistbox thinger it would play in the little wmp thinger? and how?

Look at the various events available for the filelistbox...

eg:
File1_Click()
File1_KeyDown()
File1_KeyPress()
File1_PathChange()
File1_PatternChange()
etc...

Use the appropiate event for your cause and use the appropiate properties of the FileListBox to get the current selection. Handle it from there...

ok...ive looked but i still dont undertsnad this...there is nothing about what i need or want in my book...i need help with the code from getting the the selected in the filelistbox to play in wmp control??

isn't it something like filelistbox1.selected.index ?

i dont know thats why i need help...i have a list of files in a filelistbox and when u double click on one it plays in the wmp control??

I can't remember exactly, and don't have VB on the computer i'm currently using, but isn't it something like:

SelectedIndex contains the index of the current selected item - this will be an integer starting from zero.

To get the text of the selected item can't you use this?

Dim MyItem as String
MyItem = List1.Items(List1.SelectedIndex)

i dont know i dont know anything at all about this it was it my book and i cant find any online tutorials on it...

quote:

---

Originally posted by Chris Boulton
To get the text of the selected item can't you use this?
Dim MyItem as String
MyItem = List1.Items(List1.SelectedIndex)

---

quote:

---

Originally posted by dylan!
and i cant find any online tutorials on it...

---

quote:

---

Originally posted by dylan!
i dont know i dont know anything at all about this it was it my book and i cant find any online tutorials on it...

---

yeah ok i got books form the library...2...2 HUGE books ive been reading for a month...BUT a new problem has evolved...i dont got the Play alternative or w.e its called but i have stop pause ect...

Why don't you stop the project you are working on and start simple things, like manipulating variables and stuff... You have to understand why things work certain ways, and if you just keep asking here you will  know what to do, but not why.

Start with simple things, learn how to use a simple listbox after that you can make it more difficult.

I'm not trying to piss you off or anything like that, i'm just saying as cookie has said many times, start with the easy stuff, learn why things behave like they do, and work onwards from that.

I myselve just started learning VB.NET and i'm making dull programs that open bmp's and change simple variables, but eventually i'll be abled to make bigger and more advanced programs.

Just take it one step at a time, and you'll learn much quicker and better

ok so im back...this time its not the simple problems i want to take information from like a rss thing...i want a dictionary...so how would i take information from like a site without writing a dictionary myself?

Sorry, but as you can read in this thread yourself you weren't able to handle easy stuff properly (or not at all). You simply copy/pasted the examples given to you which were meant to be studied and above all to be adapted to your own program instead.

So, in order to explain how to do such things as you ask, we need to write a book, as you don't have any basis.

quote:

---

Originally posted by Ezra
start with the easy stuff, learn why things behave like they do, and work onwards from that.
(...)
Just take it one step at a time, and you'll learn much quicker and better

---

God sake dylan, if you can't do it, don't try.

Maybe you should learn the basics before you try, fail, give up, and come here for answers.