Comments by kgmmurugesh (Top 139 by date)

In these suggesstions, there is no idea to print multy font and colours. It only gives the logic to print plain text only.

Enable that button

In vb.net language settings is same as microsoft windows

Yes, You can run any type of executable files (.bat, .exe, .com etc).

Dim lstring As String = "murugesh <#read this text#> abc"
Dim lary() As String
Dim lpos1, lpos2 As Integer
lpos1 = InStr(lstring, "<#") + 2
lpos2 = InStr(lstring, "#>")


MsgBox(Mid(lstring, lpos1, lpos2 - lpos1))

Ok.

Ok. is there any way to check quickly?

web request takes 20 seconds when internet is not available.

New System.Drawing.Font("Arial", 36, FontStyle.Bold)

use fontstyle.bold to bold the font.

alter the above code like this

If e.KeyCode = Keys.Tab Then
RichTextBox2.Visible = True
RichTextBox1.Visible = False
End If
End Sub

If e.KeyCode = Keys.R AndAlso e.Modifiers = Keys.Control Then
RichTextBox3.Show()
RichTextBox2.Visible = True
RichTextBox1.Visible = False

End If
End Sub

can you explain the entire project?

can you send your full code?

OK

if the formload event add this code.

richTextBox2.Font = New System.Drawing.Font("Bamini", 9)

are you using e-kalapai, keyman or NHM writer?

how do you enter tamil letters?

yes. How do you type tamil?

You have to set tamil font name and if there is a switch then you must press the shortcut keys to change tamil (using sendkeys method)

how you switch english font to tamil and tamil to english?

If you r using unicode then you can set the font directly.

RichTextBox1.Font = New System.Drawing.Font("Arial",9)

set like this

No, we should set font for richtextbox.

NO, We can set id by coding.

It is very simple. why dont you set coressponding font before showing textbox

you r using vb.net or vb.

Make one richtextbox for tamil and another richtextbox for english. depending on the language show coressponding richtextbox

can you show your full code?

do not use property panel. Use tamil and english fonts or change keyboard dynamically.

insert the following line after decreasing and increasing font.

e.SuppressKeyPress = True

show your full code with datagridview.

show your code

First change the font then show the richtextbox.

Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox1.KeyDown

If e.KeyCode = Keys.Add AndAlso e.Modifiers = Keys.Control Then
'increase the font size
RichTextBox1.Font = New System.Drawing.Font(RichTextBox1.Font.Name,
RichTextBox1.Font.Size + 1)
ElseIf e.KeyCode = Keys.Subtract AndAlso e.Modifiers = Keys.Control Then
'decrease the font size
RichTextBox1.Font = New System.Drawing.Font(RichTextBox1.Font.Name,
RichTextBox1.Font.Size - 1)
End If

End Sub

ctrl+ to increase and ctrl- to decrease

OK.

Timer1.Tick event fires every 4 minutes. Reduce the timer1.inverval then check.

Thanks, In my case, i want to update data from branches to server. if i update all records in a table to server with single query it takes too much time and returns network error. so that i want to split the data based on size. Is there any other way to do it?

Thanks, Is there any sql command to check whether the server supports compression, because each customer using different version of sql server. It is more helpful, if i find it in sql command.

I want erpimportdata as new element.

<?xml version="1.0" standalone="yes"?>
<newdataset>

<xml_f52e2b61-18a1-11d1-b105-00805f49916b><erpimportdata><row unit_name="Nos" Unit_PrintName="Nos"/></erpimportdata>




It will translate tag to <. So I cannot read the file.

I need raw xml string. But i want it as xml file.

I use the following query in ssms, it will show the given result but I use this query in vb.net coding it will show different result. I want the ssms result.

select unit_name, Unit_PrintName from unit_table for xml path('customer'), root('erpimportdata')


<erpimportdata>
<customer>
<unit_name>Doz > & A
<unit_printname>Doz

<customer>
<unit_name>Abc
<unit_printname>Abc

<customer>
<unit_name>Zzzzzzzz
<unit_printname>Zzzzzzzz

<customer>
<unit_name>Nos
<unit_printname>Nos




RESULT OF VB.NET CODE.
<?xml version="1.0" standalone="yes"?>
<newdataset>

<xml_f52e2b61-18a1-11d1-b105-00805f49916b><erpimportdata><customer><unit_name>Doz &gt; &amp; A</unit_name><Unit_PrintName>Doz</Unit_PrintName></customer><customer><unit_name>Abc</unit_name><Unit_PrintName>Abc</Unit_PrintName></customer><customer><unit_name>Zzzzzzzz</unit_name><Unit_PrintName>Zzzzzzzz</Unit_PrintName></customer><customer><unit_name>Nos</unit_name><Unit_PrintName>Nos</Unit_PrintName></customer></erpimportdata>

