I added references from http://vb.net-informations.com/files/create-pdf.htm to my vb.net program.  I have no problem creating a PDF document, but I'm trying to figure out how to change the orientation to landscape.

I tried this...

Dim pdfPage As PdfPage = pdf.AddPage.Orientation.Landscape

Select all Open in new window

and this...

pdfPage.Orientation.Landscape

Select all Open in new window

But neither work.  I get the options of Orientation and Landscape from auto-fill, so I know it must be possible, but I get an error in the error list saying that PageOrientation cannot be converted to pdfPage.  How do I set the orientation?

So I added the references here...
http://vb.net-informations.com/files/create-pdf.htm
For creating a PDF document in vb.net.  This works fine, but in my code, I don't know how to start a new line.  I tried using Evironment.NewLine, but it doesn't advance beyond the first line of text.  I'm sure the issue is that I can't keep using "TopLeft", but I can't figure out how to write multiple lines to the page.  Here's my code:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim pdf As PdfDocument = New PdfDocument
        pdf.Info.Title = "Renewal Report"
        Dim pdfPage As PdfPage = pdf.AddPage
        Dim graph As XGraphics = XGraphics.FromPdfPage(pdfPage)
        Dim font As XFont = New XFont("Consolas", 20, XFontStyle.Regular)
        '// Writing first line
        graph.DrawString("First Line of Document", font, XBrushes.Black,
        New XRect(0, 0, pdfPage.Width.Point, pdfPage.Height.Point), XStringFormats.TopLeft)
        '// Trying to add new line
        graph.DrawString(Environment.NewLine, font, XBrushes.Black,
        New XRect(0, 0, pdfPage.Width.Point, pdfPage.Height.Point), XStringFormats.TopLeft)
        '// Trying to write second line
        graph.DrawString("Second Line of Document", font, XBrushes.Black,
        New XRect(0, 0, pdfPage.Width.Point, pdfPage.Height.Point), XStringFormats.TopLeft)
        Dim pdfFilename As String = "firstpage.pdf"
        pdf.Save(pdfFilename)
        

Select all Open in new window

…

Hi,

How do I prevent users from resizing a Form by dragging its border using VB.NET?

Kind regards,

Victor

I want to use the following C# code in a VB program.  How would I convert this?  The first line seems to just be a matter or removing the semicolon, but I can't test it since I am unable to figure out the second line.

textbox1.Select( textbox1.GetFirstCharIndexFromLine( 0 ), textbox1.GetFirstCharIndexFromLine( 1 ) - textbox1.GetFirstCharIndexFromLine( 0 ) );
textbox1.SelectionFont = new System.Drawing.Font( "Tahoma", 10, FontStyle.Bold );

Select all Open in new window

