Visual Basic

JR2129-Feb-12 1:40

JR212

9-Feb-12 1:40

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

Simon_Whale9-Feb-12 1:59

9-Feb-12 1:59

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

Dave Kreskowiak9-Feb-12 2:10

Dave Kreskowiak

9-Feb-12 2:10

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.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

hansoctantan9-Feb-12 3:28

hansoctantan

9-Feb-12 3:28

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...

Bernhard Hiller9-Feb-12 22:02

Bernhard Hiller

9-Feb-12 22:02

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.

Simon_Whale9-Feb-12 22:53

Datagridview not showing my list(of object)

9-Feb-12 22:53

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

Sonhospa8-Feb-12 8:22

Sonhospa

8-Feb-12 8:22

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

(Resolved): Datagridview not showing my list(of object)

Luc Pattyn8-Feb-12 9:30

Luc Pattyn

8-Feb-12 9:30

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[^]

Smile | :)

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.

Sonhospa10-Feb-12 0:36

Sonhospa

10-Feb-12 0:36

Hi Luc,

thank you for your hints Cool | :cool:

. 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

Re: (Resolved): Datagridview not showing my list(of object)

Luc Pattyn10-Feb-12 1:01

Luc Pattyn

10-Feb-12 1:01

you're welcome.

Smile | :)

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.

Simon_Whale9-Feb-12 22:58

9-Feb-12 22:58

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
  'get set here
 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

Luc Pattyn9-Feb-12 23:38

Luc Pattyn

9-Feb-12 23:38

Data binding uses reflection, it looks for properties with the specified names.

Smile | :)

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.

Simon_Whale9-Feb-12 23:44

(Resolved): Datagridview not showing my list(of object)

9-Feb-12 23:44

Thanks Luc Smile | :)

Thats my something learnt for today now I'm off to make snow angels Laugh | :laugh:

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

Sonhospa10-Feb-12 0:40

Sonhospa

10-Feb-12 0:40

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 Java | [Coffee]

, regards
Mick

Re: (Resolved): Datagridview not showing my list(of object)

Simon_Whale10-Feb-12 1:07

10-Feb-12 1:07

Your welcome Michael and have a good weekend yourself Smile | :)

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

Diamond Looping

Framework .l.7-Feb-12 14:51

Framework .l.

7-Feb-12 14:51

hi, i'm trying to do a looping like this,
if i input 5 then,

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.. Laugh | :laugh:

modified 7-Feb-12 22:14pm.

Johan Hakkesteegt7-Feb-12 21:18

Johan Hakkesteegt

7-Feb-12 21:18

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.

Simon_Whale8-Feb-12 0:46

8-Feb-12 0:46

??? = 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

hansoctantan9-Feb-12 3:55

hansoctantan

9-Feb-12 3:55

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
        '##INPUT
        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
            '##SPACES
            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
            '##NUMBERS
            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
            '##OUTPUT
            List1.AddItem spaces + numbers
            spaces = ""
            numbers = ""
        Next
End Sub