OK, Is there any way to get the result by SQL query?

<?xml version="1.0" standalone="true"?>

-<newdataset>


-

<xml_f52e2b61-18a1-11d1-b105-00805f49916b>


the above tag

Hi, I do not want to write headers and also i want to append the result to existing file!

Public Function Charwidth(ByVal pstrcharacter As String, ByVal pfont As System.Drawing.Font) As Single
Dim a As Single
Dim b As Single

Try
TMPgfx.PageUnit = GraphicsUnit.Point
TxtSize = TMPgfx.MeasureString(pstrcharacter, pfont)
a = TxtSize.Width
TxtSize = TMPgfx.MeasureString(pstrcharacter + pstrcharacter, pfont)
b = TxtSize.Width
Charwidth = b - a
Catch ex As Exception
Throw ex
End Try

End Function

Thanks for your help. I use the following code.

Public Function Charwidth(ByVal pstrcharacter As String, ByVal pfont As System.Drawing.Font) As Single
Dim a As Single
Dim b As Single

Try
TMPgfx.PageUnit = GraphicsUnit.Point
TxtSize = TMPgfx.MeasureString(pstrcharacter, pfont)
a = TxtSize.Width
TxtSize = TMPgfx.MeasureString(pstrcharacter + pstrcharacter, pfont)
b = TxtSize.Width
Charwidth = b - a
Catch ex As Exception
Throw ex
End Try

End Function

I use this logic. Thanks

Thanks, Is the any other property is available?

after getting connection, run SET DATEFORMT 'MDY'

This is better.

if My.Computer.Keyboard.ShiftKeyDown then
exit sub
endif

hlpevent.Handled = True
MsgBox("Hello World")

Thanks

Thanks. I have completed the problem. I created a user and added printing rights to that user. It works fine.

How to resolve my problem?

It has no LPT port. It uses usb port.

Net use command works successfully but the same error occurs when i print using type filename > lpt1.

i.e I add video1 and get url, it is ok. I add video2 in the samle playlist after some time, It plays video1. I want to play vide2 (as per the settings in my playlist)

It plays the first one at the time of copying the url.

Printer does not accept Some paper sizes.

No, I am logged in as kgmmurugesh and this user has full permission for the folder.

Where you stored the folder name or how to name the 1500 folders?

I want the output shown in screen1 (Local Instances) & Screen2 (Network Instances),
the screen1 & screen2 are taken from SSMS.

No, It is true, If you have any doubt see my system through teamviewer.

I've not yet got the result.

use the old link to see the screen shot. It is in the name of screen3

use the following link to see the output.

Screen file is the output of your code, Screen1, Screen2 are the output taken from SQL Server Management Studio.

https://drive.google.com/folderview?id=0B5a-bv4fFkeGfnNUUXJCRElVOEp4amtCV0x6TklrN2VQdEYwTWxMUFh1elhtYklYWHNESkE&usp=sharing

Yes, It is running

But, It will not show in my computer, SQL Server Management Studio shows local servers, How?

It will not return instances installed in my PC. It only return the instances installed in network systems.

No, What I want is to check the given sql server instance is in Local Computer or Network Computer?

It shows network servers only. I want local server (My Computer)

give me your code

only change the lstrnumeric string to "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" for alpha, "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ123456789" for alpha numerice, "1234567890.,$" for amount.

Yes, I have asked them also.

I want to know is there any API available for whatsapp?

Good, Is there any way to change the log on as to Local System through vb.net code? Is there any side effects while changing the log on as to local system?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sqlcmd As New SqlClient.SqlCommand

Dim con As New SqlClient.SqlConnection("Data Source=kgmmurugesh\sqlexpress;Initial Catalog=KGMERP_STORES;Integrated Security=True")

Try
con.Open()
sqlcmd.Connection = con
sqlcmd.CommandText = "begin tran ItemCreation"
sqlcmd.ExecuteNonQuery()

sqlcmd.CommandText = "Insert into Item_table(Item_Name,Item_PRate) values ('apple','a150')"
sqlcmd.ExecuteNonQuery()

sqlcmd.CommandText = "commit tran ItemCreation"
sqlcmd.ExecuteNonQuery()

Catch ex As Exception

sqlcmd.CommandText = "rollback tran ItemCreation"
sqlcmd.ExecuteNonQuery()

End Try

End Sub


