Visual Basic

27-Jul-02 0:50

Can anyone explain how I can copy an Excel chart to the clipboard? It only works with text for me.
Tnx

WebBrowser

Anonymous26-Jul-02 9:34

26-Jul-02 9:34

Is anything equivalent in VB.Net with the WebBrowser of VB.6?

overFlow...

Anonymous25-Jul-02 22:08

25-Jul-02 22:08

hi, all
The following code giving me an overflow error.
Please tell me what is wrong in code.
Private Sub Command1_Click()
Dim x As Long
Dim y As Integer
y = 10
x = 11025 * y
MsgBox x

End Sub

SimonS25-Jul-02 23:35

SimonS

25-Jul-02 23:35

VB6 question right?

Dim x As Long
Dim y As Integer
y = 10
x = CLng(11025) * y
MsgBox x

Works fine.
But, so does this:

Dim x As Long
Dim y As Integer
y = 10
x = 11025 * CLng(y)
MsgBox x

By using 2 integers as operands, the compiler is presuming that the result will also be an integer.

Cheers,
Simon

"Sign up for a chance to be among the first to experience the wrath of the gods.", Microsoft's home page (24/06/2002)

Anonymous26-Jul-02 0:25

26-Jul-02 0:25

hi,Simon thanks for your reply
but,take this code, it is working fine
with out using any type conversion
Please..

Dim x As Long
Dim y As Integer
y = 10
x = 55555 * y
MsgBox x

SimonS26-Jul-02 2:16

SimonS

26-Jul-02 2:16

I don't have MSDN for VS6, but the upper limit for an integer is ~32,000, so in your example the "55,555" value is seen as a VB Long.

Basically, it's like this:
a. long = long * integer
b. integer = integer * integer

Your example corresponds to "a" and your initial post is like "b". The reason that "b" gave an overflow is that there's the potential for the product of 2 integers to exceed the max value for an integer (the compiler does it's best).

HTH

Cheers,
Simon

"Sign up for a chance to be among the first to experience the wrath of the gods.", Microsoft's home page (24/06/2002)

Anonymous28-Jul-02 18:07

Message Handler in VB.NET

28-Jul-02 18:07

thankQ i got the Point.

Very strange stuff..

Ray Cassick25-Jul-02 20:16

Ray Cassick

25-Jul-02 20:16

Ok, I have been messing around with dynamic loading of controls now all day and have a cool example that works, but I am getting some strange results on one area.

I am trying to add a way to get messages into the control that I am loading, but I digress. Here is an example of what I have:

1) I have a control that I use as a base (Called CtlBase.BaseControl) and it is defined as such:

Public MustInherit Class BaseControl
    Inherits System.Windows.Forms.UserControl

    Public Event MessageExit(ByVal OutputMessage As String)

    Public MustOverride WriteOnly Property MessageEntry(ByVal InputMessage As String)

    Protected Sub SendEvent(ByVal EventMessage As String)

        RaiseEvent MessageExit(EventMessage)

    End Sub
End Class

I have another project that inherits from this base control declared as such:

Public Class Ctl1
    Inherits CtlBase.BaseControl

    Private Sub cmdSendEvent_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSendEvent.Click

        SendEvent(txtSendMessage.Text)

    End Sub

    Public Overrides WriteOnly Property MessageEntry(ByVal InputMessage As String)
        Set(ByVal Value)
            txtRecvdmessage.Text = Value

        End Set

    End Property
End Class

Now, I have another project that is loading the Ctrl1 dynamicaly, tieing up the event that the control exsposes (that is working fine) and trying to assign data to the WriteOnly property that the control exsposes. This app looks like such:

Imports System.Reflection

