Comments by Member 13569650 (Top 63 by date)

there is a both parameter that
I tried it but still only vertical
scroll is working with this parameter
set

yes I tried

but l am a beginner
and I need example to start with

I need an editor with behaviour
like a textbox with scroll bars

thank you

Thank you.

You have helped me indirectly.

Thank you very much.

I changed Font to Courier new
which is monospaced and same result.

Anyway I'm thank you for your efforts

sorry for the upset.

If you look again in the what's I tried.

you will see that the user input is
in a textbox.

and what I see in the rendered screen
is the same that I see in the textbox
buffer when in debugging.

If still I am not clear tell me
and I'll build a small app to illustrate.

Thank you very much.

before אהרוני
after אהרונ*

I want that the asterisk to be
in the replacement location.

Thanks

If the * replace a heb letter that is
in the middle of a heb word then
that's go ok.

but if the * replace a heb letter that is in the start or the end of

the heb word the result is distorted.

so your suggestion not clear.

also if replace don't succeed why you think concatenation will.

thank you very much

Hithe discussion here make me
forced to find a solution.

I modified some methods
and add some manipulated methods.

and put them in the most iner loop

thank you very much for making
me to be forced to reach
this solution.

thanks

Pleas don't forget that
the original app completed
and working fantastical
since 2006 and checked
many many times a thousand
of times and always give
correct output.

my only problem is moving
it to c#

yes
but in the else option
I want to be in the most iner loop
because there's I got input
from the algorithm

HiI don't agree with you.

In a very very rare case you must
use a goto statement like I used.

