Visual Basic

1-Dec-14 19:25

you're very clear with your question, but I don't understand.

Re: Visual Basicc Code

Richard MacCutchan1-Dec-14 22:17

Re: Help for code in vb.net

1-Dec-14 22:17

Please read http://www.codeproject.com/Messages/1278601/How-to-get-an-answer-to-your-question.aspx[^], and explain exactly what help you need. But be warned that no one here is going to do your work for you.

vb project help

Member 1126438330-Nov-14 12:36

Member 11264383

30-Nov-14 12:36

I need help organizing this If-then statement so that it works properly. Im a beginner Thanks!

If RBWoodFloor.Checked = False And RBCarpet.Checked = False Then MessageBox.Show("Choose a floor type!")
            If RBWoodFloor.Checked = True Then dbldefaultWoodcost = dblWoodFlooring
            If dbldefaultWoodcost = dblWoodFlooring Then Call lbRoomName.Items.Add(txtRoomName.Text)
            If dbldefaultWoodcost = dblWoodFlooring Then Call lbRoomLength.Items.Add(txtRoomLength.Text)
            If dbldefaultWoodcost = dblWoodFlooring Then Call lbRoomWidth.Items.Add(txtRoomWidth.Text)
            If dbldefaultWoodcost = dblWoodFlooring Then Call lbTotalCost.Items.Add(dbltotalcost * dblWoodFlooring)
ElseIf dbldefaultcarpetcost = dblCarpetFlooring Then Call lbTotalCost.Items.Add(dbltotalcost * dblCarpetFlooring)
        If RBCarpet.Checked = True Then dbldefaultcarpetcost = dblCarpetFlooring
            If dbldefaultcarpetcost = dblCarpetFlooring Then Call lbRoomName.Items.Add(txtRoomName.Text)
            If dbldefaultcarpetcost = dblCarpetFlooring Then Call lbRoomLength.Items.Add(txtRoomLength.Text)
            If dbldefaultcarpetcost = dblCarpetFlooring Then Call lbRoomWidth.Items.Add(txtRoomWidth.Text)

            End

Re: vb project help

Dave Kreskowiak30-Nov-14 13:25

Dave Kreskowiak

30-Nov-14 13:25

Well, what's your definition of "properly"? How are we supposed to know how the code is supposed to work?

A word of advice though. Do NOT put your statements in the same line as the IF statement. For clarity, break each if into it's own block:

If RBWoodFloor.Checked = False And RECarpet.Checked = False Then
    MessageBox.Show("Choose a floor type!")
End If

If RBWoodFloor.Checked = True Then
    dbldefaultWoodcost = dblWoodFlooring
End If

This makes your code easier to read and debug.

You've got the same check in multiple If statements. Block all of the results into a single block.

If dbldefaultWoodCost = dblWoodFlooring Then
    lbRoomName.Items.Add(txtRoomName.Text)
    lbRoomLength.Items.Add(txtRoomLength.Text)
    lbRoomWidth.Items.Add(txtRoomWidth.Text)
    lbTotalCost.Items.Add(dbltotalcost & dblWoodFlooring)
End If

Also, you don't need all those "Call" keywords at all.

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

Events

jkirkerx30-Nov-14 9:35

jkirkerx

30-Nov-14 9:35

I have a form, with a web browser object on it, in which when the document is complete, the event fires and processes the HTML on the form.

If the web page has child forms on it, then I call another automation class, in which I remove the original handler for the web browser object, and switch to the new handler in the child automation class.

Now I'm done processing child page forms, and I call the next parent form

I'm trying to figure out how to reload the original event handler that I unloaded earlier, so I can continue to process more parent pages.

The layout
1. frm_download_data - the form with the web browser object
There's no event handler

2. html_automation_reseller_product_page.vb - Parent Pages, Original Web Browser Document Handler

Public Sub WebBrowser_Page_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)



end sub

