Visual Basic

Eddy Vluggen28-Nov-14 7:55

28-Nov-14 7:55

jan212r wrote:
What do I wrong?

Different printers will have different resolutions; that's why we have to draw on the printers' canvas to determine the amount of page's - the resolution will not be the same as on a screen.

http://msdn.microsoft.com/en-us/library/system.drawing.printing.pagesettings.printerresolution(v=vs.110).aspx[^]

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

JR21228-Nov-14 18:11

JR212

28-Nov-14 18:11

It's also wrong on paper, not just on the screen.
On both systems it's paper is set to A4

i wroth a small test and size en resulutions are the same, A4 and 600X600

With e.Graphics
	.DrawString("Papersize:", Me.Font, Brushes.Black, 50, 50)
			.DrawString(PrintDocument1.DefaultPageSettings.PaperSize.ToString, Me.Font, Brushes.Black, 150, 50)

	.DrawString("PaperSources:", Me.Font, Brushes.Black, 50, 100)
	.DrawString(PrintDocument1.DefaultPageSettings.PaperSource.ToString, Me.Font, Brushes.Black, 150, 100)

	.DrawString("PrinterResolutions:", Me.Font, Brushes.Black, 50, 150)
	.DrawString(PrintDocument1.DefaultPageSettings.PrinterResolution.ToString, Me.Font, Brushes.Black, 150, 150)

End With

What else can I check

Jan

Eddy Vluggen30-Nov-14 4:44

30-Nov-14 4:44

Call the CreateMeasurementGraphics[^] to get a DPI-values.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Application Software with Online Database

JR2122-Dec-14 20:45

JR212

2-Dec-14 20:45

Hi,

I'm back. CreateMeasurementGraphics was no help. For me, I don't really need to check these things.

It was all my mistakes.
1. I forgot a variable in 1 of the 2 calculations. (Value on 1 system 50 and on another 42, diff 8)
2. I run a loop from 1 to 4 and must do from 0 to 3 (multiply with a value of 50)
3. That different of 8 was the reason some systems where ok and others not.

Even so thanks for the help.

Jan

akashangel26-Nov-14 18:39

akashangel

26-Nov-14 18:39

I am a developer of Visual Basic, I was developing offline Software, Now I like to development a multi user application software , where database is store in online server. May be Ms Access or Mysql . I need the Concept and if i get source code it will be helpful

Re: Application Software with Online Database

Richard MacCutchan26-Nov-14 20:40

Richard MacCutchan

26-Nov-14 20:40

There are many articles available that explain various aspects of networked or web based applications. And no one is just going to hand you a load of source code. Please read http://www.codeproject.com/Messages/1278601/How-to-get-an-answer-to-your-question.aspx[^].

Re: Application Software with Online Database

Bernhard Hiller27-Nov-14 0:36

Bernhard Hiller

27-Nov-14 0:36

Do you understand how to work with a database on the same computer? If not, start with that.
Later, you need to understand a client-server-architecture. For communication between the two, look at e.g. WCF.

Deserialize Json and store values

jkirkerx26-Nov-14 6:56

jkirkerx

26-Nov-14 6:56

I'm underwater on this here. First time using vb to get JSON from a web service, actually I'm scraping it off a webpage.

This is my first attempt here, seems like it parsed, but I'm not able to figure out how to unpackage the object clean. I can see the obj in the web dev, and the data is key value paired.

Dim obj() As Object = New JavaScriptSerializer().Deserialize(Of Object)(pHTML)
sPR(idx).m_partNumber = obj(idx)(0).ToString
sPR(idx).m_shortDescription = obj(idx).Item("sItemName").ToString

I found this, but I can't find the instructions on how to use it.
https://gist.github.com/monk8800/3760559[^]

This is 1 record in a JSON array that I fetched from the web service

{
        "sUrl": "/Itemdesc.asp?ic=CLK-WCP-1PK",
        "sItemCode": "CLK-WCP-1PK",
        "sItemName": "WaveCenter Wireless Port License",
        "sItemImage": "CLK-WCP-1PK_50.jpg",
        "sItemOrigImage": "CLK-WCP-1PK.jpg",
        "sItemPrice": "$315.00",
        "sRegularPrice": "$749.99",
        "sItemStock": "7",
        "bAllowSaleUnit": "F",
        "sMeasureDesc": "EACH",
        "sItemOrder": "Order"
    },

