|
RyanDev wrote: I believe OP is simply asking
He asked if it were possible for him to do. We have no idea if he can do it or not.
|
|
|
|
|
Yes, you're taking it way too literal.
There are only 10 types of people in the world, those who understand binary and those who don't.
|
|
|
|
|
Dunno what the revolutions pack is supposed to be, but yes, you could write your own Windows Explorer-like application.
DutchComputerKid wrote: Or will VB6 make this impossible? VB6 is dead and buried. Download VB.NET, it is free.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
But will that run on Windows XP x64? I have chosen VB6 to make my software compatible with Windows 98 and 95 but I'll need to leave that behind huh?
VB.NET runs on the .NET framework I assume :P
That requires Windows 2000 right?
|
|
|
|
|
You mean it doesn't run on CP/M? I'm heartbroken and disappointed!
=========================================================
I'm an optoholic - my glass is always half full of vodka.
=========================================================
|
|
|
|
|
I did make a LOT of MS-DOS software, ask if you're interested.
|
|
|
|
|
At some point you are going to have to dig yourself and your clients out of the 20th century. You are going to be hard pressed to get any support for VB6 and it not supported on current equipment.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
I guess you're right. :/
But Visual _____ is MSDN and that is expensive as hell as far as I remember, + can I use it on Windows XP? All my PC's run it cause of SafeDisc bullsh*t that MS removed from All current versions. I'd really like to try VB.NET out seen that I have experience in QuickBASIC (all versions) and VB6, so piece of cake.
|
|
|
|
|
|
Well yeah, but Vs2015 does not work on XP. Only the runtime for 2015 does. And 2010 is removed from Microsoft's site. Soooo what now? I'm kinda lost here unless I buy an old copy or something I think, right?
|
|
|
|
|
|
SafeDisk? That wasn't a Microsoft product at all. That was bullshit copy protection by Macrovision, IIRC.
XP isn't even supported any more. What are you hanging onto and why?
|
|
|
|
|
I'm a retro person, so SafeDisc is required for all of my games to run. That's why. + my recent software that I made in VB6 runs only on NT4,Win2k and XP. Soooo yeah.
Most of my programs that I use on a day-to-day basis are also extremely buggy on Vista and above.
|
|
|
|
|
DutchComputerKid wrote: I'm a retro person An unsupported 32 bit person in a 64 bit environment.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
He writes MSDOS stuff too, so he's a 16 bit person!
=========================================================
I'm an optoholic - my glass is always half full of vodka.
=========================================================
|
|
|
|
|
You're going to find that your very unsupported world is shrinking as there are less and less people in your community still supporting it. The most active people here actively discourage using VB6. Though there are still a few other people who still use it they don't show up very often at all.
|
|
|
|
|
Oh nevermind, it requires Win2K for VB.NEt 2003, but what version are you all talking about, 2010 I assume?
|
|
|
|
|
I'm in uncharted waters here. Never worked or understood DataTables, but getting better at it.
I have this DataTable named table_Active with Active Customers and the Sales Total
I want to make another DataTable with the Top 10 Customers by Sales Total for a given year, in which I have that in the table_Active Table.
I just need to order by Y1_ATD and take the top 10 and Sum
Then I need to get the Bottom 90 or the rest, I should be able to figure that out after the first one
I have this so far, but I have no clue how to write a DataTable Expression
Dim top10Exp As String = ""
If (table_Active.Rows.Count > 0) Then
table_Top10Percent = table_Active.Select(top10Exp).CopyToDataTable()
End If
Dim row_T10 As DataRow
row_T10 = table_Top10Percent.NewRow()
row_T10("T10") = 80000
row_T10("B90") = 50000
row_T10("YTD") = 130000
table_Top10Percent.Rows.Add(row_T10)
I just need a point in the right direction here.
|
|
|
|
|
I found some snippets and tweaked them for my use. Sort of Linq, hard part was forming the expression without a reference.
I ended up dumping the first idea and went back to a DataView to grab my rows as a table, and them summed them up.
Calculate Sum (Total) of DataTable Columns using C# and VB.Net[^]
Dim dv_top10 As New DataView(table_Active)
dv_top10.Sort = "Y1_ATD Desc"
Dim dt_top10 = dv_top10.ToTable().Rows.Cast(Of DataRow)().Take(10)
Dim T10 As Decimal = dt_top10.AsEnumerable().Sum(Function(row) row.Field(Of Decimal)("Y1_ATD"))
|
|
|
|
|
jkirkerx wrote: without a reference
A string that contains the column name followed by "ASC" (ascending) or "DESC" (descending).
Columns are sorted ascending by default.
Multiple columns can be separated by commas.
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
Reference to a class
.Sum(function(m) m.Y1_ATD) vs .Sum(Function(row) row.Field(Of Decimal)("Y1_ATD"))
Sort of writing a manual type, in which I didn't know you can do.
|
|
|
|
|
I'm gonna revisit my packaging algorithm soon. I haven't been able to work on that project for over 3 weeks now. Maybe I'll try Just Answers and pay someone for help on that.
|
|
|
|
|
I'm trying to sort a dataset, because I can't do it in SQL, the Order By would have to be a join and sum of invoices from a data range.
I have this code that I wrote, but it doesn't sort. Am I on the right track here?
I tried sorting on the DataTable before adding it to the dataset but was not successful.
Maybe I'm suppose to get the DataView back to the set.
This is my time doing this and I have no clue.
Dim table_Active As DataTable = New DataTable()
table_Active.TableName = "dt_customerActive"
table_Active.Columns.Add(New DataColumn("ID", System.Type.GetType("System.String")))
Dim ds_Active As DataSet = New DataSet()
ds_Active.DataSetName = "ds_customerActive"
ds_Active.Tables.Clear()
ds_Active.Tables.Add(table_Active)
ds_Active.Tables(0).TableName = "tablix_salesActive"
Dim dV As DataView = New DataView(ds_Active.Tables("tablix_salesActive"))
Select Case p_sortOrder
Case salesHistory5Year_Sort.Name
dV.Sort = "Name"
Case salesHistory5Year_Sort.Spent
dV.Sort = "TATD DESC"
Case salesHistory5Year_Sort.Territory
dV.Sort = "Territory"
End Select
|
|
|
|
|
I sorted the table, didn't know about the .ToTable to assign to the Dataset.
Dim dV As DataView = New DataView(table_Active)
Select Case p_sortOrder
Case salesHistory5Year_Sort.Name
dV.Sort = "Name"
Case salesHistory5Year_Sort.Spent
dV.Sort = "TATD DESC"
Case salesHistory5Year_Sort.Territory
dV.Sort = "Territory"
End Select
Dim ds_Active As DataSet = New DataSet()
ds_Active.DataSetName = "ds_customerActive"
ds_Active.Tables.Clear()
ds_Active.Tables.Add(dV.ToTable())
ds_Active.Tables(0).TableName = "tablix_salesActive"
|
|
|
|
|
Hi,
how would the following C++ pointer use be translated into VB.NET?
Dim p As Byte * = pDataBegin
*p = (*p) Xor nOut
Anyone can help?
SepPax
|
|
|
|