What is the best way to take a string (let's say 99900) and string it so it equals 999.00 ?  format for some reason I am struggling with..  I think I am overthinking it but looking for other ideas.


CInt(node.SelectSingleNode("FineAmount").InnerText.Trim().ToString("D"))

I have also tried variants to string.format() seems to not add the decimal.  

Thanks in advance!

Hi,

I have a service that used a FileSystemWatcher to monitor a directory waiting for XML files to be posted from on-site scanners and then it is to process them appropriately. The files are generated from the scanners via a PHP script to post the files into the directory being watched.

There is an issue in this application that occasionally it posts a zero-byte file that I have to detect and then delete as the file is useless. I have coded this, but it has exposed another issue that I now need to address.

Sometimes the FileSystemWatcher detects and attempts to grab the file before the post from the scanner is complete. I have added a loop to wait on the service being able to open the file with exclusive access which I thought would mean that the post was complete (assuming the file would remain locked until it was fully written). However, this occasionally appears not to be the case. On the odd occasion my loop appears to be getting exclusive access to the file (about 1% of the time) before it should (in my mind), and is detecting the file as zero-byte as the write has not completed. It then proceeds to try to delete the file, which fails as the writing process seems to again have taken out a lock on the file.

My question is, what is the best way to wait on exclusive access to a file and to be 100% sure that the writing process has finished with the file??

A snippet from my code is below (detectedFilename comes in as a parameter):

        Dim 

Select all Open in new window

…

Hi I have used telerik to convert code but getting error, please help

this is the c# version:

System.Xml.XmlElement[] headers = doc.DocumentElement.ChildNodes.Cast<XmlElement>().ToArray<XmlElement>();

Select all Open in new window

       
this is the vb converted version:

Dim headers As System.Xml.XmlElement() = doc.DocumentElement.ChildNodes.Cast(Of XmlElement)().ToArray(Of XmlElement)()

Select all Open in new window

the error message is

Error      109      Extension method 'Public Function ToArray() As TSource()' defined in 'System.Linq.Enumerable' is not generic (or has no free type parameters) and so cannot have type arguments.

I have the: Imports System.Linq

Hello,

I'm trying to change multiple  panel back color depends on data from database,
the data comes from list called mylist  it have a strings with true and false,
so i need to change the back color of panels depends on that data , so if mylist(1) = true i want the back color is green:
this is what i tried  :

Dim p As List(Of Panel) = Me.Controls.OfType(Of Panel).ToList
        For i As Integer = 1 To duration
            If myList(i) = True Then
                p(i).BackColor = Color.SpringGreen
            End If
        Next

Select all Open in new window

but its not working.

#include <iostream>
#include <iomanip>
#include <string>

using namespace std;
int main()
{
    int pictureLength, pictureWidth, pictureSquareInchSize, picturePerimiter, numberOfStars;
    char frameType;
    string frameColour;
    float totalPrice;
   
    //values below represent cost per inch
    const float FRAME_COLOURING_PRICE = 0.10;
    const float REGULAR_FRAME_PRICE = 0.15;
    const float FANCY_FRAME_PRICE = 0.25;
   
    //values below represent cost per square inch
    const float CARDBOARD_PRICE = 0.02;
    const float GLASS_PRICE = 0.07;
   
    const float STARS_PRICE = 0.35;
   
    cout << "Please enter the length & width of the picture: ";
    cin >> pictureLength >> pictureWidth;
    pictureSquareInchSize = pictureLength * pictureWidth;
    picturePerimiter = (pictureLength * 2) + (pictureWidth * 2);
    cout << "Please select your frame type (r for regular & f for fancy): ";
    cin >> frameType;
   
    // Calculate cost of the frame type
    switch (frameType) {
        case 'r':
        case 'R':
            totalPrice = picturePerimiter * REGULAR_FRAME_PRICE;
            break;
        case 'f':
        case 'F':
            totalPrice = picturePerimiter * FANCY_FRAME_PRICE;
            break;
        default:
            cout << "You entered an invalid fram type" << endl;
            return 1;
            break;
    }
   
    cout << "Please enter which colour frame you would like (Note: white is …

Hi Guys, any idea why this While Wend Loop is only populating Cells (i,44) and not Cells (i,88) in Excel. The If Statements are exactly the same.

Sub Newmacro()

Worksheets("CTMRFCDXTR_1_2_LN").Select

Dim i As Long

i = 1

While Cells(i, 1).Value <> ""

If Cells(i, 4).Value = "MM_BNK_LN" And Cells(i, 21).Value = "EUR EURIBOR 3M" And Cells(i, 18).Value = "GB-RELATIONSHIP LOAN" Then
Cells(i, 44).Value = "-0.332"
i = i + 1
ElseIf Cells(i, 4).Value = "MM_BNK_LN" And Cells(i, 21).Value = "EUR EURIBOR 3M" And Cells(i, 18).Value = "GB-RELATIONSHIP LOAN" Then
Cells(i, 81).Value = "-0.332"

i = i + 1


Else

i = i + 1


End If

Object reference not set to an instance of an object error
1504779167899..jpg

I am trying to automate an email inside my vb.net program. I am using the following line of code below.
I get to the SMTP.Send(Mail) and get an error. (See attached image). It will never show up in my mailbox.

  Dim Mail As New Net.Mail.MailMessage
        Mail.Subject = "Notification Email."
        Mail.To.Add("********@gmail.com")
        Mail.From = New MailAddress("*******@*******corporation.com")
        Mail.Body = "This is a notice that a report was created."

        Dim SMTP As New SmtpClient("smtp.gmail.com")
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential("******@gmail.com ", "******")
        SMTP.Port = "587"
        SMTP.Send(Mail)

Select all Open in new window

Email-Error.PNG

This is my module:

Imports MySql.Data.MySqlClient
Module dbModule
    Public conn As New MySqlConnection
    ' Public edzon As String
    Public Sub dbConnect()
        Try
            If conn.State = ConnectionState.Closed Then
                'ESM Connection
                conn.ConnectionString = "server=192.168.6.252;userid=elitescanning;password=ElItE123!@#ScAnNiNg;database=msd"

                'SMT Connection
                'conn.ConnectionString = "server=137.105.128.253;userid=elitescanning;password=ElItE123!@#ScAnNiNg;database=msd"

                conn.Open()
            End If
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try

    End Sub
End Module

Select all Open in new window

How to save image and when I search the ID Number in from database, His,Her picture will display???


Thanks