Comments by Jo_vb.net (Top 102 by date)

Replace
if (currentTime = 0)
with
if (currentTime == 0)

Something like Excel:
https://www.codeproject.com/Articles/712093/WPF-Spreadsheet

It would be much better if a moderator would move the question to the correct forum section.

Down voting a question because it was posted in the wrong forum section is not good behavior.

I do not down vote your "solution" but for what it's worth.

Unfortunately here are some guys who do that without a good reason.
I gave you an upvote now!

Can you compile your C# library without any errors?

When the FileDialog is opened, the program waits until you select a file and press dialog button OK or until the button CANCEL is pressed.
Only then the program goes on.

Please show us your complete method PrintLabelAction()

When you have the file name you will do some more instructions.
OK button will be pressed at some time...
Then:
return default;

string FileName = Path.GetFileName(dialog.FileName);

// more instructions

// OK button is pressed

return default;

Your If statement is fulfilled when then dialog button ok is pressed - not earlier.

Perhaps this example helps:

dialog.ShowDialog();
if (string.IsNullOrEmpty(dialog.FileName))
return default;
string FileName = Path.GetFileName(dialog.FileName);

That works fine - thank you.

What I posted was done by Code Converter C# to VB and VB to C# – Telerik

I have updated my question with sample code now.

Fine animation - does this mean your game runs in a browser?

Good to have this new sorter class, thank you.

For my example .OrderByDescending seems to work.

And a side note:

These Linq queries in HandExtensions Module seem to be the solution for my search regarding a concept to generate rules for my cards game.

Great framework you shared!

Yes I understand what you mean.

My current conclusion is that extending my existing framework and do as much work as possible in the framework classes is a good way to reduce the code behind the mainwindow.

When this is done within the next weeks we could discuss the remaining code.

The question is "How to code game rules for cards game in VB.NET?"

I'm happy to keep the remaining work at my end, no problem.

What I need is a concept or structure for card game rules.

Got sorting for the Hand class running now.
Your framework is great - make things really easy!

Found only a python game with rules for automatic game mode - but this is on a level far beyond of my rather poor level.
https://github.com/tobiasemrich/SchafkopfRL

This allows me to use parts of your framework for a redesign of my cards game.

What I do not understand why you allow to sort the cards deck but not the hand cards.

In my game the computer controls 3 players which play against the user.
The problem is to code the game rules in good style (OOP?).

Do you know where to find a VB.Net example with rules for games like Schafkopf, Bridge or Romme?

Thanks- your project runs fine!

Found my mistake:

Used Friend Cards As New HandCards
instead of your declaration as property
Property Hand As HandCards

And your gif animation of cards looks great.

Thanks for your help!

Thanks for your hard work!

But after more than 6 hours doing changes and testing I gave up.

I can verify via the properties that 8 cards are in the ObervableCollection (Count) and that PropertyChanged fires each time when a card is added (using a MsgBox to check this) but Count on the panel shows 0 and the listbox ist empty all the time.

Even using UpdateSourceTrigger=PropertyChanged does not help.

Perhaps you can use your framework for writing a nice article.

New Question is posted now.

This is no new question - as I wrote above:
Jo_vb.net 1-Jan-23 9:09am

When using xaml I cannot see anything of Hand or MyHand classes which could be used for data binding with DataContext Property.

And using vb code

For Each cardShuffled0 In handCards0
'Panel0.Children.Add(cardShuffled0)
MyHand0.Cards.Add(cardShuffled0)
Next
Panel0.DataContext = MyHand0.Cards

seems to be correct syntax but the cards are not shown on the mainwindow.

OK seems to stuck - then I'll have to remove the Hand or MyHand classes and restore my old code.

When using xaml I cannot see anything of Hand or MyHand classes which could be used for data binding with DataContext Property.

And using vb code

For Each cardShuffled0 In handCards0
'Panel0.Children.Add(cardShuffled0)
MyHand0.Cards.Add(cardShuffled0)
Next
Panel0.DataContext = MyHand0.Cards

seems to be correct syntax but the cards are not shown on the mainwindow.

I can add my PlayingCards to a Dockpanels children but how could I add a Hand class with (playing)Cards to a dockpanel on the MainWindow?

My PlayingCards are images and based on this article:
https://www.codeproject.com/Articles/98712/Power-of-Templates-in-Control-Development-Within-W

Thank you!

In advanced compiler settings all checkboxes are unchecked - is this ok?

Thanks for the updates.

I give your Hand class and the Extensions module a chance and combine them with my existing classes.

I would re-write bigger parts of this fun project if that would have advantage for important code parts.

One is how the lowest (or the highest) card of a cardsPanel (with all the cards one player has in his hands) could be given as return without using my string method.

Other points are how such a framework would be helpful for creating game rules.

Thanks for your work - this looks like a variant for my already existing classes.

deck class
shuffle method
4 cardpanels with playingCards

are already there.

After shuffling the cards are distributed to the 4 cardpanels.
1 panel is controlled by the user, the pc controls 3 panels and plays against the user.

In my original question I asked for a better version of that:

If sHandCards IsNot Nothing Then

If sHandCards.ToString.Contains("7") Then Return "7"
If sHandCards.ToString.Contains("8") Then Return "8"
If sHandCards.ToString.Contains("9") Then Return "9"
If sHandCards.ToString.Contains("K") Then Return "K"

If TrumpCardID = 4 Then
If sHandCards.ToString.Contains("O") Then Return "O"
End If

If sHandCards.ToString.Contains("A") Then Return "A"
If sHandCards.ToString.Contains("10") Then Return "10"

End If

In this case the lowest card of a cardPanel should be given as return.

I do not understand how your approach should be helpful for that issue.
And I do do not want to re-write the complete project because of this issue.

I have a deck class and playingCard class.

Each player has a cardsPanel with the cards (playingCards) of only himself (handCards).

I get the strings like that:

' GetTrumpList
With CardsPanel.Children
If .Count > 0 Then
For n = 0 To .Count - 1
If .Item(n).CardType = TrumpCardID Then
sTrumpList = sTrumpList & " " & .Item(n).CardShortName & " " & .Item(n).CardSymbol & Environment.NewLine
End If
Next
End If
End With

So how to get same results shorter and without using strings?

P.S.:

Public Class PlayingCard
Inherits ToggleButton

Public Property CardSymbol As String
Public Property CardShortName As String
Public Property IsCallAce As Boolean
Public Property IsAlreadyPlayed As Boolean
Public Property IsPlayedTwice As Boolean
Public Property IsHighestCardInColor As Boolean
Public Property IsPlayableThrowMeAwayCard As Boolean ' Abspatzen
Public Property IsPlayableSchmearCard As Boolean ' Schmieren

Public Property IsUsefulAsFirstCardInTrick As Boolean ' Trumpf-As/10er = False !!!
Public Property IsHighestPlayableTrumpCard As Boolean
Public Property IsLowestPlayableTrumpCard As Boolean

Private Shared CardOwnerProperty As DependencyProperty = DependencyProperty.Register("CardOwner", GetType(CardOwner), GetType(PlayingCard), New PropertyMetadata(CardOwner.North))

Private Shared CardTypeProperty As DependencyProperty = DependencyProperty.Register("CardType", GetType(CardType), GetType(PlayingCard), New PropertyMetadata(CardType.Acorn))

Private Shared CardValueProperty As DependencyProperty = DependencyProperty.Register("CardValue", GetType(CardValue), GetType(PlayingCard), New PropertyMetadata(CardValue.Seven, AddressOf UpdateTemplate))

Private Shared CardTemplatesProperty As DependencyProperty = DependencyProperty.Register("CardTemplates", GetType(CardTemplateCollection), GetType(PlayingCard), New PropertyMetadata(New CardTemplateCollection(), AddressOf UpdateTemplate))

wiki has a Comparison:
https://en.wikipedia.org/wiki/Comparison_of_documentation_generators

If you speak about illegal or malware related keygens you will not get help here.

Who can help me solving this problem?

Thanks for your answer but me is not able to get it right.

Your links are for a Textblock not for a textrange in a wpf richtextbox.

Can you please give me an example how the command for my code sample would be:

propInline = selection.GetPropertyValue( ?? )

I would change
if (MessageBoxDisplayed)
to
if (MessageBoxDisplayed =false)

Try the ideas which were posted @
https://stackoverflow.com/questions/28311191/how-do-i-pass-in-a-string-with-spaces-into-powershell

There is an article about this:
https://www.codeproject.com/Tips/631196/ComboBox-with-Suggest-Ability-based-on-Substring-S

That's true.

Changed this and found two other if / else statements where debug.print line was missing.

Thank you.

That works fine - thank you.

It is not a button but a PlayingCard class object, which has no enabled property.
And I tried the double click handler only to see if it would help but it does not.

