Visual Basic

Wendelius29-Jul-15 21:18

29-Jul-15 21:18

satc wrote:
Have you tried this before speaking ?
Or you are just speaking in theory ?

Yes, I've tried this many times with many technologies.

Here's a small sample for you to test with. As far as I can see, it works as expected. Try the example, just generate the model from the database.

As a side-note, I didn't downvote you.

Table preparation

SQL

create table TestDataRTF (
   id int identity(1,1) primary key,
   textvalue varchar(100)
);

insert into TestDataRTF (textvalue) values ('initial');

select * from TestDataRTF;

Form code-behind

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class DataForm
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
      Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
      Me.Save = New System.Windows.Forms.Button()
      Me.Clear = New System.Windows.Forms.Button()
      Me.Fetch = New System.Windows.Forms.Button()
      Me.SuspendLayout()
      '
      'RichTextBox1
      '
      Me.RichTextBox1.Location = New System.Drawing.Point(12, 12)
      Me.RichTextBox1.Name = "RichTextBox1"
      Me.RichTextBox1.Size = New System.Drawing.Size(149, 130)
      Me.RichTextBox1.TabIndex = 0
      Me.RichTextBox1.Text = ""
      '
      'Save
      '
      Me.Save.Location = New System.Drawing.Point(167, 41)
      Me.Save.Name = "Save"
      Me.Save.Size = New System.Drawing.Size(75, 23)
      Me.Save.TabIndex = 1
      Me.Save.Text = "Save row 1"
      Me.Save.UseVisualStyleBackColor = True
      '
      'Clear
      '
      Me.Clear.Location = New System.Drawing.Point(167, 70)
      Me.Clear.Name = "Clear"
      Me.Clear.Size = New System.Drawing.Size(75, 23)
      Me.Clear.TabIndex = 2
      Me.Clear.Text = "Clear"
      Me.Clear.UseVisualStyleBackColor = True
      '
      'Fetch
      '
      Me.Fetch.Location = New System.Drawing.Point(167, 12)
      Me.Fetch.Name = "Fetch"
      Me.Fetch.Size = New System.Drawing.Size(75, 23)
      Me.Fetch.TabIndex = 3
      Me.Fetch.Text = "Fetch row 1"
      Me.Fetch.UseVisualStyleBackColor = True
      '
      'DataForm
      '
      Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
      Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
      Me.ClientSize = New System.Drawing.Size(311, 171)
      Me.Controls.Add(Me.Fetch)
      Me.Controls.Add(Me.Clear)
      Me.Controls.Add(Me.Save)
      Me.Controls.Add(Me.RichTextBox1)
      Me.Name = "DataForm"
      Me.Text = "DataForm"
      Me.ResumeLayout(False)

   End Sub
   Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
   Friend WithEvents Save As System.Windows.Forms.Button
   Friend WithEvents Clear As System.Windows.Forms.Button
   Friend WithEvents Fetch As System.Windows.Forms.Button
End Class

Form code

Public Class DataForm

   Dim context As SampleDBEntities = New SampleDBEntities()

   Private Sub Save_Click(sender As Object, e As EventArgs) Handles Save.Click
      context.TestDataRTF.Find(1).textvalue = RichTextBox1.Text
      context.SaveChanges()
   End Sub

   Private Sub Clear_Click(sender As Object, e As EventArgs) Handles Clear.Click
      RichTextBox1.Clear()
   End Sub

   Private Sub Fetch_Click(sender As Object, e As EventArgs) Handles Fetch.Click
      RichTextBox1.Text = context.TestDataRTF.Find(1).textvalue
   End Sub
End Class

satc29-Jul-15 21:42

29-Jul-15 21:42

Sorry , friend it's strange but only this is working :

"This is line 1." + CHAR(13)+CHAR(10) + CHAR(13)+CHAR(10) + "This is line 2."

but I have to put twice CHAR(13)+CHAR(10).