3. html_automation_reseller_product_child.vb - Child Pages, New Web Browser Document Handler

Protected Sub WebBrowser_PageChild_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)

//Swing back to the parent pages
AddHandler g_WB.DocumentCompleted, AddressOf html_automation_reseller_product_page.WebBrowser_Page_DocumentCompleted //Shared Object?
g_DDL.Text = g_complete_Url
g_WB.Navigate(g_complete_Url)

end sub

Now I want to return back to 2, and reload the Web Browser Handler.

I wonder if I planned this out poorly, and painted myself into a corner here.
I don't' want to make the Handler on 2 shared.

Help for code in vb.net

Member 1127214729-Nov-14 16:21

Member 11272147

29-Nov-14 16:21

Hello,

I have two databases in Access one of Patient and other of client.
now, what I need that from the address of patient I want to find nearest clients details using VB.net.

Richard MacCutchan29-Nov-14 23:26

wordwrap on datagridtextboxcolumn

29-Nov-14 23:26

This is less a VB.NET question, more SQL. I would suggest you post in the Database forum and show what statement you are using to select the records.

Member 1126800728-Nov-14 16:39

Member 11268007

28-Nov-14 16:39

Hi have looked at previous answers on this blog which dont seem to help me.

I have a datagrid and add columns that are datagridtextboxcolumn . When I click on a cell on datagrid - if the line is too big for the width of cell , it will display on the following line, but when I am not clicked on the cell, the end of the line of text will not be displayed on the next line - and is therefore not displayed.

I derived a new class from datagridtextboxcolumn and attempted to override the paint and painttext methods and this appeared to have no effect - the text is displayed in the column and only 1 line is displayed.

My code is

Here is the derived class: -

( below I have overridden the paint and painttext class in order to see which method has some effect on the display in the datagrid - but there is no effect occuring through this process of overriding.

Imports Microsoft.VisualBasic
Imports System.ComponentModel
Imports System.Data
Imports System.Data.Common
Imports System.Data.OleDb
Imports System.Drawing
Imports System.Windows.Forms
Namespace DataGridRichTextBox


    Public Class DataGridRichTextBoxColumn
        Inherits DataGridTextBoxColumn

        Private _source As CurrencyManager
        Private _rowNum As Integer
        Private _isEditing As Boolean



        Public Sub New()
            _source = Nothing
            _isEditing = False
        End Sub 'New



        Protected Overloads Sub PaintText(ByRef g As Graphics, ByVal bounds As System.Drawing.Rectangle, ByRef Text As String, ByVal alligntoright As Boolean)

        End Sub

        Protected Overloads Sub PaintText(ByRef g As Graphics, ByVal bounds As System.Drawing.Rectangle, ByRef Text As String, ByRef s1 As System.Drawing.Brush, ByRef s2 As System.Drawing.Brush, ByVal alligntoright As Boolean)
        End Sub

        Protected Overloads Overrides Sub Paint(ByVal g As Graphics, ByVal bounds As System.Drawing.Rectangle, ByVal _source As CurrencyManager, ByVal num As Integer)
        End Sub

        Protected Overloads Overrides Sub SetColumnValueatrow(ByVal _source As CurrencyManager, ByVal num As Integer, ByVal obj As Object)
        End Sub

    End Class 'DataGridComboBoxColumn
End Namespace







Here is where I add the derived class as an object to the datagrid : - 



Imports System.Windows.Forms
Imports System.Data.SqlClient
Imports System.Drawing




Public Class DataGridMine
    Inherits DataGrid



    Public r_counter, column_num, x1 As Integer

    Public x13 As Integer

#Region " Windows Form Designer generated code "


    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

    End Sub
    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
    Friend WithEvents SqlSelectCommand2 As New SqlCommand
    Friend WithEvents DataSet51 As New tasks_trial2.DataSet5
    Public WithEvents DataGridTableStyle1 As New DataGridTableStyle



    Public WithEvents task_name_col, parent_col As New DataGridTextBoxColumn


    Public WithEvents description_col As New DataGridRichTextBox.DataGridRichTextBoxColumn



    Friend WithEvents SqlDataAdapter3 As New SqlDataAdapter

    Friend WithEvents SqlDataAdapter2 As New SqlDataAdapter
    Friend WithEvents SqlSelectCommand3 As New SqlCommand




    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
        CType(Priority_code_table1, System.ComponentModel.ISupportInitialize).BeginInit()



        SuspendLayout()



        Me.DataMember = "tasks"
        Me.DataSource = DataSet51
        Me.Location = New Point(8, 230)
        Me.Size = New Size(1117, 384)
        Me.TabIndex = 0


        Me.TableStyles.AddRange(New DataGridTableStyle() {DataGridTableStyle1})


  

        SqlDataAdapter2.SelectCommand = SqlSelectCommand2
        SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "tasks")})

        SqlSelectCommand2.CommandText = ""
        SqlSelectCommand2.Connection = SqlConnection10


        DataGridTableStyle1.DataGrid = Me



        DataGridTableStyle1.AllowSorting = False

        column_num = 3

        DataGridTableStyle1.HeaderForeColor = SystemColors.ControlText
        DataGridTableStyle1.MappingName = "tasks"
        DataGridTableStyle1.SelectionBackColor = Color.Aquamarine
        DataGridTableStyle1.SelectionForeColor = Color.Black
        DataGridTableStyle1.PreferredRowHeight = 10
        DataGridTableStyle1.PreferredColumnWidth = 75



        description_col.HeaderText = "Description"
        description_col.MappingName = "description"
        description_col.Width = 260



