|
My first question would be are you running the same version of the .NET Framework at home as your are at work? Are you running 1.0 at home and 1.1 at work?
RageInTheMachine9532
|
|
|
|
|
I am new to vb.net and crystal reports, so i don't know where to go to ask this question so if anyone could tell me a better forum to go or help me out I would greatly appreciate it. I am trying to create a report with two sections and totals for each the way i set it up is like this:
page header
'this part has the column names
Details
'this part is where the info form the database is shown(multipleEntries)
report footer
'this part is where the totals are shown
Now i want to put a section just like this one under it. so I add more sections to the footer but when it gets the info from the database i only get one entry back and there are many.
Thank you,
Santana
|
|
|
|
|
If you use the XP theme in your VB6 app, I have noticed:
(1) OptionButton background (i.e. where the caption is) is totally black!
(2) If CommandButton's are contained within a Frame they have a black thin border!
Does anyone know of anyway to stop this unwanted 'features'?
|
|
|
|
|
I have an array made up of a cutom structure called sl1. How can I find the index of the sl1 object, in the array, that has a name property equal to value I'm searching for?
|
|
|
|
|
You have to loop around the array until you find it.
For example:
Dim I As Integer
For I = 0 To ar.Count - 1
If CType(ar.Item(I), sl1).name = search Then
Exit For
End If
Next
"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar
Coming soon: The Second EuroCPian Event
|
|
|
|
|
I am going to be developing an app where the user can write SQL code and would love to color code the commands as they write in a text box. Just like the database tools such as dbArtisan, Sql query analyzer,etc... Could anyone tell me how they do that or direct me somewhere. I have been unable to find anything nor figure out my own method.
Thanks
mtone
|
|
|
|
|
If you want to save yourself a lot of time have a look at this product (there are others out there too):
http://www.compona.com/Default.ascx[^]
Rugby League: The Greatest Game Of All.
|
|
|
|
|
I am not in the position to buy nor would I get the ok to buy third party tools.
Thanks.
|
|
|
|
|
I understand, although at $150 it would cost a lot less than to code it yourself.
Rugby League: The Greatest Game Of All.
|
|
|
|
|
Howdy mtone,
I am working on a control that will be a VS.Net equavelent that will cover syntax coloring. It will be free and I'll post it on CodeProject when I'm finished, but I'm not to close to finishing right now (school isn't helping a lot either).
There are several ways you could do it with the existing RichTextbox.
If you aren't worrying about speed, I would recommend Matt's article[^]. He covers the issue, but it's really, really, really slow.
If speed is an important factor, you might want to go with the SelectionStart(), SelectionLength(), and SelectionColor() properties.
This is some code that I made back in January before I started working on my own non-inherited RichEdit control. It colors JavaScript syntax, but can easily be modified to your needs. Note: I did not use RegEx because I wanted to keep it as "light as possible"
<br />
<br />
Public JSWords() As KeyWords<br />
<br />
Structure KeyWords<br />
Dim Word As String<br />
Dim Color As Color<br />
End Structure<br />
<br />
ReDim JSWords(8)<br />
JSWords(0).Word = "if"<br />
JSWords(0).Color = Color.Blue<br />
JSWords(1).Word = "then"<br />
JSWords(1).Color = Color.Blue<br />
JSWords(2).Word = "else"<br />
JSWords(2).Color = Color.Blue<br />
JSWords(3).Word = "for"<br />
JSWords(3).Color = Color.Blue<br />
JSWords(4).Word = "while"<br />
JSWords(4).Color = Color.Blue<br />
JSWords(5).Word = "not"<br />
JSWords(5).Color = Color.Blue<br />
JSWords(6).Word = "function"<br />
JSWords(6).Color = Color.Blue<br />
JSWords(7).Word = "return"<br />
JSWords(7).Color = Color.Blue<br />
JSWords(8).Word = "var"<br />
JSWords(8).Color = Color.Blue<br />
<br />
Public Sub JSColorVisibleLines(ByVal rtb As RichTextbox)<br />
Dim FirstLine As Integer = FirstVisibleLine()<br />
Dim LastLine As Integer = LastVisibleLine()<br />
Dim FirstVisibleChar As Integer<br />
Dim i As Integer = FristLine<br />
<br />
If (FirstLine = 0) And (LastLine = 1) Then<br />
Exit Sub<br />
Else<br />
While i < LastLine<br />
<br />
FirstVisibleChar = rtb.CharFromLineIndex(FirstLine)<br />
<br />
JSColorLineNumber(rtb, FirstLine, FirstVisibleChar)<br />
<br />
FirstLine += 1<br />
i += 1<br />
End While<br />
End If<br />
End Sub<br />
<br />
Public Sub JSColorLineNumber(ByVal rtb As RichTexbox, ByVal LineIndex As Integer, ByVal lStart As Integer)<br />
Dim Line As String = rtb.Lines(LineIndex)<br />
Dim i As Integer = 0<br />
Dim Instance As Integer<br />
<br />
LockUpdate()<br />
<br />
rtb.SelectionStart = lStart<br />
rtb.SelectionLength = Line.Length<br />
rtb.SelectionColor = Color.Black<br />
<br />
Instance = InStr(Line, "//")<br />
If Instance <> 0 Then<br />
rtb.SelectionStart = (lStart + Instance - 1)<br />
rtb.SelectionLength = (Line.Length - Instance + 1)<br />
rtb.SelectionColor = Color.Green<br />
End If<br />
<br />
If Instance = 1 Then<br />
UnLockUpdate()<br />
Exit Sub<br />
End If<br />
<br />
While i < JSWords.Length<br />
<br />
Instance = InStr(Line, JSWords(i).Word)<br />
<br />
If Instance <> 0 Then<br />
rtb.SelectionStart = (lStart + Instance - 1)<br />
rtb.SelectionLength = JSWords(i).Word.Length<br />
rtb.SelectionColor = JSWords(i).Color<br />
End If<br />
<br />
i += 1<br />
End While<br />
<br />
rtb.UnLockUpdate()<br />
End Sub<br />
<br />
Public Function FirstVisibleLine() As Integer<br />
<br />
Return SendMessage(rtb.Handle.ToInt32, EditMessages.GetFirstVisibleLine, 0, 0)<br />
End Function<br />
<br />
Public Function LastVisibleLine() As Integer<br />
<br />
Dim LastLine As Integer = FirstVisibleLine() + (Me.Height / Me.Font.Height)<br />
<br />
If LastLine > Me.LineCount Or LastLine = 0 Then<br />
LastLine = Me.LineCount<br />
End If<br />
Return LastLine<br />
End Function<br />
<br />
Public Sub LockUpdate()<br />
LockWindowUpdate(Handle.ToInt32)<br />
End Sub<br />
<br />
Public Sub UnLockUpdate()<br />
LockWindowUpdate(0)<br />
End Sub<br />
Good Luck
Aaron Eldreth
TheCollective4.com
|
|
|
|
|
This might also help.
Friend Enum EditMessages
GetSel = 176
SetSel = 177
GetLineCount = 186
LineIndex = 187
LineFromChar = 201
GetFirstVisibleLine = 206
CharFromPos = 215
PosFromChar = 1062
SetCharFormat = 1092
SetBgColor = 1091
GetCharFormat = 1082
SetScrollPos = 1246
GetScrollPos = 1245
End Enum
Sorry I forgot it in the first post.
Good Luck
Aaron Eldreth
TheCollective4.com
|
|
|
|
|
I really appreciate the help.
Thanks a Fortune.
|
|
|
|
|
|
Great!
The files for download are not availible. Is the code in the article all there is.
|
|
|
|
|
I'm really sorry about that. Another person pointed that out to me, and I fixed the links.
Again, sorry. It's my first article.
Aaron Eldreth
TheCollective4.com
My Articles
While much is too strange to be believed,
Nothing is too strange to have happened.
- T. Hardy
|
|
|
|
|
I have inherited the Winforms Textbox control and added a property called Format, which will format the Integers to either Integer or Double etc. This format works fine on the OnValidating event of the textbox. But I want to set the format as and when the user types the value into the Textbox.
For example, if my format is ###,###.00 and when the user starts typing something like 1234 (and still continuing), I should automatically set the format to 1,234.00. I can able to do this, but my real problem is I have to position the caret next to the last character (or integer in this case) typed!!
Please help me out, dear friends!
N.T.GOPALAKRISHNAN
|
|
|
|
|
Have you tried using the SelectionStart() property?
Try this code at the end of your validating sub:
txb.SelectionStart += 1
Good luck!
Aaron Eldreth
TheCollective4.com
|
|
|
|
|
Thanks for your reply, but this will not work. Reason is,
For example, let my format string is ###,###.00. When the user types 1234, the selection start will be 4. But due to the format happening, the string will be changed (while typing itself), to 123,4. Now I need to place the string at the 5th position and not in the 4th position. And since the format can be dynamic, I can't rely on SelectionStart, but I need to find the current caret position of the last character typed.
|
|
|
|
|
"I need to find the current caret position of the last character typed."
Ok, I understand now. Your first post wasn't very clear on what you needed. For finding the Caret position, there is an API call GetCaretPos().
Public Declare Function GetCaretPos Lib "user32" (ByRef pt As System.Drawing.Point) As Integer
And it is used like this:
<br />
Dim pt as System.Drawing.Point<br />
<br />
GetCaretPos(pt)<br />
<br />
Msgbox("The cursor is at X:" & pt.X & " Y:" & pt.Y)<br />
Basically, since the API call uses a ByRef variable, the variable passed to GetCaretPos() holds the X, and Y location of the cursor.
Another API function I think you'll find useful is SetCaretPos
Public Declare Function SetCaretPos Lib "user32" (ByVal x As Integer, ByVal y As Integer) As Integer
Hope this helps!
Aaron Eldreth
TheCollective4.com
My Articles
While much is too strange to be believed,
Nothing is too strange to have happened.
- T. Hardy
|
|
|
|
|
i want to make an Event Calendar in Windows Application by using vb.net. Also I have to retrieve the events ( the event name ) from the database and appear in the calender in the cell of specified date. Here i can add more than one events. what should i do ? is it possible to customize the month calendar tool or is it possible with 31 text boxes and labels to specify the date ?
|
|
|
|
|
I have two .txt files with information on them. I need to create a Random Access File with the data. How do I go about doing that? (As you can tell I’m a beginner) 
My book doesn’t really cover this issue , and I really want to learn how to do it.
Doirs
|
|
|
|
|
why cant i create a data report..
|
|
|
|
|
Can't help you unless you get alot more specific about the problem. Error messages help alot...
RageInTheMachine9532
|
|
|
|
|
I feel like a complete idiot for asking this question, but I havnt programmed since high school ( been over 4 years ) so .NET is almost like im relearning everything. Anyhow, how on earth do you get input in a VB.NET console application?
|
|
|
|
|
Hi there. Use the System.Console object -
dim s as string
Console.WriteLine("Enter your name:")
s = Console.ReadLine()
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