Can you explain why ?

Wendelius29-Jul-15 22:03

29-Jul-15 22:03

I take it that is part from an SQL command.

The problem is that you're defining LF/CR twice so in the overall result is LF/CR/LF/CR so only the middle part is correct. ASCII codes
- CR = 13
- LF = 10
In the example I wrote, try the following for the initial value and fetch it. Should show up nicely:

SQL

update TestDataRTF
set textvalue = 'A' + char(13) + char(10) + 'B'
where id = 1

Wendelius29-Jul-15 22:04

29-Jul-15 22:04

SQL

update TestDataRTF
set textvalue = 'A' + char(13) + char(10) + 'B'
where id = 1

Edit:

Sorry, I read the codes you posted wrong so they seem to be on correct order. So have a try with the example I wrote. As far as I can see, it works.

satc29-Jul-15 23:02

29-Jul-15 23:02

No , this is not part of a pure sql command.
I just write :

Myobject.mytext="This is line 1." + CHAR(13)+CHAR(10) + CHAR(13)+CHAR(10) + "This is line 2."

But if I use once Char(13)+Char(10) , doesn't work ???? !!!

Wendelius29-Jul-15 23:33

29-Jul-15 23:33

Now I don't quite understand. Char is a type not a function so if I copy and paste your code fragment to a VB.Net project it'll give the following error

Error	'Char' is a type and cannot be used as an expression.

satc29-Jul-15 23:40

29-Jul-15 23:40

Myobject.mytext="This is line 1." + CHR(13)+CHR(10) + CHR(13)+CHR(10) + "This is line 2."

Wendelius30-Jul-15 0:56

30-Jul-15 0:56

Okay so it's Chr, not Char.

Still, works just fine. Please use the test program I wrote. Modify the Save button as follows

Private Sub Save_Click(sender As Object, e As EventArgs) Handles Save.Click
   'context.TestDataRTF.Find(1).textvalue = RichTextBox1.Text
   context.TestDataRTF.Find(1).textvalue = "This is line 1." + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "This is line 2."
   context.SaveChanges()
End Sub

The result for me is correct:

This is line 1.

This is line 2.

Using that test program, do you get different results?

satc30-Jul-15 1:08

30-Jul-15 1:08

Ok , but why should I have twice Chr(13)+Chr(10) ?
Why doesn't work using these chars once ?

Wendelius30-Jul-15 2:58

30-Jul-15 2:58

You still haven't verified was the output the same with the test program that I posted...

So I take it you got the exact same output. In that case you can clearly see that when you put character codes 13 and 10 twice, you get two newlines. If you put them only once meaning instead of this

context.TestDataRTF.Find(1).textvalue = "This is line 1." + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "This is line 2."

you code like this

context.TestDataRTF.Find(1).textvalue = "This is line 1." + Chr(13) + Chr(10) + "This is line 2."

You get only one newline like this

This is line 1.
This is line 2.

instead of the previous

This is line 1.

This is line 2.

So as far as I can see everything is working correct.

If the behaviour you experience with the test program I wrote is different, please provide all information concerning the code and the behaviour.

Then again if the test program works as expected, then your original program has some kind of flaw which is affecting the output. Also in such case, a lot more info would be needed.

satc30-Jul-15 4:06

30-Jul-15 4:06

no you're wrong. If I put CHR(13) and chr(10) once , I will get a text without any linefeed.
Only when I use these char twice I get :

This is line 1.
This is line 2.

Wendelius30-Jul-15 4:47

30-Jul-15 4:47

I've tried to ask this many times. Does this happen with the test program I provided?

Eddy Vluggen30-Jul-15 1:24

30-Jul-15 1:24

If you are wondering why you were downvoted, then you should reread your entire thread.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

satc30-Jul-15 1:27

30-Jul-15 1:27

If i have deserved , then thank you for downvoted .
My primary goal is to understand the problems I have described here.

