Computer Diary. (Edited)

[yatesell]

Okay, sorry about all that.

I have 100 text documents. They are all located in E:\The List\Text, with the names 1.txt, 2.txt ... 100.txt

I want to make a program in visual basic, where you can select from a calender a date, and it will load up a form. On that form, depending on the date/event, it will open one of the text files, so it's visible on the form (so you don't read it in Notepad, but on the Visual Basic form itself). Also, these text documents would be longer than, say, a monitor's height, so I would need to have a scroll bar.

Could somebody help?

[Rob123]

Dim BuffData As String
Dim Data As String
Dim Selected As Integer
On Error GoTo ErrParse
Selected = 1
 
 
Open "E:\The List\Text\" & Selected & ".txt" For Input As #1
Do Until EOF(1)
    Input #1, BuffData
    If Len(Data) <> 0 Then Data = Data & vbCrLf
    Data = Data & BuffData
Loop
Text1.Text = Data
Close #1
Exit Sub
 
ErrParse:
MsgBox Error

Change the value of 'Selected' depending on which file you wish to open

[yatesell]

Thank you.
However, it says "Object Required" when I click it.

[Rob123]

What line is highlighted when that error appears?

[yatesell]

It comes up on the message box. I put all that coding into a command button (just to make sure it works etc), and when I run the program, and click the button, a message box comes up saying "Object Required".

Then, if I click it again, it says "File Already Open".

[Shuja Ali]

Have you added the Textbox to the form. Add a Text box, use the default name, set the multiline property to true and scrollbars property to both. Then run the code again.

[Rob123]

After the error comes up, a line of your code should be highlighted.
I'm guessing it's the

Text1.Text = Data

line. Is your textbox named Text1 ?

[yatesell]

Oh.

I'm sorry, that's probably it. I'm very tired, and rubbish at Visual Basic. I'll check now.

Thank you so much, that works now. How can I replace the value "Selected" with, say, the value of a text box? (So you can change which file opens)


Oh never mind, thanks. I've done it.
I'm going to leave this unresolved for a day or so, incase I have any more problems.

Thanks everyone.

[yatesell]

I now have 101 forms. FrmMain, then Form1, Form2 ... Form100.

What's the code for a Combo box, so I can select the number of the form, to load it?
Say, if I select 20 from the combo, it will load Form20.

[shirazamod]

Why load different forms? You could just load the same form with different data.
Basically change 'Selected' to a global variable and then when the user selects a number, 'Selected' will become that number and then you load Form1 which will open the textfile using Selected & ".txt"

[yatesell]

Because I wanted to change the background, and title, of it all.

Basically, I'm doing 100 different things, and on different days. These events (Say, "Do X") will appear on the calender, and the combo box. If you select it, the event "Do X" will load in a form, and it will have a description of it, and a diary, and stuff.

[yatesell]

I'm sorry to be a mega pain (I'm sure I'm going to get banned soon), but can you help me with this calender (and I'll deal with the combo box later).

I have a calendar (Calendar1), and a timer (Timer1). I've put the code as:

Private Sub Timer1_Timer()
If Calendar1.Value = 17 / 4 / 2006 Then
    Form1.Visible = True
End If
End Sub

I would have thougth that would have worked (If you click on the 17th of April, 2006, form1 would load). What have I done wrong?

[shirazamod]

You are not putting the value in inverted commas, so it is doing 17 ÷ 4 ÷ 2006.
You want it to be

Calendar1.Value = "17 / 4 / 2006" Then

or something along those lines

[yatesell]

Thank you so much.

How do I put text into one of the calender date boxes?

[shirazamod]

No problem, please consider adding to my reputation if I helped out!
I'm not sure how to put text in the date boxes, I don't normally work with the calendar. Sorry.