Visual Basic

Nilesh Hapse18-Jul-07 1:09

Nilesh Hapse

18-Jul-07 1:09

OOPS!!! sorry! that link was already posted.... Didn't see it!!!

Naji El Kotob18-Jul-07 2:33

Naji El Kotob

18-Jul-07 2:33

Hi,

There are many ways, but this will be a good one:

In form 2:
Public MyValue As String

In form 1:
Dim f as new Form2
f.MyValue = str
f.Show

Now in form 2 you can simple process the value of MyValue variable.

Hope this will help!

NajiCo http://www.InsideVB.NET[^]

It's nice 2b important, but it's more important 2b nice...

Colin Angus Mackay18-Jul-07 2:43

Colin Angus Mackay

18-Jul-07 2:43

Naji El Kotob wrote:
There are many ways, but this will be a good one

I'll have to disagree on that one. Destroying encapsulation by making a class field public is rarely a good idea.

See these two articles for a discussion on the subject:
* Why make fields in a class private, why not just make them public?[^]
* The public fields debate again[^]

Upcoming events:
* Glasgow: Mock Objects, SQL Server CLR Integration, Reporting Services, db4o, Dependency Injection with Spring ...

"I wouldn't say boo to a goose. I'm not a coward, I just realise that it would be largely pointless."

My website

dienadel18-Jul-07 15:50

dienadel

18-Jul-07 15:50

Thanks man the code is correct.
One more thing can i store this value to a properties for example:

public properties you()

get
return textbox.text
end get

set (byval value as string)
textbox.text = value
end set

The rules

leckey18-Jul-07 2:55

leckey

18-Jul-07 2:55

Please read the forum guidelines.
Highlights include making your message title have meaning. Everyone here needs help.

_____________________________________________
Flea Market! It's just like...it's just like...A MINI-MALL!

Re: The rules

Paul Conrad18-Jul-07 6:11

Paul Conrad

18-Jul-07 6:11

leckey wrote:
Highlights include making your message title have meaning.

Yes. I find that using the < pre > ... < / pre > with the < code > ... < / code > tags makes it much more readable.

"The clue train passed his station without stopping." - John Simmons / outlaw programmer

Hi,Correctly uncompressing RTF text

manni_n18-Jul-07 8:07

manni_n

18-Jul-07 8:07

its simple...

<br />
button1_click()<br />
Dim a As New Form2<br />
        a.YourPublicMember = TextBox1.Text<br />
        myform.Show()

before loading of form 2
public yourpublicmember as string
form2_loads()
textbox1.text=yourpublicmember

MartyK200717-Jul-07 22:48

MartyK2007

17-Jul-07 22:48

Hi,
I have some code which uses CDO to retrieve a mail item from outlook
I know that the body is stored in RTF and have read this from CDO.
My problem is that the RTF is in compressed format - now doing some google research I have have found an API call to uncompress the RTF.
I just cant get the code to call the API correctly.
Can you have a look at the code and tell me where I am being dumb please

 Public Const MAPI_MODIFY As UInteger = &H1<br />
    Public Const STORE_UNCOMPRESSED_RTF As UInteger = &H8000<br />
<br />
    Public Declare Function WrapCompressedRTFStream Lib "mapi32.dll" (<MarshalAs(UnmanagedType.Interface)> ByRef lpCompressedRTFStream As IStream, ByVal uFlags As UInt32, <MarshalAs(UnmanagedType.Interface)> ByRef lpUncompressedStream As IStream) As Integer<br />
<br />
    Function getRTFfromCDO(ByVal sEntryId As String)<br />
        Dim objCDO As MAPI.Session<br />
        Dim objMail As MAPI.Message<br />
        '  Dim strmOut As MemoryStream<br />
        Dim lpsource As ADODB.Stream = New ADODB.Stream ' Microsoft ADODB Com object reference<br />
        Dim lptarget As ADODB.Stream = New ADODB.Stream<br />
<br />
        Const CdoPR_RTF_COMPRESSED = &H10090102<br />
        objCDO = CreateObject("MAPI.Session")<br />
        objCDO.Logon("", "", False, False)<br />
        objMail = objCDO.GetMessage(sEntryId)<br />
        Try<br />
            lpsource.Type = StreamTypeEnum.adTypeText<br />
            lptarget.Type = StreamTypeEnum.adTypeText<br />
            lpsource.Open()<br />
            lpsource.WriteText(objMail.Fields(CdoPR_RTF_COMPRESSED).Value)<br />
            WrapCompressedRTFStream(lpsource, STORE_UNCOMPRESSED_RTF, lptarget)<br />
        Catch ex As Exception<br />
            MsgBox(ex.Message)<br />
        End Try<br />