Public Class Form1
    Inherits System.Windows.Forms.Form

    Dim c As Control
    Dim m As CtlBase.BaseControl

    Private Sub cmdLoad1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdLoad1.Click

        Dim myObj As Object
        Dim myAssem As System.Reflection.Assembly

        myAssem = myAssem.LoadFrom("..\..\ControlLib\bin\ControlLib.dll")
        myObj = myAssem.CreateInstance("ControlLib.Ctl1")
        c = CType(myObj, CtlBase.BaseControl)
        c.Dock = DockStyle.Fill
        m = DirectCast(c, CtlBase.BaseControl)
        AddHandler m.MessageExit, AddressOf Ctl_Click_Handler
        pnlMainPanel.Controls.Add(c)


    End Sub

    Private Sub Ctl_Click_Handler(ByVal Message As String)

        MessageBox.Show(Message & " : Was received.")

    End Sub

    Private Sub cmdCommand_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdCommand.Click

        m.MessageEntry(txtCommand.Text) = txtCommand.Text

    End Sub
End Class

The very odd thing is the way that I have to do what is listed in BOLD

If I try this as:

m.MessageEntry(txtCommand.Text)

I get a -
"I:\RUS\SnapinTest\Application\Form1.vb(155): Property 'MessageEntry' is 'WriteOnly'."

If I try it as:

m.MessageEntry = txtCommand.Text

I get a -
"I:\RUS\SnapinTest\Application\Form1.vb(155): Argument not specified for parameter 'InputMessage' of 'Public MustOverride WriteOnly Property MessageEntry(InputMessage As String) As Object'."

Can ANYONE please tell me what the hell I am doing wrong?

I mean the 'm.MessageEntry(txtCommand.Text) = txtCommand.Text' code does what I want it to, but WHY? It looks very odd to me.... Confused | :confused:

HELP!!!!!

Re: Very strange stuff..

Richard Deeming26-Jul-02 5:39

Richard Deeming

26-Jul-02 5:39

Change the declaration of the MessageEntry property to:

Public MustOverride WriteOnly Property MessageEntry As String

Then, in Ctl:

Public Overrides WriteOnly Property MessageEntry() As String
    Set(ByVal Value As String)
        txtRecvdmessage.Text = Value
    End Set
End Property

Then, you will be able to use:

m.MessageEntry = txtCommand.Text

Your original declaration was declaring a write-only String property which expected a single parameter of type String in addition to the value.

Re: Very strange stuff..

Ray Cassick26-Jul-02 9:07

Ray Cassick

26-Jul-02 9:07

Cool...I'll give it a try when I get back to the office (attic Smile | :)

)

Thanks...

JGraves25-Jul-02 11:11

JGraves

25-Jul-02 11:11

Hi,
I'm trying to add a GUI effect for a form in VB.NET that will cause the window to fade to 50% transparency when the title bar is clicked on. It's easy to get the form to fade, but I'm having trouble finding a way to capture the event of clicking on the title bar. Since this is a nonclient area of the window, VB does not raise one of the built-in events for forms. If anyone knows a way for me to capture the messages for when the title bar is clicked, I would be most happy... the only way i think i can do this is by writing a control in C++ that will capture the window messages and let VB know when the title bar has been clicked... thanks in advance..
Jon

Richard Deeming26-Jul-02 5:53

Richard Deeming

26-Jul-02 5:53

Try this in the form code:

Private Const WM_NCLBUTTONDOWN As Integer = &HA1
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    If m.Msg = WM_NCLBUTTONDOWN Then
        Me.Opacity = 0.5
    End If
    MyBase.WndProc(m)
End Sub

JGraves26-Jul-02 8:46

JGraves

26-Jul-02 8:46

Thanks a bunch, that worked just great.. one more question, is there a way to capture the left mouse button being released? I tried &HA2 as a code, but that is a double click (i think). Even Spy++ doesn't capture WM_NCLBUTTONUP. Thanks for the help!

Richard Deeming29-Jul-02 1:21

Richard Deeming

29-Jul-02 1:21

&HA2 is the correct code, but the window never seems to get it! Spy++ seems to see it as a WM_LBUTTONUP with a negative y value, but that message never gets to the WndProc on the form. Confused | :confused: