|
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
|
|
|
|
|
|
Probably something like:
Dim myByteArray = New Byte(){1, 2, 3}
For index = 0 To myByteArray.GetUpperBound(0)
myByteArray(index) = myByteArray(index) Xor nOut
Next
Or slightly simpler
For Each element In myByteArray
element = element Xor nOut
Next
modified 30-Aug-16 10:44am.
|
|
|
|
|
How create a program of usb write protected in visual studio can any one help me with a source code?
|
|
|
|
|
This site does not provide code to order.
We're happy to help with specific questions about code you have written. But nobody here is going to do your work for you.
And quite frankly, even if you were paying someone to do your work for you, you wouldn't get very far with a description as vague as that!
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
Member 12705131 wrote: can any one help me with a source code?
Where are you stuck?
There are only 10 types of people in the world, those who understand binary and those who don't.
|
|
|
|
|
can any one help me with neural network simulator source code in visual basic or link where i can get it. thanks
|
|
|
|
|
|
If you're looking for source code, you're really not going to find a good example you can tailor to your needs. This is something you HAVE to understand and write yourself.
You're be better served looking for tutorials and reading books on the concepts. I suggest Googling for "Neural network tutorials" to get an introduction.
|
|
|
|
|
I am trying to resize a selected image in Word vba and then move it to the RHS of the page.
The resizing works fine and the image is then converted into a shape. I'm then not sure how to replace the two lines of code
Set ils = ActiveDocument.InlineShapes(1)
Set shp = ils.ConvertToShape
to continue with the last part of the code and move the image to the RHS of the page.
Full code is as follows
Sub PicResizeMoveToRight()
Dim ils As InlineShape
Dim shp As Shape
Dim PercentSize As Integer
PercentSize = InputBox("Enter percent of full size", _
"Resize Picture", 100)
If Selection.InlineShapes.Count > 0 Then
Selection.InlineShapes(1).ScaleHeight = PercentSize
Selection.InlineShapes(1).ScaleWidth = PercentSize
End If
Set ils = ActiveDocument.InlineShapes(1)
Set shp = ils.ConvertToShape
With shp
.WrapFormat.Type = wdWrapTight
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
.Left = wdFrameRight
End With
End Sub
Any help would be appreciated thanks
|
|
|
|
|
Why are you switching between modifying the first selected shape, and modifying the first shape in the document?
I'd expect to see something more like this:
If Selection.InlineShapes.Count = 0 Then
MsgBox "Please select a shape!"
Exit Sub
End If
Set ils = Selection.InlineShapes(1)
PercentSize = InputBox("Enter percent of full size", "Resize Picture", 100)
ils.ScaleHeight = PercentSize
ils.ScaleWidth = PercentSize
Set shp = ils.ConvertToShape
...
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
Many thanks Richard - just what i needed.
I wasn't sure how to do the second part with the already selected shape.
My final code is now
Sub PicResizeMoveToRight()
Dim ils As InlineShape
Dim shp As Shape
Dim PercentSize As Integer
If Selection.InlineShapes.Count = 0 Then
MsgBox "Please select a shape!"
Exit Sub
End If
Set ils = Selection.InlineShapes(1)
PercentSize = InputBox("Enter percent of full size", _
"Resize Picture", 100)
ils.ScaleHeight = PercentSize
ils.ScaleWidth = PercentSize
Set shp = ils.ConvertToShape
With shp
.WrapFormat.Type = wdWrapTight
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
.Left = wdFrameRight
End With
End Sub
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
