Search:

It is a Folder or a Directory. You’ve been programming long enough to know what a File is and what a Folder is…

Use IO.File.ReadAllLines to read the file into array of lines, then parse any selection you choose into a 2D string Array…

There’s an app manifest setting you can use to set dpiaware = false for your app, which will avoid scaling issues….

https://stackoverflow.com/questions/23101791/make-vb-net-application-dpi-aware

@Poppa Minton - What’s a ‘Debug file’ ??? :D

Have a look at this…

https://docs.microsoft.com/en-us/visualstudio/designers/disable-dpi-awareness?view=vs-2022

Actually… I apologise, it’d be a DataAdaptor you’d update…

https://docs.microsoft.com/en-us/dotnet/framework/data/adonet/updating-data-sources-with-dataadapters

Why not just…

_dataTable.UpDate

???

I’ve never seen anything similar to your code before…

Dim textBoxes(5)() = {New TextBox() {TextBox1, TextBox2, TextBox3},
New TextBox() {TextBox4, TextBox5, TextBox6},
New TextBox()...

Ok. First, always format code when you post it in this forum


’ your code[/code]

Will format as…

[code]’ your code

Secondly, you’ve posted code, and a brief description of your...

Wouldn't MyBase.WndProc(m) be better placed at the end of the sub?



Protected Overrides Sub WndProc(ByRef m As Windows.Forms.Message)
If m.Msg = WM_MOUSEACTIVATE AndAlso m.Result...

Const WM_MOUSEACTIVATE As Integer = &H15
Const MA_ACTIVATEANDEAT As Integer = &H2
Const MA_ACTIVATE As Integer = &H1

Try wrapping your loading code with Dgv.SuspendLayout() and dgv.ResumeLayout()

That's the simplest method...


Private Sub pbMap_MouseClick(sender As Object, e As MouseEventArgs) Handles pbMap.MouseClick
If New Rectangle(30, 30, 100, 10).Contains(e.Location) Then
...

Your Function doesn’t return a value on all paths - you need to add Return False after the End If

Yes. The page you referred to can show VB or C#. There’s a combo type control at the top right of the page for switching between languages…

If (DailyView.CurrentCell.Value <> "VL" OR DailyView.CurrentCell.Value <> "SL") Then
MsgBox("Value input is not allowed." & vbCrLf & "Value deleted")
End If

The default cell value is Nothing, but…, that changes if you enter a string, then delete the string. At that point the cell value is “”

Easiest way to change that...


Dim allMatches() As Match = Regex.Matches(input, pattern, RegexOptions.Singleline).Cast(Of Match).ToArray

Dim allMatches() As Match = Regex.Matches(input, pattern, RegexOptions.Singleline)

For x As Integer = allMatches.Count - 1 to 0 Step -1
Dim regex As Regex = New Regex("id=""group.+?""")
...

Good solution. Does the ComboBox still work properly?

Possibly use the ComboBox MouseMove event in conjunction with your code for disabling MouseWheel handling, although you may be able to create a Message in the OnMouseWheel event that you’re using and...

You need to use some method of the ComboBox to set the focus back to the form or TableLayoutPanel or panel that is the parent of the ComboBox

It was the only Font information I found in the SystemInformation properties

https://docs.microsoft.com/en-us/dotnet/api/system.windows.forms.systeminformation?view=windowsdesktop-6.0

Label1.Font = new Font(Me.Font.Name, SystemInformation.MenuFont.Size, Me.Font.Style, Me.Font.Unit)

If it really is select only those where the ComboBox has a valid value, then I answered your question in post #2

If you want one checkbox as a select all checkbox, why don’t you show us ALL of the relevant code?
I’d set Enabled = false, and only enable the checkbox when ALL of your comboboxes had a valid...

You want to programmatically set a checkbox based on the selection of a ComboBox??? Use the ComboBox SelectedIndex_Changed event. If you use the CheckBoxes Checked_Changed event, of course your...

To answer your question… If you want to programmatically set your checkboxes checkedstate, then the CheckBox.Checked event is not the place to do that.’

Those array names could be the butt of someone’s jokes :D

Loop through you ComboBox array. If each item selectedindex > -1 then check your checkbox via your parallel checkbox array

Private ReadOnly _boxes() As PictureBox = { Box1, Box2, Box3, Box4, Box5, Box6, Box7, Box8, Box9, Box10, Box11, Box12, Box13 }

Those PictureBoxes won't exist at that point in the application...

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each tb As TextBox In Me.Controls.OfType(Of TextBox)()
AddHandler tb.Click,...

Just use addhandler on form load to set up handlers


Private Sub boxes_Click(sender As Object, e As EventArgs)
Dim b As TextBox = DirectCast(sender, TextBox)

End Sub

One Sub can handle...

I’m not certain exactly how to make it work as you’re intending, but I am pointing out to you that the way you had it when you thought it was working, was not doing what you thought it was…

You’re missing my point…

In your second snippet, you’re only returning cp if AeroEnabled

Ok. I thought you were probably right, but it was worth asking either way…

Is that right? You only have an expression and one value in your Ternary Operator?

It’s set to True before setting the text within the TextChanged Event. Therefore when it instantly fires TextChanged, it ignores it, sets ignore back to False so it will fire properly from user...

If you want to avoid recursion…


Private ignore As Boolean = false

Private Sub BoxChange ‘ etc
If ignore Then
ignore = False
Return
End If