<br />
        'Return objMail.Fields(CdoPR_RTF_COMPRESSED).Value<br />
        objCDO.Logoff()<br />
    End Function

thanks
Martin

life is a bowl of cherries
go on take a byte

Re: Hi,Correctly uncompressing RTF text

Dave Kreskowiak18-Jul-07 4:31

Dave Kreskowiak

18-Jul-07 4:31

You've got several problems. The lack of anyone using this API with C# or VB.NET is one of them, so documentation and support is lacking.

First, I think your declaration has to look more like:

Private Declare Auto Function WrapCompressedRTFStream Lib "mapi32.dll" ( _
    <MarshalAs(UnmanagedType.Interface)> ByVal lpCompressedRTFStream As ComTypes.IStream, _
    ByVal ulFlags As UInt32, _
    <MarshalAs(UnmanagedType.Interface)> ByVal lpUncompressedRTFStream As ComTypes.IStream) _
        As Integer

I have no way of testing this!

Second. You create an lpSource stream, but you never associate that stream with the incomming data. It's a stream that points to nothing. Some thing with your lpTarget. It also points to God knows what. You haven't told either of these object where the source and destination streams are actually supposed to get/write their data.

'  OK...You've created a couple of Streams.  What are they looking at??  Nothing!
Dim lpsource As ADODB.Stream = New ADODB.Stream ' Microsoft ADODB Com object reference
Dim lptarget As ADODB.Stream = New ADODB.Stream
...
Try
' Great! You set the stream types, but you still haven't told the source stream
' where to get it's data from!
lpsource.Type = StreamTypeEnum.adTypeText
lptarget.Type = StreamTypeEnum.adTypeText
 
' Open what stream??
lpsource.Open()

' I have no idea what this line is doing, nor why it's even here.
lpsource.WriteText(objMail.Fields(CdoPR_RTF_COMPRESSED).Value)

WrapCompressedRTFStream(lpsource, STORE_UNCOMPRESSED_RTF, lptarget)
' OK.  Now you've got the source stream wrapped.  But you don't read anything and
' you don't write anything to any stream.  All you did was wrap the source for
' decompression!
??????

From what I've seen in the docs for WrapCompressed... the stream you should be reading to get the uncompressed RTF is the lptarget stream.

I can't tell you exactly how to fix these problems. I have nothing to test any code with that will supply a compressed RTF in an email.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Re: Hi,Correctly uncompressing RTF text

MartyK200718-Jul-07 4:48

MartyK2007

18-Jul-07 4:48

Hello,
The lpsource stream I am populating with the string defined by
objMail.Fields(CdoPR_RTF_COMPRESSED).Value
which is the compressed RTF stream of the Mail item as extracted by CDO - hence the Open and writeText

Its values in my example is
"C9020000750400004C5A46759FA2E86903000A0072637067313235163200F80B606E0E103033334F01F702A403E3020063680AC073F0657430200713028300501066187072710E5010D85461689B037102807D0A8008C8203B096FED0E3035028014322A09B009F00490D4617405B1520DE068098001D00020352E35302E3939922E01D0303902805C760890A4776B0B8064340C606300503D0B036312020BC50F0201D035370F0AA20A811A2011516E79206F6E7417A005C01730700DE0042079A10860206775790420770070FB05400B80630A4001000B311B831B739B139017A0200AC005406F661D50526F047020620AC062059075F90B80673F20F01E8A1A131B7703C17C31381AD30F4205D01F910B8020CA4B09F0640510636B033000A05122D136284C022064022029030C4022B42020782038361E311B561A9F21670B036C6933DE36014012B01C5005907411F42500FC205F2A6F2B7F2C280AE30A8229740729410B132976692D3134343D27416922F018900CC12F4362205A4603613A03300C9262115043F1036075742C24101C302D3630701B066002303A30F626014A756CCB1C301881373370353A18A0322774546F32F75308902080032053187570700911322875626A8B29A132F74116D164612002107F05C00780113020C11C4003A0309069653890793227496D3682007063C26532F74869676827EC2D
CF1F29A229040BB538451E8A2A2050E3036037822055703890299010B0D33FF50800616400C07033F418819323003FF64D4D3FE641751D60967305400460761F7028410540386C65614451031003206B6EDA6F07E07717A003A04A457245307620097041F02036601CA11CA068ED04002036800B807425903FF523B1F524902D07B34310F00F201F7119505F13900790054029613B2064087065EF1E8A1C1F1D2F1E3320211B31E02317FF212B25E331E1317324B52620252626307E380E404FA025B30C011E99142100015440" {String}

The lptarget stream I assumed was going to be populated by the uncompressed version of the text.
I read somewhere the ADODB.Stream was in effect a derived istream and could be used like that.
Is that true?

with your changes added , the API complained about an unopen lptarget stream
so I added an lptarget.open

