Visual Basic

leckey wrote:

Highlights include making your message title have meaning.

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

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

'  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!
??????

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)