private void card_Click(object sender, EventArgs e)
{
PlayingCard pc = (PlayingCard)sender;

this
To: 'yyyyyyyyy@gmail.com',
is different to the other code
try
To: "yyyyyyyyy@gmail.com",

Try to change Dock = DockStyle.Fill
to
Dock = DockStyle.Right

But - as RickZeeland wrote - a usercontrol would be better.

I saw this from time to time - the only thing that helps is to close the form (which is open in design mode) and re-open it.

You could write the id within brackets

how-to-center-a-div [18]
or
how-to-center-a-div [id=18]

Here is a nice blog https://www.simform.com/blog/best-frontend-frameworks/

This should help you
https://www.codeproject.com/articles/1074506/task-mvvm-progressbar

I do not understand what you are doing.

I would:

1) Try to pass an instance of your Viewmodel as parameter / argument to your timer method to allow access to the Property.

2) add UpdateSourceTrigger=PropertyChanged

<textblock text="{Binding RowsImport, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}">

Why did you start a new topic and did not answer to the suggestions / questions you got at your topic from saturday?

Is

Console.WriteLine(RowsImport)

not updated or

<textblock text="{Binding RowsImport, Mode=TwoWay}">

Thank you very much.
That was the case, now it works fine.

That works fine, thank you.

Just found out that NuGet package MVVMLight solves my issue.

I stopped this approach, and created my own simpler method which saves QuickAccess Toolbar state in my.settings.

I'm no software developer and have only experience with winforms and vb.net.

So in the first place my demo "Winform hosting WPF Ribbon" is for my own pleasure, but it would be possible to share it with others.

If it is good enough for an article - ok perhaps I'll write one, but no one seems to like that :(

I made a ribbon, ribbon tabs with ribbon buttons, an application menu and a quick access toolbar - all by myself.

The third party code - if it would work (!!!) - is only for saving the current state of the quick access toolbar and restore that when loading the app.
Of course I would give credits to the 3rd party code.

The third party code would probably be less than 20%.

But there is no need for me to push out an article ...

This code fixes the vb editor code error.

Unfortunately the QAT settings are saved but for an unknown reason loading it still does not work.

Did that - as described above:

I found a C# sample here:
ribbon - Save/ load QuickAccessToolBar - Stack Overflow[^]
and converted it with a tool.

After fixing some of the remaining issues it saves the settings but loading does not work because of one line in
Private Sub SearchInApplicationMenu(qatItems As QatItemCollection)
Copy Code
Dim remainingItemsCount As Integer = qatItems.Count(Function(qat) qat.Owner = Nothing)

Anyway - thanks for your replies.

