|
I was trying to write data in the event log. I found these lines of code somewhere:
Dim bRC As Boolean
Dim iNumStrings As Integer
Dim hEventLog As Long
Dim hMsgs As Long
Dim cbStringSize As Long
Dim iEventID As Integer
Dim sMessage As String
Dim sSource As String
sSource = "ErrLog"
sMessage = "Success Message"
hEventLog = RegisterEventSource("", sSource)
cbStringSize = Len(sMessage) + 1
hMsgs = GlobalAlloc(&H40, cbStringSize)
CopyMemory ByVal hMsgs, ByVal sMessage, cbStringSize
iNumStrings = 1
If ReportEvent(hEventLog, _
EVENTLOG_SUCCESS, 0, _
EBALOG_SUCCESS, 0&, _
iNumStrings, cbStringSize, _
hMsgs, hMsgs) = 0 Then
MsgBox "FAILED"
Else
'-- Sucessful
MsgBox "Success"
End If
Call GlobalFree(hMsgs)
DeregisterEventSource (hEventLog)
But it doesn't work, The function always returns 0. And it doesn't write anything on the log.
please help.
SDE
|
|
|
|
|
The return value is zero because there was a failure. Use GetLastError to get the error number, then look that up here[^]. This is the System Error Codes list on MSDN.
You might want to check the value returned by RegisterEventSource first. It looks like your not getting a good EventLog handle returned here. Your passing in an empty string instead of a 0 (which means NULL). This is where I think your problem is. If you change the call to this, it might work:
hEventLog = RegisterEventSource("." & chr$(0), sSource)
Again, if you get back a zero for either RegisterEventSource or ReportEvent, then use GetLastError to find out what the error was.
RageInTheMachine9532
|
|
|
|
|
hi,,,
I want to pass a value in a formula field in my report(Crystal Report 9) through Front-End. I am using CrystalReportViewer. Like in Vb 6.0 we used to write
CrystalReport1.formulafields.item("formulaname").text = FormulaValue
How to do this using vb.net and Crystalreportviewer???
thx
Tasnim
|
|
|
|
|
Something quite similar:
Dim rd As New ReportDocument
rd.Load("c:\MyReport.rpt")
rd.DataDefinition.FormulaFields.Item("FieldName").Text = "..."
crv.ReportSource = rd
What a piece of work is man, how noble in reason, how infinite in faculties, in form and moving how express and admirable . . . and yet to me, what is this quintessence of dust? -- Hamlet, Act II, Scene ii.
|
|
|
|
|
Thanks for your reply, But I am not using any Report Document. I have Crystal Report Viwer object on a form, and i am passing the reportsource through another form. My code is as below.
Dim frm As New frm_reportviewer() ''' form which contains crviewer
frm.CrViewer.ReportSource = Application.StartupPath & "\reports\rep_EFileStatusReport.rpt"
frm.Show()
What is the property of CrViewer to pass FormulaFields??? I am not getting it?
thanks
Tasnim
|
|
|
|
|
With a little research, it looks like your going to have to use a ReportDocument in order to do what you want. You create a ReportDocument using the code in the previous post, then pass the document to the CrystalReportViewer.ReportSource property so it can be viewed.
Read the example given a little closer and you'll find your solution.
RageInTheMachine9532
|
|
|
|
|
Yeah, what Dave said. You're not using the ReportDocument object, but you need to in order to access the FormulaFields collection.
What a piece of work is man, how noble in reason, how infinite in faculties, in form and moving how express and admirable . . . and yet to me, what is this quintessence of dust? -- Hamlet, Act II, Scene ii.
|
|
|
|
|
:-DI've seen code using c# to input/output using whether serial or I/O card. But still I can't find any of it in VB especially in VB 6. Can you guys give me any tutorials or websites or maybe an example by using VB 6
|
|
|
|
|
I've used this[^] library before. It's pretty good and gives you all the control you want.
RageInTheMachine9532
|
|
|
|
|
First, sorry for reposting this again (previous post)[^], however I have had not much luck researching this one, so I just want to ask for tips/hints on this matter.
The problem:
I need to set the stapling capability of a printer before printing a document (in a Word global template, i.e. VBA code).
I have found an API to set printer duplexing, which unfortunately does not include setting the stapling.
I've had a look at PDL (Page Description Language) but I find that it will be too complex to put the PDL command on top of the document file before printing it out.
If anyone has ever done this before can you please inform me on how to set printer stapling?
Thanks,
Edbert P.
Edbert P.
Sydney, Australia.
|
|
|
|
|
I can't find a single code example (in any language) that even comes close to what you want. The only example I could find is buried inside driver code, which won't help you because your not doing the actual job assembly and printing.
There are a couple of problems:
1. You need to set the stapling in PageSetup of the document before it is printed. This will not be accomplished using the API calls. What you've been looking at is setting the default for the printer for ALL documents being printed by ALL applications.
2. Since not all printers support stapling and the ones that do require you to send different data structures to enable stapling, coding this is going to be a GIANT pain.
If your doing this as a document template, you should be able to start a document, using the printer with stapling as the default printer, go into PageSetup and set everything you need to, including stapling, then setup your documents properties the way you want, then just save the template as a .DOT file. When you create a document using that template, stapling SHOULD be enabled, and not if the printer doesn't support it.
The above has NOT been tested since I don't have access to ANY printers that support stapling (rare, but cool, beasts that they are.)
RageInTheMachine9532
|
|
|
|
|
Thanks a lot for the effort (and the explanation) 
I will continue searching for this and if I find anything I will post it for everyone.
Edbert P.
Sydney, Australia.
|
|
|
|
|
Has anyone seen controls/code that produces the sort of functionality provided by the "To:" text box on an Email message? In other words - clicking a button brings up a list of items to select from, one or more items are selected and appear in the text box, double-clicking one takes you back to the relevant item in whatever data source you're using, but after an event (send or whatever) the relevant data is then copied elsewhere (to the Email item or elsewhere).
|
|
|
|
|
After much searching, I haven't seen any controls that do everything you describe. Not even half of what you want, actually...
If I were in your shoes, I would write the thing myself...
RageInTheMachine9532
|
|
|
|
|
I set the form1.moveable = false when designing. But I want that the form1 could move in running. Therefore I set the form1.moveable=true in a button click events. However it cannot be done. It shows that the .moveable is readonly and cannot be changed while running. How can I make a form moveable in running while be set to unmoveable in designing?
Thanks!
|
|
|
|
|
I have to question why this would be an issue? From what I can tell, the Moveable property has no effect at design time, only at runtime. The form in the designer is locked to the upper left corner of its document window, regardless of this property. Also, you can change the position of the form using the Top and Left properties, even when Moveable is false. I don't see how that window is moveable during design-time...
RageInTheMachine9532
|
|
|
|
|
Please tell me how to use CallByName function in VB.NET.
Thanks,
|
|
|
|
|
CallByName lets you call a Function or manipulate a Property on an object, such as a TextBox or other class:
CallByName(TextBox1, "Text", CallType.Set, "New Text")
CallByName(TextBox1, "Hide", CallType.Method)
Dim col As New Collection()
' Store the string "Item One" in a collection by
' calling the Add method.
CallByName(col, "Add", CallType.Method, "Item One")
' Retrieve the first entry from the collection using the
' Item property and display it using MsgBox().
MsgBox(CallByName(col, "Item", CallType.Get, 1))
The down side to using the CallByName function is that it is very slow. There is also no type checking of arguments, so handling errors properly becomes a bit of a pain.
RageInTheMachine9532
|
|
|
|
|
(1) How can I code a text box to accept characters of the alphabet, a spacebar (and a - for double barrel names) only? Ideally this text box is named txtName and is supposed to accept people’s names.
(2) In VB. NET how can I create a library of common procedures that I will constantly need to copy and paste to different projects
Been always great to be part of this forum, especially when I know they know more than what I know…..
|
|
|
|
|
bensoncd wrote:
How can I code a text box to accept characters of the alphabet, a spacebar (and a - for double barrel names) only? Ideally this text box is named txtName and is supposed to accept people’s names.
You could run a regular expression on the contents of the textbox changing, and disable the OK button (or whatever) until the expression matches.
bensoncd wrote:
(2) In VB. NET how can I create a library of common procedures that I will constantly need to copy and paste to different projects
Try creating a Class Library project. This allows you to create a .NET assembly (held in a DLL) that can contain your common code base.
Ian Darling
"One of the few systems...which has had “no deaths” in the reliability requirements." - Michael Platt
|
|
|
|
|
I have written a programme that should allow a pupil to enter his details and then the programme will display the pupil’s profile using a dialog box. I have worked the rest fine but I have difficulty in setting the leap year limits for the month of February. I have tried juggling around my code in many different ways, but seem not to get it right. I have left the code with an array of 10 leap years that I consider to fall within a pupil’s age. I definitely know that the problem is not with coding an array, it’s something else. I have said:
For Leap year 1 To Leap year 10
If the month is "February" And CInt(The “Value” of numeric-up-down representing the pupil’s year of birth) <> Leap year And [Day is ("29") Or ("30") Or ("31")] Then
ErrorMessage1
Exit Sub
End If
If the month is "February" And CInt(The “Value” of numeric-up-down representing the pupil’s year of birth) = Leap year And [Day is ("30") Or ("31")] Then
ErrorMessage2
Exit Sub
End If
However, an error exist somehow in the code, may you give me an idea of where the problem is.
Been always great to be part of this forum, especially when I know they know more than what I know…..
|
|
|
|
|
You might want to learn what the rules for leap years are:
If the year is divisible by 4 then it's a leap year. However, if the year is also divisible by 100, then it is not, but it it's divisible by 400 then it is.
Hence 2000, 2004, 2400 are leap years, but 1900 and 2100 are not.
A leap year has one additional day, which is February 29th.
------------------
If you're using .NET, just use DateTime.Parse or something to see if the date entered is valid or not (as the DateTime APIs handle this stuff anyway, so you're better off using them). VB6 may have a similar API.
Ian Darling
"One of the few systems...which has had “no deaths” in the reliability requirements." - Michael Platt
|
|
|
|
|
I'm making a small program wich has to be used to input bills. Becuase of this, it will have to format numbers for me.
Now, for example
When I my input is 3.50 then my output has to be 3,50 AND NOT 3500!!!!!
So my question is, how do you format numbers so that the "." becomes a "," ???
<<<eRiK>>>
|
|
|
|
|
vb6 ?
Dim n
n = 3500
MsgBox FormatNumber(n, 0, , , vbTrue)
|
|
|
|
|
I think you dont get my question well... When you enter a value (for example totall bill) most people don't use a "," but a "." . But if you enter a "." in VB, he will read it as a thousand sign, so 3.50 -> 3500 . But, I want him to make a value of it so 3.50 -> € 3,50 . Eventually without the €-sign !!
I hope you could now help me better ( by the way, it has to work with textboxes and not with msgboxes!!! )
(¯`·._.·[eRiK]·._.·´¯)
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