Eddy Vluggen30-Jul-15 1:35

30-Jul-15 1:35

satc wrote:
My primary goal is to understand the problems I have described here.

Instead of asking whether someone is qualified to answer - ask for details, more explanation, or an example.

People that are attacked usually don't like to help, and it often results in threads with a lot of unfriedly messages.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

satc30-Jul-15 1:45

30-Jul-15 1:45

ok , I see that you want more to speak for other topics than the question topic.
Can you please , show me what is the phrase that I wrote and has attacked someone ?
And , to not repeat the "possible" mistake , do you have any moral code here that I can read and not make an error anymore?
Thank you !

Eddy Vluggen30-Jul-15 2:09

30-Jul-15 2:09

satc wrote:
ok , I see that you want more to speak for other topics than the question topic.

Just the post I replied to.

satc wrote:
do you have any moral code here that I can read and not make an error anymore?

Same as asking for help in the street.

Any street, any part of the world.

satc wrote:
Thank you !

You're welcome Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

satc30-Jul-15 2:34

30-Jul-15 2:34

sorry , really I don't understand what I have done wrong.

Eddy Vluggen30-Jul-15 2:46

30-Jul-15 2:46

On the suggestion on writing a small application to reproduce the issue, you replied;

satc wrote:
Have you tried this before speaking ?

The intention was only to explain the reasoning behind the vote; I see I merely created more bickering Hmmm | :|

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

satc30-Jul-15 2:55

30-Jul-15 2:55

If you follow the thread , you will see that the solutions proposed were not working for me.
So I just was asking if someone has tried or just give several suggestion : try this , or try this , or try this....
I think if someone post a solution that is proved to give a correct result is better.
What is wrong to ask if someone has tried something ?
Sorry , but I can't read all the users profile to know that someone is a specialist , or no.

Taking your example for " ...someone asking for help at street ..." I have a similar case :
" A person has break a leg in the street , and someone tell to use a specific mode to bandage. I may ask to this person: Sorry have you tried this before ? "
What is wrong with this question ?
If this "someone" respond : "Yes because I'm a nurse" , I will respond " sorry I didn't know it"

Thank you !

Wendelius29-Jul-15 2:00

29-Jul-15 2:00

progress bar, percent complete

Mycroft Holmes29-Jul-15 14:40

Mycroft Holmes

29-Jul-15 14:40

I suspect it may be the RichTextBox and the way it treats it's content. I suggest changing the control to a normal TextBox allow it to accept line feed (Return) and see what the results are.

Caveat, I have not worked with winforms controls for over 5 years so this may be completely wrong.

Never underestimate the power of human stupidity
RAH

jkirkerx28-Jul-15 10:16

jkirkerx

28-Jul-15 10:16

My formula or code is terrible for calculating the percentage complete based on 100
There must be a better way to write this.
Just looking for suggestions, in this example, there are 330 records, and the step is .0627
So the first value is -1, and the program bombs. Now my m_progressPos is always 0.

I mostly write web apps, so I don't have much experience with this.

This is what I have.

If (itemIndex.Count > 0) Then
  dialogPos = 0.0
  dialogStep = 100 / itemIndex.Count - 1
  dialogWait.UpdateProgress(1, "Located " & itemIndex.Count & " product items(s)")
End If

rC = 0
For Each i As itemIndex In itemIndex

  dialogPos += dialogStep
  Dim m_dialogPos As Integer = Convert.ToInt32(Math.Round(dialogPos))
  m_dialogPos = If(m_dialogPos > -1, m_dialogPos, 0)
  dialogWait.UpdateProgress(m_dialogPos, "Calculating profit for " & i.ItemNumber & "  (" & rC & " of " & itemIndex.Count & ")  ")

  load_SR_Invoice_Profit(connection, i.ItemNumber, profits)
  rC += 1

Next
<pre>

Re: progress bar, percent complete

Eddy Vluggen28-Jul-15 11:42