|
In the image box you have sub that saving file. Image.Save(...)
Image compression is big topic that people trying to find ways to do it. The GIF, JPEG, PNG are common formats that developed specially for picture compression.
|
|
|
|
|
I am trying to convert all text in a Rich Text Box to Rot-13. But the code I am using doesn't work. By not working I mean it doesn't convert.
<br />
Dim AllText As String<br />
AllText = RichTextBox.Text<br />
Dim Part As Integer<br />
Part = AllText.IndexOf("a")<br />
Dim FileName As String<br />
FileName = AllText.Replace(Part, "Z")<br />
Dim Part2 As Integer<br />
Part = AllText.LastIndexOf("b")<br />
FileName = AllText.Replace(Part2, "Y")<br />
Any suggestions would be appreciated.  Thank you!
|
|
|
|
|
Please define your need.
Do you want to change A to Z, a to z, B to Y, b to y and so on for all the ABC ?
|
|
|
|
|
Yes, I want to convert "A to Z" and "B to Y".
|
|
|
|
|
Try this:
<br />
Dim S As String = RichTextBox.Text<br />
Dim I As Integer<br />
<br />
For I=0 To S2Rot13.Length - 1<br />
If Asc(S(I)) >= Asc("a") AndAlso Asc(S(I)) <= Asc("z") Then <br />
S(I) = Chr(Asc(S(I)) - 32) ' TO UPPER CASE<br />
ElseIf Asc(S(I)) >= Asc("A") AndAlso Asc(S(I)) <= Asc("Z") Then<br />
S(I) = Chr(Asc(S(I)) + 32) ' to lower case<br />
End If<br />
Next I<br />
Instead of going on every letter of the ABC and the abc, we going on the string and check the Ascii code.
This saving time if its string that smaller the 46 characters - instead of running 46 times every call we run as long as the string.
|
|
|
|
|
UltraCoder wrote: Dim Part2 As Integer
Part = AllText.LastIndexOf("b")
FileName = AllText.Replace(Part2, "Y")
Are you sure the code is right? Shouldn't it be
Part2 = AllText.LastIndexOf("b")
Chandra
|
|
|
|
|
Yes, thank you for pointing that out, but it still doesn't work.
Thanks anyway though!
|
|
|
|
|
UltraCoder wrote: Dim AllText As String
AllText = RichTextBox.Text
Dim Part As Integer
Part = AllText.IndexOf("a")
Dim FileName As String
FileName = AllText.Replace(Part, "Z")
Dim Part2 As Integer
Part = AllText.LastIndexOf("b")
FileName = AllText.Replace(Part2, "Y")
Maybe you can try this?
Dim s as String<br />
Dim s1 as String<br />
Dim i as Integer<br />
<br />
s = RichTextBox.Text<br />
For i = Asc("a") To Asc("z")<br />
s = Replace(s, Chr(i), Chr(i - 32)) ' - 32 gives upper case<br />
Next i<br />
s1 = ""<br />
For i = 1 To Len(s)<br />
s1 = s1 & Chr(Asc(Mid(s, i, 1)) + (25 - 2 * (Asc(Mid(s, i, 1)) - 65)))<br />
Next i
Hope this helps
Chandra
|
|
|
|
|
I am using AxWebBrowser in a VB.Net project, the program may run a few days without browser closing. I found serious memory leak, one night the memory usage could be increaced from 500 M to over 2 G. I tested with ANTS Profiler, it shows the class (Namespace SYSTEM, Class name INT32, Module name mscorlib.dll) does not release memory (live count: 40, total number of object created 3,562,977). I tried to use dispose, but it looks do not work.
I really apprecite if someone could help.
Frank
|
|
|
|
|
You'll have to do some more digging into your code. There's something else that your creating, but not Disposing when you're done with it. These include any Graphics objects, Brushes, Pens, anything that holds onto an unmanaged resource, like a Handle, any form that you show using ShowDialog() needs to be Dispose when you done with it, ...
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Dear all
I would like to have your favor to explaint me how to create a command in VB.net to tell amount in words, for example
1,200.5 will be say as one thousand two hundreds and five cent
Thank you for your attention and your support to me in advance
|
|
|
|
|
Whoa!! Sorry dude, but that's not possible!
|
|
|
|
|
UltraCoder wrote: Whoa!! Sorry dude, but that's not possible!
Anything is possible, it's one's attitude that becomes the limiting factor.
|
|
|
|
|
UltraCoder wrote: Whoa!! Sorry dude, but that's not possible!
Of course it is possible. You just need to think about the problem for a while because the solution is actually quite simple.
|
|
|
|
|
deja vu[^]
are you in the same class as this guy?
PS nobody upset 'UltraCoder' by pointing out that the thread contains a solution of sorts
|
|
|
|
|
Alex@UEA wrote: PS nobody upset 'UltraCoder' by pointing out that the thread contains a solution of sorts
Oops! Sorry, I already told him he was wrong. But I didn't know the solution was already here. 
|
|
|
|
|
All you have to do is Google for "convert number to words" and you'll find, literally, thousands of examples of this ubiquitous homework assignment.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hello
I am setting a key value in the system registry. However, I would like this removed when the user uninstalls the program.
The method I am using to set it is below:
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\CodeRedInstalled", "ITSolution", "Is Installed")
I have used window installer to install the program. However, when the uninstalls from the add remove program, I would like this key value to be deleted.
Is there anyway to do this?
Many thanks,
Steve
|
|
|
|
|
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!
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
