Visual Basic

[Marc] wrote:

EDIT: kut wrong forum

Public Const WM_NCHITTEST As Integer = 132
Public Const HTTRANSPARENT As Integer = -1

Protected Overrides Sub WndProc(ByRef m as Message)
    If (m.Msg = WM_NCHITTEST)
        m.Result = New IntPtr(HTTRANSPARENT )
    Else
        MyBase.WndProc(m)
    End If
End Sub

Public Class ClickThroughForm
    Inherits Form

Private Const WM_NCHITTEST As Integer = 132
Private Const HTTRANSPARENT As Integer = -1

Protected Overrides Sub WndProc(ByRef m as Message)
    If (m.Msg = WM_NCHITTEST) 'If Windows asks what kind of surface the mouse is on
        m.Result = New IntPtr(HTTRANSPARENT) 'Return that the mouse should go right through me
    Else
        MyBase.WndProc(m) 'Windows wants something else, let the base Control class do the work
    End If
End Sub

End Class

Private Const WM_NCHITTEST As Integer = 132<br />
Private Const HTTRANSPARENT As Integer = -1<br />
Protected Overrides Sub WndProc(ByRef m as Message)    <br />
If m.Msg = WM_NCHITTEST THEN 'If Windows asks what kind of surface the mouse is on        <br />
m.Result = New IntPtr(HTTRANSPARENT) 'Return that the mouse should go right through me    Else        <br />
MyBase.WndProc(m) 'Windows wants something else, let the base Control class do the work   <br />
End If<br />
End Sub<br />
End Class

<br />
Private Sub BuildGraph()<br />
   Dim vData() As Variant<br />
   Dim iMaxPoints As Integer<br />
   Dim iIndexData As Integer<br />
<br />
   ' Activate error trapping.<br />
   On Error GoTo catch<br />
<br />
   ' Do not init max to zero. Graph requires at least one point in<br />
   ' order to draw, otherwise control is drawn blank.<br />
   iMaxPoints = 100<br />
<br />
   ' Setup data array to be added to graph.<br />
   ' Array is defined like this: vData(X,Y) where...<br />
   ' X is max number of points out of all plots.<br />
   ' Y is the number of axes your plot uses. 2 for 1 plot, 4 for 2 plots, etc.<br />
   ReDim vData(0 To (iMaxPoints - 1), 0 To 1)<br />
   For iIndexData = 1 To iMaxPoints Step 1<br />
      vData(iIndexData - 1, 0) = CDbl(Rnd() * iMaxPoints)<br />
      vData(iIndexData - 1, 1) = CDbl(iIndexData)<br />
   Next<br />
   chtGraph.RowCount = iMaxPoints<br />
   chtGraph.ColumnCount = 2<br />
   chtGraph.ChartData = vData<br />
<br />
   ' Setup legend.<br />
   chtGraph.ShowLegend = True<br />
   chtGraph.Plot.SeriesCollection(1).LegendText = "Plot Line 1"<br />
<br />
   ' Setup axes.<br />
   With chtGraph.Plot<br />
      .UniformAxis = False<br />
      With .Axis(VtChAxisIdY).ValueScale<br />
         .Auto = False       ' Turn auto-scaling off.<br />
         .MajorDivision = 4<br />
         .Minimum = 0<br />
         .Maximum = 100<br />
      End With<br />
      .Axis(VtChAxisIdX).ValueScale.Auto = True<br />
      .Axis(VtChAxisIdX).AxisTitle.Text = "X-Axis Title"<br />
      .Axis(VtChAxisIdY).AxisTitle.Text = "Y-Axis Title"<br />
   End With<br />
<br />
   ' Draw graph.<br />
   chtGraph.Refresh<br />
   Exit Sub<br />
<br />
catch:<br />
   ' Error occurred! Display error message.<br />
   MsgBox "Error building graph!", vbCritical, "Internal Error!"<br />
End Sub<br />

paritosha wrote:

I want to put a icon near the all the nodes of a treeview control.