|
Maybe I should have stated as a "Tongue In Cheek" remark, used as a backend to control and manage mixing of ingredients etc. it can ensure a great cup of relax. 
|
|
|
|
|
It's ok - I understood your comment ... but I can't miss my comment to yours ... 
|
|
|
|
|
Currently I use VB for
1) Windows services - Processing file messages into database transactions
2) Schedule data extractions - Monthly SQL extracts, reports, Excel, etc
Anything that requires a User Interface, I develop a Web Application, anything that requires background execution I develop in VB.
![Java | [Coffee]](https://codeproject.global.ssl.fastly.net/script/Forums/Images/coffee.gif)
|
|
|
|
|
Private Sub OpenFolder_Click(sender As Object, e As EventArgs) Handles OpenFolder.Click
FolderBrowserDialog1.ShowDialog()
FolderPath.Text = FolderBrowserDialog1.SelectedPath.ToString()
loadfiles()
End Sub
Private Sub loadfiles()
Dim filepath As String() = Directory.GetFiles(FolderPath.Text)
Dim dt As DataTable = New DataTable
dt.Columns.Add("Product")
dt.Columns.Add("Serial No")
dt.Columns.Add("Extension")
dt.Columns.Add("Size")
dt.Columns.Add("Creation Time")
For item As Integer = 0 To filepath.Length - 1
Dim file As New FileInfo(filepath(item))
Dim dr As DataRow = dt.NewRow()
dr(0) = file.Name.Split.Distinct
dr(1) = file.Name
dr(2) = file.Extension
dr(3) = file.Length
dr(4) = file.LastWriteTime
dt.Rows.Add(dr)
Next
DataGridView1.DataSource = dt
End Sub
|
|
|
|
|
Quote: I was thinking
About anything in particular?
|
|
|
|
|
How I can use the datagridview1 results after applying filters and file names to copy from Folder A to Folder B.
|
|
|
|
|
|
Opening an existing vb.net winforms solution and out of nowhere is generating over a hundred errors, most of which are like BC30456 'Black' is not a member of 'Color, or 'SelectedIndex' is not a member of 'VisualStyleElement.ComboBox'. Normal elements. Also a smattering of some BC30311 Value of type 'TextBox' cannot be converted to 'VisualStyleElement.TextBox'.
Seemingly hit and miss errors in some 10k lines of code. Updated, built, and published on Saturday with no issues.
Anyone else seen anything like this?
|
|
|
|
|
Are you getting errors on Using statements at the top of the code files? You're probably missing a reference to a library, like System.Windows.Forms.dll.
|
|
|
|
|
Hey Dave,
You're a lifesaver 
VS had self-added (???) these to the main form:
Imports MS.Internal
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Libraries in this haven't changed in two years, so I never thought to give this a look. Those two were responsible for all the errors.
Where they came from? My only guess is that on Saturday, that computer was in 'update hell'; meaning it had downloaded an update but needed a reboot and I didn't notice it. For unrelated reasons, it runs 24/7. It took three times to get the update flag cleared, and I'm pretty sure I opened the project after the first update said it was done.
I should have known better, since I know VS doesn't use the in-memory loaded libraries in update hell, but was doing a few different things on different computers so I missed it. Though in the past, I've never seen it add libraries on its own; it normally throws "missing" errors.
Thanks again for the clue.
Mike
|
|
|
|
|
Please, I am using crystal report version 13 for Visual Studio 2019 and I followed the steps to create a watermark as follows
I inserted the watermark image in the Page Header and went to Report > Section Expert and highlighted Page Header in list of sections on the left and marked the Underlay Following Sections checkbox and Clicked OK.
I previewed the report but did not see any watermark. Please what could be the problem?
I have tried so many means to get this done but to no avail. The wartermark refuses to show up. Please I need your help. Thanks.
|
|
|
|
|
Benniit wrote: Please what could be the problem?
Crystal Reports.
Simple solution; print it beforehand. I assume that a background picture didn't work?
Bastard Programmer from Hell 
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
|
|
|
|
|
It's been 15 years since I did anything with VBA (in Excel) and I've been asked to document for non-technical users what an Excel Macro is doing. I can do that but it's going to be very time consuming not only b/c it's been so long since I messed with VBA but because the macro consists of many functions so a lot of jumping around and the author opted to not use parenthesis so when looking at the code you don't know if the thing on the right side of = is a variable or a function.
Since ChatGPT is being promoted as being able to do just about everything I figured it should be able to do this yes? If anyone does know do you know what the proper request would be? What I would ask it to do and how it would get the VBA code to document it?
Thanks
|
|
|
|
|
Perhaps ask in the lounge?
Not that I mind but I think that question is more about ChatGPT rather than VB.
And more likely to get a response there.
|
|
|
|
|
Can an existing post be moved to another forum or do you have to just delete and re-create?
|
|
|
|
|
You really need to ask ChatGPT.
Also, I think you will find that most people here have a fairly low opinion of ChatGPT's abilities.
|
|
|
|
|
Considering I've not touched VBA in 15-20 year sand I didn't write the macro so I don't have any idea what it's supposed to do, yes. It's not that I couldn't do it but that it's a huge time suck that if I could pass off onto Chat GPT to do it I'm more than happy to.
|
|
|
|
|
YSLGuru wrote: I've not touched VBA in 15-20 year
Interesting, about the same as me.
|
|
|
|
|
Than I'm sure you can appreciate why one if they could avoid it would ass off documenting someone else's Excel Macro. It's one thing when it's your code but another when it's someone you don't even know; aren't familiar with how they code. And to top it off there is of course ZERO notes/documentation in the macro. I know that even a year from now I'm not always going to remember everything important about some code I created so I document it extensively going so far as to also include my thinking of why I choose to do something the way I did and that has saved my butt more than once. This wasn't ion VBA but some SQL code where my boss had me change some logic and a year later it was an issue and he wanted to know why it had been changed and because I documented that in the script I was able to say "because you told me on XX date to change it".
|
|
|
|
|
UPDATE:
I found where someone else had used ChatGPT to document an Excel macro so I used the same question (with code pasted after) as they did and it worked. I still have to doublecheck it but according to the person who used it before me the thing correctly detailed every macro. That said I'm guessing the better the quality of the code the more likely ChatGPT will correctly document it.
|
|
|
|
|
me.datagridview_1.rows.add("ColumnName",stringvalue)
or
me.datagridview_1.rows.add(string1, string2,string3)
The above does not add an additional line
If I load a form and populate the obj the above is fine
I need to add an extra line(s) manually, say either with textbox controls or other vars
|
|
|
|
|
|
1st attempt at creating a control. i have a class, that Inherits PictureBox
here are some custom properties
<Category("Boarder"), Description("Border Size")>
Public Property BorderSize As Integer
Get
Return borderSizeField
End Get
Set(ByVal value As Integer)
borderSizeField = value
Invalidate()
End Set
End Property
<Category("Boarder"), Description("Border Color")>
Public Property BorderColor As Color
Get
Return borderColorField
End Get
Set(ByVal value As Color)
borderColorField = value
Invalidate()
End Set
End Property
<Category("Boarder"), Description("Border Color2")>
Public Property BorderColor2 As Color
Get
Return borderColor2Field
End Get
Set(ByVal value As Color)
borderColor2Field = value
Invalidate()
End Set
End Property
If i select "Categorized" in the property grid of the control when i place it on the form, my properties are grouped together.
However, when i select "Alphabetized" they are not grouped.
Question: How can i have them grouped when "Alphabetized" is selected. Just like the Location property is on the picturebox control
|
|
|
|
|
You have only this 2 choices - "Categorized" and "in alphabetical order".
When you chose "Alphabetical" then all the Properties (as you allready mentioned) are sorted by their name.
A combination of both is not designated ...
|
|
|
|
|
if you like to have it like the (for example) Location-Property then you have to create a seperate class which has all your custom Properties in it and this class will be one Property of your Control.
Here is an example for you ... I hope you will not have circumstances with my german descriptions ...
<Category("Anzeige"), Description("Definition des Einheiten-Textes")>
<DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
ReadOnly Property Einheit As SpalteEinheitDefinition
Get
Return my_Unit
End Get
End Property
WithEvents my_Unit As New SpalteEinheitDefinition With {.Text = "mm"}
Private Sub Einheit_Changed() Handles my_Unit.Changed
ResizeElements()
'Me.Invalidate()
End Sub
<TypeConverter(GetType(ExpandableObjectConverter))>
Public Class SpalteEinheitDefinition
<Description("auszugebender Text")>
<Editor("System.ComponentModel.Design.MultilineStringEditor, System.Design", GetType(System.Drawing.Design.UITypeEditor))>
Property Text As String
Get
Return my_Text
End Get
Set(ByVal value As String)
my_Text = value
OnValueChanged()
End Set
End Property
Private my_Text As String = ""
<Description("Bestimmt die Ausrichtung des Textes im Control")>
<DefaultValue(GetType(HorizontalAlignment), "Center")>
Property TextAlign As HorizontalAlignment
Get
Return my_TextAlign
End Get
Set(ByVal value As HorizontalAlignment)
If my_TextAlign <> value Then
my_TextAlign = value
OnValueChanged()
End If
End Set
End Property
Private my_TextAlign As HorizontalAlignment = HorizontalAlignment.Center
<Description("gibt die Seiten-Abstände im Inneren des Controls an")>
<DefaultValue(GetType(Padding), "2,0,2,0")>
Property Padding As Padding
Get
Return my_Padding
End Get
Set(ByVal value As Padding)
my_Padding = value
OnValueChanged()
End Set
End Property
Private my_Padding As New Padding(2, 0, 2, 0)
Private Sub OnValueChanged()
RaiseEvent Changed()
End Sub
Public Event Changed()
'Sub New()
'OnValueChanged()
'End Sub
Overrides Function toString() As String
Return "<" & Text & ">"
End Function
End Class
modified 1-Apr-23 6:23am.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
