Visual Basic

17-Jul-07 0:25

I want to user pdf file format like other word,excel in my vb.net project.
please tell me how can I do this or send me url's for useful site.

Ashish K. Vyas

originSH17-Jul-07 0:39

originSH

17-Jul-07 0:39

Ashish Kumar Vyas wrote:
I want to user pdf file format like other word,excel in my vb.net project.

You want to 'user' them?
You want to 'user' them 'like other word,excel in my vb.net project'?

You might want to start by explaining what you want rather than throwing words at the textbox :P

I assume you mean you want to 'use' pdf files in your application. But you don't say how you want to use them. Read? Write? Send to your bosses email address in an infinate loop?

Ashish Kumar Vyas17-Jul-07 1:05

17-Jul-07 1:05

exactly I want to generate report in pdf format like excel and other file formats.
let me know for read and write pdf aslo....

Thank you....

Ashish K. Vyas

Ashish Kumar Vyas17-Jul-07 1:17

17-Jul-07 1:17

Hi,

I want to PDF for creating the files that will go as attachments to various users in mine project . To my knowledge VB.Net dosent have in built support for creating PDF files. There are some libraries which can be used to create PDF files but those are licensed version.

If you know some open source PDF libraries or other helpful information, please mail those details. Please explain other formats which can be used to create the files for mine project.

Tom Deketelaere17-Jul-07 1:15

17-Jul-07 1:15

for displaying pdf files there is an control that you can add to you're toolbox: adobe pdf reader

for writing and editing pdf's in vb.net you need to buy the full version (not free Sigh | :sigh:

)

some usefull links (maybe):
http://www.developerfusion.co.uk/show/5682/[^]