This is my code, when there is a error in Insert command, it shows
The ROLLBACK TRANSACTION request has no corresponding BEGIN TRANSACTION.

I use the same logic as you said, if there is no error then i commit the transaction otherwise roll back the transaction. It shows error in some systems only, how?

as you said sqlquries are stand alone, but I issued Begin Transaction fist then how it makes error?

I don't want to do this in sqltransaction, tell me the error in my code!

I use commit tran in sucess and rollback when error in my code.

I use only one sqlcmd in my code.

It works well, I want to know what is the mistake in my code?

Thanks, It works well. What is need is mydate should be "30/05/2014". Now my date is "05/30/2014", I want mydate format should be "dd/mm/yyyy"

It shows the following error
Could not determine the order of year, month, and date from 'MM/yyyy/dd'.

Ok, Thanks, It works Good

Group Means: I make one lan group by 192.168.0... series and another group by 192.168.2... Series, server connected in the second series. Now tfs works well in second series. I can't connect tfs from first series (192.168.0.).

give me the specific code.

I want to write a single procedure to print the given data for printdocument & pdf formats, so that i need the height measurement in both.

it's ok, is there any way to measure the height of text in printdocument & iTextsharp?

I use the following code to get width in PDF. I use this code in ITextSharpPrint() procedure.


Dim lbase As BaseFont
lbase = tFont.BaseFont

cb.SetFontAndSize(tFont.BaseFont, 60)
cb.SetTextMatrix(100, document.PageSize.Height - 200)
cb.ShowText(lstrString)

MsgBox(lbase.GetWidthPoint(lstrstring, 60))

again, I give the full code.

Imports System.IO
Imports System.Drawing.Printing
Imports iTextSharp.text.pdf
Imports iTextSharp.text



Public Class Form1
Public egraphics As Graphics
Public prnDocument As New System.Drawing.Printing.PrintDocument

Private TMPbmp As New Bitmap(1, 1)
Private TMPgfx As Graphics = Graphics.FromImage(TMPbmp)
Private TxtSize As SizeF
Private lstrstring As String



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim psize As New Printing.PaperSize("Custom", 595, 842)


lstrstring = "Abcdghijyzw"

AddHandler prnDocument.PrintPage, AddressOf PrintPage

prnDocument.DefaultPageSettings.PaperSize = psize
'prnDocument.DefaultPageSettings.Landscape = True
prnDocument.DefaultPageSettings.Margins.Top = 0
prnDocument.DefaultPageSettings.Margins.Left = 0
prnDocument.DefaultPageSettings.Margins.Bottom = 0
prnDocument.DefaultPageSettings.Margins.Right = 0
'prnDocument.OriginAtMargins = True
prnDocument.Print()
ITextSharpPrint()
End Sub

Private Sub PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
Dim fReportFont As System.Drawing.Font
Dim lstringformat As New StringFormat
lstringformat = System.Drawing.StringFormat.GenericTypographic

egraphics = e.Graphics
egraphics.PageUnit = GraphicsUnit.Point
fReportFont = New System.Drawing.Font(Trim("Helvetica"), 60, FontStyle.Regular)
egraphics.DrawString(lstrstring, fReportFont, New SolidBrush(Color.Black), 200, 100, lstringformat)
MsgBox(MeasureDisplayStringWidth(egraphics, lstrstring, fReportFont))

End Sub


Private Sub ITextSharpPrint()

Using fs As System.IO.FileStream = New FileStream("C:\Kgm.pdf", FileMode.Create)

Dim document As New iTextSharp.text.Document(PageSize.A4, 0, 0, 0, 0)
Dim writer As PdfWriter = PdfWriter.GetInstance(document, fs)
Dim tFont As iTextSharp.text.Font

document.Open()
Dim cb As PdfContentByte = writer.DirectContent

cb.BeginText()


tFont = FontFactory.GetFont("Helvetica", 60, 0)

Dim lbase As BaseFont
lbase = tFont.BaseFont

cb.SetFontAndSize(tFont.BaseFont, 60)
cb.SetTextMatrix(100, document.PageSize.Height - 200)
cb.ShowText(lstrString)

MsgBox(lbase.GetWidthPoint(lstrstring, 60))


cb.EndText()
document.Close()
writer.Close()
fs.Close()

End Using
End Sub

' WindowsFormsApplication1.Form1
Public Shared Function MeasureDisplayStringWidth(ByVal graphics As Graphics, ByVal text As String, ByVal font As System.Drawing.Font) As Integer
Dim format As StringFormat = New StringFormat()
Dim rect As RectangleF = New RectangleF(0.0F, 0.0F, 1000.0F, 1000.0F)
Dim ranges As CharacterRange() = {New CharacterRange(0, text.Length)}
Dim regions As System.Drawing.Region() = New System.Drawing.Region(0) {}