.....................


' where column is description_col.

  Public Sub add_columns(ByRef dgrid1 As DataGridMine, ByVal column As Object)

        dgrid1.DataGridTableStyle1.GridColumnStyles.AddRange(New DataGridColumnStyle() {column})

    End Sub

How can I convert the VBA OCT() function in to a VB .NET function

Stephen Holdorf28-Nov-14 5:17

Stephen Holdorf

28-Nov-14 5:17

I am converting a VBA function to a VB .NET function. Here the VBA has an Oct() function for splitting a long into an array of x groups with 3 bytes. How can I create my own VB .NET function to do what the VBA Oct() does? Below is an example of how it is used:

'Create one long from this 3 bytes.
nGroup = &H10000 * Asc(Mid(inData, i, 1)) + _
&H100 * MyASC(Mid(inData, i + 1, 1)) + MyASC(Mid (inData, i + 2, 1))

'Oct splits the long To 8 groups with 3 bits
nGroup = Oct(nGroup)

Any help would be great!

Steve Holdorf

modified 28-Nov-14 11:24am.

Re: How can I convert the VBA OCT() function in to a VB .NET function

Richard MacCutchan28-Nov-14 5:56

Re: How can I convert the VBA OCT() function in to a VB .NET function

28-Nov-14 5:56

lholdorf wrote:
Oct splits the long To 8 groups with 3 bits

That is 24 bits which does not make much sense. What value does the long hold, and what is the result of the Oct() function?

Richard Deeming28-Nov-14 8:12

Richard Deeming

28-Nov-14 8:12

Your description of the Oct function appears to be wrong:

Oct Function[^]:

Returns a string representing the octal value of a number.

In VB.NET, you can either continue to use the Oct method[^], or you can use the Convert.ToString method[^], passing 8 as the base:

VB.NET

Dim octString As String = Convert.ToString(nGroup, 8)
' Or: Dim octString As String = Oct(nGroup)

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

drawline

JR21227-Nov-14 20:29

27-Nov-14 20:29

Hi,

I wrote a program for competition.
when I print at home I get a good result left on the Picture[^]
When I print at work. I have the result at the right site.

What do I wrong?
Here is the code.

