wordpress可以企业网站,seo怎么优化效果更好,photolux wordpress,wordpress rss 抓取在vs2005中,reportviewer控件并没有提供对“页面设置”的直接调用的方法,网上有自定义类的解决方法,可行但很麻烦,在实践中我发现了一个方法,就是利用reportviewer的右键菜单,采用鼠标模拟的方法࿰…
 Public Class Form1Class Form1
Public Class Form1Class Form1

 Private Const MOUSEEVENTF_LEFTDOWN = &H2
    Private Const MOUSEEVENTF_LEFTDOWN = &H2
 Private Const MOUSEEVENTF_LEFTUP = &H4
    Private Const MOUSEEVENTF_LEFTUP = &H4
 Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
    Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
 Private Const MOUSEEVENTF_MIDDLEUP = &H40
    Private Const MOUSEEVENTF_MIDDLEUP = &H40
 Private Const MOUSEEVENTF_RIGHTDOWN = &H8
    Private Const MOUSEEVENTF_RIGHTDOWN = &H8
 Private Const MOUSEEVENTF_RIGHTUP = &H10
    Private Const MOUSEEVENTF_RIGHTUP = &H10


 Private Declare Function SetCursorPos()Function SetCursorPos Lib "user32" (ByVal x As Int32, ByVal y As Int32) As Int32
    Private Declare Function SetCursorPos()Function SetCursorPos Lib "user32" (ByVal x As Int32, ByVal y As Int32) As Int32


 Private Declare Sub mouse_event()Sub mouse_event Lib "user32" (ByVal dwFlags As Int32, ByVal dx As Int32, ByVal dy As Int32, ByVal cButtons As Int32, ByVal dwExtraInfo As Int32)
    Private Declare Sub mouse_event()Sub mouse_event Lib "user32" (ByVal dwFlags As Int32, ByVal dx As Int32, ByVal dy As Int32, ByVal cButtons As Int32, ByVal dwExtraInfo As Int32)


 Private Sub Button2_Click()Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Private Sub Button2_Click()Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

 Dim p As Point = Me.ReportViewer1.PointToScreen(Me.ReportViewer1.Location)
        Dim p As Point = Me.ReportViewer1.PointToScreen(Me.ReportViewer1.Location)


 '模拟右键
        '模拟右键
 p.X += 320
        p.X += 320
 System.Windows.Forms.Cursor.Position = p
        System.Windows.Forms.Cursor.Position = p
 mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)
        mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)
 mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)
        mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)

 '页面设置的坐标
        '页面设置的坐标
 p.Y += 80
        p.Y += 80
 p.X += 10
        p.X += 10
 System.Windows.Forms.Cursor.Position = p
        System.Windows.Forms.Cursor.Position = p
 mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
 mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

 'End If
        'End If
 end class
end class 
 
在vs2005中,reportviewer控件并没有提供对“页面设置”的直接调用的方法,网上有自定义类的解决方法,可行但很麻烦,在实践中我发现了一个方法,就是利用reportviewer的右键菜单,采用鼠标模拟的方法,来完成对页面设置的调用。
首先设置reportviewer的属性: ShowPageNavigationControl=Ture,ShowToolBar=False,

 Public Class Form1Class Form1
Public Class Form1Class Form1
 Private Const MOUSEEVENTF_LEFTDOWN = &H2
    Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4
    Private Const MOUSEEVENTF_LEFTUP = &H4 Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
    Private Const MOUSEEVENTF_MIDDLEDOWN = &H20 Private Const MOUSEEVENTF_MIDDLEUP = &H40
    Private Const MOUSEEVENTF_MIDDLEUP = &H40 Private Const MOUSEEVENTF_RIGHTDOWN = &H8
    Private Const MOUSEEVENTF_RIGHTDOWN = &H8 Private Const MOUSEEVENTF_RIGHTUP = &H10
    Private Const MOUSEEVENTF_RIGHTUP = &H10

 Private Declare Function SetCursorPos()Function SetCursorPos Lib "user32" (ByVal x As Int32, ByVal y As Int32) As Int32
    Private Declare Function SetCursorPos()Function SetCursorPos Lib "user32" (ByVal x As Int32, ByVal y As Int32) As Int32

 Private Declare Sub mouse_event()Sub mouse_event Lib "user32" (ByVal dwFlags As Int32, ByVal dx As Int32, ByVal dy As Int32, ByVal cButtons As Int32, ByVal dwExtraInfo As Int32)
    Private Declare Sub mouse_event()Sub mouse_event Lib "user32" (ByVal dwFlags As Int32, ByVal dx As Int32, ByVal dy As Int32, ByVal cButtons As Int32, ByVal dwExtraInfo As Int32)

 Private Sub Button2_Click()Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Private Sub Button2_Click()Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 Dim p As Point = Me.ReportViewer1.PointToScreen(Me.ReportViewer1.Location)
        Dim p As Point = Me.ReportViewer1.PointToScreen(Me.ReportViewer1.Location)

 '模拟右键
        '模拟右键 p.X += 320
        p.X += 320 System.Windows.Forms.Cursor.Position = p
        System.Windows.Forms.Cursor.Position = p mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)
        mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0) mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)
        mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)
 '页面设置的坐标
        '页面设置的坐标 p.Y += 80
        p.Y += 80 p.X += 10
        p.X += 10 System.Windows.Forms.Cursor.Position = p
        System.Windows.Forms.Cursor.Position = p mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
 'End If
        'End If end class
end class 
 
