|
I could install visual studio 6.0 on my windows 10 system as per the article of this code project and my Visual Basic package worked very well for six months.Two months back I found the package is not working and I tried to reinstall number of times, but it couldn’t be installed. I find that VB98 folder exists and VB6.exe is starting and displaying form, but form code screen will not be displayed and closes the project screen.
I could install visual studio community 2017 (for Home) on my windows 10 system and I find conversions of my Visual Basic package is likely to take long time. Can someone help me how do I proceed for installation of visual studio 6 on my windows 10 system.
|
|
|
|
|
Just what is your expectation here, you are asking how to install a product that is no longer supported onto the current OS. Nobody without a REALLY compelling reason will be doing this and it is highly unlikely that anyone is gong to be able to help.
I'm sure you have heard it before... Rewrite your application into a current language if you expect to get any help.
Never underestimate the power of human stupidity -
RAH
I'm old. I know stuff - JSOP
|
|
|
|
|
It may very well be due to some Windows 10 updates. I managed to install it following the CP article but it was on a LTSB machine, with no Cortana, Store nor updates (there were few of them and I axed them altogether).
GCS d--(d+) s-/++ a C++++ U+++ P- L+@ E-- W++ N+ o+ K- w+++ O? M-- V? PS+ PE- Y+ PGP t+ 5? X R+++ tv-- b+(+++) DI+++ D++ G e++ h--- r+++ y+++* Weapons extension: ma- k++ F+2 X
|
|
|
|
|
Hi,
Visual Basic 6 is no longer supported. Many of the VB6 ActiveX control CLSID have been set to COMPAT_EVIL_DONT_LOAD because of security issues.
Best Wishes,
-David Delaune
|
|
|
|
|
Well, I can tell you that VS 6.0 works fine on all of my Windows 10 systems. (desktop is build 17134.407) That's a really strange problem you are describing and one that I've never encountered in 20 years with VS 6. You could try event viewer or procmon to find what's failing. One other suggestion is setting up a VM with an older OS. I do seem to recall that on the first startup, you have to uncheck the add-in for Visual Component Manager.
As for migration to .NET, I'd suggest finding VB 2008 Express which is the last version to include a VB6 migration utility. I have found the best results have come from stripping all the code and letting the migration tool upgrade the forms, then go back and paste in/rewrite the code block by block. It's tedious, but better than dealing with hundreds or thousands of migration notes/errors at a time. Good luck!
"Go forth into the source" - Neal Morse
|
|
|
|
|
After porting to windows 10 my VB6 project worked fine. Most probably updations for windows 10 must have effected. On windows 10 it worked only on windows XP compatible mode only.Normally windows 10 updates should not affect. Now I do not have an XP system with me. I will try to convert the project to VB2017. Thanks to all for answering my query
|
|
|
|
|
Member 14075516 wrote: Normally windows 10 updates should not affect.
Oh, the naivety.
The updates have a habit of breaking something all the time. We have found that nearly every pack of updates this year has broken something. The older the app, the better the chance of something breaking in it.
|
|
|
|
|
Hello !
I'm using vb.net 2017
In my form I have 1 panel and 3 datagridview.
The panel should be docked at the left , and this is can be done easily.
I want to dock the 3 datagridview , one at the top of the form and 2 other at the bottom left and bottom right , in order that when the form is resized by width or height all the 3 datagridview should be resized. ( Please look this image :https://imgur.com/gallery/aduZ1g9 )
I've tried too many combinations setting the dock at top ,bottom ,fill , changing the Z-order but nothing worked.
How can i do ?
Thank you !
modified 1-Dec-18 15:06pm.
|
|
|
|
|
Drop a panel first, dock to left.
Drop another panel (!), dock to bottom.
Drop DGV1 in new panel, dock to left.
Drop DGV2 in new panel, dock to fill.
Drop DGV3 in open space above panel, dock to fill.
--edit
You don't want the new panel to be recognizable as a panel; set its border to none.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
modified 2-Dec-18 7:02am.
|
|
|
|
|
Or you could use the TableLayoutPanel.
It sounds like you want two columns, one for the Panel on the left and one for the DGV's on the right, and three rows, one for each DGV.
For the Panel, you can set it up so that the Panel spans three rows, while the DGV's each get there own Row in Col 1.
Once that's setup, you can change the Panel and DGV's to Dock Full and they'll all take up the full space in their own cell.
|
|
|
|
|
Hello !
I'm using vb.net 2017.
I have a code where I should use CTypeDynamic.
With other types everything is ok , but if the target type is System.DateTime , I want to detect if the expression can be converted to a Date with the format "dd/mm/yyyy.
How can I do that with CTypeDynamic?
Thank you !
|
|
|
|
|
Convert it to a string, tryparsing it as a date?
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
|
|
|
|
|
I have it as a string ,
But if I use CTypeDynamic(str, type1) , and str="11/26/2018" , it shows as correct , but it shouldn't be because is not correct with the format dd/MM/yyyy
|
|
|
|
|
The correct date-format is determined by the system settings, and thus, by the user. You choose a date where it is easy to see which is the day-part and which is the month-part. Now, how about 3/4/2001?
The computer isn't allowed to guess, and you can't guess the "correct" place of day's and month within that date.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
|
|
|
|
|
I want that my program works regardless of how user configure the system date format.
So I choose the format dd/MM/yyyy , and the user should input the date in this format.
3/4/2001 should be interpreted as April 3 2001.
26/11/2018 is November 26
11/26/2018 - is invalid
|
|
|
|
|
desanti wrote:
3/4/2001 should be interpreted as April 3 2001.
26/11/2018 is November 26
11/26/2018 - is invalid
So, any date that can be interpreted as M/D/Y should be. Anything that fails is to be assumed D/M/Y, and if that fails, it is invalid.
No, I will not participate. Your data is all in the same format, or the entire dataset must be considered invalid.
There's a good reason why DateTime.TryParse Method (System) | Microsoft Docs[^] only accepts a single provider. If you don't know what the format is, and start guessing like you do, you're bound to end up with multiple small disasters.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
|
|
|
|
|
Maybe we are misunderstanding each other.
The situation is simple :
The user write a date in a textbox.
I want that the user write the date in the format : day/month/year.
So I want a way to check if what the user has wrote can be converted to a date in that format :
- 01/05/2015 - is ok because 01 is a valid for day number , 05 is ok because is valid for month number , 2015 is ok because is valid for year number.
- 25/12/2018 - is ok because 25 is a valid for day number , 12 is ok because is valid for month number , 2018 is ok because is valid for year number.
- 12/25/2018 - is wrong because 12 is a valid for day number , 25 is wrong because is not valid for month number , 2018 is ok because is valid for year number. So it's wrong !!!
What is the problem with this logic ?????
|
|
|
|
|
|
Ok , what about the case when i'm reading the strings from a text File ?
|
|
|
|
|
|
Dim source As String() = {"01/05/2015", "25/12/2018", "12/25/2018"}
Sub Main()
For Each dateCandidate As String In source
Dim dateResult As Date
If Date.TryParseExact(
dateCandidate, "d/M/yyyy",
CultureInfo.InvariantCulture,
DateTimeStyles.None,
dateResult) Then
Console.WriteLine("Found {0} as valid.", dateResult)
Else
Console.WriteLine("Found {0} to be invalid.", dateCandidate)
End If
Next
Console.ReadKey()
End Sub
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
|
|
|
|
|
Thank you , Your code works with these examples and many others.
but as I've said , I read values from a text file . Sometimes the string that come from text file is like this :
25/12/2018 00:01:00
This is correct because the date part is correct , but for your code this is invalid.
|
|
|
|
|
desanti wrote: This is correct because the date part is correct , but for your code this is invalid. I wrote it that way; if you want different behaviour, look the method up on MSDN.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
|
|
|
|
|
Hello everybody. Very silly problem but it's driving me a bit crazy exactly because of its simplicity... Back to VB after 9 years so my apologies in advance if this will turn out being something very dumb. I'm blind to it... shame on me!
In short, the target is to manage multiple screens by placing an MDI container on each and allowing the user to move the mdiChildren from one Parent to another, so that they can be moved on different screens without losing MDI structure.
For the moment it's just academic, so we won't focus on how odd this could seem (it's a control application, not a document editor) or on the fact that one of the mdiParentForms will be a different class because it will be the main one with different controls on it.
As I said this is just a very rough test to check the basic principle.
I built a test project in which I create one instance per each screen in the Startup application event. Reference to all parent created is held in a list declared at a global level
Public Module Module1
Public mps As New List(Of frmMdiParent)
End Module
Partial Friend Class MyApplication
Private Sub MyApplication_Startup(sender As Object, e As StartupEventArgs) Handles Me.Startup
For i As Integer = 0 To Screen.AllScreens.Count - 1
Dim p As New frmMdiParent
p.Location = Screen.AllScreens(i).Bounds.Location
p.StartPosition = FormStartPosition.Manual
p.WindowState = FormWindowState.Maximized
p.Show()
mps.Add(p)
Next i
End Sub
End Class
Just for short, each instantiated mdiParent form creates one child of its own in the Load event.
Public Class frmMdiParent
Private Sub frmMdiParent_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Try
mps.Remove(Me)
Catch : End Try
End Sub
Private Sub frmMdiParent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim f As New frmChild
f.MdiParent = Me
f.Show()
End Sub
End Class
Each child's caption is set to tickcount for visual disambiguation. Each child has a button named btnSwitch to cycle through parents (again, not refined... just base test).
On click I look for the very next mdiParent form in the list and change the form's mdiParent to that object (variable index is declared private at form level):
Private Sub btnSwitch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSwitch.Click
'not very refined, first shot will be a dumb shot.
'Known, just a very rough test for testing the method
If Index<= mps.Count - 2 Then
Index += 1
Else
Index = 0
End If
Me.MdiParent = mps(Index)
End Sub
Till now everything looks working fine. I have two screens, on both a full-screen mdi parent is displayed and inside each an mdiChild is created, which actually belongs to it.
When I click the btnSwitch command, the child is moved to the other mdiParent, then if I click again it's moved back, and it's switching between the two parents correctly.
Both children originally created in each parent actually do work properly.
- BUT -
I then need to access the mdiParent from the child (e.g. for managing toolstrip items etc). It seems obvious to me to access me.MDIParent property. And... there is the surprise: if I reference from inside the child window class
me.MDIParent property, it returns NOTHING.
I checked every single step of the few lines, and the references returned by the list are valid.
Never nothing.
I added some code and some visual information to try to get a better view of the problem.
It turns out, when the child turns to another parent (which is successfully made by assigning me.MDIParent ), then querying the same property return nothing! I changed the code to dumb-proof (I thought) debug, as follows (what I display on screen has been checked tens of times in the debug, but I just wanted to put it the most clear way)
The funny thing is:
I have an assignation instrucion Me.MdiParent = mps(index) and I checked a lto of times the reference mps(index) is valid, correct and not nothing. So I'm setting a NON NOTHING reference. By the way, the effect on screen is the expected one.
In the very next instruction I read the same property just assigned and it's NOTHING. WTF?!??
Public Class frmChild
Dim index As Integer = 0
Private Sub child_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 0 To mps.Count - 1
If mps(i) Is Me.MdiParent Then index = i
Next i
Me.Text = Environment.TickCount 'Just for visual discrimination
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Added a second button to do something which references the parent.
'as long as the form has just been created on startup in its original parent,
'everything works. Then the parent is alway snothing (even if returning to original one)
'
Me.MdiParent.WindowState = FormWindowState.Normal '<-NullReferenceException
End Sub
Private Sub btnSwitch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSwitch.Click
'not very refined, first shot will be a dumb shot.
'Known, just a very rough test for testing the method, not a refined app
If index <= mps.Count - 2 Then
index += 1
Else
index = 0
End If
'Checked in debug, it's NEVER nothing.
'Just put a stop clause in case I was blind! Never Stopping, as expected
If mps(index) Is Nothing Then Stop
Me.MdiParent = mps(index)
'Application.DoEvents()
'Just do prove myself I'm not getting confused.
'Yes, I just set the parent to something NOT noting and
'the mdiParent IS nothing! WTF??!!
If Me.MdiParent Is Nothing Then Stop
'AND THE FUN PART IS: the form actually keeps moving from one MDIContainer to another!!!
'Show me visually whether it is nothing or not!
Me.Label1.Text = If(Me.MdiParent Is Nothing, "NOTHING", "OK") 'After first click always displays NOTHING
Me.Label2.Text = index 'always displaying correct index
End Sub
End Class
Tried in both VB2008/framework 3.5 and VS2017/Framework 4.6.1 under Win7/64/Pro
I can't believe I'm struggling with something that stupid! I'm sure it is something stupid, but I'm too blind to see it. (OK, there might be some workarounds, but I really want to understand what I'm doing wrong!) Am I missing something? Could anyone help please? Thanks a lot in advance.
modified 24-Nov-18 4:45am.
|
|
|
|
|
Hello !
I'm using vb.net with EF 6 and sql server 2008R2.
I have one table on database
Myobject ( id , code , name)
I want to add new records but verifying if an object with the same code exist. These records that have the same code are not added.
Dim mynewobject as Myobject
For I=1 to 100
newcode= InputBox("Input code", "Value")
newname= InputBox("Input Name", "Value")
if IsNothing(context.Myobjects.Where(Function(t1) t1.code=newcode).Firstordefault) then
mynewobject=New Myobject
mynewobject.code=newcode
mynewobject.name=newname
context.Myobjects.Add(mynewobject)
end if
Next
context.savechanges
Now let's suppose that i want to add these records :
Id Code Name
1 cd1 Name1
2 cd2 Name2
3 cd1 Name3
The third record should not be added because has the same code with the first record that has been added before.
But when i execute my code , the third record is added too.
What can i do ?
Thank you !
|
|
|
|
|