Public Sub sPrnEmptyTabel(ByVal Personen As Int16, ByVal e As System.Drawing.Printing.PrintPageEventArgs, ByVal StartY As Int16)
    Dim g As Graphics = e.Graphics
    Dim nLijnLengte, nX As Integer
    Dim n1CharX = g.MeasureString("A", Me.Font).Width
    Dim n1CharY = Me.Font.Height
    nLijnLengte = Personen * nAfstand + nNaamBreedte + 3 * nPuntBreedte + nVoorsprongBreedte
    For nY As Integer = 1 To Personen
        g.DrawLine(New Pen(Color.Black), 0, StartY + nNaamBreedte + (nY - 1) * nAfstand, nLijnLengte, StartY + nNaamBreedte + (nY - 1) * nAfstand) 'horizontale lijnen

        g.DrawLine(New Pen(Color.Black), nNaamBreedte + (nY - 1) * nAfstand, StartY, nNaamBreedte + (nY - 1) * nAfstand, StartY + nNaamBreedte + (Personen) * nAfstand) 'vertikale lijnen
        For nX = 1 To Personen
            If nY = nX Then
                g.FillRectangle(Brushes.Red, nNaamBreedte + nAfstand * (nX - 1), StartY + nNaamBreedte + (nY - 1) * nAfstand, nAfstand, nAfstand)
                g.DrawString("*", New Font(Me.Font.Name, 20), Brushes.White, nNaamBreedte + nAfstand * (nX - 1), StartY + nNaamBreedte + (nY - 1) * nAfstand)
            Else
                Dim x1, x2, y1, y2 As Integer
                x1 = nNaamBreedte + nAfstand * (nX - 1)
                y1 = StartY + nNaamBreedte + (nY - 1) * nAfstand
                x2 = x1 + nAfstand
                y2 = y1 + nAfstand
                g.DrawLine(Pens.Green, x2 - 5, y1 + 5, x1 + 5, y2 - 5)
            End If
        Next nX
        g.DrawLine(New Pen(Color.Black), nNaamBreedte + (nY) * nAfstand, StartY, nNaamBreedte + (nY) * nAfstand, StartY + nNaamBreedte + (Personen) * nAfstand) 'vertikale lijnen
    Next nY

    g.DrawLine(New Pen(Color.Black), 0, StartY + nNaamBreedte + (Personen) * nAfstand, nLijnLengte, StartY + nNaamBreedte + Personen * nAfstand) 'horizontale eindlijn

    For n As Integer = 1 To 4
        g.DrawLine(New Pen(Color.Black), nNaamBreedte + (Personen) * nAfstand + n * nPuntBreedte, StartY + 0, nNaamBreedte + (Personen) * nAfstand + n * nPuntBreedte, StartY + nNaamBreedte + (Personen) * nAfstand)       'lijn voor de som vd punten
    Next
    With g
        .TranslateTransform(0.0F, nNaamBreedte)
        .RotateTransform(270)
        Dim a As New List(Of String)
        a.Add(LangSet.Table.tblWhite)
        a.Add(LangSet.Table.tblBlack)
        a.Add(LangSet.Table.tblGames)
        a.Add(LangSet.Table.tblTotal)
        For X As Integer = 0 To 3
            Dim sKopTekst = " " & a(X)
            g.DrawString(sKopTekst, New Font(Me.Font, FontStyle.Regular), Brushes.Black, -StartY, nNaamBreedte + (Personen + 3) * nAfstand + (X - 1) * nPuntBreedte)
        Next
        .RotateTransform(-270)
        .TranslateTransform(0.0F, -nNaamBreedte)
        sCopyRight(e, fGetResInfo("Titel1") & " " & fGetResInfo("Titel2"))
    End With
End Sub

The code is called from a printdoc

Jan

Eddy Vluggen28-Nov-14 7:55

Eddy Vluggen

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

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

Eddy Vluggen

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

JR2122-Dec-14 20:45

Application Software with Online Database

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