I suspect that I need to use the List of T, like a type template. I can build one based on the array record above, just have no clue how to build one in vb.

Question:
I just need to get pointed in the right direction here.

Re: Deserialize Json and store values

Eddy Vluggen26-Nov-14 8:09

Re: Deserialize Json and store values

26-Nov-14 8:09

jkirkerx wrote:
I just need to get pointed in the right direction here.

I'd assume that it simply needs a class with a public property for each entry. That way reflection could be used to fill in the values; that would not work if the list if made of objects, as there are no properties to map.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

jkirkerx26-Nov-14 8:44

jkirkerx

26-Nov-14 8:44

Your right!
Thanks Eddy

Re: Deserialize Json and store values

Richard Deeming26-Nov-14 8:20

Richard Deeming

26-Nov-14 8:20

You're very close - each item in the obj array will be a Dictionary(Of String, Object), so you should be able to do:

VB.NET

Dim obj() As Object = New JavaScriptSerializer().Deserialize(Of Object())(pHTML)
sPR(idx).m_partNumber = obj(idx)("sItemCode").ToString()
sPR(idx).m_shortDescription = obj(idx)("sItemName").ToString()

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

Re: Deserialize Json and store values [Solved]

jkirkerx26-Nov-14 8:43

jkirkerx

26-Nov-14 8:43

I woke up super early this morning, not enough sleep.

The error was from my structure not being dimensioned, SPR, so the right side could of been correct.

So I used JSON to Data Contract and made a class called dc_strekwave.
http://jsontodatacontract.azurewebsites.net/[^]

Then wrote this, I suppose I don't need the structure anymore, since the obj seems to do the trick now.

That was actually pretty easy in hindsight. very little code required once the class was made. Now I need to spit out a comma delimited file, and the prototype is done, and I can ship it today for approval.

Private Function parse_HTML_package_Store( _
        ByVal pHTML As String) As Integer

        Dim dwExitCode As Integer = 2
        Dim sPR(0) As structure_product_records

        Try

            Dim obj As dc_streakwave() = New JavaScriptSerializer().Deserialize(Of dc_streakwave())(pHTML)
            ReDim Preserve sPR(obj.Length - 1)

            For idx As Integer = 0 To obj.Length - 1

                sPR(idx) = New structure_product_records
                sPR(idx).m_Url = obj(idx).sUrl
                sPR(idx).m_ItemCode = obj(idx).sItemCode
                sPR(idx).m_ItemName = obj(idx).sItemName
                sPR(idx).m_ItemImage = obj(idx).sItemImage
                sPR(idx).m_ItemOrigImage = obj(idx).sItemOrigImage
                sPR(idx).m_ItemPrice = obj(idx).sItemPrice
                sPR(idx).m_RegularPrice = obj(idx).sRegularPrice
                sPR(idx).m_ItemStock = obj(idx).sItemStock
                sPR(idx).m_AllowSaleUnit = obj(idx).bAllowSaleUnit
                sPR(idx).m_MeasureDesc = obj(idx).sMeasureDesc
                sPR(idx).m_ItemOrder = obj(idx).sItemOrder

            Next

            dwExitCode = 0

        Catch ex As Exception
            dwExitCode = 1

        End Try

        'Write the structure to a file
        'Write the structure to a comma delimited file

        Return dwExitCode

    End Function

Drag drop multiple rows between datagrids

tommydk26-Nov-14 1:09

26-Nov-14 1:09

Hi
I'm having a problem in dragging and dropping multiple rows between datagrids. VB.Net can't do this by default, but i found a solution here: Drag drop multiple selected rows of datagridview with left mouse button[^]

I have put the code in a new class called DD_DataGridView.vb but I can't figure out how to use it.

I have a small test projekt, with 2 Datagridviews. Can anyone give me a hint on how to use the DD_DataGridView class from this projekt.

I'm dragging from DGV1 and dropping in DGV2.
SelectionMode is FullRowSelect

