|
STOP bothering us for an entire project just because you are either too lazy, too stupid or some combination of the two to do your own work.
NO ONE HERE IS GOING TO GIVE YOU AN ENTIRE PROJECT.
Have you not figure this out yet?
Apparently not since you keep posting idiot questions like this.
CONGRATS! You are a complete idiot! There's you f***ing code.
"Well, we're getting "F"'d at work. WPF, WCF, and WWF... WTF?" --John Simmons
|
|
|
|
|
The worst part is how many notepad vb6 clones exist, with full source included that this guy can't f***ing use google.
Honestly. GOOGLE, it would have given him this and his stupid messenger already.
|
|
|
|
|
leckey wrote: CONGRATS! You are a complete idiot! There's you f***ing code.
Best 1-liner of the month. hahahaha.
Any suggestions, ideas, or 'constructive criticism' are always welcome.
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
|
Some advice :-
1) Do not be developing in VB6, it's a dead/dying language.
2) If you can write a simple Notepad program, then maybe you should consider a different career.
Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.
|
|
|
|
|
Steven J Jowett wrote: Do not be developing in VB6, it's a dead/dying language.
Dont use such language. I work in VB6.
The word "politics" describes the process so well: "Poli" in Latin meaning "many" and "tics" meaning "bloodsucking creatures."
जय हिंद
|
|
|
|
|
Sorry to say that VB6 has not been supported by MS for quite some time now.
Oh, and the runtime is not supported under Windows 7.
|
|
|
|
|
You're a student of "Computer Software Engineering" and you can't figure out how to write a Notepad application?? If this is giving you a problem, perhaps you've picked the wrong career path.
And stop asking for complete projects. Noone is ever just going to hand over their hard work to you.
|
|
|
|
|
Check out his site, hasn't changed and my eyes are burning again.
|
|
|
|
|
No way! I still see everything in shades of green from the last time I looked at it. Now I need to wear protective eyewear all the time.
|
|
|
|
|
Yikes!
Computer Science student and he's using VB6 for a notepad app? WTF?
Any suggestions, ideas, or 'constructive criticism' are always welcome.
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
|
Already been said, this guy is a joke.
|
|
|
|
|
I have 2 ranges, I want to create the third range based off range2-range1.
I tried pretty much that, and have contemplated suicide for about 15 minutes.
Any ideas?
|
|
|
|
|
EliottA wrote: I have 2 ranges, I want to create the third range based off range2-range1.
How? Can you post what you did? Should be possible, AFAIK...
|
|
|
|
|
I think I have to use excel.Evaluate, I'm just not sure how.
I have a predefined range in one of my worksheets and I set it to a variable as Excel.Range, called Weeks.
Then I use
'the range of our unedited weeks from the node
Dim UnEditedWeeks As Excel.Range
Dim AddressLocation As String
'address of our range, topmost left bottommost right
AddressLocation = "C" & CStr(StartRowCount) & ":" & "AO" & CStr(EndRowCount)
'should be our range
Set UnEditedWeeks = Worksheets(CStr(NodeSheet)).Range(AddressLocation)
To get a new range of seperate values, this works I've stepped through it.
Now I just want to create a new range of the difference of these two ranges.
|
|
|
|
|
EliottA wrote: Set UnEditedWeeks = Worksheets(CStr(NodeSheet)).Range(AddressLocation)
IIRC, this should be
Set UnEditedWeeks = Worksheets(NodeSheet).Range(AddressLocation)<br />
The parameter is either the Worksheet name (as a string) or a number (starting with 1). Since you are using CStr, I presume NodeSheet is a numeric variable. If, for example, NodeSheet is 2, Unless you have a sheet named "2" in the workbook, this will give an error.
Also, from your code, I do not get an idea of what error you get, and how you tried to
EliottA wrote: create a new range of the difference of these two ranges.
|
|
|
|
|
ChandraRam wrote: IIRC, this should be
Set UnEditedWeeks = Worksheets(NodeSheet).Range(AddressLocation)
No the sheetnames are strings, so it has to be converted to a string. I don't get an error over there.
Think of it as matrices, for example
Range 1
2 4 3
1 3 1
5 2 1
and Range 2
1 4 3
2 2 2
5 2 1
I want to create Range 3 in memory with the contents of Range 1 - Range 2 so my Range 3 would be
1 0 0
-1 -1 1
0 0 0
|
|
|
|
|
An Excel range always refers to a location on a worksheet - so by "in memory", I guess you mean a temporary sheet.
As for your requirement, why not just iterate and get the differences into the new range's cells? I don't know of any direct function call to do what you want.
|
|
|
|
|
A range when created through VBA does not have to be in a temporary worksheet, it can be stored in memory. And I do not want to iterate using loops because it is horribly inefficient and time consuming, especially with larger ranges. Array/Matrices operations are much faster and use Excels native built-in functions which execute a lot faster.
|
|
|
|
|
Ok, I understand now what you are looking for...
Maybe this[^] will help?
|
|
|
|
|
I've written a program for my company that produces reports from the data in the instruments we use. The reports are Excel XML files that are converted into PDFs and then all the PDFs are merged into a single file for printing. Creating the XML files and merging the PDFs (thanks to iTextSharp) is no problem. However I was originally using Adobe Acrobat to actually print the PDFs and now my company has decided that they are not going to get Acrobat on everyone's computer so I need a new way of creating the PDF files. I know there are free PDF printers that I can download to everyone's computer and have Excel print directly to them. However I would prefer to completely take Excel out of the loop. I was wondering if anyone was aware of any libraries or examples of code whereby I can create a PDF from the Excel files without having to use Excel to print? Any suggestions would be greatly appreciated.
|
|
|
|
|
If you want static reports in PDF format, I believe Crystal Reports can do this.
Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.
|
|
|
|
|
Pretty much I have to still with Excel only because we sometime have to submit the Excel files to state agencies we work with, but thanks for the advice.
|
|
|
|
|
Hello! I've an application that uses vbSendMail.dll for emails. When in debug mode the application works smoothly. However once I've compiled/packaged the app using VS package and deployment wizard it does not send emails. Weird thing is it does not generate any error. vbSendMail.dll and mswinsck.ocx both have been included in the package and registered successfully. By the way I'm using vb6 for this app. This is the part of the email code
Set vbemail = New vbSendMail.clsSendMail
vbemail.SMTPHost = "****.*****.***"
vbemail.FromDisplayName = ""
sendemail
...................
vbemail.From = senderemail
vbemail.CcRecipient = "*********"
For i = 1 To Adodc3.Recordset.RecordCount
vbemail.Recipient = vbemail.Recipient + Adodc3.Recordset!email + ";"
Adodc3.Recordset.MoveNext
Next i
If Not txtemail.Text = "" Then
vbemail.CcRecipient = vbemail.CcRecipient + ";" + txtemail.Text
End If
vbemail.Attachment = Adodc1.Recordset!screenshot
vbemail.Subject = "[INCIDENT] WSA " & Adodc1.Recordset!incident & " " & Adodc1.Recordset!datereported
vbemail.Message = "Hi Sir/Ma'am" & Chr(13) & Chr(13) & "IR NO. : " & Adodc1.Recordset!irno & Chr(13) & "STATUS: " & Adodc1.Recordset!Status & Chr(13) & "PROBLEM CLASSIFICATION: " & Adodc1.Recordset!problemclassification & Chr(13) & "PROBLEM: " & Adodc1.Recordset!problem & Chr(13) & "RESOLUTION: " & Adodc1.Recordset!resolution & Chr(13) & Chr(13) & "WEBSITE: " & Adodc1.Recordset!websitename & Chr(13) & "DETAILS:" & Adodc1.Recordset!details & Chr(13) & "URL / LINK: " & Adodc1.Recordset!url & Chr(13) & "BROWSER USED: " & Adodc1.Recordset!browsertype & Chr(13) & Chr(13) & fulln & Chr(13) & departmnt
vbemail.Send
Set vbemail = Nothing
MsgBox "Email Sent", vbExclamation
Thanks in advance for any assistance on this dilemma
Aim small, miss small
|
|
|
|
|
I don't know if that is .net or vb6, but I would tell you to check out This[^] article on how you can send emails with the .net framework.
|
|
|
|
|
I don't have the solution to your problem but I do have code that will work for you try:
Dim myMail As New MailMessage()
Dim eFrom As New MailAddress("*****@****.***")
myMail.From = eFrom
myMail.To.Add("*****@*****.***")
myMail.Subject = "Your subject"
myMail.Priority = MailPriority.High
myMail.Body = "Your message"
Dim myAttachment As New Attachment("your attachment")
myMail.Attachments.Add(myAttachment)
Dim smtpClient As New SmtpClient("**.**.**.**") 'Whatever your mail server address is
smtpClient.Send(myMail)
Replacing any * with the proper character and leaving out anything you don't need. Also remember to import Imports System.Net.Mail
|
|
|
|