Sorry but I need a working Vb.Net code (C# was the source).

Thank you. Open / Save File is already running.

Because I do not need filesystem info but files and folders from the VS solution explorer.

This is the article with C# code:
https://www.codeproject.com/Articles/1169776/Visual-Studio-Extensibility-Day-1-Creating-Your-Fi

Instead of empty Catch you can write errors to log file:

Catch ex As Exception
IO.File.AppendAllText(sAppPath & "\Log.txt", String.Format("{0}{1}", Environment.NewLine, Now.ToString & "; " & ex.ToString()))

Take an example from the web like
https://www.freevbcode.com/ShowCode.asp?ID=5745

and add
Application.Exit()

Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Application.Exit()
End Sub

Application.Exit()

stops / closes all

Why using regex here?

You could use "AB-" to split the input string into lines

AB-0001234/00005-Testing My Regex here
AB-0004567/00007-Second Testing of my regex

then remove the 16 characters left (using strings.right or something like that)
and you would get

-Testing My Regex here
-Second Testing of my regex

Which VS version 16.??.?? do you have?

If I have a "control." a list pops up where I can select a property or not.
I does not lock the keyboard or cursor.

It locks the keyboard or cursor only when using keys "strg + ." together.
With a mouse click it goes away.

Why reading line after line to the RTB?

Try .LoadFile

https://kixforms.net/docs/chm/index.htm?page=source%2Frichtextboxloadfilemethod.htm

Great!
Thank you.

Does really no one know a workaround for this issue?

CellValueChanged or CellValueNeeded are not triggerd when you refresh the datagridview.

Try manipulation on the data in the datagridview.

What I really need is the correct line in the textbox.

Private Function LineSelectionLogReviewRTF_Click(ByVal sender As Object, ByVal e As MouseEventArgs) _
Handles txtOutRichTextBox.MouseClick

Try

Dim index As Integer = txtOutRichTextBox.GetCharIndexFromPosition(e.Location)
Dim line As Integer = txtOutRichTextBox.GetLineFromCharIndex(index)

Inside the textbox is the content of a log.

If for example line 99 is last visible line above the horiz. scrollbar, the line value is 99 on mouseclick.

But if line 99 is not complete visible (a small part is already hidden by the scrollbar), then on mouseclick the line value is 100, because the textbox scrolls a little.

I used the Y value only for testing a workaround but that did not work as it should.

This article seems to be something where you could start from:
https://docs.microsoft.com/en-us/powershell/scripting/samples/working-with-software-installations?view=powershell-7.1

Not multiple textboxes, only one multiline textbox to see what comes from the clipboard.

On form designer select the form.

On VS 2019 Community You can see the structure on menu item
Ansicht > Weitere Fenster > Dokumentgliederung
or
Strg + Alt + T
or
Ctrl + Alt + T

you could try .find method

My VS is in german, so I'm not sure if "Erstellen" really means "Create" or "Build":

Check in VS Menu "Create" (or "Build") > "Configuration Manager" if "Create" (or "Build") is checked.

Cannot post a picture here.

But this links gives some possible reasons for your issue:
https://stackoverflow.com/questions/2058441/could-not-find-any-resources-appropriate-for-the-specified-culture-or-the-neutra

My VS is in german therefor I do not know how the related context menu item is named in english.

In project explorer right click the resource file, then look for a menu item like "run (or execute) user defined tool".
Click on that item.

Then debug/compile again.

using & nbsp ; seems to be helpful for my issue and better then using code tags.

Sooner or later the malware removal forums will no longer support BBCode.

Therefore I will need to have the solution with Html.

Using code tags would be the last ressort, if nothing else helps.

I would like to have a better way.

It is for malware removal.

The user who thinks his pc is infected takes a tool called FRST to create logs which include info about files, installed software, Autoruns and more.
These logs the user posts in a topic of a malware removal forum.
My tool can analyze those logs and create a script (which needs to be checked and improved by a trained helper).
Only trained helpers are allowed to create a script (manually or with my tool or both) and help the user to remove unwanted software or malware.

The helper posts this script in the topic of the user who thinks his pc is infected.
Most forum software accepts BBCode and/or formatted Html.

The user who wants to run the script on the FRST tool then copies the Html formatted script from the forum to the clipboard.

The – when the FRST tool starts – it pastes the script from the clipboard and executes it.

shutdown-reboot-event-ids:
https://www.shellhacks.com/windows-shutdown-reboot-event-ids-get-logs/

strSQL = "INSERT" & "INTO" & "tblNewDates" & "VALUES" & "(TestDate)"
string has no blanks!

Result is:
strSQL = "INSERTINTOtblNewDatesVALUES(TestDate)"

Is the method in a form private or friend?
How do you call it?

Your Private Sub cmbChanged has no Handles cmb.SelectedIndexChanged

Private Sub cmbChanged(sender As Object, e As EventArgs) Handles cmb.SelectedIndexChanged

Then you should be able to use the cmb.SelectedIndex

Perhaps it would be easier for us if we had the complete code of your both Private Void's

With productBindingSource4.AddNew();
Does only a blank row appear and no data or do you get an error or what else?

I think with BindingSource.AddNew() only import from bound textboxes may work.

Thank you will check this tomorrow.

Thank you will try that.

Do you want a blank new row ?

And I cannot see a productBindingSource4.EndEdit

The order of the code lines does not change the resulting offset between the Me.childView position and the SubForm position.

When I add MainForm.Location + Me.childView.Location then the offset is smaller and the size is ok, but the subForm covers only parts of the Me.childView control.

This is what I have now:

SubForm.Show()
SubForm.BringToFront()
SubForm.Size = Me.childView.Size
SubForm.Location = New Point(MainForm.Location + Me.childView.Location)

Ok, when the filter is ALL it appears.
when the filter is .NET it does not appear.

I'm happy to get answers but I wonder why my question does not appear on the main page of CP?

Me.childView is a UserControl but does not work as I would like to have it.

Parts of my demo project are taken from CP articles about Master/Detail GridViews.

But most of them have the issue with the keys not working on the childView - that prevents moving through the child grid with arrow keys.
Same happens with keys page up/down and pos1/end.

Instead of navigating through the childView those keys let you navigate through the Main/Parent Form.

There is only one without that issue - but in C# and I do not understand how the issue is fixed there:
https://www.codeproject.com/Tips/1215736/Master-Detail-Datagridview-in-Csharp

That's why I try to do the details with my own subForm.

try round
Decimal.Round Methode (System) | Microsoft Docs[^]

This link may help:
https://docs.microsoft.com/en-us/dotnet/api/system.globalization.numberformatinfo.numberdecimalseparator?redirectedfrom=MSDN&view=netcore-3.1#System_Globalization_NumberFormatInfo_NumberDecimalSeparator

Great - that works fine.

Thank you.