Public Class Form1
    Dim DT1 As DataTable
    Private rowIndexFromMouseDown As Int32
    Dim MouseDwn As String

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        FillDataInGrids()
    End Sub

    Private Sub FillDataInGrids()
        DT1 = New DataTable

        'Table 1 has four columns
        DT1.Columns.Add("Name", Type.GetType("System.String"))
        DT1.Columns.Add("Designation", Type.GetType("System.String"))
        DT1.Columns.Add("Department", Type.GetType("System.String"))
        DT1.Columns.Add("Salary", Type.GetType("System.String"))

        'Now Add some Rows in the first DataTable
        Dim Dr As DataRow
        For i = 1 To 40
            Dr = DT1.NewRow
            Dr("Name") = "Tom " & i.ToString("D3")
            Dr("Designation") = "Developer " & i.ToString("D3")
            Dr("Department") = "Engg " & i.ToString("D3")
            Dr("Salary") = "100" & i.ToString("D3")
            DT1.Rows.Add(Dr)
        Next i

        DGV2.Columns.Add("Name", "Name")
        DGV2.Columns.Add("Designation", "Designation")
        DGV2.Columns.Add("Department", "Department")
        DGV2.Columns.Add("Salary", "Salary")
        DGV2.Rows.Add(5)

        'Now Bind the DataGrid to datatable 1
        DGV1.DataSource = DT1
    End Sub

    Private Sub DGV1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles DGV1.MouseDown
        rowIndexFromMouseDown = DGV1.HitTest(e.X, e.Y).RowIndex
        If rowIndexFromMouseDown <> -1 Then
            If Control.MouseButtons = MouseButtons.Left Then
                Dim hit As DataGridView.HitTestInfo = DGV1.HitTest(e.X, e.Y)
                DGV1.DoDragDrop(DGV1.Rows(hit.RowIndex), DragDropEffects.Copy)
                MouseDwn = DGV1.Name
            End If
        End If
    End Sub

    Private Sub DGV2_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles DGV2.DragEnter
        e.Effect = DragDropEffects.Copy
    End Sub

    Private Sub DGV2_DragOver(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles DGV2.DragOver
        e.Effect = DragDropEffects.Copy
    End Sub

    Private Sub DGV2_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles DGV2.DragDrop
        Dim clientPoint As Point = DGV2.PointToClient(New Point(e.X, e.Y))
        Dim hit As DataGridView.HitTestInfo = DGV2.HitTest(clientPoint.X, clientPoint.Y)
        Dim myType As Type = GetType(DataGridViewRow)
        Dim r As DataGridViewRow = DGV1.Rows(e.Data.GetData(myType).Index)
        Dim i As Integer

        If hit.RowIndex = -1 Then
            i = DGV2.NewRowIndex
        Else
            i = hit.RowIndex
        End If
        DGV2.Rows.Insert(i)

        For j As Integer = 0 To r.Cells.Count - 1
            DGV2.Rows(i).Cells(j).Value = r.Cells(j).Value
        Next
        MouseDwn = ""
    End Sub
End Class

I guess it's pretty simple, but I have to admit that I'm more a musician than a programmer Big Grin | :-D

Regards, Tommy

Eddy Vluggen26-Nov-14 8:12

26-Nov-14 8:12

You'd copy the code into a new class. Next you'd change the "DataGridView" control to a "DD_DataGridView". The easiest way would be by rebuilding, and checking if the new control is in the toolbox. The harder way involves modifying generated code.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

tommydk27-Nov-14 7:55

27-Nov-14 7:55

Thank you for answering. I forgot to tell that the 2 grids are of type DD_DataGridView.
I guess the problem is somewhere in my own code.
I can only copy one row, even when multiple rows are dragged

Regards, Tommy

Eddy Vluggen28-Nov-14 5:26

28-Nov-14 5:26

That should have been the hardest part; if the code as is posted is correct, and nothing else changed, then the property "AllowMultiRowDrag" should only have to be set to "true", and it ought to work.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

tommydk29-Nov-14 6:19

29-Nov-14 6:19

The problem seems to be that the MouseUp event never fires in DGV1.
If I comment this line out in DGV1_MouseDown, MouseUp fires but then I can't drag and drop.

DGV1.DoDragDrop(DGV1.Rows(hit.RowIndex), DragDropEffects.Copy)

The AllowMultiRowDrag should be set to true by the MouseUp event, if more rows are selected.
So basicly it's my own code that sucks Laugh | :laugh:

Eddy Vluggen30-Nov-14 4:46

30-Nov-14 4:46

tommydk wrote:
The AllowMultiRowDrag should be set to true by the MouseUp event

Does it have to be allowed at the latest moment? Try setting it to true when the grid is constructed Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

tommydk12-Feb-15 10:18

12-Feb-15 10:18

I finally gave up on this, and ended with this code.
Not elegant, but it works Laugh | :laugh:

I just pick up the selected rows in DGV1_DragLeave

Public Class Form1
    Dim DT1 As DataTable
    Private rowIndexFromMouseDown As Int32
    Dim MouseDwn As String
    Dim DragList As List(Of Integer)

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        FillDataInGrids()
    End Sub

    Private Sub FillDataInGrids()
        DT1 = New DataTable

        'Table 1 has four columns
        DT1.Columns.Add("Name", Type.GetType("System.String"))
        DT1.Columns.Add("Designation", Type.GetType("System.String"))
        DT1.Columns.Add("Department", Type.GetType("System.String"))
        DT1.Columns.Add("Salary", Type.GetType("System.String"))

        'Now Add some Rows in the first DataTable
        Dim Dr As DataRow
        For i = 1 To 40
            Dr = DT1.NewRow
            Dr("Name") = "Tom " & i.ToString("D3")
            Dr("Designation") = "Developer " & i.ToString("D3")
            Dr("Department") = "Engg " & i.ToString("D3")
            Dr("Salary") = "100" & i.ToString("D3")
            DT1.Rows.Add(Dr)
        Next i

        'DGV2
        DGV2.Columns.Add("Name", "Name")
        DGV2.Columns.Add("Designation", "Designation")
        DGV2.Columns.Add("Department", "Department")
        DGV2.Columns.Add("Salary", "Salary")
        DGV2.Rows.Add(5)
        'Now Bind the DataGrid to datatable 1
        DGV1.DataSource = DT1
    End Sub

    Private Sub DGV1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles DGV1.MouseDown
        rowIndexFromMouseDown = DGV1.HitTest(e.X, e.Y).RowIndex
        If rowIndexFromMouseDown <> -1 Then
            If Control.MouseButtons = MouseButtons.Left Then
                Dim hit As DataGridView.HitTestInfo = DGV1.HitTest(e.X, e.Y)
                DGV1.DoDragDrop(DGV1.Rows(hit.RowIndex), DragDropEffects.Copy)
                MouseDwn = DGV1.Name
            End If
        End If
    End Sub

    Private Sub DGV1_DragLeave(sender As System.Object, e As System.EventArgs) Handles DGV1.DragLeave
        DragList = New List(Of Integer)
        For counter = 0 To (DGV1.SelectedCells.Count - 1)
            If Not DragList.Contains(DGV1.SelectedCells(counter).RowIndex) Then DragList.Add(DGV1.SelectedCells(counter).RowIndex)
        Next
    End Sub

    Private Sub DGV2_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles DGV2.DragEnter
        e.Effect = DragDropEffects.Copy
    End Sub

    Private Sub DGV2_DragOver(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles DGV2.DragOver
        e.Effect = DragDropEffects.Copy
    End Sub

    Private Sub DGV2_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles DGV2.DragDrop
        Dim clientPoint As Point = DGV2.PointToClient(New Point(e.X, e.Y))
        Dim hit As DataGridView.HitTestInfo = DGV2.HitTest(clientPoint.X, clientPoint.Y)
        Dim i As Integer

        If hit.RowIndex = -1 Then
            i = DGV2.NewRowIndex
        Else
            i = hit.RowIndex
        End If

        DragList.Reverse()

        For j As Integer = 0 To DragList.Count - 1
            DGV2.Rows.Insert(i)
            For c As Int32 = 0 To DGV1.Rows(j).Cells.Count - 1
                DGV2.Rows(i).Cells(c).Value = DGV1.Rows(DragList.Item(j)).Cells(c).Value
            Next
            i = i + 1
        Next
        DragList.Clear()
        MouseDwn = ""
    End Sub
End Class

Eddy Vluggen12-Feb-15 11:37