|
I need to find the right code for saving some data ont a text file. I need this in my Alarm Clock application. There is an object, Exit buttin, where after clicking on it, all the itmes in a lick box control will be saved onto a text file called AlarmClock.txt. The items in the list box are times entered by a user in the list box. The format of the time is like this in each items of list box: "12:12 PM" or "01:24 AM".
Here are the codes I wrote, but they do not work:
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
FileOpen(1, "..\AlarmClock.txt", OpenMode.Output)
While Not EOF(1)
FileOpen(1, "..\AlarmClock.txt", OpenMode.Output)
For iX = 0 To (Me.lstTime.Items.Count - 1)
PrintLine(1, Me.lstTime.Items(iX))
Next
End While
FileClose(1)
Me.Hide()
End Sub
Thank you,
Vahdat
|
|
|
|
|
http://www.codeproject.com/useritems/textfile.asp
I wrote that article, I know it's for a web based project but the code shuld give you an idea of how to use the framework objects that you may need to use
"a fool will not learn from a wise man, but a wise man will learn from a fool"
"It is hard to fail, but it is worse never to have tried to succeed." - Theodore Roosevelt
"Success is going from failure to failure without losing your enthusiasm." - Winston Churchill
My Website || My Blog
|
|
|
|
|
have a problem converting the string to integer. tis is my SQL statement: Dim sqlStr As String = ("SELECT COUNT(*) FROM EventTable where ActionName = '" + TxtActionName.Text + "'"). i need to know the number of COUNT. i can i get the count from my sql statement and use it in my code?
|
|
|
|
|
Try this:
SELECT COUNT(*) as ActionCount FROM EventTable where ActionName = '" + TxtActionName.Text + "'"
run the query and read out the ActionCount column from the cursor.
Hope this helps
Chandra
|
|
|
|
|
Ahh!  It happened again, I was coding and I try to debug and I get an error saying:
<br />
InvalidOperation Exception was unhandled<br />
<br />
An error occurred creating the form. See Exception.InnerException for details. The error is: Object reference not set to an instance of an object.<br />
I undid everything that I typed after the last debug and it still freaked out. Everytime this happens I have to start over on my project! What happened!
Please help! Thank you!
|
|
|
|
|
There's really no way for us to tell what happened since we know nothing of your project or the line that the error occurs on. Basically, it's saying that you're trying to call a method or use a property of an object when you don't even have an instance of it to call a method on.
Click the "Show all files" button in the Solution Explorer and open the Designer file for the form that you're having the problem with. You should be able to find the problem code in there.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
I just get an error, that's all. It doesn't say which line.
And, I don't see anything in the Designer file!
|
|
|
|
|
Ok, I found the problem, something is wrong with this variable:
Private PrintFont As New Font(RichTextBox.Font, RichTextBox.Font.Size)
The above code sets the font used when printing a document.
If you can please tell me why this variable caused an error, I would appreciate it.
Thanks for your help!
|
|
|
|
|
It won't run outside of a method. Put it in the event handler that handles the printing as
Dim PrintFont As New Font(RichTextBox.Font, RichTextBox.Font.Size)
I'm not sure of why the error occurs, I think it has to do with the InitializeComponent() call of the form - you're getting a NullReferenceException as the font has been declared before the
RichTextBox has and the compiler doesn't "think" the RichTextBox exists yet.
At least that's what I think, I stand under correction but it makes sense.
|
|
|
|
|
You used a lousy name for your RichTextBox. Don't use the name of a class as an instance variable of that same class. Rename your RichTextBox to something like myRichTextBox or NarrativeRTB or something useful. Do NOT use existing class names.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
It's called "Example", dude! I don't use generic terms like that when I'm programming! 
|
|
|
|
|
BS examples like that get you the answers I gave you. The proper way to do it is to copy and paste your REAL code. Don't use "examples" and don't just retype what you think is in your source files.
According to the error message, whatever variable you used for RichTextBox, doesn't point to an instance of anything. It's like you did this:
Dim rtb As RichTextBox
and tried to call a method on rtb. It'll give to the object instance error you got.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hi,
I have an addin module plugged into Excel, which exposes some functions to do stuff.
Im need to call those function through some VB.Net code, but its failing without much help. Its a generic ole error returned, nothing useful at all.
If the workbook contains a function/macro, I can call that easy using the Excel.ExecuteExcel4Macro() line. But this doesnt seem to work for addins.
My code looks like this:
Dim ex As New Microsoft.Office.Interop.Excel.Application()<br />
...<br />
Do stuff<br />
...<br />
ex.ExecuteExcel4Macro("RUN(""ConvertData"")")<br />
ex.Visible = True<br />
<br />
The VB.Net program opens Excel as a COM object, post some data to it, then needs to call the functions in the addin.
Anyone know of the correct syntax, or can spot where Ive gone wrong?
Mark
|
|
|
|
|
Mark,
Try this:
http://support.microsoft.com/kb/198571[^]
The article is for Access 2000, but the code would be very similar.
(Without the Set statements of course.)
objExcel.Application.Run("atpvbaen.xla!lcm", 5, 2)
Dave
|
|
|
|
|
I want to pass the name of a worksheet to the Sheets.Select(name) function. I defined a public variable in the worksheet declaration and assigned the name to the sheet I want to select. I am getting an error subscript out of range.
Any suggestions. (is this possible?)
Jude
|
|
|
|
|
TheJudeDude wrote: (is this possible?)
Sure.
Make sure the variable actually contains the name, make sure it is spelled correctly, and be specific as to which WORKBOOK you are referencing the Sheets collection in.
But do you want to select the sheet or replace ranges on it?
If you want to select the sheet, it's like this:
Ex.
Public Sub TestWBname()
Dim wb As Workbook
Dim wbName As String
Application.Workbooks("Book1").Activate
Set wb = Application.ActiveWorkbook
wbName = "mySheet"
wb.Sheets(wbName).Select
End Sub
There's a Sheets.Select([Replace]) function, which uses the syntax you specified above, but which I don't think is what you want.
|
|
|
|
|
You dont give the sheet name to the Select method. You give it to the Items property of the Sheets collection, which will return a Worksheet object, on which you call the Select method.
Sheets("Sheetname").Select()
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
1) I know this is an ASP.NET question, but the answer rate in that particulary forum is far behind this forum.
Q)The index page on a website i'm designing contains a menu for, well, navigation. My question is what is the best route to dynamically set the menu's SiteMapProvider to the correct provider based on a users login credentials.
Nathan Lindley
|
|
|
|
|
I'm trying to detect whether someone has Insert on/off, but the code I'm using isn't working.
<br />
If Keys.Insert = True Then<br />
Label.Text = "Overwrite"<br />
End If<br />
If Keys.Insert = False Then<br />
Label.Text = "Insert"<br />
End If<br />
Please help. Thank you!
|
|
|
|
|
Standard question #1:
What do you mean by "not working"?
Standard question #2:
What error message do you get?
Of course it isn't working. Keys is a enumeration that contains values for key codes. The value Keys.Insert is a constant value which can never be True, neither False, at it is not a boolean value.
You should get an error message from the compiler, saying that the value of the condition could never change, as you are comparing two constant values.
---
b { font-weight: normal; }
|
|
|
|
|
I do not get an error message or compiler error, it just doesn't change the label's text like I want it to.
And, what should I use instead of Keys or Keys.Insert?
|
|
|
|
|
I don't think there is a true dotnet way.
use this api
Private Declare Auto Function GetKeyState Lib "user32.dll" ( _
ByVal nVirtKey As VirtualKey _
) As Boolean
google it to find out how to use it...
|
|
|
|
|
Sorry, doesn't work. Thanks anyway though!
|
|
|
|
|
The api code definition was written Pre-dotnet so it uses long and integer. you need to change these to the new dotnet equivalents to int32 / int16.
just tested the below code in 2005 and it works fine:
Public Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Int32) As Int16
private sub CheckInsertStatus()
if getkeystate(keys.insert)=0 then
msgbox "overwrite"
else
msgbox "insert"
end if
end sub
|
|
|
|
|
It works! Thanks a lot dude! 
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
