How do I import a picture from a sequential file. I want the sequential file to have the pathname and filename and that to load the picture as the image.
If I understand you correctly, you want to have a sequential file... that file will have a path in it, to a picture file, that you will load, is this correct?
dim seqfile as string dim tmpvar as string open seqfile for input as #1 line input #1, tmpvar close #1 picture1.picture = tmpvar
Similarly, If You want to have 1 sequential file, with multiple paths (to different pictures), then you could read that into a collection as such:
dim xPaths as new collection dim seqfile as string dim tmpvar as string seqfile = "c:\somefile.dat" open seqfile for input as #1 do until eof(1) line input #1, tmpvar xPaths.Add tmpvar loop close #1
If I'm way out in left field, then please elaborate your question, and I'll be happy to assist you in any further help that you need.
I've found a way around that, which I think will be easier for the user. What I'm shooting for is a program where the user enters in the part number and clicks a button and this pulls the manufacturer and product description with a logo. The manager (I'm hoping) will write the information into the sequential file, or update it as necessary(which I'm told is frequently). Right now my code looks like this:
Private Sub cmdGetInfo_Click()
strProdNo = txtProdNo.Text
Do While Not EOF(1)
Input #1, co, part, dscr, ul
If strProdNo = part Then
lblDscrpt.Caption = dscr
lblCo.Caption = co
If ul = "UL1" Then
imgUL.Visible = True
If ul = "UL2" Then
imgUL2.Visible = True
lblDscrpt.Caption = "Not Found"
lblCo = " "
imgUL.Visible = False
imgUL2.Visible = False
With the code like this when I click the button to bring up the info. I get "Not Found"
So I moved the "Loop" to after "Input #1, co, part, dscr, ul"
This will find the last set of data in the Sequential file, but the first record brings up "Not Found"
I'm still playing around with thing, but any suggestions would be nice!
The INPUT has to be within the loop, in order to loop through the entire file. Also, if you have records AFTER the record that is actually found, that are not containing the part number in strProdNo, Then lblDscrpt and lblCo get set to Not found and nothing. So, Pretend that you have a file with:
not what you want not what you want what you want not what you want
Then The Captions Get Reset on the last line of the file, because it's not what you are looking for. You need to do 1 of two things here.... the best way is to beak out of the loop, before it finishes reading the file. So, Your code would look a little something like this:
Private Sub cmdGetInfo_Click() strProdNo = txtProdNo.Text Do While Not EOF(1) Input #1, co, part, dscr, ul If strProdNo = part Then lblDscrpt.Caption = dscr lblCo.Caption = co If ul = "UL1" Then imgUL.Visible = True exit do Else If ul = "UL2" Then imgUL2.Visible = True exit do End If End If Else lblDscrpt.Caption = "Not Found" lblCo = " " imgUL.Visible = False imgUL2.Visible = False End If Loop End Sub
I'm not sure if that will help or not.... drop a line and let me know. k?
That is perfect!
Thanks a bunch!
You're very welcome ;)
Ok now I want the user to use a separate program to enter in the information that is read. I've entered in two sets of data to test. I can enter them in fine. They look all right in notepad, but when I run the program that is reading from the file. I get the input past end of file error or it will only read the last set of data entered. I know why I'm getting input past end of file error, there is an extra space after the last entry. I delete that and then it won't find the first entry.
I'm sending you an e-mail right now