this one creates pdf files (haven't tested it)

http://www.codeproject.com/dotnet/pdfthumbnail.asp[^]

this one creates a thumbnail but you can use it to get you on you'r way for editing pdf's

http://www.codeproject.com/tools/Text2PDF.asp[^]
http://www.codeproject.com/showcase/TallComponents.asp[^]

hope this helps

Ashish Kumar Vyas17-Jul-07 1:41

17-Jul-07 1:41

Hi,
Do you know any open source PDF libraries.
how to write in pdf using vb.net

Tom Deketelaere17-Jul-07 1:54

Re: help with sum expression

17-Jul-07 1:54

the first link I provided is an open source way to create pdf's

for editing an existing one I havn't found any so far. I'v been looking for quite a while now since I could use it aswell but so far all the coude I'v found use the adobe library's and to be able to use them you need the full version

If I find a way I'll let you know but I'm afraid that for the moment I have to assume that it is not possible to do it without bying the full version of adobe (at least not legally possible)

Cheque Printing

hareeshvs17-Jul-07 0:21

hareeshvs

17-Jul-07 0:21

Hi All,
I have one cheque printing module in my vb.net application. In that i am saving the x,y positions of different labels and setting label positions while previewing. Then I am printing the form as such. Since there is no form.print in vb.net, i am using the following code:

Private Print_Image As Image

'This is used to take the picture
Declare Auto Function BitBlt Lib "GDI32.DLL" ( _
ByVal hdcDest As IntPtr, _
ByVal nXDest As Integer, _
ByVal nYDest As Integer, _
ByVal nWidth As Integer, _
ByVal nHeight As Integer, _
ByVal hdcSrc As IntPtr, _
ByVal nXSrc As Integer, _
ByVal nYSrc As Integer, _
ByVal dwRop As Int32) As Boolean

Private Sub mnuPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPrint.Click
'We make the form look pretty before its picture
Application.DoEvents()
Me.Refresh()
Application.DoEvents()

'Get a Graphics Object from the form
Dim FormG As Graphics = Me.CreateGraphics
FormG.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias

'Create a bitmap from that graphics
Dim i As New Bitmap(Me.Width - 6, Me.Height, FormG)

'Create a Graphics object in memory from that bitmap
Dim memG As Graphics = Graphics.FromImage(i)

'get the IntPtr's of the graphics
Dim HDC1 As IntPtr = FormG.GetHdc
Dim HDC2 As IntPtr = memG.GetHdc

'get the picture
BitBlt(HDC2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, HDC1, 0, 0, 13369376)

''Clone the bitmap so we can dispose this one
Me.Print_Image = i.Clone()

'Clean Up
FormG.ReleaseHdc(HDC1)
memG.ReleaseHdc(HDC2)
FormG.Dispose()
memG.Dispose()
i.Dispose()

'Show the PrintDialog
PrintDialog1 = New PrintDialog
PrintDialog1.Document = PrintDocument1

Dim r As DialogResult = PrintDialog1.ShowDialog

If r = DialogResult.OK Then
'Print the document
PrintDocument1.Print()
End If
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
e.Graphics.DrawImage(Me.Print_Image, 0, 0)
End Sub

All these are working fine.But now the problem is, all writings in the cheque are scattered and there is no clarity & smoothness. Anybody have any ideas to increase the clarity & smoothness? Or Is there any other ways to achive this?

Regards,
Hareesh

Re: Cheque Printing

Duncan Edwards Jones17-Jul-07 0:46

Duncan Edwards Jones

17-Jul-07 0:46

There is a PrintForm add on in the VB2005 power pack[^]

Or if you need th eprint to look different from the on screen display check out this control[^]

'--8<------------------------
Ex Datis:
Duncan Jones
Merrion Computing Ltd

Re: Cheque Printing

hareeshvs17-Jul-07 1:01

hareeshvs

17-Jul-07 1:01

Thank u Jones 4 ur reply. But i am using VS2003 and Microsoft .Net Framework 1.0

help with sum expression

Mr.Kode17-Jul-07 0:21

Mr.Kode

17-Jul-07 0:21

i have one datatable contains price column
i need to calculate the sum of the prices
and then delete all the rows from the table

my code is :

dim total as decimal
total=dataset.tables("sourcetable").columns("price").experssion="sum(price)"

but when the code executed it generate exception
can not use experssion in an circual function

second:

i need to know how to delete all rows from datatable at run time

regards

Johan Hakkesteegt17-Jul-07 1:22

Johan Hakkesteegt

17-Jul-07 1:22

Hi,

One possible way is to simply loop through the rows of your dataset and add the values from the column you need:

<br />
Dim rw as DataRow<br />
Dim Total as Decimal<br />
'First "save" any changes the user made before this bit of code is triggered<br />
Dataset.AcceptChanges()<br />
'Then loop through all rows in the dataset<br />
For Each rw In Dataset.tables("sourcetable").Rows<br />
'best to add some validation here:<br />
If IsError(Decimal.Parse(rw.Item("price"))) Then<br />
'someone wrote his name in the price field instead of a decimal<br />
'kick his ass<br />
Else<br />
'increase the value of variable Total<br />
Total += rw.Item("price")<br />
End If<br />
Next<br />
'and then for example:<br />
TxtTotal.Text = Total.ToString<br />

Hope this helps you,

Johan

My advice is free, and you may get what you paid for.

Re: help with sum expression

Mr.Kode17-Jul-07 1:26

Mr.Kode

17-Jul-07 1:26

johan i'm really greatful for you
you helped me before and i really thank you for all
i'll try your code
and post you again

Regards

List Issue

Tauseef A17-Jul-07 0:01

Tauseef A

17-Jul-07 0:01

hi guy s

i am working in frame work 1.1 in which for generic lists i am inheriting

some of my classed from collection base class and all of that i am doing in c#,

i have a function here

public class EmployeeCollection:System.Collections.CollectionBase

public Employee this[int index]
{
get
{
return (Employee) List[index];
}
set
{
List[index] = value;
}
}

i simply need the above functionality code in vb.net,,
i couyld not get that sysnatx if i want the same function in vb.net
thanks in advance

best regards

hello

Re: List Issue [modified]

Tom Deketelaere17-Jul-07 1:06

copy code source in notepad

17-Jul-07 1:06

the following link will convert c# to vb.net (I use it alot and it works fine(somethimes some adjustments are needed dough)):
http://www.developerfusion.co.uk/utilities/convertcsharptovb.aspx[^]

for you'r code this is the output:

Public Class EmployeeCollection<br />
	Inherits System.Collections.CollectionBase<br />
	Public Default Property Item(ByVal index As Integer) As Employee<br />
		Get<br />
			Return DirectCast(List(index), Employee)<br />
		End Get<br />
		Set<br />
			List(index) = value<br />
		End Set<br />
	End Property<br />
End Class

-- modified at 7:26 Tuesday 17th July, 2007

just noticed the code above will not compile
this will and I think it will work too (hope so Poke tongue | ;-P

)

Inherits System.Collections.CollectionBase<br />
<br />
    Public Property employee(ByVal index As Integer)<br />
        Get<br />
            Return MyBase.List(index)<br />
        End Get<br />
        Set(ByVal value)<br />
            MyBase.List(index) = value<br />
        End Set<br />
    End Property

ilnaz16-Jul-07 23:31

ilnaz

16-Jul-07 23:31

i build a notepad in vb.net but i donot know the copy code source and copy class and cut code source please guide me.
thanks a lot;)

Re: copy code source in notepad

Vasudevan Deepak Kumar16-Jul-07 23:35

Vasudevan Deepak Kumar

16-Jul-07 23:35

Too much broken English. Rather I would say

Too broken English much Can you be more clear?

Vasudevan Deepak Kumar
Personal Homepage
Tech Gossips

Re: copy code source in notepad

SHatchard16-Jul-07 23:45

SHatchard

16-Jul-07 23:45

Is what you are after a way of setting / getting the clipbard data in your code? If so then

clipboard.SetText("myString")

to add the selected text to the clipboard. Reading is a little more complicated since you might have something which is not text in the clipboard so you can...

Dim clipboardData as iDataObject = Clipboard.GetDataObject
if clipBoardData.GetDataPresent(DataFormats.Text) Then
  Return clipBoardData.GetData(DataFormats.Text)
else
  'The clipboard contains something other than text
end if

Re: copy code source in notepad

Tom Deketelaere16-Jul-07 23:59