Say you want to write an application
that use an algorithm structured
in nested loops (say you haven't found non nested loops algorithm)

you have 2 options.

1 continue to search for non nested loops algorithm no matter how long
it will take.

2 use a goto . and continue to search.

I choose option 2.

note: the app need to check each
algorithm cycle and if the check
is ok we stop cycling.
and also we can't save and then
cycling because that a big cycles

thanks

your comment is known to me.
and thank you for the saying it to

also I think in rare cases like
this the compiler should help
and allow this if the developer
take its risk.
me again.

my mfc app was built in 2006
and updated in 2020 with tchar.h
all the app composite of methods and organised well.

in all my apps l have this single
goto
I tested my app many times
and its work fantastic.

l now I am in state of rearange my app methods in a way to
remove this goto.

thank you very much.

to improve the question I say:

1111
1112
1113 bad because if I replace 3 by digit 2 ( 2 is not a part of this series)
1121
1122
1123
1211
1212
1213
1221
1222
1223
1231
1232
1233
1311 bad replace 3 by 2 get an existing series

also if I exchange between digits
like this.

from this 1221. to this. 2112
this also CAN gives an existing series.(note that 1122 and 2211 is not bad)


The series have 2 parameters
1 participate digits.
2 series length.

I hope this more clear.

thanks

I also get

the replacement is with a digit that not 1 or 2 (not a digit in the series)
you use existing series digits if only you exchange the digits.

I tried what you say
but my difficulty is when the series is big I can not store all
the series and later check them with the current series because
its a very big number of series to manipulate

thank you

Finally the solution that I was
arrived to.
Is making one label and change its
text.
but I was forced to space pad
the short labels.

I got it
I will make one label only
and each Time I will change
its text with the required text.

Thank you.

This order of visible/invisible for example
give me a close solution
only one label the big one appear partialy ==> "MatchesGroupsC"
the labels are

Me.LabelMatchGroupCapture.Text = "MatchesGroupsCaptures Results"
Me.LabelMatchGroup.Text = "MatchesGroups Results"
Me.LabelMatch.Text = "Matches Results"
Me.ReplaceLabel.Text = "Replace Results"
Me.SplitLabel.Text = "Split Results"

So its the matter of order (How to find the right order)


If xn = 3 Then
list2array = sMatchesGroupsCaptures.ToArray
tlist2array = vMatchesGroupsCaptures.ToArray
LabelMatchGroupCapture.Visible = True
LabelMatch.Visible = False
LabelMatchGroup.Visible = False
ReplaceLabel.Visible = False
SplitLabel.Visible = False
ElseIf xn = 2 Then
list2array = sMatchesGroupsList.ToArray
tlist2array = vMatchesGroupsList.ToArray
LabelMatchGroup.Visible = True
LabelMatch.Visible = False
LabelMatchGroupCapture.Visible = False
ReplaceLabel.Visible = False
SplitLabel.Visible = False
Else
list2array = sMatchesList.ToArray
tlist2array = vMatchesList.ToArray
LabelMatch.Visible = True
LabelMatchGroup.Visible = False
LabelMatchGroupCapture.Visible = False
ReplaceLabel.Visible = False
SplitLabel.Visible = False
End If

I don't think so.
I think that
the order in which the labels
are maked visible/invisible is
the matter because with some
playing with the order I got
some solution but not full solution.

The code makes the four others invisible.

Hi RickZeeland

The problem is that this code is
inside a sub that takes some seconds of processing.
and in that time no labels appears.
and only in finishing process
the one label chosen appear
and I want that one label be
visible at any time.

I put this code before the lengthy process.

Hi evry1falls (I accept this name statement)

Wow!!! its work

I was know that this something simple but worked
a week to find that something simple.
and at last you come as help to me.

I am very thank you.
Thanks.

Hi evry1falls and thank you.

I embedded the explorer icon by this compiler option

/win32icon:exeIcon.ico

only without any code in app

the code in what I tried
is a complete app you can compile it with vbc.exe as I posted in my question.
for .ico files use one from yours

Thank you

OK and Thank you very much.

Lets stop here because.

I differentiate between discipline and risk.
and I can not imagine any concrete code example of a real risk.

yes you right.
that good discipline.

but if all declared public
there is no risk.

that the point here.

consider a regular expression tester application.

what is the need for private declaration.

of course if you're app deals with
personal data you use password
to protect personal data.

consider a calculation part of any app all data for calculation can be public.
the classed become simple
no need for get and set and other things like that.

I know the discipline to declare private as possible.
and I seen books that declare
as private things that can be public.

I think outside data that must be
secret like account number
bank account , and other people personal data that every app
protect by password
there no need to complicate the
classes for that.

I am not against discipline.
and I think I will use the books
recommendations.

but it's absolutely not required.

thank you very much.

Hi Dave.
I am thankful.

I found this work around that makes me understand your first post.

this is the work around.

If ApplicationActivated = False Then
If InputLanguage.CurrentInputLanguage.Equals(_hebrewInput) Then
msgbox("Thank you")
InputLanguage.CurrentInputLanguage = _englishInput
End If

when the message appears and I click the ok button the language is changing as I wanted.

Because of I am in my app area and not in system area.

Thank you very much.

Dave thank you a lot.
Sorry about my misunderstanding.

In other words you say that changing the language you write in. is not apply to system.

I will try this way.

when this code line run l see its output on bottom right of the taskbar in my case
that can be ENG or
HEB

InputLanguage.CurrentInputLanguage = parameter of one of the languages installed on computer.

Dave thank you for your efforts to help me.

In working I mean that the switch language do change the language.

and not working the language change do not charge the language.

Anyway I am thankful.

Hi Dave and thank you for the help.

I feel you right.

But I am still confused because at run time I got this:

line 1 not work and do not throw any error !!!
line 2 run and work ok although line 1 failed to work

and line 3 run ok and it change system parameter (against your note)
and also line 4 works ok.

To see this working. You can compile my app by using the compile command
line at the top of the app source.

I feel you can get me out of my confused.


app code:

Friend Sub ApplicationActivated(ByVal ApplicationActivated As Boolean)

' The application has been activated or deactivated

If ApplicationActivated = False Then

1. InputLanguage.CurrentInputLanguage = _englishInput
2. Me.Text = "Application Active = " + ApplicationActivated.ToString()

ElseIf ApplicationActivated = True Then

3. InputLanguage.CurrentInputLanguage = _hebrewInput
4. Me.Text = "Application Active = " + ApplicationActivated.ToString()

End If

End Sub

Thank you a lot.

Dave thank you.

I don't need any translation.

Only switch the language
from English to Hebrew and
from Hebrew to English.

When my app activated the switch is ok but when my app
deactivated the switch not work.

Thank you again.

Sory.
I am wrong.

Sory.
I am wrong.

Thank you very much.
I understood your comment.

But l wander why if I firstly click the
Display message button.
The flag is false and the while loop
enter into an endless.
And now I click the flag button
that's change flag to true
and the message is displayed.

So if this is a one ghread why
This happen.

Thank you very much.
I understood your comment.

But l wander why if I firstly click the
Display message button.
The flag is false and the while loop
enter into an endless.
And now I click the flag button
that's change flag to true
and the message is displayed.

So if this is a one ghread why
This happen.

'Sory again this is the right code.
'if I click Display message no message are displayed becaus flag is False
'When i click the button falg false to flip it to flag True.
'the app do not react.
'
'how I can make this simple app to react when fliping bettween
'true and false
'I am very thank you for any help

'
'
Imports System
Imports System.Windows.Forms

Module m1

Sub Main()

Dim myForm As New Form1
myForm.ShowDialog()

End Sub

End Module


Public Class Form1

Dim message1 As String = Nothing
Dim flag As Boolean = False

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'flag = True
LengthyTask()
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
flag = Not flag
Me.Button2.Text = "Flag = " & flag.ToString
End Sub

Public Sub LengthyTask()
While True
If flag Then
Exit While
End If
End While
msgbox("TextBox1.Text = " & TextBox1.Text)
End Sub

End Class


<global.microsoft.visualbasic.compilerservices.designergenerated()> _
Partial Class Form1
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.TextBox1 = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(102, 222)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(459, 22)
Me.TextBox1.TabIndex = 0
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(102, 124)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(234, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Display Message"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(362, 124)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(199, 23)
Me.Button2.TabIndex = 2
Me.Button2.Text = "Flag = False"
Me.Button2.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(688, 458)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
Me.PerformLayout()

End Sub
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button

End Class

Sory about this fault code
Don't react to it.

I do not know how to post it I what you tried
so I post it here

========================
'
Imports System
Imports System.Windows.Forms

Module ehRegExTester

Sub Main()

Dim myForm As New Form1
myForm.ShowDialog()

End Sub

End Module


Public Class Form1

Dim message1 As String = Nothing
Dim flag As Boolean = False

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
flag = True
End Sub

Public Sub LengthyTask
While True
If flag Then Exit While
End While
msgbox("TextBox1.Text = " & TextBox1.Text)
End Sub

End Class


<global.microsoft.visualbasic.compilerservices.designergenerated()> _
Partial Class Form1
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.TextBox1 = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(102, 222)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(459, 22)
Me.TextBox1.TabIndex = 0
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(232, 104)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(234, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(688, 458)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
Me.PerformLayout()

End Sub
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button

End Class

=======================

Before I do that call that I suspect it will slow down my
Method task.

I want to know if the button event
Code and the form method code
are run concurrently at all.

Sometimes do exit from loop
Sometimes stack and I need
Use the click the X to abort.

Thank you.

Ok thank you.

I think we discussed it's enough.

Hello and thanks.

Dave thank you very much.

I used vbc and not csc do this matter?

In vbc there also a resource option do I can use this option with the resource file from visual studio.

See if you can help in this.
The following code is from stack overflow.
' code for drawing the icon on the form, at x=20, y=20 '
Dim g As Graphics = Me.CreateGraphics()
Dim theIcon As Icon = LoadIconFromFile("C:\path\file.ico")
g.DrawIcon(theIcon, 20, 20)
g.Dispose()
theIcon.Dispose()


Private Function LoadIconFromFile(ByVal fileName As String) As Icon
    Dim result As Icon
    Dim assembly As System.Reflection.Assembly = Me.GetType().Assembly
    Dim stream As System.IO.Stream = assembly.GetManifestResourceStream((assembly.GetName().Name & ".file.ico"))
    result = New Icon(stream, New Size(48, 48))
    stream.Dispose()
    Return result
End Function

I tried it and I get this error:
Stream can't be null.

Thank you.

Dave I am very thank you.

I think I keep icon file with
the exe file.

Until I found a work around.
Thank you again.

Now I see that the icon file must be present in my computer
in order to be set. Is there a way to resolve this.
my setting is as follows:
Private Sub ehRegExForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Dim Ico As New System.Drawing.Icon("C:\_nx11_\journal\ehRegExTester\alef.ico")
Dim Ico As New System.Drawing.Icon("alef.ico")
Me.Icon = Ico
End Sub

Thanks

Dave I appreciate your help.
I wrote that two times.

And I don't see that.
Because I don't know how to
Use this site. Sorry.

Dave I am very much appreciated
your help.


I succeed to set my icon in both the exe file name and
in the form.

Thank you.

Dave I am very much appreciated
your help.

I succeed to set my icon in both
the exe file name and in the form.
Thank you very much.

I tried compile with win32icon but
this insert the icon in the file name
and not in the top left of the form.

Yes Dave you right .
But I do that because I need this
In my work at the company.
And there I haven't any tool and
I can't bring exe files only text
File that's the security affairs in
My company.

Thank you again.

I write my vb in notepad text editor
And compile it with a command line.

In this condition is it possible
To set an icon to my app.

Or some free software to install
An icon to app.exe application.

Thank you.
And I am apologies because
I haven't experience of using
Code project site.

I have an app with an icon that
I want it in another app is there
A hack for this.

Thank you.

Thank you very much.

I'll try this resource hack.
It's new for me.

Thank you.
I need something else.

Ohh I got out from my frustration
Before calling matches method
I called getregexoptions function

But before calling split and replace
I forgot to call getregexoptions.

Thank you.