format.SetMeasurableCharacterRanges(ranges)
regions = graphics.MeasureCharacterRanges(text, font, rect, format)
rect = regions(0).GetBounds(graphics)
Return CInt((rect.Right + 1.0F))
End Function


End Class

I use the following code the measure width in iTextShap.

Private Sub ITextSharpPrint()

Using fs As System.IO.FileStream = New FileStream("C:\Kgm.pdf", FileMode.Create)

Dim document As New iTextSharp.text.Document(PageSize.A4, 0, 0, 0, 0)
Dim writer As PdfWriter = PdfWriter.GetInstance(document, fs)
Dim tFont As iTextSharp.text.Font

document.Open()
Dim cb As PdfContentByte = writer.DirectContent

cb.BeginText()


tFont = FontFactory.GetFont("Helvetica", 60, 0)

Dim lbase As BaseFont
lbase = tFont.BaseFont

cb.SetFontAndSize(tFont.BaseFont, 60)
cb.SetTextMatrix(100, document.PageSize.Height - 200)
cb.ShowText(lstrString)

MsgBox(lbase.GetWidthPoint(lstrstring, 60))


cb.EndText()
document.Close()
writer.Close()
fs.Close()

End Using
End Sub

your code also shows different width. your code shows 355 points, I want same width in printdocument & Itextsharp. Is it possible?

I use the following link to convert from c# to vb.net.

http://www.developerfusion.com/tools/convert/csharp-to-vb/?batchId=7795037d-af46-4486-9629-b1f1469740f7

When i convert your code to vb.net, it shows the following error.

An error occured converting your code, probably due to a syntax error:
-- line 1 col 15: invalid TypeDecl

Hi i have another doubt, view the following link.

http://www.codeproject.com/Questions/696289/Text-Width-differs-for-printdocument-itextsharp

Thanks for your help. My mistake is, I don't substitute alignment property each and every time.

I want to add right alignment using the following code, it gives error.

Dim lAlign As New System.Drawing.StringFormat

lAlign.Alignment = StringAlignment.Far
lAlign = System.Drawing.StringFormat.GenericTypographic

No, See the ruler line, It prints exactly at 114,180.

I have completed my requirement by using third party library. Thanks

additionally i want to know is it possible to write the application in vb.net

ok, i can't locate a particular api for my purpose

you copy individual properties by using class. I want to copy all properties in single line (don't want to copy individual properties)

ok, But i want to copy all the properties in single line of code.

I can't understand memberwise clone, can you give me an example

Both Classes have the same property. I want to copy all the properties in a single line of code.

Both Classes have the same property. I want to copy all the properties in a single line of code.

It is very tedious job. I am having 100's of controls in a form. I need single event( form_focuschanged ).

It is very tedious job. I need single event( form_focuschanged ).

I know tab order very well. I think you are not understand my question.

I am having 100's of controls in a form. I want to trace it in one common event.

when we use three textbox in a form, user enters input in first textbox after he goes to second textbox using mouse or tab key, now focus changed from textbox1 to textbox2.

Which type of data ex. daybook, ledger .. you want to send to tally?

No, this is the best & easy way. Other wise you use tables to stores report name and Text name to do this process.

Ok, I will inform you after checking it without using mdi.

Ok, Thanks. I must need MDI and Krypton Navigator.

i checked it many more times, it will not work when i am using krypton navigator, It works well when i am not using krypton navigator.

Private Sub Form2_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Deactivate

gAryFormControl(2) = Me.ActiveControl
Mdi.Text = Mdi.Text & "2 DE"
End Sub

is the above is form_deactivate event?

I already checked, the form_deactivate event not fires when i close or go to another form.

Nothing happens, if you have any more doubts download and run my project.

Yes the problem is only with the use of krypton navigator.

I checked all the options, if i am not using krypton navigator it works well otherwise it doesn't work.

I want to write some code when the form lost it focus, while i am using krypton navigator.

Use the following link to download my project & Krypton Tools.

http://sdrv.ms/XMNTak

No Sir, It is not working.

No, Your answer is not working. If you need the coding to check i will send it.

My actual requirement is to note the active control of a form when user go to another form without closing the current form.

I vb6, when we close a form it fires form_unload event, when we show a form it fires form_load, form_Activate event, when the user goes from form A to another form then he return to the form A, it fires form_activate event. I need the equivalent event in vb.net