now when I run it I get no error number but the lptarget.size is 0

any ideas??

Thanks
Martin

life is a bowl of cherries
go on take a byte

Form Capture

Ahmad Zaidi17-Jul-07 22:21

Ahmad Zaidi

17-Jul-07 22:21

Hi,

I am trying to take a screen shot of a form without displaying it to the user. Here is the code:

Public Sub TakeScreenShot(ByVal windowHandle As IntPtr)

Dim screenBmp As Bitmap
Dim gfxScreenshot As Graphics

'Set the bitmap object size to the size of the form

screenBmp = New Bitmap((Screen.FromHandle(windowHandle)).Bounds.Width, (Screen.FromHandle(windowHandle)).PrimaryScreen.Bounds.Height, PixelFormat.Format32bppArgb)

'Create a graphics object from the bitmap
gfxScreenshot = Graphics.FromImage(screenBmp)

'Take the screenshot from the upper left corner to the right bottom corner of the form
gfxScreenshot.CopyFromScreen((Screen.FromHandle(windowHandle)).Bounds.X, (Screen.FromHandle(windowHandle)).Bounds.Y, 0, 0, (Screen.FromHandle(windowHandle)).Bounds.Size, CopyPixelOperation.SourceCopy)

'Save the screen shot
screenBmp.Save("C:\test.jpg", ImageFormat.Jpeg)

End Sub

But what it ends up doing instead is taking a screenshot of the whole screen without the form! How can I fix this?

Thanks in advance!
Ahmad

Re: Form Capture

The ANZAC18-Jul-07 1:46

The ANZAC

18-Jul-07 1:46

Try this:

Dim Pic As Bitmap<br />
        Dim SS As Graphics<br />
<br />
 Pic = New Bitmap(me.width, me.height, Imaging.PixelFormat.Format32bppArgb)<br />
        SS = Graphics.FromImage(Pic)<br />
        SS.CopyFromScreen(me.location.x, me.location.Y, 0, 0, me.size, CopyPixelOperation.SourceCopy)<br />
<br />
pic.save("C:\test.jpg", ImageFormat.Jpeg)

Please check out my articles:
The ANZAC's articles

Re: Form Capture

Ahmad Zaidi19-Jul-07 0:27

Ahmad Zaidi

19-Jul-07 0:27

its giving a few probs:

a) If the form is in the background then the screen shot contains an image on the contents of the screen rather then the form. I want to take a shot of the form while having it in the background.
b) Sometimes it just gives a plain white image. Any idea why that would be?

Thanks.

vb.net exe

Jayesh Talsaniya17-Jul-07 22:09

17-Jul-07 22:09

i am creting exe (package) in vb.net that has crystal reports. do i need to install Crystal Reports in client machine to execute it.??

Re: vb.net exe

Steven J Jowett18-Jul-07 1:22

Steven J Jowett

18-Jul-07 1:22

You will need to distribute the Crystal Report Merge Modules with your app. You can get them from the BusinessObjects.com website

Steve Jowett
-------------------------
Sometimes a man who deserves to be looked down upon because he is a fool, is only despised only because he is an 'I.T. Consultant'

Re: vb.net exe

Jayesh Talsaniya18-Jul-07 2:08

crystal with vb.net package

18-Jul-07 2:08

thax

i did it adding prerequisites..... and works...

Jayesh Talsaniya17-Jul-07 21:55

17-Jul-07 21:55

hi
is it necessary to install crystal report in the client machine to execute the crystal report
through vb.net exe/package....???

Thanx

Jayesh Talsaniya

Naji El Kotob18-Jul-07 0:11

Naji El Kotob

18-Jul-07 0:11

Hi,

runtimes files on the target machine are required, you could distribute the required files by building a setup project (File > Add Project > Setup ...)

Right mouse on the Setup Project in the Solution explorer window > Add > Merge Module... > select Microsoft_VC80_DebugCRT_x86.msm

for more details plz go to http://msdn2.microsoft.com/en-us/library/ms225293(VS.80).aspx[^]

Good Luck Wink | ;)

,
NajiCo

It's nice 2b important, but it's more important 2b nice...

Jayesh Talsaniya18-Jul-07 0:45

18-Jul-07 0:45

thank you for taking interest in my problem.

if i add Microsoft_VC80_DebugCRT_x86.msm in the package then do i need to install runtime in the client machine..

thanx agian.

Steven J Jowett18-Jul-07 2:08

Steven J Jowett

18-Jul-07 2:08

Nope, this Merge Module contains all that is required

Steve Jowett
-------------------------
Sometimes a man who deserves to be looked down upon because he is a fool, is only despised only because he is an 'I.T. Consultant'

Jayesh Talsaniya18-Jul-07 2:15

18-Jul-07 2:15

Thank You. Smile | :)