|
Easy. Don't
VB6 to vb.net ==>logic
vb.net to vb6 ==> very wrong choice
there must be another reason why your program won't work.
Is the framework that you use installed on that other computer.
Jan
|
|
|
|
|
It will be Difficult to impossible to rollback code to previous versions of Visual basic especially from the .net framework to version 6.
If you are adamant on using VB6 then I would look at 3rd party controls to do what you are after.
Sorry but that is my 2 cents on the subject.
Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch
|
|
|
|
|
There is no direct conversion for the code you posted. You'd have to write your own libraries to duplicate the functionality provided.
Considering you want (for some very bad reason) to use VB6, I'd suggest using a 3rd party control for this, IF you can even find one any more.
Windows 8 will NOT have VB6 runtime support, so I suggest you rethink what you want to support. in the way of Windows versions.
|
|
|
|
|
Actually I created the program to remove the use of third party.
The reason is, you must buy the license.
If that's the case, I'll try to find an another way...
|
|
|
|
|
System.Drawing.Imaging.FrameDimension existed already in .NET 1.1 - hence you can use it from Windows 2000. But you will need a very old version of Visual Studio to create a program targeted to framework version 1.1.
|
|
|
|
|
He's after earlier than that! VB6
Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch
|
|
|
|
|
Hi everybody,
I want to populate a datagridview with a generic list(of object), and from different sources I have 2 ways to do so, either
dataGridView1.DataSource = list or (after binding the datagridview to a bindingsource)
Bindingsource1.Datasource = list Unfortunately both ways won't work for me, and I wonder why. Either way I tried, I refreshed the datagridview afterwards and also controlled that the list was definitely populated.
Does anyone have an idea what might be wrong in my approach?
Thank you
Mick
|
|
|
|
|
I know of two ways to get a DGV automatically display a collection of data:
1.
stuff the data in a DataTable, then simply establish a binding between DT and DGV. Once the DT is fully populated, the DGV columns, their HeaderText, Width, etc are all set automatically.
2.
or have a collection of some type (not: object) with a number of public properties, then give the DGV a number of columns and bind each column to a property of the type in the collection, using DataGridViewColumn.DataPropertyName[^]
Luc Pattyn [My Articles] Nil Volentibus Arduum
Fed up by FireFox memory leaks I switched to Opera and now CP doesn't perform its paste magic, so links will not be offered. Sorry.
|
|
|
|
|
Hi Luc,
thank you for your hints . I tried both ways, and after a little bit of fiddling I could make either way work. On the way I found an interesting piece of code (how to convert a generic list into a datatable[^]), which might also be interesting for others.
Have a nice weekend, regards
Mick
|
|
|
|
|
you're welcome.
Luc Pattyn [My Articles] Nil Volentibus Arduum
Fed up by FireFox memory leaks I switched to Opera and now CP doesn't perform its paste magic, so links will not be offered. Sorry.
|
|
|
|
|
The class that is in the list, is it using public variables i.e.
public class foobar
public id as integer = 0
public name as string = string.empty
end class
if so I dont know why it does it but that always leaves the gridview empty until your define properties e.g.
public class foobar
private _id as integer = 0
private _name as string = string.empty
public property ID as integer
end property
public property Name as string
end property
end class
Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch
|
|
|
|
|
Data binding uses reflection, it looks for properties with the specified names.
Luc Pattyn [My Articles] Nil Volentibus Arduum
Fed up by FireFox memory leaks I switched to Opera and now CP doesn't perform its paste magic, so links will not be offered. Sorry.
|
|
|
|
|
Thanks Luc
Thats my something learnt for today now I'm off to make snow angels
Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch
|
|
|
|
|
Thank you, Simon - this was exactly one of my basic errors! After defining properties instead of the fields in the class, everything worked out.
Have a nice weekend with a lot of snow angels and , regards
Mick
|
|
|
|
|
Your welcome Michael and have a good weekend yourself
Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch
|
|
|
|
|
hi, i'm trying to do a looping like this,
if i input 5 then,
1
121
12321
1234321
123454321
1234321
12321
121
1
my teacher code structure is like below,
confuse level : 99999
for (loop the row)
select case
case 1
for
if
end if
next
case 2
if
end if
end case
next
what i do,
Private Sub btnView1_Click(sender As System.Object, e As System.EventArgs) Handles btnView1.Click
Dim input As Integer = Nothing
Dim spaces As String = Nothing
Dim numbers As String = Nothing
'##INPUT
input = CInt(InputBox("Insert Max Value", "Value"))
For a As Integer = 1 To (input * 2) - 1
'##SPACES
If a <= input Then
For b As Integer = 1 To (input - a)
spaces += " "
Next
Else
For b As Integer = 1 To (a - input)
spaces += " "
Next
End If
'##NUMBERS
If a <= input Then
For c As Integer = 1 To a
numbers += c.ToString()
Next
Else
For c As Integer = 1 To ???
numbers += c.ToString()
Next
End If
'##OUTPUT
ListBox1.Items.Add(spaces + numbers)
spaces = ""
numbers = ""
Next
End Sub
can someone correct '???' in my code?
thanks before..
modified 7-Feb-12 22:14pm.
|
|
|
|
|
Are you getting an error, or is the output not what you expect ?
My advice is free, and you may get what you paid for.
|
|
|
|
|
??? = a step -1
but that will only give you half of the diamond
Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch
|
|
|
|
|
I try this in vb6 and it really a nice code
Private Sub Command1_Click()
List1.Clear
Dim inp As Integer
Dim spaces As String
Dim numbers As String
inp = CInt(InputBox("Insert Max Value", "Value"))
Dim a As Integer
Dim b As Integer
Dim c As Integer
For a = 1 To (inp * 2) - 1
If a <= inp Then
For b = 1 To (inp - a)
spaces = spaces + " "
Next
Else
For b = 1 To (a - inp)
spaces = spaces + " "
Next
End If
If a <= inp Then
For c = 1 To a
numbers = numbers & c
Next
Else
For c = 1 To (inp * 2) - a
numbers = numbers & c
Next
End If
List1.AddItem spaces + numbers
spaces = ""
numbers = ""
Next
End Sub
|
|
|
|
|
well thankyou very much, but i hope you don't use that anymore..
vb6 is in it's way to hell..
once again, thankyou for the logic..
|
|
|
|
|
Apologize if I post this on the wrong forum.
In ACCESS, I have Form Open event
that will connect to DB1 and datas will show on the detail records.
The form has a Uniquetable = "tableEmp".
Now, I have a option button that will
change database to DB2,
Note: DB1 and DB2 all tables are the same.
In the form details I have checkbox, if I
will checked the checkbox the tables update automatically,
and it will update because of the uniquetable but If
I will change the database the tables will not update.
what's cause of this? thanks in advance,.
C# コードMicrosoft End User
2000-2008
「「「「「「「「「「「「「「「「「「「「「「「「「「「「
The best things in life are free
」」」」」」」」」」」」」」」」」」」」」」」」」」」」
|
|
|
|
|
Check if the database db2 has the same table.
If it does, the primary key that you update the table on may not be present in this table (in the second database).
|
|
|
|
|
thanks. i check the db2 and it has the same table.
is my approach correct?
i mean connecting other database in an access form.
here is my snippet code: ACCESS FORM
Private Sub Form_Open(Cancel As Integer)
Dim ssql As String
ssql = "SELECT [tbl1].id, [tbl1].code,[tbl1].mflag, [tbl2].cdnum, [tbl3].bname"
ssql = ssql & " FROM [tbl1] INNER JOIN"
ssql = ssql & " [tbl2] ON"
ssql = ssql & " [tbl1].id = [tbl2].id INNER JOIN"
ssql = ssql & " [tbl3] ON [tbl1].code = [tbl3].code"
ssql = ssql & " WHERE [tbl1].mdate ='2011/10/12'"
Me.RecordSource = ssql
Me.UniqueTable = "tbl2"
End Sub
Private Sub optSel_AfterUpdate()
Dim ssql As String
If Me.optSel = 1 Then
ssql = "SELECT [tbl1].id, [tbl1].code,[tbl1].mflag, [tbl2].cdnum, [tbl3].bname"
ssql = ssql & " FROM [tbl1] INNER JOIN"
ssql = ssql & " [tbl2] ON"
ssql = ssql & " [tbl1].id = [tbl2].id INNER JOIN"
ssql = ssql & " [tbl3] ON [tbl1].code = [tbl3].code"
ssql = ssql & " WHERE [tbl1].mdate ='2011/10/12'"
Else
ADODisconn
ADOConDB2
ssql = "SELECT [tbl2].id,[tbl2].code,[tbl2].mflag,[tbl2].cdnum,[tbl3].bname"
ssql = ssql & " FROM [tbl2] INNER JOIN [tbl3] ON "
ssql = ssql & " [tbl2].code = [tbl3].code"
ssql = ssql & " WHERE [tbl2].id > 160"
End If
Me.RecordSource = ssql
Me.UniqueTable = "tbl2"
End Sub
C# コードMicrosoft End User
2000-2008
「「「「「「「「「「「「「「「「「「「「「「「「「「「「
The best things in life are free
」」」」」」」」」」」」」」」」」」」」」」」」」」」」
|
|
|
|
|
There is no UPDATE query in this code so its really difficult to figure out.
|
|
|
|
|
no. the update is on the form.
Using the Continuous Forms
The same as GridiView in visual basic.
In detail of continuous form, I have textboxes and checkboxes, if I check the checkbox,
the table is automatically updated. Database update is not on the code, its on the form.
C# コードMicrosoft End User
2000-2008
「「「「「「「「「「「「「「「「「「「「「「「「「「「「
The best things in life are free
」」」」」」」」」」」」」」」」」」」」」」」」」」」」
|
|
|
|